|
PureBytes Links
Trading Reference Links
|
//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/
|