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


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件公式模型编写问题提交 → [求助]改成简单循环语句可以实现

   

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


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

主题:[求助]改成简单循环语句可以实现

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


加好友 发短信
等级:新手上路 帖子:66 积分:125 威望:0 精华:0 注册:2012/2/7 13:12:58
[求助]改成简单循环语句可以实现  发帖心情 Post By:2013/6/23 11:26:17    Post IP:117.25.177.50[显示全部帖子]

你好,以下是我在文华编程的语句,基本在金字塔可以运行。但是否能用循环语句或者别的函数帮我改成较为简单的程序,但思路不变。
J:=LLV(LOW,5);

C1:=IFELSE(CZ>REF(J,1),REF(J,1),0);

C2:=IFELSE(CZ>REF(J,2)&&CZ<=REF(J,1),REF(J,2),0);

C3:=IFELSE(CZ>REF(J,3)&&CZ<=REF(J,1)&&CZ<=REF(J,2),REF(J,3),0);

PX:=CZ<=REF(J,1)&&CZ<=REF(J,2)&&CZ<=REF(J,3);

C4:=IFELSE(CZ>REF(J,4)&&PX,REF(J,4),0);

C5:=IFELSE(CZ>REF(J,5)&&PX&&CZ<=REF(J,4),REF(J,5),0);

PY:=PX&&CZ<=REF(J,4)&&CZ<=REF(J,5);

C6:=IFELSE(CZ>REF(J,6)&&PY,REF(J,6),0);

C7:=IFELSE(C>REF(J,7)&&PY&&C<=REF(J,6),REF(J,7),0);

PZ:=PY&&CZ<=REF(J,6)&&CZ<=REF(J,7);

C8:=IFELSE(CZ>REF(J,8)&&PZ,REF(J,8),0);

C9:=IFELSE(CZ>REF(J,9)&&PZ&&CZ<=REF(J,8),REF(J,9),0);

C10:=IFELSE(CZ>REF(J,10)&&PZ&&CZ<=REF(J,8)&&CZ<=REF(J,9),REF(J,10),0);

AC:=C1+C2+C3+C4+C5+C6+C7+C8+C9+C10;

PC1:=IFELSE(AC>REF(J,1),REF(J,1),0);

PC2:=IFELSE(AC>REF(J,2)&&AC<=REF(J,1),REF(J,2),0);

PC3:=IFELSE(AC>REF(J,3)&&AC<=REF(J,1)&&AC<=REF(J,2),REF(J,3),0);

XP:=AC<=REF(J,1)&&AC<=REF(J,2)&&AC<=REF(J,3);

PC4:=IFELSE(AC>REF(J,4)&&XP,REF(J,4),0);

PC5:=IFELSE(AC>REF(J,5)&&XP&&AC<=REF(J,4),REF(J,5),0);

YP:=XP&&AC<=REF(J,4)&&AC<=REF(J,5);

PC6:=IFELSE(AC>REF(J,6)&&YP,REF(J,6),0);

PC7:=IFELSE(AC>REF(J,7)&&YP&&AC<=REF(J,6),REF(J,7),0);

ZP:=YP&&AC<=REF(J,6)&&AC<=REF(J,7);

PC8:=IFELSE(AC>REF(J,8)&&ZP,REF(J,8),0);

PC9:=IFELSE(AC>REF(J,9)&&ZP&&AC<=REF(J,8),REF(J,9),0);

PC10:=IFELSE(AC>REF(J,10)&&ZP&&AC<=REF(J,8)&&AC<=REF(J,9),REF(J,10),0);

AAC:=PC1+PC2+PC3+PC4+PC5+PC6+PC7+PC8+PC9+PC10;

C0:=VALUEWHEN(AAC>0,AAC);


 回到顶部
帅哥哟,离线,有人找我吗?
cong
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:66 积分:125 威望:0 精华:0 注册:2012/2/7 13:12:58
  发帖心情 Post By:2013/6/24 9:42:30    Post IP:117.25.177.50[显示全部帖子]

您看看,其实就一很简单的思路。

 回到顶部
帅哥哟,离线,有人找我吗?
cong
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:66 积分:125 威望:0 精华:0 注册:2012/2/7 13:12:58
  发帖心情 Post By:2013/6/24 9:44:11    Post IP:117.25.177.50[显示全部帖子]

这段代码和金字塔的函数都匹配,您看看应该懂的。

 回到顶部
帅哥哟,离线,有人找我吗?
cong
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:66 积分:125 威望:0 精华:0 注册:2012/2/7 13:12:58
  发帖心情 Post By:2013/6/24 13:41:53    Post IP:117.25.177.50[显示全部帖子]

大侠,还木有答复啊!

 回到顶部
帅哥哟,离线,有人找我吗?
cong
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:66 积分:125 威望:0 精华:0 注册:2012/2/7 13:12:58
  发帖心情 Post By:2013/6/24 20:28:33    Post IP:110.86.84.188[显示全部帖子]

非常不好意思:

J:=LLV(LOW,5);

CZ:=IFELSE(HIGH>=REF(HIGH,1)&&HIGH>=REF(HIGH,2)&&HIGH>=REF(HIGH,3)&&HIGH>=REF(HIGH,4),LOW,0);

C1:=IFELSE(CZ>REF(J,1),REF(J,1),0);

C2:=IFELSE(CZ>REF(J,2)&&CZ<=REF(J,1),REF(J,2),0);

C3:=IFELSE(CZ>REF(J,3)&&CZ<=REF(J,1)&&CZ<=REF(J,2),REF(J,3),0);

PX:=CZ<=REF(J,1)&&CZ<=REF(J,2)&&CZ<=REF(J,3);

C4:=IFELSE(CZ>REF(J,4)&&PX,REF(J,4),0);

C5:=IFELSE(CZ>REF(J,5)&&PX&&CZ<=REF(J,4),REF(J,5),0);

PY:=PX&&CZ<=REF(J,4)&&CZ<=REF(J,5);

C6:=IFELSE(CZ>REF(J,6)&&PY,REF(J,6),0);

C7:=IFELSE(C>REF(J,7)&&PY&&C<=REF(J,6),REF(J,7),0);

PZ:=PY&&CZ<=REF(J,6)&&CZ<=REF(J,7);

C8:=IFELSE(CZ>REF(J,8)&&PZ,REF(J,8),0);

C9:=IFELSE(CZ>REF(J,9)&&PZ&&CZ<=REF(J,8),REF(J,9),0);

C10:=IFELSE(CZ>REF(J,10)&&PZ&&CZ<=REF(J,8)&&CZ<=REF(J,9),REF(J,10),0);

AC:=C1+C2+C3+C4+C5+C6+C7+C8+C9+C10;

PC1:=IFELSE(AC>REF(J,1),REF(J,1),0);

PC2:=IFELSE(AC>REF(J,2)&&AC<=REF(J,1),REF(J,2),0);

PC3:=IFELSE(AC>REF(J,3)&&AC<=REF(J,1)&&AC<=REF(J,2),REF(J,3),0);

XP:=AC<=REF(J,1)&&AC<=REF(J,2)&&AC<=REF(J,3);

PC4:=IFELSE(AC>REF(J,4)&&XP,REF(J,4),0);

PC5:=IFELSE(AC>REF(J,5)&&XP&&AC<=REF(J,4),REF(J,5),0);

YP:=XP&&AC<=REF(J,4)&&AC<=REF(J,5);

PC6:=IFELSE(AC>REF(J,6)&&YP,REF(J,6),0);

PC7:=IFELSE(AC>REF(J,7)&&YP&&AC<=REF(J,6),REF(J,7),0);

ZP:=YP&&AC<=REF(J,6)&&AC<=REF(J,7);

PC8:=IFELSE(AC>REF(J,8)&&ZP,REF(J,8),0);

PC9:=IFELSE(AC>REF(J,9)&&ZP&&AC<=REF(J,8),REF(J,9),0);

PC10:=IFELSE(AC>REF(J,10)&&ZP&&AC<=REF(J,8)&&AC<=REF(J,9),REF(J,10),0);

AAC:=PC1+PC2+PC3+PC4+PC5+PC6+PC7+PC8+PC9+PC10;

C0:=VALUEWHEN(AAC>0,AAC);


IF CO  THEN

......

主要是改前面的那段。后面就是我由CO引发的开平仓。麻烦了!


 回到顶部
帅哥哟,离线,有人找我吗?
cong
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:66 积分:125 威望:0 精华:0 注册:2012/2/7 13:12:58
  发帖心情 Post By:2013/6/24 20:29:16    Post IP:110.86.84.188[显示全部帖子]

补充一点,一定是对的,我金字塔有运行过的。

 回到顶部
帅哥哟,离线,有人找我吗?
cong
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:66 积分:125 威望:0 精华:0 注册:2012/2/7 13:12:58
  发帖心情 Post By:2013/6/25 10:56:04    Post IP:117.25.177.50[显示全部帖子]

有没有人啊!!高手何在??

 回到顶部
帅哥哟,离线,有人找我吗?
cong
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:66 积分:125 威望:0 精华:0 注册:2012/2/7 13:12:58
  发帖心情 Post By:2013/6/25 13:52:33    Post IP:117.25.177.50[显示全部帖子]

你好,首先CZ:=IFELSE(HIGH>=REF(HIGH,1)&&HIGH>=REF(HIGH,2)&&HIGH>=REF(HIGH,3)&&HIGH>=REF(HIGH,4),LOW,0);

是取连续创新高的本周期的最低价,然后用最低价一直去与之前J:=LLV(LOW,5)去对比,直到取到我需要的最低价。如果取到我需要的最低价再继续与之前的ref(j,1)去比较,直到再次取到我需要的更低的价格。


 回到顶部
帅哥哟,离线,有人找我吗?
cong
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:66 积分:125 威望:0 精华:0 注册:2012/2/7 13:12:58
  发帖心情 Post By:2013/6/25 13:53:53    Post IP:117.25.177.50[显示全部帖子]

感谢你的解答,我只是求助一下,如果可以就帮忙改一下。改不了的话也可以指出,让我成长。

 回到顶部