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

Re: [Metastockusers] Re: How to code a trendline in MS



PureBytes Links

Trading Reference Links


Thanks a lot Jose, Great job !!!

Karile


Jose wrote:

>By tweaking the MS code below, you can plot just about any trendline 
>imaginable.
>
>============
>2-point plot
>============
>---8<---------------------------
>
>{ 2-point plot, coding example v2.5 }
>{ Trendline choice 1: last High/Low in month }
>{ Trendline choice 2: lows at Jan/June 2004 }
>{ ©Copyright 2003-2004 Jose Silva }
>{ http://users.bigpond.com/prominex/pegasus.htm }
>
>plot:=Input("choose event trend [1~2]",1,2,1);
>choose:=Input("plot: trendline [1],  event points [2]",1,2,1);
>
>{define events}
>time1:=C=HHV(C,21);
>time2:=C=LLV(C,21);
>time2:=time2 AND time2<>time1;
>
>{alternative events}
>dateA:=Year()=2004 AND Month()=1;
>dateA:=If(LastValue(Cum(dateA))=0,
> Year()=LastValue(Year())-1
> AND Month()=LastValue(Month()),dateA);
>LoValA:=Lowest(ValueWhen(1,dateA,L));
>timeA:=dateA AND L=LastValue(LoValA);
>
>dateB:=Year()=2004 AND Month()=6;
>dateB:=If(LastValue(Cum(dateB))=0,
> Year()=LastValue(Year())
> AND Month()=LastValue(Month()),dateB);
>LoValB:=Lowest(ValueWhen(1,dateB,L));
>timeB:=dateB AND L=LastValue(LoValB);
>timeB:=timeB AND timeB<>timeA;
>
>{choose events}
>time1:=If(plot=1,time1,timeA);
>time2:=If(plot=1,time2,timeB);
>price1:=If(plot=1,C,L);
>price2:=If(plot=1,C,L);
>
>{restrict to last events}
>time1:=time1
> AND Cum(time1)=LastValue(Cum(time1));
>time2:=time2
> AND Cum(time2)=LastValue(Cum(time2));
>
>{sort events}
>t1pds:=LastValue(BarsSince(time1));
>t2pds:=LastValue(BarsSince(time2));
>x1:=If(t1pds>=t2pds,time1,time2);
>x2:=If(t1pds>=t2pds,time2,time1);
>y1:=If(t1pds>=t2pds,price1,price2);
>y2:=If(t1pds>=t2pds,price2,price1);
>
>{fix coordinates}
>y1:=ValueWhen(1,x1,y1);
>y2:=LastValue(ValueWhen(1,x2,y2));
>b1:=LastValue(BarsSince(x1));
>b2:=LastValue(BarsSince(x2));
>
>{trendline definition}
>plot:=y1+BarsSince(x1)*(y2-y1)/(b1-b2+.000001);
>plot:=Ref(Ref(plot,-b2),b2);{rem to extend plot}
>
>If(choose=1,plot,time1+time2)
>
>---8<---------------------------
>
>jose '-)
>
>
>
>--- In Metastockusers@xxxxxxxxxxxxxxx, karile <karile@xxxx> wrote:
>  
>
>>Hi all,
>>
>>I would like to know if someone would be able to write
>>the formula of a trendline in MS ?
>>
>>Thanks in advance for your help,
>>
>>Karile
>>    
>>
>
>
>
>
>
> 
>Yahoo! Groups Links
>
>
>
> 
>
>
>  
>


------------------------ Yahoo! Groups Sponsor ---------------------~-->
Buy Ink Cartridges or Refill Kits for your HP, Epson, Canon or Lexmark
Printer at MyInks.com.  Free s/h on orders $50 or more to the US & Canada.
http://www.c1tracking.com/l.asp?cid=5511
http://us.click.yahoo.com/mOAaAA/3exGAA/qnsNAA/zMEolB/TM
---------------------------------------------------------------------~->

 
Yahoo! Groups Links

<*> To visit your group on the web, go to:
     http://groups.yahoo.com/group/Metastockusers/

<*> To unsubscribe from this group, send an email to:
     Metastockusers-unsubscribe@xxxxxxxxxxxxxxx

<*> Your use of Yahoo! Groups is subject to:
     http://docs.yahoo.com/info/terms/