通达信【威廉波段】主副图指标 K线战法+KDJ+威廉信号+成交量融为一体 源码

{威廉波段副图源码如下}
HGW:=DYNAINFO(3)*1,COLOR0000FF;
STICKLINE(1,90/100+HGW,90/100+HGW,2,0),COLOR00BBBB;
STICKLINE(1,10/100+HGW,10/100+HGW,2,0),COLOR0000BB;
STICKLINE(1,100/100+HGW,100/100+HGW,2,0),COLORBBBBBB;
STICKLINE(1,50/100+HGW,50/100+HGW,2,0),COLORFF0000;
STICKLINE(1,0/100+HGW,0/100+HGW,2,0),COLORBBBB00;
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100+50/100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
KK:=HGW+K/100;
DD:=HGW+D/100;
JJ:=HGW+J/100;
EE:=50/100+HGW;
DRAWBAND(KK,RGB(200,0,150),EE,RGB(0,170,120));
DRAWBAND(JJ,RGB(220,0,0),KK,RGB(120,120,170));
公式平台:=100-(HHV(HIGH,34)-CLOSE)/(HHV(HIGH,34)-LLV(LOW,34))*100;
指标营地:=IF(公式平台>95,(100/100+HGW)-(100/100+HGW)*0.009,100/100+HGW),COLOR00FFFF,LINETHICK0;
DRAWBAND(100/100+HGW,RGB(220,220,0),指标营地,RGB(0,0,0));
WLDB:=IF(公式平台< 5,(0/100+HGW)+(0/100+HGW)*0.009,0/100+HGW),COLORFFFF00,LINETHICK1;
DRAWBAND(WLDB,RGB(0,220,220),0/100+HGW,RGB(0,0,0));

{威廉波段主图源码如下}

HGW:=DYNAINFO(3)*1,COLOR0000FF;
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100+50/100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
KK:=HGW+K/100;
DD:=HGW+D/100;
JJ:=HGW+J/100;
EE:=50/100+HGW;
AAA:=JJ>=KK AND KK>=EE;
BBB:=JJ>=KK AND KK< EE;
DDD:=JJ< KK AND KK>=EE;
EEE:=JJ< KK AND KK< EE;
STICKLINE(AAA,H,L,0,0),COLOR0000FF;
STICKLINE(BBB,H,L,0,0),COLORFF00FF;
STICKLINE(DDD,H,L,0,0),COLOR00FFFF;
STICKLINE(EEE,H,L,0,0),COLORFFFF00;
STICKLINE(AAA,CLOSE,OPEN,3.2,0),COLOR000099;
STICKLINE(AAA,CLOSE,OPEN,1.8,0),COLOR0000BB;
STICKLINE(AAA,CLOSE,OPEN,1.3,0),COLOR0000DD;
STICKLINE(AAA,CLOSE,OPEN,0.5,0),COLOR0000FF;
STICKLINE(BBB,CLOSE,OPEN,3.2,0),COLOR990099;
STICKLINE(BBB,CLOSE,OPEN,1.8,0),COLORAA00AA;
STICKLINE(BBB,CLOSE,OPEN,1.3,0),COLORDD00DD;
STICKLINE(BBB,CLOSE,OPEN,0.5,0),COLORFF00FF;
STICKLINE(DDD,C,O,3.2,0),COLOR009999;
STICKLINE(DDD,C,O,2.4,0),COLOR00BBBB;
STICKLINE(DDD,C,O,1.0,0),COLOR00DDDD;
STICKLINE(DDD,C,O,0.6,0),COLOR00FFFF;
STICKLINE(EEE,C,O,3.2,0),COLOR999900;
STICKLINE(EEE,C,O,1.6,0),COLORBBBB00;
STICKLINE(EEE,C,O,1.0,0),COLORDDDD00;
STICKLINE(EEE,C,O,0.5,0),COLORFFFF00;
LC:=REF(CLOSE,1);
RSI1:=SMA(MAX(CLOSE-LC,0),3,1)/SMA(ABS(CLOSE-LC),3,1)*100;
SELL2:=(CROSS(88,RSI1));
DRAWTEXT(SELL2,HIGH*1.02,'←卖'),COLOR00FF00;
ACB1:=C-REF(C,1);
ACB2:=100*EMA(EMA(ACB1,6),6)/EMA(EMA(ABS(ACB1),6),6);
ACB3:=IF(LLV(ACB2,2)=LLV(ACB2,7) AND COUNT(ACB2< 0,2) AND CROSS(ACB2,MA(ACB2,2)),1,0);
ACB4:=FILTER(ACB3=1,5);
红色:=BARSLASTCOUNT(AAA)=1;
DRAWTEXT(红色,LOW*0.998,'←买'),COLOR00FFFF;
DRAWICON(红色,L,9);
DRAWTEXT_FIX(1,0,0,0,HYBLOCK);
威廉波段:=100-(HHV(HIGH,34)-CLOSE)/(HHV(HIGH,34)-LLV(LOW,34))*100;
威廉风险:=IF(威廉波段>95,(100/100+HGW)-(100/100+HGW)*0.009,100/100+HGW),COLOR00FFFF,LINETHICK0;
WLDB:=IF(威廉波段< 5,(0/100+HGW)+(0/100+HGW)*0.009,0/100+HGW),COLORFFFF00,LINETHICK1;
ZGB:VOL*100/HSCOL.HSCOL,NODRAW;
DRAWTEXT(ZGB-REF(ZGB,1)>50,H,'解禁日')COLORGREEN;
生命线:MA(C,30)LINETHICK1,COLORWHITE;
牛熊线:MA(C,60)LINETHICK1,COLORRED;
黄金线:(EMA(C,18)),POINTDOT,LINETHICK5,COLORYELLOW;
神奇线:MA(C,43)DOTLINE,LINETHICK1,COLORGREEN;
_10日涨跌%:=(C-REF(CLOSE,10))/REF(CLOSE,10)*100,COLORGREEN,NODRAW;
涨家数:INDEXADV,COLOR0080FF,NODRAW;
跌家数:INDEXDEC,COLORGREEN,NODRAW;
涨停:C+0.05>=(ROUND(REF(C,1)*(100+10*(2-NAMELIKE('ST'))/2))/100),COLOR0080FF,NODRAW;
跌停:C-0.05<=(ROUND(REF(C,1)*(100-10*(2-NAMELIKE('ST'))/2))/100),COLORGREEN,NODRAW;
TOTAL:=IF(PERIOD=1,5,IF(PERIOD=2,15,IF(PERIOD=3,30,IF(PERIOD=4,60,IF(PERIOD=5,240,1)))));
MTIME:=MOD(FROMOPEN,TOTAL);
CTIME:=IF(MTIME< 0.5,TOTAL,MTIME);
VV:=IF(CURRBARSCOUNT=1,VOL*TOTAL/CTIME,V);
N9:=120;
A100:=CONST(HHV(H,N9)-LLV(L,N9))/CONST(HHV(VV,N9));
B100:=CONST(LLV(L,N9))-CONST(HHV(VV,N9))*A100/8;
天数:=10;
STICKLINE(CURRBARSCOUNT=1 && (SETCODE=0 || SETCODE=1),B100+VV*A100/8,B100,-1,-1),COLOR00C0C0;
STICKLINE(C>=O AND CURRBARSCOUNT<=天数,B100+VV*A100/8,B100,3,1),COLOR3232FF;
STICKLINE(C< O AND CURRBARSCOUNT<=天数,B100+VV*A100/8,B100,3,0),COLORFFFF54;
Z1:=STRCAT(HYBLOCK,' ');
Z2:=STRCAT(Z1,FGBLOCK);
Z3:=STRCAT(Z2,DYBLOCK);
Z4:=STRCAT(Z3,' ');
DRAWTEXT_FIX(ISLASTBAR,0.00,0.99,0,STRCAT(Z4,GNBLOCK)),COLORYELLOW;
A1000:=REF(C,1);
涨停A:=IF((C-A1000)*100/A1000>=(10-0.01*100/A1000),1,0);
跌停A:=IF((A1000-C)*100/A1000>=(10-0.01*100/A1000),1,0);
涨停次数:=COUNT(涨停A,BARSSINCE(涨停A)+1);
跌停次数:=COUNT(跌停A,BARSSINCE(跌停A)+1);
DRAWNUMBER(涨停A,HIGH*1.04,涨停次数),COLORYELLOW;
DRAWNUMBER(跌停A,HIGH*1.04,跌停次数),COLORCYAN;
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.62,0.95,0,涨停次数),COLORYELLOW;
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.72,0.95,0,跌停次数),COLORCYAN;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.55,0.95,0,'上市以来共涨停:'),COLORYELLOW;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.65,0.95,0,'上市以来共跌停:'),COLORCYAN;
涨停K线:=IF((C-A1000)*100/A1000>=(10-0.01*100/A1000),1,0);
跌停K线:=IF((A1000-C)*100/A1000>=(10-0.01*100/A1000),1,0);

原理解析：
{威廉波段副图源码如下}HGW赋值:DYNAINFO(3)*1,COLOR0000FF
当满足条件1时,在90/100+HGW和90/100+HGW之间画柱状线
当满足条件1时,在10/100+HGW和10/100+HGW之间画柱状线
当满足条件1时,在100/100+HGW和100/100+HGW之间画柱状线
当满足条件1时,在50/100+HGW和50/100+HGW之间画柱状线
当满足条件1时,在0/100+HGW和0/100+HGW之间画柱状线
RSV赋值:(收盘价-9日内最低价最低值)/(9日内最高价最高值-9日内最低价最低值)*100+50/100
RSV的3日[1日权重]移动平均
K的3日[1日权重]移动平均
J赋值:3*K-2*D
KK赋值:HGW+K/100
DD赋值:HGW+D/100
JJ赋值:HGW+J/100
EE赋值:50/100+HGW
DRAWBAND(KK,RGB(200,0,150),EE,RGB(0,170,120))
DRAWBAND(JJ,RGB(220,0,0),KK,RGB(120,120,170))
公式平台赋值:100-(34日内最高价最高值-收盘价)/(34日内最高价最高值-34日内最低价最低值)*100
指标营地赋值:IF(公式平台>95,(100/100+HGW)-(100/100+HGW)*0.009,100/100+HGW),COLOR00FFFF,LINETHICK0
DRAWBAND(100/100+HGW,RGB(220,220,0),指标营地,RGB(0,0,0))
WLDB:=IF(公式平台< 5,(0/100+HGW)+(0/100+HGW)*0.009,0/100+HGW),COLORFFFF00,LINETHICK1
DRAWBAND(WLDB,RGB(0,220,220),0/100+HGW,RGB(0,0,0))
{威廉波段主图源码如下}HGW:=DYNAINFO(3)*1,COLOR0000FF
RSV赋值:(收盘价-9日内最低价最低值)/(9日内最高价最高值-9日内最低价最低值)*100+50/100
RSV的3日[1日权重]移动平均
K的3日[1日权重]移动平均
J赋值:3*K-2*D
KK赋值:HGW+K/100
DD赋值:HGW+D/100
JJ赋值:HGW+J/100
EE赋值:50/100+HGW
AAA赋值:JJ>=KK AND KK>=EE
BBB赋值:JJ>=KK AND KK< EE
DDD赋值:JJ< KK AND KK>=EE
EEE赋值:JJ< KK AND KK< EE
当满足条件AAA时,在H和L之间画柱状线
当满足条件BBB时,在H和L之间画柱状线
当满足条件DDD时,在H和L之间画柱状线
当满足条件EEE时,在H和L之间画柱状线
当满足条件AAA时,在收盘价和开盘价之间画柱状线
当满足条件AAA时,在收盘价和开盘价之间画柱状线
当满足条件AAA时,在收盘价和开盘价之间画柱状线
当满足条件AAA时,在收盘价和开盘价之间画柱状线
当满足条件BBB时,在收盘价和开盘价之间画柱状线
当满足条件BBB时,在收盘价和开盘价之间画柱状线
当满足条件BBB时,在收盘价和开盘价之间画柱状线
当满足条件BBB时,在收盘价和开盘价之间画柱状线
当满足条件DDD时,在C和O之间画柱状线
当满足条件DDD时,在C和O之间画柱状线
当满足条件DDD时,在C和O之间画柱状线
当满足条件DDD时,在C和O之间画柱状线
当满足条件EEE时,在C和O之间画柱状线
当满足条件EEE时,在C和O之间画柱状线
当满足条件EEE时,在C和O之间画柱状线
当满足条件EEE时,在C和O之间画柱状线
LC赋值:1日前的收盘价
RSI1赋值:SMA(收盘价-LC和0较大值,3,1)/SMA(收盘价-LC的绝对值,3,1)*100
SELL2赋值:(88上穿RSI1)
当满足条件SELL2时,在最高价*1.02和'←卖'位置书写文字
ACB1赋值:C-1日前的C
ACB2赋值:100*ACB1的6日指数移动平均,6)/EMA(EMA(ACB1的绝对值,6),6)
ACB3赋值:IF(2日内ACB2最低值=7日内ACB2最低值 AND 统计2日满足ACB2< 0的天数 AND CROSS(ACB2,ACB2的2日简单移动平均),1,0)
ACB4赋值:ACB3=1的5过滤
红色赋值:BARSLASTCOUNT(AAA)=1
当满足条件红色时,在最低价*0.998和'←买'位置书写文字
当满足条件红色时,在L和9之间画图标
当满足条件1时,在横轴0纵轴0位置书写文字
威廉波段赋值:100-(34日内最高价最高值-收盘价)/(34日内最高价最高值-34日内最低价最低值)*100
威廉风险赋值:IF(威廉波段>95,(100/100+HGW)-(100/100+HGW)*0.009,100/100+HGW),COLOR00FFFF,LINETHICK0
WLDB:=IF(威廉波段< 5,(0/100+HGW)+(0/100+HGW)*0.009,0/100+HGW),COLORFFFF00,LINETHICK1
输出ZGB:成交量*100/HSCOL.HSCOL,NODRAW
DRAWTEXT(ZGB-1日前的ZGB>50,H,'解禁日')COLORGREEN
输出生命线:C的30日简单移动平均LINETHICK1,画白色
输出牛熊线:C的60日简单移动平均LINETHICK1,COLORRED
输出黄金线:(C的18日指数移动平均),POINTDOT,LINETHICK5,画黄色
输出神奇线:C的43日简单移动平均DOTLINE,LINETHICK1,COLORGREEN
_10日涨跌%赋值:(C-10日前的收盘价)/10日前的收盘价*100,COLORGREEN,NODRAW
输出涨家数:INDEXADV,COLOR0080FF,NODRAW
输出跌家数:INDEXDEC,COLORGREEN,NODRAW
输出涨停:C+0.05>=(ROUND(1日前的C*(100+10*(2-NAMELIKE('ST'))/2))/100),COLOR0080FF,NODRAW
输出跌停:C-0.05<=(ROUND(1日前的C*(100-10*(2-NAMELIKE('ST'))/2))/100),COLORGREEN,NODRAW
TOTAL赋值:IF(PERIOD=1,5,IF(PERIOD=2,15,IF(PERIOD=3,30,IF(PERIOD=4,60,IF(PERIOD=5,240,1)))))
MTIME赋值:MOD(FROM开盘价,TOTAL)
如果MTIME< 0.5返回TOTAL否则返回MTIME
如果 到最后交易的周期=1返回成交量*TOTAL/CTIME否则返回V
N9赋值:120
A100赋值:CONST(N9日内H最高值-N9日内L最低值)/CONST(N9日内VV最高值)
B100赋值:CONST(N9日内L最低值)-CONST(N9日内VV最高值)*A100/8
天数赋值:10
STICKLINE( 到最后交易的周期=1 && (SETCODE=0 || SETCODE=1),B100+VV*A100/8,B100,-1,-1),COLOR00C0C0
当满足条件C>=O AND 到最后交易的周期<=天数时,在B100+VV*A100/8和B100之间画柱状线
当满足条件C< O AND 到最后交易的周期<=天数时,在B100+VV*A100/8和B100之间画柱状线
Z1赋值:STRCAT(HYBLOCK,' ')
Z2赋值:STRCAT(Z1,FGBLOCK)
Z3赋值:STRCAT(Z2,DYBLOCK)
Z4赋值:STRCAT(Z3,' ')
DRAWTEXT_FIX(ISLASTBAR,0.00,0.99,0,STRCAT(Z4,GNBLOCK)),画黄色
A1000:=1日前的C
涨停A:=IF((C-A1000)*100/A1000>=(10-0.01*100/A1000),1,0)
跌停A:=IF((A1000-C)*100/A1000>=(10-0.01*100/A1000),1,0)
涨停次数:=COUNT(涨停A,BARSSINCE(涨停A)+1)
跌停次数:=COUNT(跌停A,BARSSINCE(跌停A)+1)
DRAWNUMBER(涨停A,最高价*1.04,涨停次数),画黄色
DRAWNUMBER(跌停A,最高价*1.04,跌停次数),画青色
当满足条件 到最后交易的周期=1时,在横轴0.62纵轴0.95位置书写数字
当满足条件 到最后交易的周期=1时,在横轴0.72纵轴0.95位置书写数字
当满足条件 到最后交易的周期=1时,在横轴0.55纵轴0.95位置书写文字
当满足条件 到最后交易的周期=1时,在横轴0.65纵轴0.95位置书写文字
涨停K线:=IF((C-A1000)*100/A1000>=(10-0.01*100/A1000),1,0)
跌停K线:=IF((A1000-C)*100/A1000>=(10-0.01*100/A1000),1,0)