MA13:=EMA(C,13),COLOR0000FF;
DIR:=Abs(CLOSE-REF(CLOSE,10));
VIR:=SUM(ABS(CLOSE-REF(CLOSE,1)),10);
ER:=DIR/VIR;
CS:=ER*(0.8-2/24)+2/24;
CQ:=CS*CS;
STICKLINE(C>MA13,H,L,0,0),COLORRED;
YTX:EMA(DMA(CLOSE,CQ),2),COLORGREEN;
STICKLINE(C>MA13,C,O,-1,1),COLORRED;
STICKLINE(C=MA13,H,L,3,0),COLORCYAN;
BLU:IF(YTX/REF(YTX,1)>0.997,YTX,DRAWNULL),COLORBLUE,LINETHICK3;
STICKLINE(C