{多彩K線 主圖源碼 通達信} DRAWKLINE(H,O,L,C);{重繪K線} CB90:=STRCAT('成本90: ',CON2STR(COST(90),2)); CB70:=STRCAT('成本70: ',CON2STR(COST(70),2)); CB50:=STRCAT('成本50: ',CON2STR(COST(50),2)); CB30:=STRCAT('成本30: ',CON2STR(COST(30),2)); CB10:=STRCAT('成本10: ',CON2STR(COST(10),2)); CB底:=STRCAT('底部出擊: ',CON2STR(COST(1),2)); {顯示} 成本50:COST(50); 成本30:COST(30); 成本10:COST(10),DOTLINE; 成本98:COST(98); STICKLINE(C>=COST(90) AND C>REF(C,1),L,H,0,1),COLOR0000DD; STICKLINE(C>=COST(90) AND C>REF(C,1),O,C,-1,1),COLOR0000DD; STICKLINE(C>=COST(90) AND C<REF(C,1),L,H,0,0),COLOR0000DD; STICKLINE(C>=COST(90) AND C<REF(C,1),O,C,-1,0),COLOR0000DD; STICKLINE(C<COST(90) AND C>REF(C,1),L,H,0,1),COLORAAAAAA; STICKLINE(C<COST(90) AND C>REF(C,1),O,C,-1,1),COLORAAAAAA; STICKLINE(C<COST(90) AND C<REF(C,1),L,H,0,0),COLORAAAAAA; STICKLINE(C<COST(90) AND C<REF(C,1),O,C,-1,0),COLORAAAAAA; STICKLINE(C<COST(70) AND C>REF(C,1),L,H,0,1),COLORAAAA00; STICKLINE(C<COST(70) AND C>REF(C,1),O,C,-1,1),COLORAAAA00; STICKLINE(C<COST(70) AND C<REF(C,1),L,H,0,0),COLORAAAA00; STICKLINE(C<COST(70) AND C<REF(C,1),O,C,-1,0),COLORAAAA00; STICKLINE(C<COST(50) AND C>REF(C,1),L,H,0,1),COLORLIRED; STICKLINE(C<COST(50) AND C>REF(C,1),O,C,-1,1),COLORLIRED; STICKLINE(C<COST(50) AND C<REF(C,1),L,H,0,0),COLOR990000; STICKLINE(C<COST(50) AND C<REF(C,1),O,C,-1,0),COLOR990000; DRAWTEXT_FIX(CURRBARSCOUNT=1,0,0.06,0,'成本分布'),COLORWHITE; DRAWTEXT_FIX(CURRBARSCOUNT=1,0.05,0.06,0,CB90),COLORRED; DRAWTEXT_FIX(CURRBARSCOUNT=1,0.05,0.12,0,CB70),COLORLIGRAY; DRAWTEXT_FIX(CURRBARSCOUNT=1,0.05,0.18,0,CB50),COLORLIBLUE; DRAWTEXT_FIX(CURRBARSCOUNT=1,0.05,0.24,0,CB30),COLORGREEN; DRAWTEXT_FIX(CURRBARSCOUNT=1,0.05,0.30,0,CB10),COLORYELLOW; DRAWTEXT_FIX(CURRBARSCOUNT=1,0.05,0.36,0,CB底),COLORLIMAGENTA; |
|