gspt1:=HHV(H,18);
gspt2:=1;
gspt3:=EMA((2*CLOSE+LOW+HIGH)/4,30);
gspt4:=(CLOSE/gspt3);
gspt5:=MA(gspt4*(2*CLOSE+HIGH+LOW)/4,3);
gspt6:=((gspt5-gspt3)/gspt3)/3;
gspt7:=gspt5-gspt6*gspt5;
gspt8:IF(gspt7>gspt3,gspt3,DRAWNULL),LINETHICK4,COLORRED;
IF(gspt7>gspt3,gspt3,DRAWNULL),COLORYELLOW,POINTDOT,LINETHICK4;
gspt9:IF(gspt7<=gspt3,gspt3,DRAWNULL),LINETHICK4,COLORGREEN;
IF(gspt7<=gspt3,gspt3,DRAWNULL),COLORBLUE,POINTDOT,LINETHICK4;
gspt10:=CROSS(gspt7,gspt3);
gspt11:=CROSS(gspt3,gspt7);
DRAWICON(gspt10,gspt3-0.1,26);
DRAWICON(gspt11,gspt3+0.1,24);
DRAWICON(gspt7<=gspt3&&NOT(gspt11),gspt3-0.1,14);
DRAWICON(gspt7>gspt3&&NOT(gspt10),gspt3+0.1,13);
gspt12:=(H*18+REF(H,1)*17+REF(H,2)*16+REF(H,3)*15+REF(H,4)*14+REF(H,5)*13+REF(H,6)*12+REF(H,7)*11+REF(H,8)*10+REF(H,9)*9+REF(H,10)*8+REF(H,11)*7+REF(H,12)*6+REF(H,13)*5+REF(H,14)*4+REF(H,15)*3+REF(H,16)*2+REF(H,17)*1)/171;
gspt13:=(L*18+REF(L,1)*17+REF(L,2)*16+REF(L,3)*15+REF(L,4)*14+REF(L,5)*13+REF(L,6)*12+REF(L,7)*11+REF(L,8)*10+REF(L,9)*9+REF(L,10)*8+REF(L,11)*7+REF(L,12)*6+REF(L,13)*5+REF(L,14)*4+REF(L,15)*3+REF(L,16)*2+REF(L,17)*1)/171;
gspt14:=MA(CLOSE,5);
gspt15:=MA(CLOSE,10);
gspt16:=MA(CLOSE,20);
gspt17:=MA(CLOSE,60);
gspt18:=gspt2&&(CLOSE>=gspt12||(C>gspt14&&C>gspt15&&C>gspt16&&C>gspt17));
gspt19:=gspt2&&(gspt13>CLOSE||(C<gspt14&&C<gspt15&&C<gspt16&&C<gspt17));
gspt20:=BARSLAST(gspt18);
gspt21:=BARSLAST(gspt19);
gspt22:=BARSLAST(CROSS(gspt21,gspt20));
gspt23:=BARSLAST(CROSS(gspt20,gspt21));
gspt24:=gspt22<gspt23;
gspt25:=gspt23<gspt22;
gspt26:=OPEN-CLOSE;
gspt27:=IF(OPEN>CLOSE,OPEN,CLOSE);
gspt28:=IF(OPEN<CLOSE,OPEN,CLOSE);
STICKLINE(gspt26>0&&gspt24,OPEN,CLOSE,2,0),COLORRED;
STICKLINE(gspt26>0&&gspt24,OPEN,H,0.0,0),COLORRED;
STICKLINE(gspt26>0&&gspt24,C,L,0.0,0),COLORRED;
STICKLINE(gspt26<=0&&gspt24,OPEN,CLOSE,2,1),COLORRED;
STICKLINE(gspt26<=0&&gspt24,O,L,0.0,0),COLORRED;
STICKLINE(gspt26<=0&&gspt24,C,H,0.0,0),COLORRED;
STICKLINE(gspt26>0&&gspt25,OPEN,CLOSE,2,0),COLORGREEN;
STICKLINE(gspt26>0&&gspt25,OPEN,H,0.0,0),COLORGREEN;
STICKLINE(gspt26>0&&gspt25,C,L,0.0,0),COLORGREEN;
STICKLINE(gspt26<=0&&gspt25,OPEN,CLOSE,2,1),COLORGREEN;
STICKLINE(gspt26<=0&&gspt25,C,H,0.0,0),COLORGREEN;
STICKLINE(gspt26<=0&&gspt25,O,L,0.0,0),COLORGREEN;
DRAWNUMBER(ISLASTBAR&&gspt25,gspt12,gspt12),COLORYELLOW;
DRAWNUMBER(ISLASTBAR&&gspt24,gspt13,gspt13),COLORYELLOW;
gspt29:=(gspt12+gspt13)/2,COLORGREEN,LINETHICK2;
gspt30:IF(gspt24,gspt29,DRAWNULL),LINETHICK2,COLORRED;
gspt31:IF(gspt25,gspt29,DRAWNULL),LINETHICK2,COLORGREEN;
DRAWICON(gspt24,gspt29*0.995,1);
DRAWICON(gspt25,gspt29*1.005,2);
gspt32:IF(gspt2,C,DRAWNULL),NODRAW,COLORMAGENTA;
DRAWNUMBER(ISLASTBAR,C,C),COLORMAGENTA;