N:=107;

{背景}

DRAWGBK(O>0,RGB(33,47,58),RGB(0,0,0),0,?#39,0);

高: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=15,高,高,100,1),COLORGREEN;

STICKLINE(CURRBARSCOUNT=15,H1,H1,100,1),COLORCYAN;

STICKLINE(CURRBARSCOUNT=15,H2,H2,100,1),COLORRED;

DRAWTEXT(CURRBARSCOUNT=2,H1,?000',COLORCYAN;

DRAWTEXT(CURRBARSCOUNT=2,H2,?125 ┄ 1/8',COLORMAGENTA;

DRAWTEXT(CURRBARSCOUNT=2,H3,'0.25 ┄ 1/4',COLORGREEN;

DRAWTEXT(CURRBARSCOUNT=2,H4,'0.333┄ 1/3',COLOR808080;

DRAWTEXT(CURRBARSCOUNT=2,H5,'0.375┄ 3/8',COLOR808080;

DRAWTEXT(CURRBARSCOUNT=2,H6,'0.50┄ 1/2',COLORMAGENTA;

DRAWTEXT(CURRBARSCOUNT=2,H7,'0.625┄ 5/8',COLOR808080;

DRAWTEXT(CURRBARSCOUNT=2,H8,'0.666┄2/3',COLOR808080;

DRAWTEXT(CURRBARSCOUNT=2,H9,'0.75┄ 3/4',COLORGREEN;

DRAWTEXT(CURRBARSCOUNT=2,H10,'0.875┄ 7/8',COLORMAGENTA;

DRAWTEXT(CURRBARSCOUNT=2,H11,'1.000',COLORGREEN;

{比例坐標}

STICKLINE(CURRBARSCOUNT=15,H3,H3,100,1),COLORGREEN;

STICKLINE(CURRBARSCOUNT=15,H4,H4,100,1),COLOR808080;

STICKLINE(CURRBARSCOUNT=15,H6,H6,100,1),COLORGREEN;

STICKLINE(CURRBARSCOUNT=15,H5,H5,100,1),COLOR808080;

STICKLINE(CURRBARSCOUNT=15,低,低,100,1),COLORRED;

STICKLINE(CURRBARSCOUNT=15,H7,H7,100,1),COLOR808080;

STICKLINE(CURRBARSCOUNT=15,H8,H8,100,1),COLOR808080;

STICKLINE(CURRBARSCOUNT=15,H9,H9,100,1),COLORGREEN;

STICKLINE(CURRBARSCOUNT=15,H10,H10,100,1),COLORRED;

{價格坐標}

DRAWTEXT(CURRBARSCOUNT=30,高*0.997,CON2STR(高,2)),COLORGREEN;

DRAWTEXT(CURRBARSCOUNT=30,H10,CON2STR(H10,2)),COLORLIRED;

DRAWTEXT(CURRBARSCOUNT=30,H9,CON2STR(H9,2)),COLORMAGENTA;

DRAWTEXT(CURRBARSCOUNT=30,H8,CON2STR(H8,2)),COLORRED;

DRAWTEXT(CURRBARSCOUNT=30,H1,CON2STR(H1,2)),COLORCYAN;

DRAWTEXT(CURRBARSCOUNT=30,H2,CON2STR(H2,2)),COLORRED;

DRAWTEXT(CURRBARSCOUNT=30,H3,CON2STR(H3,2)),COLORYELLOW;

DRAWTEXT(CURRBARSCOUNT=30,H6,CON2STR(H6,2)),COLORGREEN;

DRAWTEXT(CURRBARSCOUNT=30,H4,CON2STR(H4,2)),COLORLIRED;

DRAWTEXT(CURRBARSCOUNT=30,H5,CON2STR(H5,2)),COLORMAGENTA;

DRAWTEXT(CURRBARSCOUNT=30,H7,CON2STR(H7,2)),COLORRED;

DRAWTEXT(CURRBARSCOUNT=30,低*1.00,CON2STR(低,2)),COLORGREEN;

{變色K線}

STICKLINE(C>REF(C,1),H,L,0,0),COLOR0099FF;

STICKLINE(C>REF(C,1),C,O,3.2,0),COLOR0000AA;

STICKLINE(C>REF(C,1),C,O,2.7,0),COLOR0000DD;

STICKLINE(C>REF(C,1),C,O,2.1,0),COLOR0022FF;

STICKLINE(C>REF(C,1),C,O,1.5,0),COLOR0066FF;

STICKLINE(C>REF(C,1),C,O,0.9,0),COLOR0099FF;

STICKLINE(C>REF(C,1),C,O,0.3,0),COLOR00DDFF;

STICKLINE(C

STICKLINE(C

STICKLINE(C

STICKLINE(C

STICKLINE(C

STICKLINE(C

STICKLINE(C

STICKLINE(C=REF(C,1),H,L,0,1),COLORFFFFFF;

STICKLINE(C=REF(C,1),C,O,3.2,0),COLOR555555;

STICKLINE(C=REF(C,1),C,O,2.7,0),COLOR777777;?

STICKLINE(C=REF(C,1),C,O,2.1,0),COLOR999999;

STICKLINE(C=REF(C,1),C,O,1.5,0),COLORBBBBBB;

STICKLINE(C=REF(C,1),C,O,0.9,0),COLORDDDDDD;

STICKLINE(C=REF(C,1),C,O,0.3,0),COLORFFFFFF;

?

?來源:程序化99

?

?來源: www.kzuj.com.cn

?

?

重新拷貝下2樓的源碼，

?

單引號在拷貝的過程中亂碼了