GSPT1:=SUM(MAX(MAX(H-L,ABS(H-REF(C,1))),ABS(REF(C,1)-L)),14);
GSPT2:=HIGH-REF(HIGH,1);
GSPT3:=REF(LOW,1)-LOW;
GSPT4:=SUM(IF(GSPT2>0 AND GSPT2>GSPT3,GSPT2,0),14);
GSPT5:=SUM(IF(GSPT3>0 AND GSPT3>GSPT2,GSPT3,0),14);
GSPT6:=GSPT4*100/GSPT1;
GSPT7:=GSPT5*100/GSPT1;
GSPT8:=(GSPT6-GSPT7);
GSPT48:=GSPT8>=0;
GSPT49:=(GSPT6-GSPT7);
STICKLINE(GSPT48,0,GSPT8,3,0),COLOR000055;
STICKLINE(GSPT48,0,GSPT8,2.8,0),COLOR000066;
STICKLINE(GSPT48,0,GSPT8,2.5,0),COLOR000077;
STICKLINE(GSPT48,0,GSPT8,2.2,0),COLOR000088;
STICKLINE(GSPT48,0,GSPT8,1.7,0),COLOR000099;
STICKLINE(GSPT48,0,GSPT8,1.2,0),COLOR0000AA;
STICKLINE(GSPT48,0,GSPT8,0.7,0),COLOR0000CC;
STICKLINE(GSPT48,0,GSPT8,0.2,0),COLOR0000FF;
STICKLINE(GSPT49<0,0,GSPT49,3,0),COLOR009900;
STICKLINE(GSPT49<0,0,GSPT49,2,0),COLOR00BB00;
STICKLINE(GSPT49<0,0,GSPT49,1,0),COLOR00DD00;
STICKLINE(GSPT49<0,0,GSPT49,0.3,0),COLOR00FF00;