gspt1:=8;
gspt2:=REF(H,gspt1)=HHV(H,2*gspt1+1);
gspt3:=FILTER(gspt2,gspt1);
gspt4:=BACKSET(gspt3,gspt1+1);
gspt5:=FILTER(gspt4,gspt1);
gspt6:=REF(L,gspt1)=LLV(L,2*gspt1+1);
gspt7:=FILTER(gspt6,gspt1);
gspt8:=BACKSET(gspt7,gspt1+1);
gspt9:=FILTER(gspt8,gspt1);
gspt10:=(REF(LLV(L,2*gspt1),1)+REF(HHV(H,2*gspt1),1))/2;
gspt11:=(H+L)/2;
gspt12:=(gspt5 AND NOT(gspt9 AND gspt10>=gspt11)) OR ISLASTBAR OR BARSCOUNT(C)=1;
gspt13:=(gspt9 AND NOT(gspt5 AND gspt10< gspt11));
gspt14:=gspt5 AND NOT(gspt9 AND gspt10>=gspt11);
gspt15:=REF(BARSLAST(gspt12),1)+1;
gspt16:=BACKSET(gspt12 AND COUNT(gspt13,gspt15)>0,LLVBARS(IF(gspt13,L,10000),gspt15));
gspt17:=gspt16>REF(gspt16,1);
gspt18:=BACKSET(gspt17,2);
gspt19:=gspt18>REF(gspt18,1);
gspt20:=gspt19 OR ISLASTBAR OR BARSCOUNT(C)=1;
gspt21:=REF(BARSLAST(gspt20),1)+1;
gspt22:=BACKSET(gspt20 AND COUNT(gspt14,gspt21)>0,HHVBARS(IF(gspt14,H,0),gspt21));
gspt23:=gspt22>REF(gspt22,1);
gspt24:=BACKSET(gspt23,2);
gspt25:=gspt24>REF(gspt24,1);
gspt26:=BACKSET(ISLASTBAR,BARSLAST(gspt25)+1);
gspt27:=gspt26>REF(gspt26,1);
gspt28:=BACKSET(ISLASTBAR,BARSLAST(gspt19)+1);
gspt29:=gspt28>REF(gspt28,1);
gspt30:=BACKSET(gspt27,REF(BARSLAST(gspt25),1)+2);
gspt31:=gspt30>REF(gspt30,1);
gspt32:=BACKSET(gspt29,REF(BARSLAST(gspt19),1)+2);
gspt33:=gspt32>REF(gspt32,1);
gspt34:DRAWLINE(gspt31,H,gspt27,H,1),LINETHICK2,COLORRED;
gspt35:DRAWLINE(gspt33,L,gspt29,L,1),LINETHICK2,COLORGREEN;
DRAWICON(gspt31,H,2);
DRAWICON(gspt27,H,2);
DRAWICON(gspt33,L,1);
DRAWICON(gspt29,L,1);
DRAWLINE(gspt25,H,gspt19,L,0),COLORGREEN;
DRAWLINE(gspt19,L,gspt25,H,0),COLORRED;
gspt36:=34;
gspt37:=3;
gspt38:=REF(HHV(H,gspt36),gspt37);
gspt39:=REF(LLV(L,gspt36),gspt37);
gspt40:=gspt38-(gspt38-gspt39)*0.191;
gspt41:=gspt38-(gspt38-gspt39)*0.382;
gspt42:=gspt38-(gspt38-gspt39)*0.500;
gspt43:=gspt38-(gspt38-gspt39)*0.618;
gspt44:=gspt38-(gspt38-gspt39)*0.809;
gspt45:REFDATE(gspt38,DATE),COLORYELLOW;
gspt46:REFDATE(gspt40,DATE),COLORGRAY,DOTLINE;
gspt47:REFDATE(gspt41,DATE),COLORGRAY,DOTLINE;
gspt48:REFDATE(gspt42,DATE),COLORRED,DOTLINE;
gspt49:REFDATE(gspt43,DATE),COLORGRAY,DOTLINE;
gspt50:REFDATE(gspt44,DATE),COLORGRAY,DOTLINE;
gspt51:REFDATE(gspt39,DATE),COLORYELLOW;
gspt52:=(CURRBARSCOUNT=34);
DRAWTEXT(gspt52 AND gspt45,gspt45,'---高---'),COLORYELLOW;
DRAWTEXT(gspt52 AND gspt46,gspt46,'-0.809-'),COLORCYAN;
DRAWTEXT(gspt52 AND gspt47,gspt47,'-0.618-'),COLORGREEN;
DRAWTEXT(gspt52 AND gspt48,gspt48,'-0.500-'),COLORYELLOW;
DRAWTEXT(gspt52 AND gspt49,gspt49,'-0.382-'),COLORGREEN;
DRAWTEXT(gspt52 AND gspt50,gspt50,'-0.191-'),COLORCYAN;
DRAWTEXT(gspt52 AND gspt51,gspt51,'---底---'),COLORYELLOW;
DRAWTEXT(CURRBARSCOUNT=1,gspt45,CON2STR(gspt45,2)),COLORMAGENTA;
DRAWTEXT(CURRBARSCOUNT=1,gspt46,CON2STR(gspt46,2)),COLORCYAN;
DRAWTEXT(CURRBARSCOUNT=1,gspt47,CON2STR(gspt47,2)),COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=1,gspt48,CON2STR(gspt48,2)),COLORYELLOW;
DRAWTEXT(CURRBARSCOUNT=1,gspt49,CON2STR(gspt49,2)),COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=1,gspt50,CON2STR(gspt50,2)),COLORCYAN;
DRAWTEXT(CURRBARSCOUNT=1,gspt51,CON2STR(gspt51,2)),COLORMAGENTA;
