[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[amibroker] Re: Trendline with Degree output



PureBytes Links

Trading Reference Links

Anthony,
you do not really need LinRegSlope.
In the straight line equation
trendline = aS * ( x -endbar ) + bS;
aS is the slope, ie the tangent of the angle [in radians] and
atan(aS) would be directly your "myradian"
myradian=atan(aS);
Then you may transform it to deg.
As for the use : We do not read real angles in amibroker charts, a 
pi/3 angle will look like pi/4  or pi/6 according to zoom.
aS alone could do the job, ie aS1>0 for positive slope or aS1>aS2 for 
correlations [useful for wedges, for example...].
aS is the tangent function of the angle and, from a math property, 
angle inequalities go 1 to 1 with tangent inequalities, consequently 
you will miss nothing .
--- In amibroker@xxxxxxxxxxxxxxx, "Anthony Faragasso" <ajf1111@xxxx> 
wrote:
> Thanks Mark.....I am looking into it.....
> 
> Anthony
>   ----- Original Message ----- 
>   From: MarkF2 
>   To: amibroker@xxxxxxxxxxxxxxx 
>   Sent: Tuesday, June 17, 2003 3:20 PM
>   Subject: [amibroker] Re: Trendline with Degree output
> 
> 
>   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 
>        
>        
> 
> 
>   Send BUG REPORTS to bugs@xxxx
>   Send SUGGESTIONS to suggest@xxxx
>   -----------------------------------------
>   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. 
> 
> 
>   ---
>   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/