|
PureBytes Links
Trading Reference Links
|
Very
Nice Anthony, thanks for sharing!!
Regards,
Jayson
<FONT face=Tahoma
size=2>-----Original Message-----From: Anthony Faragasso
[mailto:ajf1111@xxxxxxxx]Sent: Monday, June 16, 2003 11:07
PMTo: amibroker@xxxxxxxxxxxxxxxSubject: [amibroker]
Trendline with Degree output//Automatic Support
Trendline With Degrees//Anthony Faragasso, 2003x =
Cum(1);per =Param("Percent",2,0.01,3,0.01);// Sensitivity
settings1=L;//ArrayEndValue1 = 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 )
gridPlot(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 (<A
href="">http://www.grisoft.com).Version: 6.0.489
/ Virus Database: 288 - Release Date: 6/10/2003Send
BUG REPORTS to bugs@xxxxxxxxxxxxxSend SUGGESTIONS to
suggest@xxxxxxxxxxxxx-----------------------------------------Post
AmiQuote-related messages ONLY to: amiquote@xxxxxxxxxxxxxxx (Web page: <A
href="">http://groups.yahoo.com/group/amiquote/messages/)--------------------------------------------Check
group FAQ at: <A
href="">http://groups.yahoo.com/group/amibroker/files/groupfaq.html
Your use of Yahoo! Groups is subject to the <A
href="">Yahoo! Terms of Service.
Yahoo! Groups Sponsor
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 the Yahoo! Terms of Service.
|