Page 1 of 1

Type : Indicator, Name : ABillW_ActiveFractal

Posted: Tue Jan 01, 2008 6:59 am
by bbrodka
Found on the net, looks interesting

Code: Select all

//Type : Indicator, Name : ABillW_ActiveFractal

Vars:
blBlue(0),
blRed(0),
blGreen(0),
upFrac(0),
dnFrac(0),
stp_now(FALSE),
i1(0),
maxFracsBack(10);

value0=(h+l)/2;
blBlue= Average(value0,13)[8]; {blue}
blRed= Average(value0,8)[5]; {red}
blGreen=Average(value0,5)[3]; {green}

value1=Highest(h,3);
value2=Lowest(l,3);

{Wenn dnFrac über BLred liegt, ist es ungültig.
Das vorhergehende dnFrac wird dann auf Gültigkeit getestet usw.}
stp_now=FALSE;
i1=1;
while i1<maxFracsBack and SwingLow(i1,l,2,80)<>-1 and stp_now=FALSE
begin
value3=SwingLow(i1,l,2,80);
if value3>BLred or value3>value2
then i1=i1+1
else stp_now=TRUE;
end;

if stp_now
then dnFrac=value3
else dnFrac=-1;

{if i1>=maxFracsBack then print(d," mehr als ",maxFracsBack," dnFracs");}

{Wenn upFrac unter BLred liegt, ist es ungültig.
Das vorhergehende upFrac wird dann auf Gültigkeit getestet usw.}
stp_now=FALSE;
i1=1;
while i1<maxFracsBack and SwingHigh(i1,h,2,80)<>-1 and stp_now=FALSE
begin
value4=SwingHigh(i1,h,2,80);
if value4<BLred or value4<value1
then i1=i1+1
else stp_now=TRUE;
if date=930219 then print(d," ooh ",i1,stp_now,value4);

end;

if stp_now
then upFrac=value4
else upFrac=-1;

{if i1>=maxFracsBack then print(d," mehr als ",maxFracsBack," upFracs");}

if upFrac<>0 and upFrac<>-1 then plot1(upFrac,"upFract");
if dnFrac<>0 and dnFrac<>-1 then plot2(dnFrac,"dnFract");


Image