期货软件TB系统源代码解读系列48-WAD

威廉多空力度线(WAD)的操作原则与OBV指标相同，但比OBV指标更有意义，能提前指出股价破位。解释是这么解释，但还得自己去观察研究。还是看它的算法吧，如下：

1.TRL=昨日收盘价与今日最低价中价格最低者;TRH=昨日收盘价与今日最高价中价格最高者

2.如果今日的收盘价>昨日的收盘价，则今日的A/D=今日的收盘价-今日的TRL

3.如果今日的收盘价<昨日的收盘价，则今日的A/D=今日的收盘价-今日的TRH

4.如果今日的收盘价=昨日的收盘价，则今日的A/D=0

5.WAD=今日的A/D+昨日的WAD;MAWAD=WAD的M日简单移动平均

6.参数M设置为30

看了这个算法，我再看tb里的代码编写，发现少了移动平均，当然，这个补进去不难，我们先直接看它的源代码，解读如下了：

Vars

Numeric TRH;//声明数值变量TRH。//

Numeric TRL;//声明数值变量TRL。//

NumericSeries WADValue;//声明数值序列变量WADValue。//

NumericSeries ShowWAD;//声明数值序列变量ShowWAD。//

Begin

If(CurrentBar==0)//假如当前为第一根k线的。//

{

WADValue=0;//序列变量WADValue = 0.//

ShowWAD=InvalidNumeric;//序列变量ShowWAD返回数值型的无效值了。//

}Else//从第二根k线开始了。//

{

If(Close[1] > High)//假如前一k线收盘价大于当前最高价。//

{

TRH = Close[1];//变量TRH = 前一收盘价Close[1]。//

}Else//假如前一k线收盘价小于等于当前最高价。//

{

TRH = High;//变量TRH = 当前最高价。//

}

If(Close[1]<Low)//假如前一k线收盘价小于当前最低价。//

{

TRL = Close[1];//变量TRL = 前一k线收盘价。//

}Else//假如前一k线收盘价大于等于当前最低价。//

{

TRL = Low;//变量TRL =当前最低价。//

}

If(Close > Close[1])//假如当前收盘价大于前一k线收盘价。//

{

WADValue = Close – TRL;//序列变量WADValue = 当前收盘价close – 变量TRL值。//

}

If(Close < Close[1])//假如当前收盘价小于前一k线收盘价。//

{

WADValue = Close-TRH;//序列变量WADValue = 当前收盘价Close – 变量TRH值。//

}

If(Close == Close[1])//假如当前收盘价等于前一k线收盘价。//

{

WADValue = 0;//序列变量WADValue = 0.//

}

If(CurrentBar==1) //假如为第二根k线。//

{

ShowWAD=WADValue;//序列变量Show = 序列变量WADValue。//

}Else//第二根之后的k线，按照下边的计算了。//

{

ShowWAD=WADValue+ShowWAD[1];//代入相应值，累加起来了。//

}

}

PlotNumeric(“WAD”,ShowWAD);//画线WAD，值为序列变量ShowWAD值。//

End