[EquisMetaStock Group] Re: HEIKIN-ASHI CANDLESTICK OSCILLATOR

[pumrysh <no_reply@xxxxxxxxxxxxxxx>]

--- In equismetastock@xxxxxxxxxxxxxxx, "sylvano.monami" <sylvano.monami@xxx> wrote:
>
> Noted that there is also a modified version now giving better 
> backtesting trading results.
> More information here:
> http://stocata.org/ta_en/haco_mod.html 
> 
> 
> --- In equismetastock@xxxxxxxxxxxxxxx, "Roy Larsen" <rlarsen@> 
> wrote:
> >
> > Thanks for that.
> > 
> > Users who want to avoid the PREV function will find that by 
> changing the PREV lines, as in this modified version, that the 
> formula executes somewhat faster.
> > 
> > Regards
> > 
> > Roy
> > 
> > {HACO Sylvain Vervoort}
> > avg:=Input("Up TEMA average: ",1,100,34);
> > avgdn:=Input("Down TEMA Average: ",1,100,34);
> > haOpen:=Wilders(Ref((O+H+L+C)/4,-1),2);
> > haC:=((O+H+L+C)/4+haOpen+Max(H,haOpen)+Min(L,haOpen))/4;
> > TMA1:= Tema(haC,avg);
> > TMA2:= Tema(TMA1,avg);
> > Diff:= TMA1 - TMA2;
> > ZlHa:= TMA1 + Diff;
> > TMA1:= Tema((H+L)/2,avg);
> > TMA2:= Tema(TMA1,avg);
> > Diff:= TMA1 - TMA2;
> > ZlCl:= TMA1 + Diff;
> > ZlDif:=ZlCl-ZlHa;
> > keep1:=Alert(haC>=haOpen,2);
> > keep2:=ZlDif>=0;
> > keeping:=(keep1 OR keep2);
> > keepall:=keeping OR (Ref(keeping,-1) AND (C>=O) OR C>=Ref(C,-1));
> > keep3:=(Abs(C-O)<(H-L)*.35 AND H>=Ref(L,-1));
> > utr:=Keepall OR (Ref(keepall,-1) AND keep3);
> > TMA1:= Tema(haC,avgdn);
> > TMA2:= Tema(TMA1,avgdn);
> > Diff:= TMA1 - TMA2;
> > ZlHa:= TMA1 + Diff;
> > TMA1:= Tema((H+L)/2,avgdn);
> > TMA2:= Tema(TMA1,avgdn);
> > Diff:= TMA1 - TMA2;
> > ZlCl:= TMA1 + Diff;
> > ZlDif:=ZlCl-ZlHa;
> > keep1:=Alert(haC<haOpen,2);
> > keep2:=ZlDif<0;
> > keep3:=Abs(C-O)<(H-L)*.35 AND L<=Ref(H,-1);
> > keeping:=keep1 OR keep2;
> > keepall:=keeping OR (Ref(keeping,-1) AND (C<O) OR C<Ref(C,-1));
> > dtr:=If(Keepall OR (Ref(keepall,-1) AND keep3)=1,1,0);
> > upw:=dtr=0 AND Ref(dtr,-1) AND utr;
> > dnw:=utr=0 AND Ref(utr,-1) AND dtr;
> > result:=If(upw,1,If(dnw,0,ValueWhen(1,upw+dnw,If(upw,1,0))));
> > result;
> > 
> > 
> >   ----- Original Message ----- 
> >   From: sylvano.monami 
> >   To: equismetastock@xxxxxxxxxxxxxxx 
> >   Sent: Monday, December 08, 2008 8:10 AM
> >   Subject: [EquisMetaStock Group] Re: HEIKIN-ASHI CANDLESTICK 
> OSCILLATOR
> > 
> > 
> >   --- In equismetastock@xxxxxxxxxxxxxxx, "maurizio_innamorati" 
> >   <maurizio.innamorati@> wrote:
> >   >
> >   > The above indicator is discussed in TASC December issue. 
> >   unfortunately, 
> >   > the formula in MS code is not listed in Traders' Tips (given in 
> >   article 
> >   > itself only available to subscribers). Could somebody share the 
> >   code 
> >   > for the above indicator witg us? Thanks.
> >   >
> > 
> >   Here is the MetaStock formula for the HACO oscillator:
> > 
> >   {HACO Sylvain Vervoort}
> >   avg:=Input("Up TEMA average: ",1,100,34);
> >   avgdn:=Input("Down TEMA Average: ",1,100,34);
> >   haOpen:=(Ref((O+H+L+C)/4,-1) + PREV)/2;
> >   haC:=((O+H+L+C)/4+haOpen+Max(H,haOpen)+Min(L,haOpen))/4;
> >   TMA1:= Tema(haC,avg);
> >   TMA2:= Tema(TMA1,avg);
> >   Diff:= TMA1 - TMA2;
> >   ZlHa:= TMA1 + Diff;
> >   TMA1:= Tema((H+L)/2,avg);
> >   TMA2:= Tema(TMA1,avg);
> >   Diff:= TMA1 - TMA2;
> >   ZlCl:= TMA1 + Diff;
> >   ZlDif:=ZlCl-ZlHa;
> >   keep1:=Alert(haC>=haOpen,2);
> >   keep2:=ZlDif>=0;
> >   keeping:=(keep1 OR keep2);
> >   keepall:=keeping OR (Ref(keeping,-1) AND (C>=O) OR C>=Ref(C,-1));
> >   keep3:=(Abs(C-O)<(H-L)*.35 AND H>=Ref(L,-1));
> >   utr:=Keepall OR (Ref(keepall,-1) AND keep3);
> >   TMA1:= Tema(haC,avgdn);
> >   TMA2:= Tema(TMA1,avgdn);
> >   Diff:= TMA1 - TMA2;
> >   ZlHa:= TMA1 + Diff;
> >   TMA1:= Tema((H+L)/2,avgdn);
> >   TMA2:= Tema(TMA1,avgdn);
> >   Diff:= TMA1 - TMA2;
> >   ZlCl:= TMA1 + Diff;
> >   ZlDif:=ZlCl-ZlHa;
> >   keep1:=Alert(haC<haOpen,2);
> >   keep2:=ZlDif<0;
> >   keep3:=Abs(C-O)<(H-L)*.35 AND L<=Ref(H,-1);
> >   keeping:=keep1 OR keep2;
> >   keepall:=keeping OR (Ref(keeping,-1) AND (C<O) OR C<Ref(C,-1));
> >   dtr:=If(Keepall OR (Ref(keepall,-1) AND keep3)=1,1,0);
> >   upw:=dtr=0 AND Ref(dtr,-1) AND utr;
> >   dnw:=utr=0 AND Ref(utr,-1) AND dtr;
> >   result:=If(upw,1,If(dnw,0,PREV));
> >   result
> > 
> >   Best regards,
> > 
> > 
> > 
> >    
> > 
> >   __________ NOD32 3668 (20081206) Information __________
> > 
> >   This message was checked by NOD32 antivirus system.
> >   http://www.eset.com
> >
>




------------------------------------

Yahoo! Groups Links

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

<*> Your email settings:
    Individual Email | Traditional

<*> To change settings online go to:
    http://groups.yahoo.com/group/equismetastock/join
    (Yahoo! ID required)

<*> To change settings via email:
    equismetastock-digest@xxxxxxxxxxxxxxx 
    equismetastock-fullfeatured@xxxxxxxxxxxxxxx

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

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