Could someone kindly convert the following Metastock code to produce a zero lag TEMA average using heiken ashi close price
Many thanks for your kind help
HA_Tema_ZL
avg := Input("Temagemiddelde? ",1,200,55);
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;
ZlHa
CloseTema_ZL
avg := Input("TEMA period? ",1,200,55);
TMA1:= Tema((H+L+C)/3,avg);
TMA2:= Tema(TMA1,avg);
Diff:= TMA1 - TMA2;
ZlCl:= TMA1 + Diff;
ZlCl
Many thanks for your kind help
HA_Tema_ZL
avg := Input("Temagemiddelde? ",1,200,55);
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;
ZlHa
CloseTema_ZL
avg := Input("TEMA period? ",1,200,55);
TMA1:= Tema((H+L+C)/3,avg);
TMA2:= Tema(TMA1,avg);
Diff:= TMA1 - TMA2;
ZlCl:= TMA1 + Diff;
ZlCl