Heikin - Ashi Candlesticks

 

I withdraw and correct my proposal about using pldot in the HA definition two posts above.  After reviewing it in more depth it appear that HA pldot is giving the appearance of improving the turning point but it is in fact picking up the same incorrect bar as the turning point as the original Ha bars showed.  Both Ha definitions are picking up the actual second bar after the particula top as the first HA down bar.  I will have to keep working at it.

 

Apologies.

 

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

 

[target

=Price;]

n :=

input("Define Haclose 1=(O,H,C,L)/4; 2=pldot ",2,1);

pldot:=(((

hist(h,0)+hist(Low,0)+hist(C,0))/3)+((hist(h,1)+hist(Low,1)+hist(C,1))/3)+((hist(h,2)+hist(Low,2)+hist(C,2))/3))/3;

norm:=(

O+H+L+C)/4;

haClose :=

if(n=1,norm,pldot);

haOpen := (

prev + hist(haClose,1))/2;

haHigh :=

max(H, haOpen, haClose);

haLow :=

min(L, haOpen, haClose);

haCl:=((

O+H+L+C)/4+haOpen+Max((O+H+L+C)/4,Max(H,haOpen))+Min((O+H+L+C)/4,Min(L,haOpen)))/4;

Greenlight:=Hahigh-(haopen) ;

Redlight:=Halow-(haOpen);

　

{I changed this to a difference to net off the minor congestion amounts to whatever if the largest Traffic light tmeasure. this makes the trends more continuous for the coloured bars}

LightDiff:=Greenlight+Redlight;

[linestyle

=Candle;color=Green; ]

If

(lightdiff >=0.000, haOpen,undefined);

If

(lightdiff >=0.000, haHigh,undefined);

If

(lightdiff >=0.000, haLow,undefined);

If

(lightdiff >=0.000, haClose,undefined);

[linestyle

=Candle;color=Red; ]

If

(lightdiff <=0.000, haClose,undefined);

If

(lightdiff <=0.000, haLow,undefined);

If

(lightdiff <=0.000, haHigh,undefined);

If

(lightdiff <=0.000, haOpen,undefined);

　

[linestyle

=Candle; Width=2; color=Red; ]

If

(H<Hist(h,1) And Hist(h,1)>=Hist(H,2) AND Hist(h,1)>=Hist(H,3) AND Hist(h,1)>=Hist(H,4), haopen,undefined);

If

(H<Hist(h,1) And Hist(h,1)>=Hist(H,2) AND Hist(h,1)>=Hist(H,3) AND Hist(h,1)>=Hist(H,4), haLow,undefined);

If

(H<Hist(h,1) And Hist(h,1)>=Hist(H,2) AND Hist(h,1)>=Hist(H,3) AND Hist(h,1)>=Hist(H,4), haHigh,undefined);

If

(H<Hist(h,1) And Hist(h,1)>=Hist(H,2) AND Hist(h,1)>=Hist(H,3) AND Hist(h,1)>=Hist(H,4), haClose,undefined);

　

{To catch second bar at a Bottom turning point}

a:=

If((L>Hist(L,1) AND Hist(L,1)<=Hist(L,2) AND Hist(L,1)<=Hist(L,3) AND Hist(L,1)<=Hist(L,4) AND C>Hist(c,1)),1, undefined);

{To Catch a second incorrect HA bar after a bottom turning point}

a2:=

If (Hist(a,1) AND L>Hist(L,1)AND C>Hist(c,1) ,1,undefined);

{To Catch a third incorrect HA bar after a bottom turning point}

a3:=

If (Hist(a2,1) AND L>Hist(L,1) AND C>Hist(c,1),1,undefined);

[linestyle

=Candle; Width=2; color=Green; ]

If

(a OR a2 OR a3, HaClose,undefined);

If

(a OR a2 OR a3, HaLow,undefined);

If

(a OR a2 OR a3, HaHigh,undefined);

If

(a OR a2 OR a3, Haopen,undefined);