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


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件公式模型编写问题提交 → 请老师修改策略

   

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


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

主题:请老师修改策略

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


加好友 发短信
等级:黑侠 帖子:659 积分:0 威望:0 精华:0 注册:2015/2/5 10:08:43
请老师修改策略  发帖心情 Post By:2018/4/11 14:22:39    Post IP:117.159.195.109[只看该作者]

input:inb(20,1,500,1),outb(10,1,500,1),risk(2,0,10,0.1); 
//和风版海龟源码 
variable:times=0,i=0,n=0; 
rn:=ema(ref(tr,1),20); 
n:=valuewhen(holding=0,rn); 
rh:=ref(h,1); 
rl:=ref(l,1); 
h1:hhv(rh,inb); 
h2:hhv(rh,outb),linedot; 
l1:llv(rl,inb); 
l2:llv(rl,outb),linedot; 
lotst:asset*risk*0.01/(n*2*multiplier),linethick0; 
lots:=if(risk=0,1,lotst); //如果risk取0,表示固定开1手 
tbc:=h<>l;//判断是否停板 
partline(holding>0,enterprice-2*n); 
if barpos<inb+1 then exit; 
if holding=0 and tbc then //不是停板才可以交易 
begin 
if h>h1 then //开多 
begin 
buyp:=max(o,h1); 
buy(1,lots,limitr,buyp); 
times:=1; 
while h>enterprice+n*0.5 and times<4 do 
begin 
buyp:=max(o,enterprice+n*0.5); 
buy(1,lots,limitr,buyp); 
times:=times+1; 
end;//连续开仓 
end;//开多结束 
else if l<l1 then //开空 
begin 
sellp:=min(o,l1); 
buyshort(1,lots,limitr,sellp); 
times:=1; 
while l<enterprice-n*0.5 and times<4 do 
begin 
sellp:=min(o,enterprice-n*0.5); 
buyshort(1,lots,limitr,sellp); 
times:=times+1; 
end;//连续开仓 
end; 
end;//holding=0

if holding>0 and tbc then //已有多仓 
begin 
exitlongp:=max(enterprice-2*n,l2); 
if l<exitlongp and enterbars<>0 then //出场 
begin 
exitp:=min(o,exitlongp); 
sell(1,0,limitr,exitp); 
times:=0; 
end;//出场 
else 
begin 
while h>enterprice+n*0.5 and times<4 do //开多 
begin 
buyp:=max(o,enterprice+n*0.5); 
buy(1,lots,limitr,buyp); 
times:=times+1; 
end;//连续开仓 
end;//else


end;//holding>0

if holding<0 and tbc then //已有空仓 
begin 
exitlongp:=min(enterprice+2*n,h2); 
if h>exitlongp and enterbars<>0 then //出场 
begin 
exitp:=max(o,exitlongp); 
sellshort(1,0,limitr,exitp); 
times:=0; 
end;//出场 
else 
begin 
while l<enterprice-n*0.5 and times<4 do //开多 
begin 
sellp:=min(o,enterprice-n*0.5); 
buyshort(1,lots,limitr,sellp); 
times:=times+1; 
end;//连续开仓 
end;//else 
end;//holding<0 


请老师修改策略

1.改成股票策略只开多,平多。

2,如何控制开仓量? 如手数控制,或者总资金控制?谢谢。



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


加好友 发短信
等级:黑侠 帖子:659 积分:0 威望:0 精华:0 注册:2015/2/5 10:08:43
  发帖心情 Post By:2018/4/11 14:40:33    Post IP:117.159.195.109[只看该作者]

初步测试一下策略可用,就是不知如何设置手数开仓平仓?,也不知如何设置开仓的总资金量?


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


加好友 发短信
等级:管理员 帖子:26632 积分:0 威望:0 精华:7 注册:2015/4/9 14:59:07
  发帖心情 Post By:2018/4/11 14:46:35    Post IP:180.169.30.6[只看该作者]

input:inb(20,1,500,1),outb(10,1,500,1),risk(2,0,10,0.1);
//和风版海龟源码
variable:times=0,i=0,n=0;
rn:=ema(ref(tr,1),20);
n:=valuewhen(holding=0,rn);
rh:=ref(h,1);
rl:=ref(l,1);
h1:hhv(rh,inb);
h2:hhv(rh,outb),linedot;
l1:llv(rl,inb);
l2:llv(rl,outb),linedot;
lotst:asset*risk*0.01/(n*2*multiplier),linethick0;
lots:=if(risk=0,1,lotst); //如果risk取0,表示固定开1手
tbc:=h<>l;//判断是否停板
partline(holding>0,enterprice-2*n);
if barpos<inb+1 then exit;
if holding=0 and tbc then //不是停板才可以交易
 begin
  if h>h1 then //开多
   begin
    buyp:=max(o,h1);
    buy(1,lots,limitr,buyp);
    times:=1;
    while h>enterprice+n*0.5 and times<4 do
     begin
      buyp:=max(o,enterprice+n*0.5);
      buy(1,lots,limitr,buyp);
      times:=times+1;
     end;//连续开仓
   end;//开多结束
  end;//holding=0

  if holding>0 and tbc then //已有多仓
   begin
    exitlongp:=max(enterprice-2*n,l2);
    if l<exitlongp and enterbars<>0 then //出场
     begin
      exitp:=min(o,exitlongp);
      sell(1,0,limitr,exitp);
      times:=0;
     end;//出场
    else
     begin
      while h>enterprice+n*0.5 and times<4 do //开多
       begin
        buyp:=max(o,enterprice+n*0.5);
        buy(1,lots,limitr,buyp);
        times:=times+1;
       end;//连续开仓
     end;//else


   end;//holding>0

if holding<0 and tbc then //已有空仓
 begin
  while l<enterprice-n*0.5 and times<4 do //开多
   begin
    sellp:=min(o,enterprice-n*0.5);
    //buyshort(1,lots,limitr,sellp); 这个位置不知道你是不是写错了。按逻辑应该是开多。
    buy(1,lots,limitr,sellp);
    times:=times+1;
   end;//连续开仓
 end;//else 

上面代码其实就是把空头部分删除就行。不过你循环语句对pel无效,只能每根k线上,一个开仓语句只能开一次。

 

2,对于开仓量通过HOLDING就行限制。

资金也是一样的,通过ASSET,

 



编程无捷径,技巧靠积累。
 回到顶部
帅哥哟,离线,有人找我吗?
yzhybw
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:黑侠 帖子:659 积分:0 威望:0 精华:0 注册:2015/2/5 10:08:43
  发帖心情 Post By:2018/4/11 14:54:12    Post IP:117.159.195.109[只看该作者]

请老师把完整修改过的代码贴出来最好,谢谢老师。

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


加好友 发短信
等级:管理员 帖子:26632 积分:0 威望:0 精华:7 注册:2015/4/9 14:59:07
  发帖心情 Post By:2018/4/11 15:06:39    Post IP:180.169.30.6[只看该作者]

空头语句已经帮你去除了,你自己先尝试添加仓位限制语句,在存在问题时。我们可以协助解决。

 

[此贴子已经被作者于2018/4/11 15:07:54编辑过]


编程无捷径,技巧靠积累。
 回到顶部