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


金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 高级功能研发区 → 四周规则能写成VBA模板吗，方便大家学习

   

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

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

主题：四周规则能写成VBA模板吗，方便大家学习
帅哥哟，离线，有人找我吗？
solarhe2006
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：252 积分：1001 威望：0 精华：0 注册：2010/2/15 16:47:58 		四周规则能写成VBA模板吗，方便大家学习  发帖心情 Post By：2011/11/22 15:27:34 [只看该作者]


四周规则能写成VBA模板吗，方便大家学习

HHN：=ref(HHV(HIGH,20),1)；
HLN：=ref(LLV(LOW,20),1)；

IF H>=HHN then
begin
sellshort(holding<0,0,thisclose);
buy(holding=0,1,thisclose);
end

IF L<=HLN then
begin
sell(holding>0,0,thisclose);
buyshort(holding=0,1,thisclose);
end
 回到顶部
帅哥哟，离线，有人找我吗？
26327756l
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：黑侠 帖子：676 积分：2548 威望：0 精华：3 注册：2011/4/13 16:18:50 		  发帖心情 Post By：2011/11/22 15:31:50 [只看该作者]

有必要吗

图表可以实现 VBA还要写一遍。
 回到顶部
帅哥哟，离线，有人找我吗？
guotx2010
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：蜘蛛侠 帖子：1366 积分：5210 威望：0 精华：7 注册：2010/12/11 18:00:33 		  发帖心情 Post By：2011/11/22 21:52:05 [只看该作者]

任何策略都可以用VBA来实现，只是代码量比后台或图表策略大的多，调试也需要较长的时间。

如果只是单纯的实现开平仓的目的，没有必要使用VBa来做的。

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


加好友 发短信
等级：小飞侠 帖子：1882 积分：3310 威望：0 精华：15 注册：2010/3/15 13:11:56 		  发帖心情 Post By：2011/11/23 11:19:28 [只看该作者]

Sub ForWeekRule
 dim code
 dim market
 dim cyctype
 dim highest
 dim lowest
 
 code="RU00"
 market="SQ"
 cyctype=5
 
 set historydata =marketdata.GetHistoryData(code,market,cyctype)
 for i=historydata.count-22 to historydata-2
  if historydata.high(i)>highest then
   highest=historydata.high(i)
  end if
  
  if historydata.low(i)<lowest then
   lowest=historydata.low(i)
  end if
 next
 
 if historydata(historydata.count-1)>highest then
  order.buyshort 1,1,0,0,code,market,0,0
  order.buy 1,1,0,0,code,market,0,0
 end if
 
 if historydata(historydata.count-2)<lowest then
  order.SellShort 1,1,0,0,code,market,0,0
  order.sell 1,1,0,0,code,market,0,0
 end if
end sub

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


加好友 发短信
等级：论坛游侠 帖子：252 积分：1001 威望：0 精华：0 注册：2010/2/15 16:47:58 		[公告]上海中期北京营业部与金字塔合作  发帖心情 Post By：2011/11/23 11:29:04 [只看该作者]

强Sub ForWeekRule
 dim code
 dim market
 dim cyctype
 dim highest
 dim lowest
 
 code="RU00"
 market="SQ"
 cyctype=5
 
 set historydata =marketdata.GetHistoryData(code,market,cyctype)
 for i=historydata.count-22 to historydata-2
  if historydata.high(i)>highest then
   highest=historydata.high(i)
  end if
  
  if historydata.low(i)<lowest then
   lowest=historydata.low(i)
  end if
 next
 
 if historydata(historydata.count-1)>highest then
  order.buyshort 1,1,0,0,code,market,0,0
  order.buy 1,1,0,0,code,market,0,0
 end if
 
 if historydata(historydata.count-2)<lowest then
  order.SellShort 1,1,0,0,code,market,0,0
  order.sell 1,1,0,0,code,market,0,0
 end if
end sub


 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 0.04688 秒, 5 次数据查询