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


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

   

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

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

主题：请老师帮忙修改一下...
帅哥哟，离线，有人找我吗？
jckk
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：30 积分：0 威望：0 精华：0 注册：2011/7/26 1:54:53 		请老师帮忙修改一下...  发帖心情 Post By：2015/3/10 13:31:23    Post IP：220.160.236.252[只看该作者]

请老师帮忙先把下面策略的加仓去除了，谢谢！

 

 

 

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:llv(rh,inb);
 h2:hhv(rl,outb),linedot;
 l1:hhv(rl,inb);
 l2:llv(rh,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 AND time<150000 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 AND time<150000 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
 
 //收盘前平仓
sell(time>151000 and holding>0,holding,market);
 sellshort(time>151000 and holding<0,holding,market);
 回到顶部
帅哥哟，离线，有人找我吗？
jinzhe
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：罗宾汉 帖子：46311 积分：50819 威望：0 精华：2 注册：2011/3/23 8:50:25 		  发帖心情 Post By：2015/3/10 13:37:18    Post IP：58.246.57.26[只看该作者]

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:llv(rh,inb);
 h2:hhv(rl,outb),linedot;
 l1:hhv(rl,inb);
 l2:llv(rh,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 AND time<150000 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 AND time<150000 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;//出场

 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;//出场

 end;//holding＜0
 
 //收盘前平仓
sell(time>151000 and holding>0,holding,market);
 sellshort(time>151000 and holding<0,holding,market);

金字塔—专业程序化交易量化投资平台

客户服务部

----------------------------------------------------------- 欢迎您参加我公司的技术培训，具体培训需求请发邮件到service@weistock.com

您的宝贵建议或者投诉，请发往邮箱:weiwei@weistock.com
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 0.15625 秒, 6 次数据查询