打印本文
關閉窗口
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
N:=107;
//{背景}
DRAWGBK(O>0,RGB(33,47,58),RGB(0,0,0),0);
高:REFX1(HHV(H,N),10000);
低:REFX1(LLV(L,N),10000);
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;
CURRBARSCOUNT:=DATACOUNT-BARPOS+1;
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;
*/
?
STICKLINE1(C>REF(C,1),H,L,0,0),COLOR0099FF;
STICKLINE1(C>REF(C,1),C,O,3.2,0),COLOR0000AA;
STICKLINE1(C>REF(C,1),C,O,2.7,0),COLOR0000DD;
STICKLINE1(C>REF(C,1),C,O,2.1,0),COLOR0022FF;
STICKLINE1(C>REF(C,1),C,O,1.5,0),COLOR0066FF;
STICKLINE1(C>REF(C,1),C,O,0.9,0),COLOR0099FF;
STICKLINE1(C>REF(C,1),C,O,0.3,0),COLOR00DDFF;
STICKLINE1(C=REF(C,1),H,L,0,1),COLORFFFFFF;
STICKLINE(C=REF(C,1),C,O,3.2,0),COLOR555555;
STICKLINE1(C=REF(C,1),C,O,2.7,0),COLOR777777;
STICKLINE1(C=REF(C,1),C,O,2.1,0),COLOR999999;
STICKLINE1(C=REF(C,1),C,O,1.5,0),COLORBBBBBB;
STICKLINE1(C=REF(C,1),C,O,0.9,0),COLORDDDDDD;
STICKLINE1(C=REF(C,1),C,O,0.3,0),COLORFFFFFF;
??
?來源: www.tumamayizhan.com
?
?
重新拷貝下2樓的源碼，
?
單引號在拷貝的過程中亂碼了