DIR1:=Abs(CLOSE-REF(CLOSE,5));
VIR1:=SUM(ABS(CLOSE-REF(CLOSE,1)),5);
ER1:=DIR1/VIR1;
CS1:=ER1*(0.8-2/8)+2/8;
CQ1:=CS1*CS1;
AMA1:=EMA(DMA(CLOSE,CQ1),2) ,COLORWHITE;
DIR2:=ABS(CLOSE-REF(CLOSE,10));
VIR2:=SUM(ABS(CLOSE-REF(CLOSE,1)),10);
ER2:=DIR2/VIR2;
CS2:=ER2*(0.8-2/24)+2/24;
CQ2:=CS2*CS2;
AMA2:EMA(DMA(CLOSE,CQ2),2),COLORBLUE,LINETHICK2;
IF(AMA2/REF(AMA2,1)<0.9975,AMA2,DRAWNULL),COLOR33CC33,LINETHICK2;
IF(AMA2/REF(AMA2,1)>1.001,AMA2,DRAWNULL),COLOR3300FF,LINETHICK2;
VA:FORCAST(CLOSE,13),COLORBLUE,LINETHICK2;
VAR1:=REF(VA,1);
A:=VA>VAR1 AND REF(VA,1)<REF(VAR1,1);
IF(VA>VAR1,VA,DRAWNULL),COLORRED,LINETHICK2;
IF(VA<VAR1,VA,DRAWNULL),COLORGREEN,LINETHICK2;
DRAWICON(crOSS(VA,AMA2) AND AMA2/REF(AMA2,1)>1.001,AMA2*0.98,5);
CG:MA(C,17),COLORFFCC66;
FL:HHV(CG,2);
FS:IF(CG<FL,(CG-(FL-CG)),FL);
IF(FL=FS,FS,DRAWNULL),COLOR3300FF,LINETHICK2;
IF(FL<FS,FS,DRAWNULL),COLOR33CC33,LINETHICK2;
IF(FL>FS,FS,DRAWNULL),COLOR33CC33,LINETHICK2;
