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;