gspt1:=(2*C+H+L)/4;
gspt2:=LLV(L,5);
gspt3:=HHV(H,4);
gspt4:=EMA((gspt1-gspt2)/(gspt3-gspt2)*100,4);
gspt5:=EMA(0.667*REF(gspt4,1)+0.333*gspt4,2);
DRAWICON(CROSS(gspt4,gspt5) AND gspt4< 30,L-0.05,1);
DRAWICON(CROSS(gspt5,gspt4) AND gspt4>70,H+0.05,2);
gspt6:=C-REF(C,5);
gspt7:=EMA(EMA(gspt6,5),5)/EMA(EMA(ABS(gspt6),5),5);
gspt8:=EMA(EMA(gspt6,20),20)/EMA(EMA(ABS(gspt6),20),20);
gspt9:=IF(gspt7>0 AND CROSS(gspt8,gspt7),90,100);
DRAWICON(gspt9< 0,H+0.05,2);
gspt10:=EMA(gspt1,14),COLORBLUE,LINETHICK2;
gspt11:=EMA(gspt1,25),COLORLIBLUE,LINETHICK2;
gspt12:=(gspt10-REF(gspt10,1))/REF(gspt10,1)*100,NODRAW;
gspt13:=(gspt11-REF(gspt11,1))/REF(gspt11,1)*100,NODRAW;
NOTEXTgspt14:IF(gspt12>=0 AND BARSLAST(CROSS(gspt12,0))>0,REF((C+O)/2,BARSLAST(CROSS(gspt12,0))),DRAWNULL),COLORMAGENTA,LINETHICK2;
NOTEXTgspt15:IF(gspt12< 0 AND BARSLAST(CROSS(0,gspt12))>0,REF((C+O)/2,BARSLAST(CROSS(0,gspt12))),DRAWNULL),COLORCYAN,LINETHICK2;
NOTEXTgspt16:IF(gspt12>=0,gspt10,DRAWNULL),COLORRED,LINETHICK3;
NOTEXTgspt17:IF(gspt12< 0 AND gspt13< 0,gspt10,DRAWNULL),COLORGREEN,LINETHICK3;
STICKLINE(CROSS(gspt12,0),H,L,0,0 ),COLOR9933FF;
STICKLINE(CROSS(gspt12,0),C,O,3,0 ),COLOR00FFFF;
STICKLINE(CROSS(gspt12,0),C,O,1,0 ),COLOR00FFFF;
STICKLINE(CROSS(0,gspt12),C,O,1,0 ),COLOR00FF00;
ZT:=C=H AND C/REF(C,1)>1.09;
T1:=CROSS(gspt12,0);
N1:=BARSLAST(T1);
T2:=ZT AND REF(EVERY(C>=REF(L,N1),N1),1);
XG1:=ZT AND T1;
XG2:=N1>=0 AND T2 AND COUNT(ZT,N1)=1 AND REF(ZT=0,N1) AND N1< 11;
XG:=XG1 OR XG2;
DRAWICON(XG,L,25);
STICKLINE(XG,H,L,0,0),COLORRED;
STICKLINE(XG,C,O,3,0),COLORRED;