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


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件公式模型编写问题提交 → [原创]后台策略自动撤单与条件追单模板

   

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


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

主题:[原创]后台策略自动撤单与条件追单模板

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


加好友 发短信
等级:小飞侠 帖子:1882 积分:3310 威望:0 精华:15 注册:2010/3/15 13:11:56
[原创]后台策略自动撤单与条件追单模板  发帖心情 Post By:2011/1/9 11:36:47    Post IP:123.118.81.228[显示全部帖子]

阅读版:

以下内容为程序代码:

1 myaccount:='666666';
2 sleeptime:=1000*3;
3
4 if tbuyholdingex(myaccount,stklabel,0)=0 then begin
5     if true then begin
6         tbuy(1,1,lmt,close,0,myaccount,stklabel),allowrepeat;
7         sleep(sleeptime);
8         if tisremainex(1,myaccount,stklabel) then begin
9             tcancelex(1,1,myaccount,stklabel);
10             exit;
11         end
12     end
13 end
14
15 if tsellholdingex(myaccount,stklabel,0)=0 then begin
16     if true then begin
17         tbuyshort(1,1,lmt,close,0,myaccount,stklabel),allowrepeat;
18         sleep(sleeptime);
19         if tisremainex(3,myaccount,stklabel) then begin
20             tcancelex(1,3,myaccount,stklabel);
21             exit;
22         end
23     end
24 end
25
26 if tbuyholdingex(myaccount,stklabel,0)>0 then begin
27     if true then begin
28         tsell(1,tbuyholdingex(myaccount,stklabel,0),close,0,myaccount,stklabel),allowrepeat;
29         sleep(sleeptime);
30         if tisremainex(2,myaccount,stklabel) then begin
31             tcancelex(1,2,myaccount,stklabel);
32             exit;
33         end
34     end
35 end
36
37 if tsellholdingex(myaccount,stklabel,0)>0 then begin
38     if true then begin
39         tsellshort(1,tsellholdingex(myaccount,stklabel,0),close,0,myaccount,stklabel),allowrepeat;
40         sleep(sleeptime);
41         if tisremainex(4,myaccount,stklabel) then begin
42             tcancelex(1,4,myaccount,stklabel);
43             exit;
44         end
45     end
46 end
47

 

拷贝版:

myaccount:='666666';
sleeptime:=1000*3;

if tbuyholdingex(myaccount,stklabel,0)=0 then begin
if true then begin
tbuy(1,1,lmt,close,0,myaccount,stklabel),allowrepeat;
sleep(sleeptime);
if tisremainex(1,myaccount,stklabel) then begin
tcancelex(1,1,myaccount,stklabel);
exit;
end
end
end

if tsellholdingex(myaccount,stklabel,0)=0 then begin
if true then begin
tbuyshort(1,1,lmt,close,0,myaccount,stklabel),allowrepeat;
sleep(sleeptime);
if tisremainex(3,myaccount,stklabel) then begin
tcancelex(1,3,myaccount,stklabel);
exit;
end
end
end

if tbuyholdingex(myaccount,stklabel,0)>0 then begin
if true then begin
tsell(1,tbuyholdingex(myaccount,stklabel,0),close,0,myaccount,stklabel),allowrepeat;
sleep(sleeptime);
if tisremainex(2,myaccount,stklabel) then begin
tcancelex(1,2,myaccount,stklabel);
exit;
end
end
end

if tsellholdingex(myaccount,stklabel,0)>0 then begin
if true then begin
tsellshort(1,tsellholdingex(myaccount,stklabel,0),close,0,myaccount,stklabel),allowrepeat;
sleep(sleeptime);
if tisremainex(4,myaccount,stklabel) then begin
tcancelex(1,4,myaccount,stklabel);
exit;
end
end
end

[此贴子已经被作者于2011-1-9 12:00:55编辑过]

版主评定:好评,获得1个金币奖励好评,获得1个金币奖励
(理由:好文章)
 回到顶部
帅哥哟,离线,有人找我吗?
z7c9
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小飞侠 帖子:1882 积分:3310 威望:0 精华:15 注册:2010/3/15 13:11:56
  发帖心情 Post By:2011/1/9 11:58:12    Post IP:123.118.81.228[显示全部帖子]

以下是引用admin在2011-1-9 11:46:19的发言:
楼主可否将使用方法和原理介绍一下

下单后,睡眠3秒钟,然后判断是否存在未成交委托单,如果存在,撤销未成交委托单并退出。如果不存在,继续向下执行。退出后再次进入时,如果下单条件成立,重新下单。

 

这种追单是条件追单,也就是说只要下单条件成立,就会不断的追单。

[此贴子已经被作者于2011-1-9 11:59:38编辑过]

 回到顶部