通达信多彩K线主图公式 源码

通达信多彩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));

 {显示}
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),COLOR990000;
 STICKLINE(C<COST(50) AND C>REF(C,1),O,C,-1,1),COLOR990000;
 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底),COLORWHITE;