N:=6000;
高:=REFDATE(HHV(H,N),DATE);
低:=REFDATE(LLV(L,N),DATE);
H1:=高-(高-低)*1.000;
H2:=高-(高-低)*0.875;
H3:=高-(高-低)*0.750;
H4:=高-(高-低)*0.666;
H5:=高-(高-低)*0.625;
H6:=高-(高-低)*0.500;
H7:=高-(高-低)*0.375;
H8:=高-(高-低)*0.333;
H9:=高-(高-低)*0.250;
H10:=高-(高-低)*0.125;
H11:=高-(高-低)*0.000;
STICKLINE(CURRBARSCOUNT=13,高,高,100,1),COLORCYAN;
STICKLINE(CURRBARSCOUNT=13,H1,H1,100,1),COLORGREEN;
STICKLINE(CURRBARSCOUNT=13,H2,H2,100,1),COLORCCCCCC;
DRAWTEXT(CURRBARSCOUNT=1,H1,'0.000'),COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=1,H2,' 0.125'),COLORFFFFFF;
DRAWTEXT(CURRBARSCOUNT=1,H3,' 0.250'),COLORBLUE;
DRAWTEXT(CURRBARSCOUNT=1,H4,' 0.333'),COLORLICYAN;
DRAWTEXT(CURRBARSCOUNT=1,H5,' 0.375'),COLORCYAN;
DRAWTEXT(CURRBARSCOUNT=1,H6,' 0.500'),COLORmaGENTA;
DRAWTEXT(CURRBARSCOUNT=1,H7,' 0.625'),COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=1,H8,' 0.666'),COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=1,H9,' 0.750'),COLORCYAN;
DRAWTEXT(CURRBARSCOUNT=1,H10,' 0.875'),COLORLIMAGENTA;
DRAWTEXT(CURRBARSCOUNT=1,H11,' 1.000'),COLORCYAN;
STICKLINE(CURRBARSCOUNT=13,H3,H3,100,1),COLORBLUE;
STICKLINE(CURRBARSCOUNT=13,H4,H4,100,1),COLORLICYAN;
STICKLINE(CURRBARSCOUNT=13,H6,H6,100,1),COLORCYAN;
STICKLINE(CURRBARSCOUNT=13,H5,H5,100,1),COLORLIMAGENTA;
STICKLINE(CURRBARSCOUNT=13,低,低,100,1),COLORWHITE;
STICKLINE(CURRBARSCOUNT=13,H7,H7,100,1),COLORWHITE;
STICKLINE(CURRBARSCOUNT=13,H8,H8,100,1),COLORWHITE;
STICKLINE(CURRBARSCOUNT=13,H9,H9,100,1),COLORWHITE;
STICKLINE(CURRBARSCOUNT=13,H10,H10,100,1),COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=25,高*0.99,CON2STR(高,2)),COLORCYAN;
DRAWTEXT(CURRBARSCOUNT=25,H10,CON2STR(H10,2)),COLORLICYAN;
DRAWTEXT(CURRBARSCOUNT=25,H9,CON2STR(H9,2)),COLORLIMAGENTA;
DRAWTEXT(CURRBARSCOUNT=25,H8,CON2STR(H8,2)),COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=25,H1,CON2STR(H1,2)),COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=25,H2,CON2STR(H2,2)),COLORFFFFFF;
DRAWTEXT(CURRBARSCOUNT=25,H3,CON2STR(H3,2)),COLORBLUE;
DRAWTEXT(CURRBARSCOUNT=25,H6,CON2STR(H6,2)),COLORCYAN;
DRAWTEXT(CURRBARSCOUNT=25,H4,CON2STR(H4,2)),COLORLICYAN;
DRAWTEXT(CURRBARSCOUNT=25,H5,CON2STR(H5,2)),COLORLIMAGENTA;
DRAWTEXT(CURRBARSCOUNT=25,H7,CON2STR(H7,2)),COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=25,低*1.01,CON2STR(低,2)),COLORWHITE;
