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,COLORBB0000,NODRAW;
GSPT10:=GSPT8=-1,COLOR00BB00,NODRAW;
DRAWICON(GSPT9,GSPT5,1);
DRAWICON(GSPT10,GSPT4,2);
GSPT11:=GSPT4,COLOR005959;
GSPT12:=GSPT5,COLOR590000;
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,DRAWNULL),COLORRED;
IF(GSPT14<=GSPT17,GSPT1,DRAWNULL),COLORLICYAN;
GSPT18:=OPEN-CLOSE;
STICKLINE(GSPT9,H,L,0,0),COLORFF0000;
STICKLINE(GSPT10,H,L,0,0),COLOR00FFFF;
STICKLINE(GSPT18<=0 && GSPT9,C, O ,3.1,1),COLORFF0000;
STICKLINE(GSPT18>0 && GSPT9,C, O ,3.1,0),COLORFF0000;
STICKLINE(GSPT18<=0 && GSPT10,C, O ,3.1,1),COLOR00FFFF;
STICKLINE(GSPT18>0 && GSPT10,C, O ,3.1,0),COLOR00FFFF;
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 , 4);
DRAWICON(GSPT10 AND REF(GSPT9,1) ,H , 5);
DRAWKLINE(HIGH,OPEN,LOW,CLOSE);