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


金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 金字塔软件问题提交 → [注意]平今对锁

   

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

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

主题：[注意]平今对锁
帅哥哟，离线，有人找我吗？
qwer123
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小飞侠 帖子：1966 积分：0 威望：0 精华：1 注册：2013/6/15 21:56:35 		[注意]平今对锁  发帖心情 Post By：2017/3/1 10:24:53 [只看该作者]

平今对锁功能用了几天，总的说不错，但有一点不好。
现在我账户情况是这样的（图片无法上传，各种浏览器都不行）

      今持          总持
RB1705                        28
RB1705       -63           -63
RB1705                       -70
RB1705       133          133

这个是实盘账户的持仓情况，看了很乱，并且实际持仓28手但保证金要100多万。
所以建议开仓时先平掉老仓。比如开-63手单子的时候，可以先平掉28手，在开-35手。

只前我是自己写的程序，做对锁交易，源码如下：


//不平日内开仓,且控制日内开仓不超过10手。
r1:=todaybar-1;
tn:=1;//每次交易手数，要和主程序的一致

r4:=stkindiex('if00','htcs.持仓(1)',0,22,20,0),linethick0;//
//r5:=stkindiex('iF00','qq24.持仓(1)',0,21,3,0),linethick0;//

r6:=r4,linethick0;
rr:=r6-ref(r6,1),noaxis;

k1:=tbuyholding(0)=0;
k2:=tsellholding(0)=0;

r10:=tbuyholding(1);
r11:=abs(tsellholding(1));

//********************
GLOBALVARIABLE:a1=0;

if r1=0 then 
begin
a1:=0;
end

nn1:=10;
//********************
if rr>0 and k2 then 
begin
if r11>=rr then 
begin
tsellshort(1,rr,lmt,c);
end
if r11<rr and r11>0 then
begin
tsellshort(1,r11,lmt,c);
tbuy(1,rr-r11,lmt,c);
a1:=a1+rr-r11;
end
if r11=0 then
begin
tbuy(1,rr,lmt,c);
a1:=a1+rr;
end
end
if rr<0 and k1 then
begin
if r10>=abs(rr) then
begin
tsell(1,abs(rr),lmt,c);
end
if r10<abs(rr) and r10>0 then
begin
tsell(1,r10,lmt,c);
tbuyshort(1,abs(rr)-r10,lmt,c);
a1:=a1+abs(rr)-r10;
end
if r10=0 then
begin
tbuyshort(1,abs(rr),lmt,c);
a1:=a1+abs(rr);
end
end

//************************
if rr>0 and not(k2) and a1<=nn1-rr then
begin
tbuy(1,rr,lmt,c);
a1:=a1+rr;
end
if rr>0 and not(k2) and a1>nn1-rr and a1<nn1 then
begin
r13:=nn1-a1;
tbuy(1,r13,lmt,c);
a1:=nn1;
end

//---------------------------
if rr<0 and not(k1) and a1<=nn1-abs(rr) then
begin
tbuyshort(1,abs(rr),lmt,c);
a1:=a1+abs(rr);
end
if rr<0 and not(k1) and a1>nn1-abs(rr) and a1<nn1 then
begin
r14:=nn1-a1;
tbuyshort(1,r14,lmt,c);
a1:=nn1;
end

//-----------a1=nn1 时第3种处理方法-------------
if a1=nn1 and rr=0 and r10<>r11 then
begin
if r10>r11 then
begin
tsell(1,r10-r11,lmt,c);
end
if r10<r11 then
begin
tsellshort(1,r11-r10,lmt,c);
end
end

//第二天同步，
r15:=tholding;
if rr=0 and k1 and k2 and r6<>r15 then
begin
if r15>r6 then
begin
tsell(1,r15-r6,lmt,c);
end
if r15<r6 then
begin
tsellshort(1,r6-r15,lmt,c);
end
end
//---------------------------
DEBUGOUT('日交易次数IF.....%.0f',a1);
DEBUGOUT('理论持仓IF.......%.0f',r6);
DEBUGOUT('实际持仓IF.......%.0f',tholding);
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 0.12500 秒, 5 次数据查询