ZJ:=(H+L)/2;
LIP1:=EMA(ZJ,2*5-1);
TEETH1:=EMA(ZJ,2*8-1);
JAW1:=EMA(ZJ,2*13-1);
LIP:REF(LIP1,3),COLORGREEN;
TEETH:REF(TEETH1,5),COLORRED;
JAW:REF(JAW1,8),COLORBLUE;
HIGH1:= REF(H,4);
HIGH2:= REF(H,3);
HIGH3:= REF(H,2);
HIGH4:= REF(H,1);
HIGH5:= H;
LOW1:= REF(L,4);
LOW2:= REF(L,3);
LOW3:= REF(L,2);
LOW4:= REF(L,1);
LOW5:= L;
CONDH1:=HIGH3 > HIGH1;
CONDH2:=HIGH3 > HIGH2;
CONDH3:=HIGH3 > HIGH4;
CONDH4:=HIGH3 > HIGH5;
CONDH:=CONDH1&&CONDH2&&CONDH3&&CONDH4;
CONDL1:=LOW3 < LOW1;
CONDL2:=LOW3 < LOW2;
CONDL3:=LOW3 < LOW4;
CONDL4:=LOW3 < LOW5;
CONDL:=CONDL1&&CONDL2&&CONDL3&&CONDL4;
{- }
UPFRacTAL:IF(CONDH,HIGH3,DRAWNULL),POINTDOT,LINETHICK7,COLORGREEN;
DOWNFRACTAL:IF(CONDL,LOW3,DRAWNULL),POINTDOT,LINETHICK7,COLORRED;
PRC:=(H+L)/2;
ao:= MA(PRC,5) - MA(PRC,34);
SL: MA(AO,5),COLORBLUE;
AOGREEN: IF(AO>REF(AO,1), AO, 0),STICK,COLORGREEN;
AORED:IF(AO<REF(AO,1), AO, 0),STICK,COLORRED;
AC:= MA(PRC,5) - MA(PRC,34) - MA(MA(PRC,5) - MA(PRC,34),5);
ACGREEN: IF(AC>REF(AC,1), AC, 0),STICK,COLORGREEN;
AcrED:IF(AC<REF(AC,1), AC, 0),STICK,COLORRED;
