ZigZag指标，即之字转向指标，不是一个主流指标，叠加在超级图表上，勾画出交易商品趋势的大致轮廓。ZigZag连续的折线，可以辅助我们判断出交易商品的多空趋势，当然再加上自己画的阻力支撑位，可能更完美一些。这个指标的算法怎么说呢，很麻烦，我查了一下，看得我也头疼。简略来说吧，分三步：
1、求波峰；
2、求波谷；
3、对波峰波谷的处理判断，从而进行判断画线。
大概就这三步，具体算法，感兴趣的自己百度去看了，这一大段的，我复制过来，解释也挺费劲的。我直接一步步解读代码好了。
先看第一个如何求转折函数Pivot，代码如下：
Params
NumericSeries Price(1);//声明数值序列参数Price，初值为1.//
Numeric Length(10); //声明数值参数Length，初值为10，即周期。//
Numeric LeftStrength(1); // 声明数值参数LeftStrength，初值为1.//
Numeric RightStrength(1); //声明数值参数RightStrength，初值为1.//
Numeric Instance(1); //声明数值参数Instance，初值为1.//
Numeric HiLo(1); //声明数值参数HiLo，初值为1.//
NumericRef PivotPrice; //声明数值引用参数PivotPrice，这个新出现的NumericRef，引用参数的意思，具体吗，就是这个引用参数返回值根据你代码表达是可以多个数值的，待会看例子吧。//
NumericRef PivotBar; //声明数值引用参数PivotBar。//
Vars
Numeric CandidatePrice( 0 );//声明数值变量CandidatePrice，初值为0.//
Numeric LengthCntr( 0 ); //声明数值变量LengthCntr，初值为0.//
Numeric StrengthCntr( 0 ); //声明数值变量StrengthCntr，初值为0.//
Numeric InstanceCntr( 0 ); //声明数值变量InstanceCntr，初值为0.//
Bool PivotTest( False); //声明布尔型变量PivotTest，初值为假。//
Bool InstanceTest( False ) ;//声明布尔型变量InstanceTest，初值为假。//
Begin
InstanceCntr = 0 ; //变量InstanceCntr，赋值为0.//
InstanceTest = False ; //布尔型变量InstanceTest，初始判断为假。//
LengthCntr = RightStrength ; //变量LengthCntr 等于变量RightStrength了。//
While (LengthCntr < Length && (!InstanceTest ))//循环语句，当变量LengthCntr（初值0）小于参数Length（初值10）时，并且InstanceTest为真。!InstanceTest这个连着感叹号意思是非假，即为真了。//
{
CandidatePrice = Price[LengthCntr] ;//价格Price随变量LengthCntr值索引回到相应k线数位，把相应price值赋值给变量CandidatePrice。//
PivotTest = True ; //布尔型PivotTest，判断为真了。//
StrengthCntr = LengthCntr + 1 ; //变量StrengthCntr值 = 变量LengthCntr值 + 1.//
While (PivotTest && StrengthCntr - LengthCntr <= LeftStrength )//嵌套循环，当布尔型变量PivotTest为真，并且（把相应具体初始值代进公式吧）1-0 <= 1，这判断是真的，继续执行下列代码。//
{
If (( HiLo == 1 And CandidatePrice < Price[StrengthCntr] ) or ( HiLo == -1 And CandidatePrice > Price[StrengthCntr] )) //假如里边有两括号，分开来看，第一个，参数HiLo等于1，并且变量CandidatePrice值（初值为0）小于Price[1]，这里的StrengthCntr，根据上面公式算得值为1了。第二个括号，参数HiLo等于-1，并且变量CandidatePrice值大于Price[1]的。这两括号用逻辑判断or来连接，意思是这两括号只要有一个是正确的，就可以继续执行下列代码。//
PivotTest = False; //执行的是布尔型变量PivotTest为假了。//
Else // 就是两括号都是假的时候，执行下列语句。//
StrengthCntr = StrengthCntr + 1 ; //变量StrengthCntr自加1了。//
}
StrengthCntr = LengthCntr - 1 ;//变量StrengthCntr值 = 参数LengthCntr - 1了。//
While (PivotTest && (LengthCntr - StrengthCntr) <= RightStrength ) //也是嵌套循环的，当布尔型变量PivotTest为真，（把初值都代进公式了）并且（0-1）<= 1.可以看出这是真的。//
{
If (( HiLo == 1 And CandidatePrice <= Price[StrengthCntr] ) or ( HiLo == -1 And CandidatePrice >= Price[StrengthCntr] )) //解读同上面的一样了。//
PivotTest = False; // 布尔型PivotTest变为假了。//
Else//还是意思假如条件都不满足两括号的条件。//
StrengthCntr = StrengthCntr - 1 ;//执行变量StrengthCntr自减1.//
}
If (PivotTest) //假如布尔型PivotTest为真的。//
InstanceCntr = InstanceCntr + 1 ; //变量InstanceCntr自加1了。//
If (InstanceCntr == Instance) //假如变量InstanceCntr等于参数Instance（初值为1.）//
InstanceTest = True; // 布尔型变量InstanceTest为真了。//
Else //变量InstanceCntr不等于参数Instance的情况。//
LengthCntr = LengthCntr + 1 ; //变量LengthCntr自加1了。//
}
If (InstanceTest ) //假如布尔型InstanceTest为真。//
{
PivotPrice = CandidatePrice ; //引用参数PivotPrice = 变量CandidatePrice值。这个CandidatePrice值是根据这个代码CandidatePrice = Price[LengthCntr]求得的了。//
PivotBar = LengthCntr ;//引用参数PivotBar = 变量LengthCntr值了。//
Return True;//把这两值返回给主函数了。//
}Else//布尔型InstanceTest假的情况。//
{
PivotPrice = -1 ;//引用参数PivotPrice = -1.//
PivotBar = -1 ; //引用参数PivotBar = -1.//
Return False; //返回的两值是假的。//
}
End
看着这么一堆代码下来，有的人可能觉得头晕了，但这一步步把初值代入公式，计算得了一个，你就发现，其实也就那样，第二个循环也是继续代值进去求就得了。
我们再看这求波峰函数SwingHigh，代码如下：
Params
Numeric Instance(1);
NumericSeries Price(1);
Numeric Strength(1);
Numeric Length(10);
Vars
Numeric PivotPrice;
Numeric PivotBar;
Begin
Pivot(Price,Length,Strength,Strength,Instance,1,PivotPrice,PivotBar);//看到了吧，我们在求转折的时候，定义了8个参数，这边调用Pivot时，也得用相应8个数值返回去求值，再反馈回来PivotPrice值与PivotBar值。//
Return PivotPrice;//这边只把PivotPrice值返回给主函数就行。//
End
接下来就是求波谷函数SwingLow了，代码跟波峰差不多，如下：
Params
Numeric Instance(1);
NumericSeries Price(1);
Numeric Strength(1);
Numeric Length(10);
Vars
Numeric PivotPrice;
Numeric PivotBar;
Begin
Pivot(Price,Length,Strength,Strength,Instance,-1,PivotPrice,PivotBar);//数数也是8个参数吧，这里改的是-1，至于这1跟-1返回对应的函数就是替代HoLi了。//
Return PivotPrice;//这边只把PivotPrice值返回给主函数就行。//
End
真正求ZigZag指标的代码，如下了：
Params
Numeric RetracePct(2);//声明参数RetracePct，初值为2.//
Vars
NumericSeries SwingPrice;//声明序列变量SwingPrice。//
Numeric SwingHighPrice;//声明变量SwingHighPrice。//
Numeric SwingLowPrice; //声明变量SwingLowPrice。//
NumericSeries PreBar(0); //声明序列变量PreBar，初值为0.//
NumericSeries UpDn(0);//声明序列变量UpDn，初值为0.//
Bool SaveSwing(False);//声明布尔型变量SaveSwing，初值为假。//
Bool NewTL(False); //声明布尔型变量NewTL，初值为假。//
Bool UpdateTL(False);//声明布尔型变量UpdateTL，初值为假。//
begin
If(CurrentBar == 0)//假如为第一根k线的。//
SwingPrice = Close;//变量SwingPrice = 收盘价。//
SwingHighPrice = SwingHigh( 1, Close, 1,2); //变量SwingHighPrice值就是把这四个参数值返回函数SwingHigh求波峰了。//
SwingLowPrice = SwingLow( 1, Close, 1, 2 );//同理的，SwingLowPrice值即为求波谷了。//
If (SwingHighPrice <> -1) //假如波峰值不等于-1.下列代码是处理波峰情况的。//
{
If(UpDn <=0 && SwingHighPrice >= SwingPrice * (1+RetracePct*0.01)) //假如变量UpDn小于等于0，并且波峰SwingHighPrice <= 变量SwingPrice * 固定系数（1+2*0.01）。//
{
UpDn = 1; //变量UpDn = 1.//
NewTL = True; //布尔型变量NewTL为真。//
SaveSwing = True;//布尔型SaveSwing为真。//
}
Else If(UpDn == 1 && SwingHighPrice >= SwingPrice) //假如变量UpDn等于1，并且波峰SwingHighPrice >= 变量SwingPrice值。//
{
UpdateTL = True;//布尔型变量UpdateTL为真。//
SaveSwing = True; //布尔型变量SaveSwing为真。//
}
If(SaveSwing)//假如布尔型SaveSwing为真。//
{
SwingPrice = SwingHighPrice;//变量SwingPrice = 波峰SwingHighPrice。//
PreBar = CurrentBar;//序列变量PreBar = 当前k线数位值。//
}
}
Else If(SwingLowPrice <> -1)//假如波谷SwingLowPrice不等于-1.下列代码是处理波谷情况的，跟波峰反过来。//
{
If(UpDn >=0 && SwingLowPrice <= SwingPrice * (1-RetracePct*0.01)) // 假如变量UpDn>= 0，并且波谷SwingLowPrice <= 变量SwingPrice * 系数（1-2*0.01）.//
{
UpDn = -1; //变量UpDn = -1.//
NewTL = True; //布尔型NewTL为真。//
SaveSwing = True; //布尔型SaveSwing为真。//
}
Else If(UpDn == -1 && SwingLowPrice <= SwingPrice)//假如变量UpDn等于-1，并且波谷SwingLowPrice <=变量SwingPrice值。//
{
UpdateTL = True;//布尔型UpdateTL 为真。//
SaveSwing = True;//布尔型SaveSwing为真。//
}
If(SaveSwing )//假如SaveSwing为真。//
{
SwingPrice = SwingLowPrice; //变量SwingPrice = 波谷SwingLowPrice值。//
PreBar = CurrentBar; // 序列变量PreBar = 当前K线索引值。//
}
}
If( NewTL)//假如布尔型NewTL为真。//
{
PlotNumeric("ZigZag",SwingPrice,0,-1,1); //画线ZigZag线，值为SwingPrice值了。至于后边的0，-1，1，分别对应着输出值的定位点，颜色，返回k线索引值。//
}
Else If(UpdateTL) //假如布尔型UpdateTL为真。//
{
If (UpDn == UpDn[1]) //假如当前变量UpDn等于前一个变量UpDn。//
{
Unplot("ZigZag",PreBar - PreBar[1]+1); //函数Unplot意思删除曾经输出的值，这里就是删除ZigZag值，其值为当前PreBar减去前一个PreBar值，再加上1.//
PlotNumeric("ZigZag",SwingPrice,0,-1,1);//重新画线ZigZag线。//
}
Else//除了上边当前变量UpDn等于前一个变量UpDn情况之外的，直接用下列代码处理。//
{
PlotNumeric("ZigZag",SwingPrice,0,-1,1);//直接画线ZigZag，值为变量SwingPrice值了。//
}
}
End
这四段代码没点耐心还真不好读下来，而且不仔细书写一下各个计算得到的值的意思，还容易让人迷糊，所以，我也暂时不再举例用它做成程序化的代码是如何写的了，明天看看再说吧。
