[amibroker] An indicator

["skiabox" <skiabox@xxxxxxxxxxxx>]

I found this indicator in a forum
http://www.elitetrader.com/vb/showthread.php?s=&threadid=58248
Can it be translated to afl?

here is the code:

{***************************************



Written by: Alex Frost

Company: UnderstandMarket.com

Description: Smooth Zero-Based.



****************************************}

Input:Length(NumericSimple),Price(NumericSeries);
Var:j(0),hh(0),b(0),f(0);
Array:R2[100](0),PR[100](0);

if Length<100 AND BarNumber>Length then begin
for j=0 to Length begin
PR[Length-j]=Price[j];
R2[j]=j;
end;
for hh=0 to Length begin
for j=0 to Length-2 begin
if Price[Length-R2[j]]>Price[Length-R2[j+1]] then begin
b=R2[j];
R2[j]=R2[j+1];
R2[j+1]=b;
end;
end;
end;
Value33 = 0;
for j=0 to Length begin
Value33=Value33+Power((R2[j]-j),2);
end;
UMindicator = 1-(6*Value33)/(Power(Length,3)-Length);
end;





------------------------ Yahoo! Groups Sponsor --------------------~--> 
Try Online Currency Trading with GFT. Free 50K Demo. Trade 
24 Hours. Commission-Free. 
http://us.click.yahoo.com/RvFikB/9M2KAA/U1CZAA/GHeqlB/TM
--------------------------------------------------------------------~-> 

Please note that this group is for discussion between users only.

To get support from AmiBroker please send an e-mail directly to 
SUPPORT {at} amibroker.com

For other support material please check also:
http://www.amibroker.com/support.html

 
Yahoo! Groups Links

<*> To visit your group on the web, go to:
    http://groups.yahoo.com/group/amibroker/

<*> To unsubscribe from this group, send an email to:
    amibroker-unsubscribe@xxxxxxxxxxxxxxx

<*> Your use of Yahoo! Groups is subject to:
    http://docs.yahoo.com/info/terms/