欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件公式模型编写问题提交 → [求助]请高手帮忙实现当今最先进的止损算法ATR荆棘轮

   

欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。    


  共有9103人关注过本帖平板打印复制链接

主题:[求助]请高手帮忙实现当今最先进的止损算法ATR荆棘轮

帅哥哟,离线,有人找我吗?
sdcgj209
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:65 积分:542 威望:0 精华:0 注册:2010/6/13 15:20:29
z7c9你看这是你要的吗?不过这是TB源码  发帖心情 Post By:2010/10/28 16:50:21    Post IP:218.56.38.45[只看该作者]

  • Params
  •         Numeric length(20);
  •         Numeric atrSet(3);
  • Vars
  •         NumericSeries AvgValue;
  •         Numeric ATRValue;
  •         NumericSeries MyTrend(0);
  •         NumericSeries MyHigher;
  •         NumericSeries MyLower;
  • Begin
  •         If(BarStatus == 0)
  •         {
  •                 MyTrend = 0;
  •                 MyHigher = InvalidNumeric;
  •                 MyLower = InvalidNumeric;
  •         }Else
  •         {
  •                 MyTrend = MyTrend[1];
  •                 If(MyHigher!=InvalidNumeric)
  •                         MyHigher = max(high,MyHigher[1]);       
  •                 If(MyLower!=InvalidNumeric)
  •                         MyLower = min(Low,MyLower[1]);       
  •         }

  •         AvgValue = AverageFC(Close,Length);
  •         ATRValue = AvgTrueRange(Length);
  •         If(CrossOver(Close,AvgValue))
  •         {
  •                 MyTrend = 1;
  •                 MyHigher = High;
  •                 MyLower         = InvalidNumeric;
  •         }
  •        
  •         If(CrossUnder(Close,AvgValue))
  •         {
  •                 MyTrend = -1;
  •                 MyHigher = InvalidNumeric;
  •                 MyLower = Low;
  •         }

  •         If(MyTrend==1)
  •         {
  •                 PlotNumeric("StopLong",MyHigher-atrSet*ATRValue);
  •         }Else If(MyTrend==-1)
  •         {
  •                 PlotNumeric("StopShort",MyLower+atrSet*ATRValue);
  •         }
  • End

  •  回到顶部