gspt1:=6000;
gspt2:=REFDATE(HHV(H,gspt1),DATE);
gspt3:=REFDATE(LLV(L,gspt1),DATE);
gspt4:=gspt2-(gspt2-gspt3)*1.000;
gspt5:=gspt2-(gspt2-gspt3)*0.875;
gspt6:=gspt2-(gspt2-gspt3)*0.750;
gspt7:=gspt2-(gspt2-gspt3)*0.666;
gspt8:=gspt2-(gspt2-gspt3)*0.625;
gspt9:=gspt2-(gspt2-gspt3)*0.500;
gspt10:=gspt2-(gspt2-gspt3)*0.375;
gspt11:=gspt2-(gspt2-gspt3)*0.333;
gspt12:=gspt2-(gspt2-gspt3)*0.250;
gspt13:=gspt2-(gspt2-gspt3)*0.125;
gspt14:=gspt2-(gspt2-gspt3)*0.000;
STICKLINE(CURRBARSCOUNT=18,gspt2,gspt2,120,1),COLORGREEN;
STICKLINE(CURRBARSCOUNT=18,gspt14,gspt14,120,1),COLORCYAN;
STICKLINE(CURRBARSCOUNT=18,gspt13,gspt13,120,1),COLORCCCCCC;
DRAWTEXT(CURRBARSCOUNT=10,gspt14,'0.000'),COLORCYAN;
DRAWTEXT(CURRBARSCOUNT=10,gspt13,' 0.125'),COLORFFFFFF;
DRAWTEXT(CURRBARSCOUNT=10,gspt12,' 0.250'),COLORYELLOW;
DRAWTEXT(CURRBARSCOUNT=10,gspt11,' 0.333'),COLORLIRED;
DRAWTEXT(CURRBARSCOUNT=10,gspt10,' 0.375'),COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=10,gspt9,' 0.500'),COLORMAGENTA;
DRAWTEXT(CURRBARSCOUNT=10,gspt8,' 0.625'),COLORRED;
DRAWTEXT(CURRBARSCOUNT=10,gspt7,' 0.666'),COLORRED;
DRAWTEXT(CURRBARSCOUNT=10,gspt6,' 0.750'),COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=10,gspt5,' 0.875'),COLORMAGENTA;
DRAWTEXT(CURRBARSCOUNT=10,gspt4,' 1.000'),COLORGREEN;
STICKLINE(CURRBARSCOUNT=18,gspt12,gspt12,120,1),COLORYELLOW;
STICKLINE(CURRBARSCOUNT=18,gspt11,gspt11,120,1),COLORLIRED;
STICKLINE(CURRBARSCOUNT=18,gspt9,gspt9,120,1),COLORGREEN;
STICKLINE(CURRBARSCOUNT=18,gspt10,gspt10,120,1),COLORMAGENTA;
STICKLINE(CURRBARSCOUNT=18,gspt3,gspt3,120,1),COLORRED;
STICKLINE(CURRBARSCOUNT=18,gspt8,gspt8,120,1),COLORRED;
STICKLINE(CURRBARSCOUNT=18,gspt7,gspt7,120,1),COLORRED;
STICKLINE(CURRBARSCOUNT=18,gspt6,gspt6,120,1),COLORRED;
STICKLINE(CURRBARSCOUNT=18,gspt5,gspt5,120,1),COLORRED;
STICKLINE(CURRBARSCOUNT=18,gspt4,gspt4,120,1),COLORRED;
DRAWTEXT(CURRBARSCOUNT=35,gspt2*0.99,CON2STR(gspt2,2)),COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=35,gspt4,CON2STR(gspt4,2)),COLORLIRED;
DRAWTEXT(CURRBARSCOUNT=35,gspt5,CON2STR(gspt5,2)),COLORLIRED;
DRAWTEXT(CURRBARSCOUNT=35,gspt6,CON2STR(gspt6,2)),COLORMAGENTA;
DRAWTEXT(CURRBARSCOUNT=35,gspt7,CON2STR(gspt7,2)),COLORRED;
DRAWTEXT(CURRBARSCOUNT=35,gspt14,CON2STR(gspt14,2)),COLORCYAN;
DRAWTEXT(CURRBARSCOUNT=35,gspt13,CON2STR(gspt13,2)),COLORFFFFFF;
DRAWTEXT(CURRBARSCOUNT=35,gspt12,CON2STR(gspt12,2)),COLORYELLOW;
DRAWTEXT(CURRBARSCOUNT=35,gspt9,CON2STR(gspt9,2)),COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=35,gspt11,CON2STR(gspt11,2)),COLORLIRED;
DRAWTEXT(CURRBARSCOUNT=35,gspt10,CON2STR(gspt10,2)),COLORMAGENTA;
DRAWTEXT(CURRBARSCOUNT=35,gspt8,CON2STR(gspt8,2)),COLORRED;
gspt15:=800;
gspt16:=800;
gspt17:=1;
gspt18:=1;
gspt19:=1;
gspt20:=CONST(FINDHIGH(H,0,gspt16*10,1));
gspt21:=CONST(BARSLAST(gspt20=H))+1;
gspt22:=CONST(IF(gspt21=1,H,REF(H,gspt21-1)));
gspt23:=CONST(FINDLOW(L,0,gspt15*10,1));
gspt24:=CONST(BARSLAST(gspt23=L))+1;
gspt25:=CONST(IF(gspt24=1,L,REF(L,gspt24-1)));
gspt26:=gspt17=2 OR gspt17=2;
gspt27:=gspt17=1 OR gspt17=1;
gspt28:=gspt17=1 OR gspt17=1 OR gspt17=1;
gspt29:=IF(gspt26,ROUND(IF(gspt21>gspt24,gspt21,gspt24)-ABS(gspt21-gspt24)*0.809),DRAWNULL);
gspt30:=IF(gspt28,ROUND(IF(gspt21>gspt24,gspt21,gspt24)-ABS(gspt21-gspt24)*0.5),DRAWNULL);
gspt31:=IF(gspt26,ROUND(IF(gspt21>gspt24,gspt21,gspt24)-ABS(gspt21-gspt24)*0.618),DRAWNULL);
gspt32:=IF(gspt26,ROUND(IF(gspt21>gspt24,gspt21,gspt24)-ABS(gspt21-gspt24)*0.382),DRAWNULL);
gspt33:=IF(gspt26,ROUND(IF(gspt21>gspt24,gspt21,gspt24)-ABS(gspt21-gspt24)*0.236),DRAWNULL);
gspt34:=IF(gspt28,ROUND(IF(gspt21>gspt24,gspt21,gspt24)-ABS(gspt21-gspt24)*1),DRAWNULL);
gspt35:=IF(gspt26,ROUND(IF(gspt21>gspt24,gspt21,gspt24)-ABS(gspt21-gspt24)*1.809),DRAWNULL);
gspt36:=IF(gspt28,ROUND(IF(gspt21>gspt24,gspt21,gspt24)-ABS(gspt21-gspt24)*1.5),DRAWNULL);
gspt37:=IF(gspt26,ROUND(IF(gspt21>gspt24,gspt21,gspt24)-ABS(gspt21-gspt24)*1.618),DRAWNULL);
gspt38:=IF(gspt26,ROUND(IF(gspt21>gspt24,gspt21,gspt24)-ABS(gspt21-gspt24)*1.382),DRAWNULL);
gspt39:=IF(gspt26,ROUND(IF(gspt21>gspt24,gspt21,gspt24)-ABS(gspt21-gspt24)*1.236),DRAWNULL);
gspt40:=IF(gspt28,ROUND(IF(gspt21>gspt24,gspt21,gspt24)-ABS(gspt21-gspt24)*2),DRAWNULL);
gspt41:=IF(gspt26,ROUND(IF(gspt21>gspt24,gspt21,gspt24)-ABS(gspt21-gspt24)*2.236),DRAWNULL);
gspt42:=IF(gspt26,ROUND(IF(gspt21>gspt24,gspt21,gspt24)-ABS(gspt21-gspt24)*2.382),DRAWNULL);
gspt43:=IF(gspt28,ROUND(IF(gspt21>gspt24,gspt21,gspt24)-ABS(gspt21-gspt24)*2.5),DRAWNULL);
gspt44:=IF(gspt26,ROUND(IF(gspt21>gspt24,gspt21,gspt24)-ABS(gspt21-gspt24)*2.618),DRAWNULL);
gspt45:=IF(gspt26,ROUND(IF(gspt21>gspt24,gspt21,gspt24)-ABS(gspt21-gspt24)*2.809),DRAWNULL);
gspt46:=IF(gspt28,ROUND(IF(gspt21>gspt24,gspt21,gspt24)-ABS(gspt21-gspt24)*3),DRAWNULL);
gspt47:=IF(gspt28,ROUND(IF(gspt21>gspt24,gspt21,gspt24)),DRAWNULL);
gspt48:=CURRBARSCOUNT=gspt29 OR CURRBARSCOUNT=gspt30 OR CURRBARSCOUNT=gspt31 OR CURRBARSCOUNT=gspt32 OR CURRBARSCOUNT=gspt33 OR CURRBARSCOUNT=gspt34 OR CURRBARSCOUNT=gspt35 OR CURRBARSCOUNT=gspt36 OR CURRBARSCOUNT=gspt37 OR CURRBARSCOUNT=gspt38 OR CURRBARSCOUNT=gspt39 OR CURRBARSCOUNT=gspt40 OR CURRBARSCOUNT=gspt41 OR CURRBARSCOUNT=gspt42 OR CURRBARSCOUNT=gspt43 OR CURRBARSCOUNT=gspt44 OR CURRBARSCOUNT=gspt45 OR CURRBARSCOUNT=gspt46 OR CURRBARSCOUNT=gspt47;
gspt49:=IF(gspt27,ROUND(IF(gspt21>gspt24,gspt21,gspt24)-ABS(gspt21-gspt24)*1/8),DRAWNULL);
gspt50:=IF(gspt27,ROUND(IF(gspt21>gspt24,gspt21,gspt24)-ABS(gspt21-gspt24)*2/8),DRAWNULL);
gspt51:=IF(gspt27,ROUND(IF(gspt21>gspt24,gspt21,gspt24)-ABS(gspt21-gspt24)*3/8),DRAWNULL);
gspt52:=IF(gspt27,ROUND(IF(gspt21>gspt24,gspt21,gspt24)-ABS(gspt21-gspt24)*4/3),DRAWNULL);
gspt53:=IF(gspt27,ROUND(IF(gspt21>gspt24,gspt21,gspt24)-ABS(gspt21-gspt24)*5/8),DRAWNULL);
gspt54:=IF(gspt27,ROUND(IF(gspt21>gspt24,gspt21,gspt24)-ABS(gspt21-gspt24)*6/8),DRAWNULL);
gspt55:=IF(gspt27,ROUND(IF(gspt21>gspt24,gspt21,gspt24)-ABS(gspt21-gspt24)*7/8),DRAWNULL);
gspt56:=IF(gspt27,ROUND(IF(gspt21>gspt24,gspt21,gspt24)-ABS(gspt21-gspt24)*9/8),DRAWNULL);
gspt57:=IF(gspt27,ROUND(IF(gspt21>gspt24,gspt21,gspt24)-ABS(gspt21-gspt24)*1/3),DRAWNULL);
gspt58:=IF(gspt27,ROUND(IF(gspt21>gspt24,gspt21,gspt24)-ABS(gspt21-gspt24)*2/3),DRAWNULL);
gspt59:=IF(gspt27,ROUND(IF(gspt21>gspt24,gspt21,gspt24)-ABS(gspt21-gspt24)*10/8),DRAWNULL);
gspt60:=IF(gspt27,ROUND(IF(gspt21>gspt24,gspt21,gspt24)-ABS(gspt21-gspt24)*11/8),DRAWNULL);
gspt61:=IF(gspt27,ROUND(IF(gspt21>gspt24,gspt21,gspt24)-ABS(gspt21-gspt24)*5/3),DRAWNULL);
gspt62:=IF(gspt27,ROUND(IF(gspt21>gspt24,gspt21,gspt24)-ABS(gspt21-gspt24)*13/8),DRAWNULL);
gspt63:=IF(gspt27,ROUND(IF(gspt21>gspt24,gspt21,gspt24)-ABS(gspt21-gspt24)*14/8),DRAWNULL);
gspt64:=IF(gspt27,ROUND(IF(gspt21>gspt24,gspt21,gspt24)-ABS(gspt21-gspt24)*15/8),DRAWNULL);
gspt65:=IF(gspt27,ROUND(IF(gspt21>gspt24,gspt21,gspt24)-ABS(gspt21-gspt24)*17/8),DRAWNULL);
gspt66:=IF(gspt27,ROUND(IF(gspt21>gspt24,gspt21,gspt24)-ABS(gspt21-gspt24)*18/8),DRAWNULL);
gspt67:=IF(gspt27,ROUND(IF(gspt21>gspt24,gspt21,gspt24)-ABS(gspt21-gspt24)*19/8),DRAWNULL);
gspt68:=IF(gspt27,ROUND(IF(gspt21>gspt24,gspt21,gspt24)-ABS(gspt21-gspt24)*21/8),DRAWNULL);
gspt69:=IF(gspt27,ROUND(IF(gspt21>gspt24,gspt21,gspt24)-ABS(gspt21-gspt24)*22/8),DRAWNULL);
gspt70:=IF(gspt27,ROUND(IF(gspt21>gspt24,gspt21,gspt24)-ABS(gspt21-gspt24)*23/8),DRAWNULL);
gspt71:=IF(gspt27,ROUND(IF(gspt21>gspt24,gspt21,gspt24)-ABS(gspt21-gspt24)*7/3),DRAWNULL);
gspt72:=IF(gspt27,ROUND(IF(gspt21>gspt24,gspt21,gspt24)-ABS(gspt21-gspt24)*8/3),DRAWNULL);
gspt73:=CURRBARSCOUNT=gspt49 OR CURRBARSCOUNT=gspt50 OR CURRBARSCOUNT=gspt51 OR CURRBARSCOUNT=gspt52 OR CURRBARSCOUNT=gspt53 OR CURRBARSCOUNT=gspt54 OR CURRBARSCOUNT=gspt55 OR CURRBARSCOUNT=gspt56 OR CURRBARSCOUNT=gspt57 OR CURRBARSCOUNT=gspt58 OR CURRBARSCOUNT=gspt59 OR CURRBARSCOUNT=gspt60 OR CURRBARSCOUNT=gspt61 OR CURRBARSCOUNT=gspt62 OR CURRBARSCOUNT=gspt63 OR CURRBARSCOUNT=gspt64 OR CURRBARSCOUNT=gspt65 OR CURRBARSCOUNT=gspt66 OR CURRBARSCOUNT=gspt67 OR CURRBARSCOUNT=gspt68 OR CURRBARSCOUNT=gspt69 OR CURRBARSCOUNT=gspt70 OR CURRBARSCOUNT=gspt71 OR CURRBARSCOUNT=gspt72 ;
STICKLINE(gspt48 OR gspt73 ,gspt22,gspt25,0,0),COLORMAGENTA;
DRAWKLINE(H,O,L,C);
IF(gspt18=5 AND gspt17=5,DRAWNULL,gspt22),COLORMAGENTA;
IF(gspt18=5 AND gspt17=5,DRAWNULL,gspt25),COLORMAGENTA;
DRAWTEXT(CURRBARSCOUNT=gspt49 OR CURRBARSCOUNT=gspt56 OR CURRBARSCOUNT=gspt65,gspt22*0.98,'1/8')COLORMAGENTA;
DRAWTEXT(CURRBARSCOUNT=gspt50 OR CURRBARSCOUNT=gspt59 OR CURRBARSCOUNT=gspt66,gspt22*0.98,'2/8')COLORMAGENTA;
DRAWTEXT(CURRBARSCOUNT=gspt51 OR CURRBARSCOUNT=gspt60 OR CURRBARSCOUNT=gspt67,gspt22*0.98,'3/8')COLORMAGENTA;
DRAWTEXT(CURRBARSCOUNT=gspt53 OR CURRBARSCOUNT=gspt62 OR CURRBARSCOUNT=gspt68,gspt22*0.98,'5/8')COLORMAGENTA;
DRAWTEXT(CURRBARSCOUNT=gspt54 OR CURRBARSCOUNT=gspt63 OR CURRBARSCOUNT=gspt69,gspt22*0.98,'6/8')COLORMAGENTA;
DRAWTEXT(CURRBARSCOUNT=gspt55 OR CURRBARSCOUNT=gspt64 OR CURRBARSCOUNT=gspt70,gspt22*0.98,'7/8')COLORMAGENTA;
DRAWTEXT(CURRBARSCOUNT=gspt57 OR CURRBARSCOUNT=gspt52 OR CURRBARSCOUNT=gspt71,gspt22*0.98,'1/3')COLORMAGENTA;
DRAWTEXT(CURRBARSCOUNT=gspt58 OR CURRBARSCOUNT=gspt61 OR CURRBARSCOUNT=gspt72,gspt22*0.98,'2/3')COLORMAGENTA;