这是一个很简单系统，TB系统里自带有的。我们直接先看它的买卖规则。
策略说明:
基于平移的高点和低点均线通道与K线中值突破进行判断
系统要素:
1. Range Leader是个当前K线的中点在之前K线的最高点上, 且当前K线的振幅大于之前K线的振幅的K线
2. 计算高点和低点的移动平均线
入场条件:
1、上根K线为RangeLead，并且上一根收盘价大于N周期前高点的MA，当前无多仓，则开多仓
2、上根K线为RangeLead，并且上一根收盘价小于N周期前低点的MA，当前无空仓，则开空仓
出场条件:
1. 开仓后，5个K线内用中轨止损，5个K线后用外轨止损
这简单的系统，你不能说它很好，也不能说它不好，就看你做交易的时候怎么把握了。代码解读如下：
Params
Numeric AvgLen(20); // 声明数值参数AvgLen，初值为20，即高低点均线计算周期//
Numeric AbsDisp(5); // 声明数值参数AvsDisp，初值为5，即高低点均线前移周期//
Numeric ExitBar(5); // 声明数值参数ExitBar，初值为5，即为止损周期参数，该周期以前中轨止损，以后外轨止损。//
Vars
NumericSeries UpperAvg(0); // 声明序列变量UpperAvg，初值0，即通道上轨//
NumericSeries LowerAvg(0); // 声明序列变量LowerAvg，初值0，即通道下轨//
NumericSeries ExitAvg(0); // 声明序列变量ExitAvg，初值0，即通道中轨//
BoolSeries RangeLeadB(False); // 声明序列布尔型变量RangeLeadB，初值为假//
NumericSeries MedianPrice; // 声明序列变量MedianPrice，即K线中价//
Numeric minpoint; // 声明序列变量minpoint，即最小变动价位。//
NumericSeries range; // 声明序列变量range，即为振幅。//
Begin
If(!CallAuctionFilter()) Return;// 集合竞价和小节休息过滤。//
// 指标计算。//
minpoint = Minmove*PriceScale; // 最小变动价位固定公式了。//
range = High - Low;//变量range = 高价 - 低价。//
UpperAvg = Average(High[AbsDisp], AvgLen); //把相应值返回函数Average求值了，即计算N周期前高点的均线了，N=参数AbsDisp值为5。//
LowerAvg = Average(Low[AbsDisp], AvgLen); // 把相应值返回函数Average求值了，计算N周期前低点的均线了，N=参数AbsDisp值为5.//
MedianPrice = (High + Low)*0.5; // 代入相应值，计算得变量MedianPrice值，即为计算K线中点。//
ExitAvg = Average(MedianPrice[AbsDisp], AvgLen); // 同样的，把相应值返回函数Average求值，即计算N周期前K线中点的均线了，N=参数AbsDisp值为5.//
RangeLeadB = MedianPrice > High[1] and Range > Range[1]; // 当K线中点大于前一根K线高点并且振幅 大于上一根振幅时，RangeLeadB为真。//
// 开仓买卖系统入场//
If(MarketPosition == 0)//没有持仓情况下。//
{
If(RangeLeadB[1] and Close[1] > UpperAvg[1]) // 假如上根K线RangeLeadB为真，并且上一根收盘价大于N周期前高点的均线，当前无多仓，则开多仓。//
{
Buy(0,Open);//以开盘价，开仓买入。//
}
}
// 平仓出场。//
If(MarketPosition == 1 and BarsSinceEntry > 0) // 持有多单，并且建仓位置的k线数位大于0.//
{
If(BarsSinceEntry <= ExitBar ) //开仓后N根K线内用中轨止损，N根K线后用上轨止损，N=参数ExitBar，其实就是建仓位置小于等于5.//
{
If(Low <= ExitAvg) //假如低价小于等于变量ExitAvg值，即中轨。//
{
Sell(0,Min(Open,ExitAvg));//取开盘价与中轨价的小值，平仓。//
}
}
Else If(BarsSinceEntry > ExitBar)//假如建仓位置位数大于5的。//
{
If(Low <= UpperAvg - minpoint) //假如低价小于等于上轨减去最小跳动价的。//
{
Sell(0,Min(Open,UpperAvg - minpoint));//平仓的。//
}
}
}
End
这只是做多的，开空的规则反过来就行，代码解读没有什么区别，直接附上做空代码及结果如下：
Params
Numeric AvgLen(20);
Numeric AbsDisp(5);
Numeric ExitBar(5);
Vars
NumericSeries UpperAvg(0);
NumericSeries LowerAvg(0);
NumericSeries ExitAvg(0);
BoolSeries RangeLeadS(False);
NumericSeries MedianPrice;
Numeric minpoint;
NumericSeries range;
Begin
If(!CallAuctionFilter()) Return;
minpoint = Minmove*PriceScale;
range = High - Low;
UpperAvg = Average(High[AbsDisp], AvgLen);
LowerAvg = Average(Low[AbsDisp], AvgLen);
MedianPrice = (High + Low)*0.5;
ExitAvg = Average(MedianPrice[AbsDisp], AvgLen);
RangeLeadS = MedianPrice < Low[1] and Range > Range[1];
If(MarketPosition == 0)
{
If(RangeLeadS[1] and Close[1] < LowerAvg[1])
{
Sellshort(0,Open);
}
}
If(MarketPosition == -1 and BarsSinceEntry > 0)
{
If(BarsSinceEntry <= ExitBar)
{
If(High >= ExitAvg)
{
Buytocover(0,Max(Open,ExitAvg));
}
}
Else If(BarsSinceEntry > ExitBar)
{
If(High >= LowerAvg + minpoint)
{
Buytocover(0,Max(Open,LowerAvg + minpoint));
}
}
}
End
要做成一个完整的系统其实很简单的，就是把上面来合起来就可以了，这应该不需要我再写了吧。这代码是没有画线的，要是觉得看着空空的k线图不理解，可以添加下列这么一小段画线代码，很方便看进场买卖的价位的，如下：
PlotNumeric("lineu",UpperAvg);
PlotNumeric("lineM",ExitAvg);
PlotNumeric("lingd",LowerAvg);
画出来跟布林带有点像，但又不一样的，有兴趣的自己观测看了。完整买卖系统我就不写了，但它们的结果我可以附上，如下：
