|
PureBytes Links
Trading Reference Links
|
fib retracement was what a CLZ04 trader would
dream.
<FONT face=Verdana
size=1>
x = <FONT
size=2>Cum(1);per = 5<FONT
face="Times New Roman" size=2>;s1=L;s11=H;
pS = <FONT
size=2>TroughBars( s1, per, 1 ) == 0<FONT
face=Verdana size=1>;
endt= <FONT
size=2>LastValue(ValueWhen( pS, x,
1
));
startt=<FONT
size=2>LastValue(ValueWhen( pS, x,
2
));
dtS =endt-startt;
endS = <FONT
size=2>LastValue(ValueWhen( pS, s1,
1 )
);
startS = <FONT
size=2>LastValue( ValueWhen( pS, s1,
2
));
aS = (endS-startS)/dtS;bS =
endS;
trendlineS = aS * ( x -endt ) + bS;
SU = <FONT
size=2>IIf(x>startt-1,trendlineS,-1e10<FONT
face=Verdana size=1><FONT face="Times New Roman"
size=2>);
Plot<FONT
size=2>(SU,"\nSU"<FONT face="Times New Roman"
size=2>,colorYellow,styleThick);
pR = <FONT
size=2>PeakBars( s11, per, 1 ) == 0<FONT face=Verdana
size=1>;
endt1= <FONT
size=2>LastValue(ValueWhen( pR, x,
1
));
startt1=<FONT
size=2>LastValue(ValueWhen( pR, x,
2
));
firstt1=<FONT
size=2>LastValue(ValueWhen( pR, x,
3
));
dtR =endt1-startt1;
endR = <FONT
size=2>LastValue(ValueWhen( pR, s11,
1 )
);
startR = <FONT
size=2>LastValue( ValueWhen( pR, s11,
2
));
aR = (endR-startR)/dtR;
bR = endR;
trendlineR = aR * ( x -endt1 ) + bR;
RE = <FONT
size=2>IIf(x>startT1-1,trendlineR,-1e10<FONT
face=Verdana size=1><FONT face="Times New Roman"
size=2>);
<FONT face="Times New Roman"
size=2>//Plot(RE,"RE",colorOrange,styleThick);<FONT
face=Verdana size=1>
Plot<FONT
size=2>(C,"C",1,64);b=BarIndex<FONT
face="Times New Roman" size=2>();
X1=<FONT
size=2>ValueWhen(Cum(IsTrue<FONT
size=2>(SU))==1<FONT face="Times New Roman"
size=2>,b);
Y1=<FONT
size=2>ValueWhen<FONT face="Times New Roman"
size=2>(b==X1,SU);
X2=<FONT
size=2>LastValue(b);Y2=LastValue<FONT face=Verdana
size=1>(SU);
SLOPE=(Y2-Y1)/(X2-X1);
YP=<FONT
size=2>LastValue(Highest<FONT
size=2>(SU/SU*H));<FONT face="Times New Roman"
size=2>//Plot(yp,"",1,1);
XP=<FONT
size=2>ValueWhen<FONT face="Times New Roman"
size=2>(H==YP,b);
HL0=YP+SLOPE*(b-XP);
DIST=<FONT
size=2>ValueWhen<FONT face="Times New Roman"
size=2>(H==YP,H-SU);
HL1=YP-<FONT
size=2>0.382*DIST+SLOPE*(b-XP);Plot<FONT
size=2>(HL1,"\n0.382",colorTurquoise,1<FONT
face="Times New Roman" size=2>);
HL2=YP-<FONT
size=2>0.5*DIST+SLOPE*(b-XP);Plot<FONT
size=2>(HL2,"\n0.500",colorRed,8<FONT
face="Times New Roman" size=2>);
HL3=YP-<FONT
size=2>0.618*DIST+SLOPE*(b-XP);Plot<FONT
size=2>(HL3,"\n0.618",colorIndigo,1<FONT
face="Times New Roman" size=2>);
HL4=YP-<FONT
size=2>0.786*DIST+SLOPE*(b-XP);Plot<FONT
size=2>(HL4,"\n0.786",colorGold,1<FONT
face="Times New Roman" size=2>);
Plot<FONT
size=2>((HL1/HL1)*HL0,"\nRE",colorYellow,styleThick);GraphXSpace=2<FONT
face=Verdana size=1>;
<FONT
face="Times New Roman">
<FONT
face="Times New Roman">Dimitris
Tsokakis
Check AmiBroker web page at:
http://www.amibroker.com/
Check group FAQ at: http://groups.yahoo.com/group/amibroker/files/groupfaq.html
Yahoo! Groups Sponsor
ADVERTISEMENT
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 the Yahoo! Terms of Service.
Attachment:
00fcl.gif
Attachment:
Description: "Description: GIF image"
|