您现在的位置：程序化交易>> 期货公式>> 交易开拓者(TB)>> 开拓者知识>>正文内容

开拓者两个波峰和波谷的程序源码　[开拓者 TB]

作者：开拓者 TB 来源：cxh99.com 发布时间：2012年09月20日 点击数： 　【收藏到本网的会员中心】
  • 咨询内容： 我编了一段求前两个波峰和波谷的程序（可在交易指令下测试），
    但效果还不满意，希望能得到高手的改进，谢谢！
    1. Params

    2.         Numeric MyMinLength(5);

    3.         // GV10 最近波峰与当前Bar的Bar计数

    4.         // GV11 最近波峰的值

    5.         // GV12 最近波谷与当前Bar的Bar计数

    6.         // GV13 最近波谷的值

    7.         // GV14 前一个波峰与当前Bar的Bar计数

    8.         // GV15 前一个波峰的值

    9.         // GV16 前一个波谷与当前Bar的Bar计数

    10.         // GV17 前一个波谷的值

    11.        

    12. Vars

    13.         Numeric MyLength;

    14.         Numeric MyHighBar;

    15.         Numeric MyHigh;

    16.         Numeric MyLow;

    17.         Numeric MyLowBar;

    18. Begin

    19.  

    20.         If (BarStatus==0)

    21.         {        SetGlobalVar(10,0); SetGlobalVar(11,High); //最近波峰Bar，High

    22.                 SetGlobalVar(12,0); SetGlobalVar(13,Low);  //最近波谷Bar，Low

    23.                 SetGlobalVar(14,0); SetGlobalVar(15,High);

    24.                 SetGlobalVar(16,0); SetGlobalVar(17,Low);

    25.         }

    26.        

    27.         MyLength = GetGlobalVar(12)+1;//取上一波谷到当前Bar的个数

    28.         MyLength = IIF(MyLength<=MyMinLength,MyMinLength+1,MyLength);//至少保持最小的波峰距离为5个Bar

    29.         MyHighBar = HighestBar(High,MyLength);

    30.         MyHigh = Highest(High,MyLength);

    31.        

    32.         If (GetGlobalVar(10)+1-MyHighBar>=MyMinLength or MyHigh>GetGlobalVar(11))

    33.         {        If (GetGlobalVar(10)+1-MyHighBar>=MyMinLength)

    34.                 {        SetGlobalVar(14,GetGlobalVar(10)); //保留前一个波峰

    35.                         SetGlobalVar(15,GetGlobalVar(11));

    36.                 }

    37.                 SetGlobalVar(10,MyHighBar);//从上个低谷开始的最高价所在的Bar序数

    38.                 SetGlobalVar(11,MyHigh);   //从上个低谷开始的最高价

    39.         } Else SetGlobalVar(10,GetGlobalVar(10)+1);

    40.  

    41.         MyLength = GetGlobalVar(10)+1;//取上一波峰到当前Bar的个数

    42.         MyLength = IIF(MyLength<MyMinLength,MyMinLength+1,MyLength);

    43.         MyLowBar = LowestBar(Low,MyLength);

    44.         MyLow = Lowest(Low,MyLength);

    45.         If (GetGlobalVar(12)+1-MyLowBar>=MyMinLength or MyLow<GetGlobalVar(13))

    46.         {        If (GetGlobalVar(12)+1-MyLowBar>=MyMinLength)

    47.                 {        SetGlobalVar(16,GetGlobalVar(12)); //保留前一个波谷

    48.                         SetGlobalVar(17,GetGlobalVar(13));

    49.                 }

    50.                 SetGlobalVar(12,MyLowBar);//从上个波峰开始的最低价所在的Bar序数

    51.                 SetGlobalVar(13,MyLow);//从上个波峰开始的最低价

    52.         } Else SetGlobalVar(12,GetGlobalVar(12)+1);

    53.  

    54.         //验证显示

    55.         Commentary("CurrBar "+Text(CurrentBar));

    56.         Commentary("HighestNear "+Text(GetGlobalVar(11))+" Bar "+Text(GetGlobalVar(10)));

    57.         Commentary("LowestNear  "+Text(GetGlobalVar(13))+" Bar "+Text(GetGlobalVar(12)));

    58.         Commentary("HighestFar  "+Text(GetGlobalVar(15))+" Bar "+Text(GetGlobalVar(14)));

    59.         Commentary("LowestFar   "+Text(GetGlobalVar(17))+" Bar "+Text(GetGlobalVar(16)));

    60.        

    61. End

     

  • TB技术人员： 请教为什么在实时（BarStatus==2）时，最后一个Bar的计算值的不对的，请高手帮助。谢谢！

     

  • TB客服： 最后一个bar的high和low不断在变化,所以有可能不对的

     

  • 网友回复： 本帖最后由 efrog 于 2010-9-8 20:45 编辑

    谢谢，问题就出在这里。增加了BarStatus==1的限制，让最后一个Bar不参与计算，问题就解决了。
    实际上最后Bar的High与Low要参与波峰、波谷的比较，在比较之前还不能直接修正目前的波峰、波谷。
    修正的程序如下：
    1. Params

    2.         Numeric MyMinLength(5);

    3.         // GV10 最近波峰与当前Bar的Bar计数

    4.         // GV11 最近波峰的值

    5.         // GV12 最近波谷与当前Bar的Bar计数

    6.         // GV13 最近波谷的值

    7.         // GV14 前一个波峰与当前Bar的Bar计数

    8.         // GV15 前一个波峰的值

    9.         // GV16 前一个波谷与当前Bar的Bar计数

    10.         // GV17 前一个波谷的值

    11. Vars

    12.         Numeric MyLength;

    13.         Numeric MyHighBar;

    14.         Numeric MyHigh;

    15.         Numeric MyLow;

    16.         Numeric MyLowBar;

    17. Begin

    18.         If (BarStatus==0)

    19.         {        SetGlobalVar(10,0); SetGlobalVar(11,High); //最近波峰Bar，High

    20.                 SetGlobalVar(12,0); SetGlobalVar(13,Low);  //最近波谷Bar，Low

    21.                 SetGlobalVar(14,0); SetGlobalVar(15,High);

    22.                 SetGlobalVar(16,0); SetGlobalVar(17,Low);

    23.         }

    24.        

    25.         If (BarStatus==1)

    26.         {        MyLength = GetGlobalVar(12)+1;//取上一波谷到当前Bar的个数

    27.                 MyLength = IIF(MyLength<=MyMinLength,MyMinLength+1,MyLength);//至少保持最小的波峰距离为5个Bar

    28.                 MyHighBar = HighestBar(High,MyLength);

    29.                 MyHigh = Highest(High,MyLength);

    30.        

    31.                 If (GetGlobalVar(10)+1-MyHighBar>=MyMinLength or MyHigh>GetGlobalVar(11))

    32.                 {        If (GetGlobalVar(10)+1-MyHighBar>=MyMinLength)

    33.                         {        SetGlobalVar(14,GetGlobalVar(10)); //保留前一个波峰

    34.                                 SetGlobalVar(15,GetGlobalVar(11));

    35.                         }

    36.                         SetGlobalVar(10,MyHighBar+1);//从上个低谷开始的最高价所在的Bar序数

    37.                         SetGlobalVar(11,MyHigh);   //从上个低谷开始的最高价

    38.                 } Else SetGlobalVar(10,GetGlobalVar(10)+1);

    39.  

    40.                 MyLength = GetGlobalVar(10)+1;//取上一波峰到当前Bar的个数

    41.                 MyLength = IIF(MyLength<MyMinLength,MyMinLength+1,MyLength);

    42.                 MyLowBar = LowestBar(Low,MyLength);

    43.                 MyLow = Lowest(Low,MyLength);

    44.                 If (GetGlobalVar(12)+1-MyLowBar>=MyMinLength or MyLow<GetGlobalVar(13))

    45.                 {        If (GetGlobalVar(12)+1-MyLowBar>=MyMinLength)

    46.                         {        SetGlobalVar(16,GetGlobalVar(12)); //保留前一个波谷

    47.                                 SetGlobalVar(17,GetGlobalVar(13));

    48.                         }

    49.                         SetGlobalVar(12,MyLowBar+1);//从上个波峰开始的最低价所在的Bar序数

    50.                         SetGlobalVar(13,MyLow);//从上个波峰开始的最低价

    51.                 } Else SetGlobalVar(12,GetGlobalVar(12)+1);

    52.         }

    53.         //验证显示

    54.         Commentary("CurrBar "+Text(CurrentBar));

    55.         Commentary("HighestNear "+Text(GetGlobalVar(11))+" Bar "+Text(GetGlobalVar(10)));

    56.         Commentary("LowestNear  "+Text(GetGlobalVar(13))+" Bar "+Text(GetGlobalVar(12)));

    57.         Commentary("HighestFar  "+Text(GetGlobalVar(15))+" Bar "+Text(GetGlobalVar(14)));

    58.         Commentary("LowestFar   "+Text(GetGlobalVar(17))+" Bar "+Text(GetGlobalVar(16)));

    59. End
    复制代码

     

  • 网友回复：目前还有二个问题：
     （1）HighestFar、LowestFar的Bar计算有问题
  •  （2）由于使用了Highest和Lowest用户函数，当最远的Bar前有更高或更低值时，这两个函数找到的并不是波峰和波谷。 

 

有思路，想编写各种指标公式，程序化交易模型，选股公式，预警公式的朋友

可联系技术人员 QQ: 262069696  点击在线交流进行 有偿 编写！（不贵！点击查看价格！）


【字体：小 大】【打印文章】【查看评论】

相关文章

栏目导航

 本月热门排行

 用户常看内容