|
PureBytes Links
Trading Reference Links
|
Anthony- really nice, but I think there's a bug somewhere. Comparing
QQQ with NDX, I got slopes of 4 and 72 degrees respectively, even
though both trendlines were 27 days and the slopes looked the same.
Mark
--- In amibroker@xxxxxxxxxxxxxxx, "Anthony Faragasso" <ajf1111@xxxx>
wrote:
> //Automatic Support Trendline With Degrees
>
> //Anthony Faragasso, 2003
>
> x = Cum(1);
>
> per =Param("Percent",2,0.01,3,0.01);// Sensitivity setting
>
> s1=L;//Array
>
> EndValue1 = LastValue( Trough( s1, per, 1 ) );
>
> startvalue = LastValue( Trough( s1, per, 2 ) );
>
> endbar = LastValue( ValueWhen( s1 == EndValue1, x, 1 ) );
>
> startbar = LastValue( ValueWhen( s1 == startvalue, x, 1 ) );
>
> aS = (EndValue1-startvalue)/(endbar-startbar);
>
> bS = EndValue1;
>
> trendline = aS * ( x -endbar ) + bS;
>
> //-----------------------------------//
>
> // Conversion to Degrees //
>
> //-----------------------------------//
>
> pi=4*atan(1);
>
> time=endbar-startbar;
>
> myslope=LinRegSlope(trendline,time);
>
> myradian=atan(myslope);
>
> mydegree=myradian*(180/PI);//Degrees
>
> //-------------------------------------//
>
> Plot(C,"close",colorBlack,styleCandle);
>
>
Plot(IIf(x>startbar-5,trendline,-1e10),"Trendline",colorYellow,styleLine);
>
> direction=WriteIf(mydegree >= 0 AND mydegree <= 0.99,"Flat
> ",WriteIf(mydegree > 0 ,"Rising ",WriteIf(mydegree < 0 , "Falling ",
"")));
>
> DirectionColor=LastValue(IIf(mydegree >
0,colorBrightGreen,IIf(mydegree < 0,
> colorRed,IIf(mydegree >= 0 AND mydegree <= 0.99 ,colorYellow,Null))));
>
> Title=Name()+"..."+Date()+"\n"+"TRENDLINE is
> "+EncodeColor(directioncolor)+direction+EncodeColor(colorBlack)+"at
"+"( "+
> WriteVal(mydegree,1)+" )"+" Degrees";
>
>
>
> //plotting ( x, y ) grid
>
> Plot(startbar==x,"",colorRed,styleHistogram|styleOwnScale);
>
> Plot(ValueWhen(startbar==x,Low),"",colorRed,styleLine);
>
> //-----------------------------------//
>
> // Automatic Anlaysis window Output //
>
> //-----------------------------------//
>
> // Settings : //
>
> // n last quotations and n=1 //
>
> // explore //
>
> //-----------------------------------//
>
> Filter=mydegree > 0 OR mydegree <0;
>
> AddColumn(mydegree,"Degree",1);
>
>
>
>
> ---
> Outgoing mail is certified Virus Free.
> Checked by AVG anti-virus system (http://www.grisoft.com).
> Version: 6.0.489 / Virus Database: 288 - Release Date: 6/10/2003
------------------------ Yahoo! Groups Sponsor ---------------------~-->
Get A Free Psychic Reading! Your Online Answer To Life's Important Questions.
http://us.click.yahoo.com/Lj3uPC/Me7FAA/ySSFAA/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/
|