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


金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 公式模型编写问题提交 → 想写一个ATR止损，但怎么改也不行，求教。

   

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

  共有3236人关注过本帖树形打印复制链接

主题：想写一个ATR止损，但怎么改也不行，求教。
帅哥哟，离线，有人找我吗？
zengxing
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：505 积分：0 威望：0 精华：0 注册：2014/10/15 13:12:08 		想写一个ATR止损，但怎么改也不行，求教。  发帖心情 Post By：2014/10/15 13:13:40    Post IP：211.100.46.204[只看该作者]

为什么总运行 IF c>0 and f=0 THEN BEGIN  这个，有什么办法？
正常一些
VARIABLE:f=0;
Coeficient:=2;
ll:=REF(l,1);
hh:=REF(h,1);

TR1 := HIGH-LOW;
atrr := MA(TR1,20);
rez:= Coeficient * REF(atrr,1);
IF c>0 and f=0 THEN BEGIN
       dn: h + rez;
mode1:-1;
f=f+1;
END

If mode1 =  -1 and  ll > dn THEN BEGIN
up : ll  - rez;
mode1 = 1;
END
If mode1 = 1 and hh < up  THEN BEGIN
dn = hh  + rez;
mode1 = -1;
END
If ll >= up + rez and mode1 =  1  THEN BEGIN
up = ll - rez;
dn =  null;
END

If ll <up + rez and mode1 =  1  THEN BEGIN
up = up;
dn = null;  
END

If  hh < dn - rez and mode1 = -1  THEN BEGIN
 
dn =  hh   + rez;
up =  null;
end

If  hh  >= dn - rez  and  mode1 = -1 THEN BEGIN
dn = dn;
up =  null;

end

[此贴子已经被作者于2014/10/15 13:14:31编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
jinzhe
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：罗宾汉 帖子：46311 积分：50819 威望：0 精华：2 注册：2011/3/23 8:50:25 		  发帖心情 Post By：2014/10/15 13:26:51    Post IP：58.246.57.26[只看该作者]

1.   

 dn: h + rez;
   mode1:-1;
   f=f+1;

 

类似这样的都改成

        dn: =h + rez;
   mode1:=-1;
   f:=f+1;

少等号的就加等号，少分号的就加分号

 

2. 

null改成drawnull

[此贴子已经被作者于2014/10/15 13:27:03编辑过]

金字塔—专业程序化交易量化投资平台

客户服务部

----------------------------------------------------------- 欢迎您参加我公司的技术培训，具体培训需求请发邮件到service@weistock.com

您的宝贵建议或者投诉，请发往邮箱:weiwei@weistock.com
 回到顶部
帅哥哟，离线，有人找我吗？
zengxing
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：505 积分：0 威望：0 精华：0 注册：2014/10/15 13:12:08 		  发帖心情 Post By：2014/10/15 13:42:56    Post IP：211.100.46.204[只看该作者]

您好，谢谢您的回复。但我还是不懂呀。
我想看K线图上出现up dn这两条线。 但是现在什么也没有。已经根据您建议修改了。全体源码如下，还有哪里不对吗？模型是逐K模型

VARIABLE:f=0;
Coeficient:=2;
ll:=REF(l,1);
hh:=REF(h,1);

TR1 := HIGH-LOW;
atrr := MA(TR1,20);
rez:= Coeficient * REF(atrr,1);
IF c>0 and f=0 THEN BEGIN
  dn: h + rez;
   mode1:=-1;
   f:=f+1;
END
If mode1 =  -1 and  ll > dn THEN BEGIN
up : ll  - rez;
mode1 = 1;
END
If mode1 = 1 and hh < up  THEN BEGIN
dn = hh  + rez;
mode1 = -1;
END
If ll >= up + rez and mode1 =  1  THEN BEGIN
up = ll - rez;
dn =  drawnull;
END

 
If ll <up + rez and mode1 =  1  THEN BEGIN
up = up;
dn = drawnull;  
END
If  hh < dn - rez and mode1 = -1  THEN BEGIN
 
dn =  hh   + rez;
up =  drawnull;
end
If  hh  >= dn - rez  and  mode1 = -1 THEN BEGIN
dn = dn;
up =  drawnull;

end


 回到顶部
帅哥哟，离线，有人找我吗？
jinzhe
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：罗宾汉 帖子：46311 积分：50819 威望：0 精华：2 注册：2011/3/23 8:50:25 		  发帖心情 Post By：2014/10/15 14:08:13    Post IP：58.246.57.26[只看该作者]

你这个不是没有改？我的意思你全部改掉，而不是就改我给你的例子


金字塔—专业程序化交易量化投资平台

客户服务部

----------------------------------------------------------- 欢迎您参加我公司的技术培训，具体培训需求请发邮件到service@weistock.com

您的宝贵建议或者投诉，请发往邮箱:weiwei@weistock.com
 回到顶部
帅哥哟，离线，有人找我吗？
zengxing
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：505 积分：0 威望：0 精华：0 注册：2014/10/15 13:12:08 		  发帖心情 Post By：2014/10/15 14:34:14    Post IP：211.100.46.204[只看该作者]

这个思路哪里有错误？我在TB上用这个思路写了，可以实现，想转到金字塔上。想问一下您。

如果想改，要改哪里？
 回到顶部
帅哥哟，离线，有人找我吗？
jinzhe
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：罗宾汉 帖子：46311 积分：50819 威望：0 精华：2 注册：2011/3/23 8:50:25 		  发帖心情 Post By：2014/10/15 14:42:53    Post IP：58.246.57.26[只看该作者]

所有的BEGIN

。。。。。。

END

中间全部都改一遍

金字塔—专业程序化交易量化投资平台

客户服务部

----------------------------------------------------------- 欢迎您参加我公司的技术培训，具体培训需求请发邮件到service@weistock.com

您的宝贵建议或者投诉，请发往邮箱:weiwei@weistock.com
 回到顶部
帅哥哟，离线，有人找我吗？
zengxing
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：505 积分：0 威望：0 精华：0 注册：2014/10/15 13:12:08 		  发帖心情 Post By：2014/10/15 14:50:12    Post IP：211.100.46.204[只看该作者]

您好，已经按照您说的，都加了“：=”

 回到顶部
帅哥哟，离线，有人找我吗？
zengxing
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：505 积分：0 威望：0 精华：0 注册：2014/10/15 13:12:08 		  发帖心情 Post By：2014/10/15 14:51:01    Post IP：211.100.46.204[只看该作者]

您好，已经都加了，但还是没有任何显示，我想在图上显示up和dn


VARIABLE:f=0;
Coeficient:=2;
ll:=REF(l,1);
hh:=REF(h,1);

TR1 := HIGH-LOW;
atrr := MA(TR1,20);
rez:= Coeficient * REF(atrr,1);
IF c>0 and f=0 THEN BEGIN
  dn:=h + rez;
   mode1:=-1;
   f:=f+1;
END
If mode1 =  -1 and  ll > dn THEN BEGIN
up :=ll  - rez;
mode1 = 1;
END
If mode1 = 1 and hh < up  THEN BEGIN
dn:= hh  + rez;
mode1:= -1;
END
If ll >= up + rez and mode1 =  1  THEN BEGIN
up:=ll - rez;
dn:= drawnull;
END

 
If ll <up + rez and mode1 =  1  THEN BEGIN
up:= up;
dn:= drawnull;  
END
If  hh < dn - rez and mode1 = -1  THEN BEGIN
 
dn:= hh   + rez;
up:= drawnull;
end
If  hh  >= dn - rez  and  mode1 = -1 THEN BEGIN
dn:= dn;
up:=  drawnull;

end


 回到顶部
帅哥哟，离线，有人找我吗？
jinzhe
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：罗宾汉 帖子：46311 积分：50819 威望：0 精华：2 注册：2011/3/23 8:50:25 		  发帖心情 Post By：2014/10/15 15:03:13    Post IP：58.246.57.26[只看该作者]

你这个代码是什么思路？来来回回最终都赋值为空？


金字塔—专业程序化交易量化投资平台

客户服务部

----------------------------------------------------------- 欢迎您参加我公司的技术培训，具体培训需求请发邮件到service@weistock.com

您的宝贵建议或者投诉，请发往邮箱:weiwei@weistock.com
 回到顶部
帅哥哟，离线，有人找我吗？
zengxing
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：505 积分：0 威望：0 精华：0 注册：2014/10/15 13:12:08 		  发帖心情 Post By：2014/10/15 15:22:45    Post IP：223.223.200.228[只看该作者]

整个思路就是和跟踪止损类似，如果价格向有利方向变动，就变动，如果不利方向，碰到线了，就转变方向。我把图附上了，就是这个效果。下面的代码我都每行加了注释。


图片点击可在新窗口打开查看此主题相关图片如下：eeeeeeeeeeeee.png
图片点击可在新窗口打开查看

VARIABLE:f=0;
Coeficient:=2;
ll:=REF(l,1);
hh:=REF(h,1);

TR1 := HIGH-LOW;
atrr := MA(TR1,20);
rez:= Coeficient * REF(atrr,1);
IF c>0 and f=0 THEN BEGIN //这个循环只运行一次，就是要有一个开始的方向，开始的方向选的是空头方向
  dn:h + rez;
   mode1:=-1;
   f:=f+1;
END
If mode1 =  -1 and  ll > dn THEN BEGIN //如果现在是空头方向，上个K线的最低值大于了 dn
up :ll  - rez;                  
mode1:= 1;               //转为多头方向
END
If mode1 = 1 and hh < up  THEN BEGIN //如果现在是多头方向，上个K线的最高值小于了 up
dn:= hh  + rez;
mode1:= -1;                    //转为空头方向
END
If ll >= up + rez and mode1 =  1  THEN BEGIN //如果上个K线的最低值大于或者 up + rez 还是多头情况 
up:=ll - rez;                           //就更新up的值
dn:= drawnull;                     //dn为空值，就是消失不显示了
END

 
If ll <up + rez and mode1 =  1  THEN BEGIN        //如果上个K线的最低值小于于 up + rez 还是多头情况 
up:= up;                                    //UP不变
dn:= drawnull;                       //dn为空值，就是消失不显示了
END
If  hh < dn - rez and mode1 = -1  THEN BEGIN //这个和上边的相反
 
dn:= hh   + rez;
up:= drawnull;
end
If  hh  >= dn - rez  and  mode1 = -1 THEN BEGIN
dn:= dn;
up:=  drawnull;

end
[此贴子已经被作者于2014/10/15 15:23:19编辑过]
 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 0.21875 秒, 6 次数据查询