gspt1:=EMA(EMA(C,13),13);
gspt2:=MAX(MAX((HIGH-LOW),ABS(REF(CLOSE,1)-HIGH)),ABS(REF(CLOSE,1)-LOW));
gspt3:=MA(gspt2,18);
gspt4:=gspt1+1.618*gspt3,COLOR454545;
gspt5:=gspt1-1.618*gspt3,COLOR454545;
gspt6:=IF(CROSS(EMA(C,2),REF(gspt4,1)),1,IF(CROSS(REF(gspt5,1),EMA(C,2)),-1,0));
gspt7:=IF(gspt6=0 && EMA(C,2)>REF(gspt4,1),1,IF(gspt6=0 && EMA(C,2)< REF(gspt5,1),-1,gspt6));
gspt8:=REF(gspt7,BARSLAST(gspt7));
gspt9:=gspt8=1,COLOR0000BB,NODRAW;
gspt10:=gspt8=-1,COLOR00BB00,NODRAW;
FILLRGN(C>0,gspt4,gspt5,COLOR003333);
FILLRGN(gspt9,gspt4,gspt5,COLOR000033);
FILLRGN(gspt10,gspt4,gspt5,COLOR333300);
gspt11:=gspt4,COLOR595900;
gspt12:=gspt5,COLOR000059;
gspt13:=REF(CLOSE,1);
gspt14:=SMA(MAX(CLOSE-gspt13,0),7,1)/SMA(ABS(CLOSE-gspt13),7,1)*100,NODRAW;
gspt15:=IF(CROSS(gspt14>65,0.9),1,IF(CROSS(45>gspt14,0.9),-1,0));
gspt16:=REF(gspt15,BARSLAST(gspt15));
gspt17:=IF(gspt16=1,45,IF(gspt16=-1,65,0)),NODRAW;
IF(gspt14>=gspt17,gspt1,NULL),CIRCLEDOT,COLORRED;
IF(gspt14<=gspt17,gspt1,NULL),CIRCLEDOT,COLORCYAN;
gspt18:=OPEN-CLOSE;
DRAWLINE(gspt9,H,C>0,C,RGB(170,0,0));
DRAWLINE(gspt9, O ,C>0,L,RGB(170,0,0));
DRAWLINE(gspt10,H,C>0,C,COLORFFFF00);
DRAWLINE(gspt10, O ,C>0,L,COLORFFFF00);
STICKLINE(gspt18<=0 && gspt9,C, O ,3.1,1),RGB(170,0,0);
STICKLINE(gspt18>0 && gspt9,C, O ,3.1,0),RGB(170,0,0);
STICKLINE(gspt18<=0 && gspt10,C, O ,3.1,1),COLORFFFF00;
STICKLINE(gspt18>0 && gspt10,C, O ,3.1,0),COLORFFFF00;
gspt19:=(gspt9 && gspt14<=gspt17) || (gspt10 && gspt14>=gspt17);
gspt20:=((SMA(MAX((CLOSE-REF(CLOSE,1)),0),3,1)/SMA(ABS((CLOSE-REF(CLOSE,1))),3,1))*100);
gspt21:=CROSS(gspt20,12);
gspt22:=ABS( O -C)/3;
STICKLINE(gspt21,L,L+gspt22,1,0),COLORFFFFFF;
gspt23:=CROSS(88,gspt20);
STICKLINE(gspt23,H,H-gspt22,1,0),COLORFFFFFF;
DRAWICON(gspt9 AND REF(gspt10,1) ,L , 1);
DRAWICON(gspt10 AND REF(gspt9,1) ,H , 2);
ASD5:=MA(C,15),COLORWHITE,LINETHICK4,POINTDOT;
IF(ASD5>REF(ASD5,1),ASD5,NULL),COLORRED,LINETHICK1,POINTDOT;
IF(ASD5>REF(ASD5,1),ASD5,NULL),COLORRED,LINETHICK1;
IF(ASD5=REF(ASD5,1),ASD5,NULL),COLORWHITE,LINETHICK1,POINTDOT;
IF(ASD5=REF(ASD5,1),ASD5,NULL),COLORWHITE,LINETHICK1;
IF(ASD5< REF(ASD5,1),ASD5,NULL),COLORGREEN,LINETHICK1;
IF(ASD5< REF(ASD5,1),ASD5,NULL),COLORGREEN,LINETHICK1,POINTDOT;
ASD6:=MAX(MAX((HIGH-LOW),ABS(REF(C,1)-HIGH)),ABS(REF(C,1)-LOW));
ASD7:MA(ASD6,15),NODRAW;
ASD8:=IF(1=1,H-2*ASD7,NULL),COLORRED;
ASD9:=IF(1=1,L+2*ASD7,NULL),COLORGREEN;
IF(ASD5>REF(ASD5,1),ASD5,NULL),COLORRED,LINETHICK1,POINTDOT;
IF(ASD5>REF(ASD5,1),ASD5,NULL),COLORRED,LINETHICK1;
IF(ASD5=REF(ASD5,1),ASD5,NULL),COLORWHITE,LINETHICK1,POINTDOT;
IF(ASD5=REF(ASD5,1),ASD5,NULL),COLORWHITE,LINETHICK1;
IF(ASD5< REF(ASD5,1),ASD5,NULL),COLORGREEN,LINETHICK1;
IF(ASD5< REF(ASD5,1),ASD5,NULL),COLORGREEN,LINETHICK1,POINTDOT;
ASD10:ASD5-ASD7,NODRAW;
IF(ASD10>REF(ASD10,1) AND 1=1,ASD10,NULL),COLORFF00FF,LINETHICK1,POINTDOT;
IF(ASD10=REF(ASD10,1) AND 1=1,ASD10,NULL),COLORYELLOW,LINETHICK1,POINTDOT;
IF(ASD10< REF(ASD10,1) AND 1=1,ASD10,NULL),COLORBLUE,LINETHICK1,POINTDOT;
ASD11:ASD5+ASD7,NODRAW;
IF(ASD11>REF(ASD11,1) AND 1=1,ASD11,NULL),RGB(255,128,0),LINETHICK1,POINTDOT;
IF(ASD11=REF(ASD11,1) AND 1=1,ASD11,NULL),COLORYELLOW,LINETHICK1,POINTDOT;
IF(ASD11< REF(ASD11,1) AND 1=1,ASD11,NULL),RGB(0,255,255),LINETHICK1,POINTDOT;