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


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

   

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


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

主题:求编写一策略

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


加好友 发短信
等级:黑侠 帖子:676 积分:2548 威望:0 精华:3 注册:2011/4/13 16:18:50
  发帖心情 Post By:2011/9/14 9:09:47 [显示全部帖子]

问题正在解决中


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


加好友 发短信
等级:黑侠 帖子:676 积分:2548 威望:0 精华:3 注册:2011/4/13 16:18:50
  发帖心情 Post By:2011/9/14 9:59:43 [显示全部帖子]


程序中有失误的地方请见谅。

 

input:N1(1,1,100,1),N2(1,1,100,1),N3(1,1,100,1);
variable:kcp=DRAWNULL,kcprice=DRAWNULL,kz=0;
upp:="boll.UPPER";
mid:="boll.mid";
lower:="boll.lower";
if kcp=DRAWNULL then kcprice:=DRAWNULL; else kcprice:=ENTERPRICE;
//开多最新价格向上穿越前一根K线的boll上轨;

if c>ref(upp,1) then
begin
sellshort(holding<0,holding,market);
buy(holding=0,1,market);
kcp:=BARPOS;
end

//平多条件:
//1,最新价格向下穿越前一根K线的boll中轨;
if c<ref(mid,1) then
begin
sell(holding>0,holding,market);
kcp:=DRAWNULL;
end
//2.从开仓的那根K线开始算起,所到过最高点往下跌幅超过N1(将N1设置为一个变量)。
if hhv(c,BARPOS-kcp)-c>N1 then
begin
sell(holding>0,holding,market);
kcp:=DRAWNULL;
end
//3.当浮动盈利点数最大达到N3个点,启动保本止损策略,价格回到开仓成本价既平仓。
if OPENPROFIT/MINDIFF=N3 then kz:=1;
if kz=1 and c=kcprice then
begin
sell(holding>0,holding,market);
kcp:=DRAWNULL;
kz:=0;
end

//开空条件:
//最新价格向下穿越前一根K线的boll下轨;

if c<ref(lower,1) then
begin
SELL(holding>0 ,holding ,market );
buyshort(holding=0,1,market);
kcp:=BARPOS;
end

 

//平空条件:
//1.最新价格向上穿越前一根K线的boll中轨;
if c>ref(mid,1) then
begin
sellshort(holding<0,holding,market);

end
//2.从开仓的那根K线开始算起,所到过最低点往上涨幅超过N2(将N2设置为一个变量)。
if c-llv(c,BARPOS-kcp)>N2 then
begin
sellshort(holding<0,holding,market);
kcp:=DRAWNULL;
end
//3.当浮动盈利点数最大达到N3个点,启动保本止损策略,价格回到开仓成本价既平仓。
if OPENPROFIT/MINDIFF=N3 then kz:=1;
if kz=1 and c=kcprice then
begin
sellshort(holding<0,holding,market);
kcp:=DRAWNULL;
kz:=0;
end


 回到顶部