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


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件策略编写求助区 → [求助]求编写如下策略 求版主帮忙

   

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


  共有5257人关注过本帖平板打印复制链接

主题:[求助]求编写如下策略 求版主帮忙

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


加好友 发短信
等级:新手上路 帖子:40 积分:42 威望:0 精华:0 注册:2012/10/29 9:54:51
  发帖心情 Post By:2013/1/22 14:01:21 [只看该作者]

GLOBALVARIABLE:lsbuy=0,lsbuyshort=0,kg=0,kcd=dd,kck=not(dd),times=0,REFHOLD=0;

REFHOLD:=REF(HOLDING,1);

if time-times>p1 and REFHOLD=0 then begin
 kg:=0;
end
if kg=0 then begin
 lsbuy:=c-0.2;
 lsbuyshort:=c+0.2;
 times:=time;
 kg:=1;
end 


if REFHOLD=0 and time>=091600 and kcd=0 then begin
 开多:BUY(1,1,limitr,lsbuy);

end 

if REFHOLD=0 and time>=091600 and kck=0 then begin
 buyshort(1,1,limit,lsbuyshort);

end

if time<145800 then begin
//---------------------------------
if REFHOLD>0 then begin
 kcd:=1;
 sell(1,1,limit,lsbuy+2);
 sell(lsbuy-c>=3,1,limit,c);
 sell(lsbuy-c>=4,1,limit,c-100);
 
 if REFHOLD=0 then begin
 kck:=0;
 kg:=0;
 end
end

 

//------------------------------------

if REFHOLD<0 then begin
 kck:=1;
 sellshort(1,1,limit,lsbuy-2);
 sellshort(c-lsbuyshort>=3,1,limit,c);
 sellshort(lsbuyshort>=4,1,limit,c+100);
 if REFHOLD=0 then begin
 kcd:=0;
 kg:=0;
 end
end

end

if time>145800 THEN BEGIN
 sell(1,0);
 sellshort(1,0);
 kg:=0;
end


 回到顶部