//显示N天内大量红蓝K+大量高低颜色填充
K2:=SUMBARS(DAYBARPOS=1,15);//10日
VV2:="DAY$1$V";//日
HH2:="DAY$1$H";//日
LL2:="DAY$1$L";//日
OO2:="DAY$1$O";//日
CC2:="DAY$1$C";//日
//K4:=SUMBARS(WEEKDAY<REF(WEEKDAY,1),15);//5周
//VV4:="WEEK$1$V";
//HH4:="WEEK$1$H";
//LL4:="WEEK$1$L";
//OO4:="WEEK$1$O";
//CC4:="WEEK$1$C";
//STICKLINE1(VALUEWHEN(VV2=HHV(VV2,K2),CC2>=OO2),VALUEWHEN(VV2=HHV(VV2,K2),HH2),VALUEWHEN(VV2=HHV(VV2,K2),LL2),4,0),RGB(170,170,170);//红色填充
//STICKLINE1(VALUEWHEN(VV2=HHV(VV2,K2),CC2<OO2),VALUEWHEN(VV2=HHV(VV2,K2),HH2),VALUEWHEN(VV2=HHV(VV2,K2),LL2) ,4,0),RGB(170,170,170);//绿色填充
//STICKLINE1(ISLASTBAR&&VALUEWHEN(VV2=HHV(VV2,K2),CC2>=OO2),VALUEWHEN(VV2=HHV(VV2,K2),HH2),VALUEWHEN(VV2=HHV(VV2,K2),LL2),5,0),RGB(170,170,170);//红色填充后段
//STICKLINE1(ISLASTBAR&&VALUEWHEN(VV2=HHV(VV2,K2),CC2<OO2),VALUEWHEN(VV2=HHV(VV2,K2),HH2),VALUEWHEN(VV2=HHV(VV2,K2),LL2),5,0),RGB(170,170,170);//绿色 填充后段
QQ:=VALUEWHEN(VV2=HHV(VV2,K2),HH2)<>REF(VALUEWHEN(VV2=HHV(VV2,K2),HH2),1);
Q:=BACKSET(REFX(QQ=1,1)||ISLASTBAR,HHVBARS(V,BARSLAST(QQ=1)+1)+1);
XX:CROSS(Q=1&&QQ,0.5)&&ISUP||CROSS(Q=1,0.5)&&ISUP,NODRAW;
YY:CROSS(Q=1&&QQ,0.5)&&ISDOWN||CROSS(Q=1,0.5)&&ISDOWN,NODRAW;
AX:BACKSET(ISLASTBAR,SUMBARS(XX||YY,1)),NODRAW;
STICKLINE1(AX,VALUEWHEN(XX&&AX ,H),VALUEWHEN(XX&&AX ,L),5,0),COLORRED;//前段填充显示
STICKLINE1(AX,VALUEWHEN(YY&&AX,H),VALUEWHEN(YY&&AX ,L),5,0),COLORBLUE;//前段填充显示
STICKLINE1(ISLASTBAR&&BARSLAST(XX)>BARSLAST(YY),VALUEWHEN(YY&&AX,H),VALUEWHEN(YY&&AX ,L),15,0),COLORBLUE;//后段填充显示
STICKLINE1(ISLASTBAR&&BARSLAST(XX)<BARSLAST(YY),VALUEWHEN(XX&&AX,H),VALUEWHEN(XX&&AX ,L),15,0),COLORRED;//后段填充显示
DRAWKLINE1(H,O,L,C);//K线显示
老师麻烦把指标中的填充带的K线用红蓝K持续显示:出现红色带时,只要收盘价不破红色带下边缘,就持续显示红K(上涨用空心红K,下跌用实心红K),如收盘价破红色带下边缘就用蓝K持续显示(下跌用实心蓝,上涨用空心蓝),反之当出现蓝色带时只要收盘价不破蓝色带上边缘,就持续显示蓝K(上涨用空心蓝K,下跌用实心蓝K),如收盘价破红蓝色带上边缘就用红K持续显示(下跌用实心红,上涨用空心红)谢谢老师!
来源:程序化99