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


金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 策略编写求助区 → 请修改一下源码（加入止盈止损）

   

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

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

主题：请修改一下源码（加入止盈止损）
帅哥哟，离线，有人找我吗？
icexiang
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：12 积分：0 威望：0 精华：0 注册：2017/2/21 21:15:49 		请修改一下源码（加入止盈止损）  发帖心情 Post By：2017/3/2 10:30:33 [只看该作者]

我在贵方论坛发现一个源码，请问大神们能否添加一个止盈止损的策略？
比如说按几个变动价位止损/止盈/

input:inb(1,1,500,1),outb(1,1,500,1),risk(0.4,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,marketr,buyp); 
times:=1; 
while h＞enterprice+n*0.5 and times＜4 do 
begin 
buyp:=max(o,enterprice+n*0.5); 
buy(1,lots,marketr,buyp); 
times:=times+1; 
end;//连续开仓 
end;//开多结束 
else if l＜l1 then //开空 
begin 
sellp:=min(o,l1); 
buyshort(1,lots,marketr,sellp); 
times:=1; 
while l＜enterprice-n*0.5 and times＜4 do 
begin 
sellp:=min(o,enterprice-n*0.5); 
buyshort(1,lots,marketr,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,marketr,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,marketr,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,marketr,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,marketr,sellp); 
times:=times+1; 
end;//连续开仓 
end;//else 
end;//holding＜0
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 0.09375 秒, 5 次数据查询