|
PureBytes Links
Trading Reference Links
|
Dimitris,
I see you dream about this stuff too, only your afl gets changed while
mine doesn't.
Very nice work.
Phsst
--- In amibroker@xxxxxxxxxxxxxxx, "DIMITRIS TSOKAKIS" <TSOKAKIS@xxxx>
wrote:
> /*HISTORICAL TRENDLINES and BREAKOUTS, by D. Tsokakis, Oct2003*/
> x = Cum(1);
> per = 3;// CALIBRATE THE ZIG() SENSITIVITY
> s1=L;s11=H;
> pS = TroughBars( s1, per, 1 ) == 0;
> endt=SelectedValue(ValueWhen( pS, x ,1));
> startt=SelectedValue(ValueWhen( pS, x ,2));
> dtS =endt-startt;
> endS = SelectedValue((ValueWhen( pS, s1,1) ));
> startS = SelectedValue(( ValueWhen( pS, s1 ,2)));
> aS = (endS-startS)/dtS;bS = endS;
> trendlineS = aS * ( x -endt ) + bS;//SUPPORT LINE
> pR = PeakBars( s11, per, 1 ) == 0;
> endt1= SelectedValue(ValueWhen( pR, x, 1));
> startt1=SelectedValue(ValueWhen( pR, x, 2 ));
> dtR =endt1-startt1;
> endR = SelectedValue(ValueWhen( pR, s11, 1 ) );
> startR = SelectedValue( ValueWhen( pR, s11, 2 ));
> aR = (endR-startR)/dtR;bR = endR;
> trendlineR = aR * ( x -endt1 ) + bR;//RESISTANCE LINE
> first=Min(startt,startt1);Last=Max(endt,endt1);
> d=10;// INCREASE d TO EXTEND THE LINES
> bullishbreakout=x>endt1 AND x<last+d AND Cross(C,trendlineR);
> bearishbreakout=x>endt AND x<last+d AND Cross(trendlineS,C);
> Plot(C,"Close",IIf(bullishbreakout,colorBrightGreen,IIf
> (bearishbreakout,colorRed,colorBlack)),64);
> Plot(IIf(x>=first -d AND x<=Last+d,trendlineS,-
> 1e10),"Support",colorBrightGreen,1);
> Plot(IIf(x>=first-d AND x<=Last+d,trendlineR,-
> 1e10),"Resistance",colorRed,1);
>
> Place the cursor in a previous bar and see the trendlines for this
> period.
> Move the cursor [to the left or to the right] to see the formation
> changes.
> The Resistance breakouts are painted green, the Support breakouts are
> red.
> Dimitris Tsokakis
> --- In amibroker@xxxxxxxxxxxxxxx, "DIMITRIS TSOKAKIS" <TSOKAKIS@xxxx>
> wrote:
> > Select an empty IB window and paste the
> >
> > /*HISTORICAL TRENDLINES, v.2.*/
> > x = Cum(1);per = 3;s1=L;s11=H;
> > pS = TroughBars( s1, per, 1 ) == 0;
> > endt=SelectedValue(ValueWhen( pS, x ,1));
> > startt=SelectedValue(ValueWhen( pS, x ,2));
> > dtS =endt-startt;
> > endS = SelectedValue((ValueWhen( pS, s1,1) ));
> > startS = SelectedValue(( ValueWhen( pS, s1 ,2)));
> > aS = (endS-startS)/dtS;bS = endS;
> > trendlineS = aS * ( x -endt ) + bS;//SUPPORT LINE
> > pR = PeakBars( s11, per, 1 ) == 0;
> > endt1= SelectedValue(ValueWhen( pR, x, 1));
> > startt1=SelectedValue(ValueWhen( pR, x, 2 ));
> > dtR =endt1-startt1;
> > endR = SelectedValue(ValueWhen( pR, s11, 1 ) );
> > startR = SelectedValue( ValueWhen( pR, s11, 2 ));
> > aR = (endR-startR)/dtR;bR = endR;
> > trendlineR = aR * ( x -endt1 ) + bR;//RESISTANCE LINE
> > first=Min(startt,startt1);Last=Max(endt,endt1);
> > Plot(IIf(x>=first -10 AND x<=Last+10,trendlineS,-
> > 1e10),"Support",colorBrightGreen,1);
> > Plot(IIf(x>=first-10 AND x<=Last+10,trendlineR,-
> > 1e10),"Resistance",colorRed,1);
> > Plot(C,"Close",colorBlack,64);
> >
> > Place your cursor at the last bar and move it slowly to the left.
> > Your graph will recall, one by one, the trendlines of the past.!!
> > Dimitris Tsokakis
------------------------ Yahoo! Groups Sponsor ---------------------~-->
Rent DVDs from home.
Over 14,500 titles. Free Shipping
& No Late Fees. Try Netflix for FREE!
http://us.click.yahoo.com/ybSovB/hP.FAA/3jkFAA/GHeqlB/TM
---------------------------------------------------------------------~->
Send BUG REPORTS to bugs@xxxxxxxxxxxxx
Send SUGGESTIONS to suggest@xxxxxxxxxxxxx
-----------------------------------------
Post AmiQuote-related messages ONLY to: amiquote@xxxxxxxxxxxxxxx
(Web page: http://groups.yahoo.com/group/amiquote/messages/)
--------------------------------------------
Check group FAQ at: http://groups.yahoo.com/group/amibroker/files/groupfaq.html
Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
|