【通达信免费源码】江恩百分比源码副图

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;