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


金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 策略编写求助区 → 老师帮忙写个程序

   

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

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

主题：老师帮忙写个程序
帅哥哟，离线，有人找我吗？
Damoclus
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：274 积分：0 威望：0 精华：0 注册：2015/7/5 14:46:18 		  发帖心情 Post By：2016/12/10 21:35:17 [显示全部帖子]

1.定义三条均线;
5日均线
10日均线
20日均线

2.求5日均线、10日均线、20日均线三者的最大值与最小值

3.当价格大于3条均线的最大值，平空做多；
  当价格小于3条均线的最大值，平多做空；

4.当根K线跌幅超过2%，（当根K线收盘价与上一K线收盘价的比值）平多；
  当根K线涨幅超过2%，（当根K线收盘价与上一K线收盘价的比值）平空；


ma5:ma(c,5);
ma10:ma(c,10);
ma20:ma(c,20);
a:=max(ref(ma5,1),ref(ma10,1));
b:=min(ref(ma5,1),ref(ma10,1));
CC:=ref(c,1);
//交易条件

if c>max(a,ref(ma20,1)) then  begin
    sellshort(1,0,market);
    buy(holding,1,market);
end

if c<min(b,ref(ma20,1)) then begin
     sell(1,0,market);
     buyshort(holding=0,1,market);
end
if  (c-CC)/CC<-0.02 then begin
     sell(1,0,market);
end
if   (c-CC)/CC>0.02   then begin
    sellshort(1,0,market);
end
 
持仓:holding,linethick0;
资产:asset,noaxis;
可用现金:cash(0),linethick0;

不是大牛，试着编了一下。。。
 回到顶部
帅哥哟，离线，有人找我吗？
Damoclus
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：274 积分：0 威望：0 精华：0 注册：2015/7/5 14:46:18 		  发帖心情 Post By：2016/12/10 21:39:34 [显示全部帖子]

1.定义三条均线;
5日均线
10日均线
20日均线

2.求5日均线、10日均线、20日均线三者的最大值与最小值

3.当价格大于3条均线的最大值，平空做多；
  当价格小于3条均线的最大值，平多做空；

4.当根K线跌幅超过2%，（当根K线收盘价与上一K线收盘价的比值）平多；
  当根K线涨幅超过2%，（当根K线收盘价与上一K线收盘价的比值）平空；


ma5:ma(c,5);
ma10:ma(c,10);
ma20:ma(c,20);
a:=max(ref(ma5,1),ref(ma10,1));
b:=min(ref(ma5,1),ref(ma10,1));
CC:=ref(c,1);
//交易条件

if c>max(a,ref(ma20,1)) then  begin
    sellshort(1,0,market);
    buy(holding,1,market);
end

if c<min(b,ref(ma20,1)) then begin
     sell(1,0,market);
     buyshort(holding=0,1,market);
end
if  (c-CC)/CC<-0.02 then begin
     sell(1,0,market);
end
if   (c-CC)/CC>0.02   then begin
    sellshort(1,0,market);
end
 
持仓:holding,linethick0;
资产:asset,noaxis;
可用现金:cash(0),linethick0;

不是大牛，试着编了一下。。。
 回到顶部
帅哥哟，离线，有人找我吗？
Damoclus
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：274 积分：0 威望：0 精华：0 注册：2015/7/5 14:46:18 		  发帖心情 Post By：2016/12/11 13:22:16 [显示全部帖子]

有个错误， 
if  c>max(a,ref(ma20,1)) then  begin
    sellshort(1,0,market);
    buy(holding=0,1,market);
end
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 0.34375 秒, 6 次数据查询