多彩Ｋ线 主图

{多彩Ｋ线 主图源码 通达信}

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;