AP:=(H+L+C*2)/4;
EPL:=DMA(AP,Abs(AP/MA(C,30)-1));
EML:=MA(AP*C/EPL,3);
EAL:=(4-EML/EPL)/3*EML;
EALS:IF(EAL>REF(EAL,1),1,-1),NODRAW;
STICKLINE(EALS>0,H,L,0,0),COLORRED;
STICKLINE(EALS>0 AND C>=O,O,C,2,1),COLORRED;
STICKLINE(EALS>0 AND C< O,O,C,2,0),COLORRED;
STICKLINE(EALS<0,H,L,0,0),COLORCYAN;
STICKLINE(EALS<0 AND C>=O,O,C,2,1),COLORCYAN;
STICKLINE(EALS<0 AND C< O,O,C,2,0),COLORCYAN;