通达信江恩百分比主图指标(源码)

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;