通达信江恩百分比源码副图

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),COLORGREEN;
 STICKLINE(CURRBARSCOUNT=13,H1,H1,100,1),COLORCYAN;
 STICKLINE(CURRBARSCOUNT=13,H2,H2,100,1),COLORCCCCCC;

DRAWTEXT(CURRBARSCOUNT=1,H1,'0.000'),COLORCYAN;
 DRAWTEXT(CURRBARSCOUNT=1,H2,' 0.125'),COLORFFFFFF;
 DRAWTEXT(CURRBARSCOUNT=1,H3,' 0.250'),COLORYELLOW;
 DRAWTEXT(CURRBARSCOUNT=1,H4,' 0.333'),COLORLIRED;
 DRAWTEXT(CURRBARSCOUNT=1,H5,' 0.375'),COLORGREEN;
 DRAWTEXT(CURRBARSCOUNT=1,H6,' 0.500'),COLORMAGENTA;
 DRAWTEXT(CURRBARSCOUNT=1,H7,' 0.625'),COLORRED;
 DRAWTEXT(CURRBARSCOUNT=1,H8,' 0.666'),COLORRED;
 DRAWTEXT(CURRBARSCOUNT=1,H9,' 0.750'),COLORGREEN;
 DRAWTEXT(CURRBARSCOUNT=1,H10,' 0.875'),COLORMAGENTA;
 DRAWTEXT(CURRBARSCOUNT=1,H11,' 1.000'),COLORGREEN;
 STICKLINE(CURRBARSCOUNT=13,H3,H3,100,1),COLORYELLOW;
 STICKLINE(CURRBARSCOUNT=13,H4,H4,100,1),COLORLIRED;
 STICKLINE(CURRBARSCOUNT=13,H6,H6,100,1),COLORGREEN;
 STICKLINE(CURRBARSCOUNT=13,H5,H5,100,1),COLORMAGENTA;
 STICKLINE(CURRBARSCOUNT=13,低,低,100,1),COLORRED;
 STICKLINE(CURRBARSCOUNT=13,H7,H7,100,1),COLORRED;
 STICKLINE(CURRBARSCOUNT=13,H8,H8,100,1),COLORRED;
 STICKLINE(CURRBARSCOUNT=13,H9,H9,100,1),COLORRED;
 STICKLINE(CURRBARSCOUNT=13,H10,H10,100,1),COLORRED;
 DRAWTEXT(CURRBARSCOUNT=25,高*0.99,CON2STR(高,2)),COLORGREEN;
 DRAWTEXT(CURRBARSCOUNT=25,H10,CON2STR(H10,2)),COLORLIRED;
 DRAWTEXT(CURRBARSCOUNT=25,H9,CON2STR(H9,2)),COLORMAGENTA;
 DRAWTEXT(CURRBARSCOUNT=25,H8,CON2STR(H8,2)),COLORRED;
 DRAWTEXT(CURRBARSCOUNT=25,H1,CON2STR(H1,2)),COLORCYAN;
 DRAWTEXT(CURRBARSCOUNT=25,H2,CON2STR(H2,2)),COLORFFFFFF;
 DRAWTEXT(CURRBARSCOUNT=25,H3,CON2STR(H3,2)),COLORYELLOW;
 DRAWTEXT(CURRBARSCOUNT=25,H6,CON2STR(H6,2)),COLORGREEN;
 DRAWTEXT(CURRBARSCOUNT=25,H4,CON2STR(H4,2)),COLORLIRED;
 DRAWTEXT(CURRBARSCOUNT=25,H5,CON2STR(H5,2)),COLORMAGENTA;
 DRAWTEXT(CURRBARSCOUNT=25,H7,CON2STR(H7,2)),COLORRED;
 DRAWTEXT(CURRBARSCOUNT=25,低*1.01,CON2STR(低,2)),COLORRED;