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


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件公式模型编写问题提交 → 有描述账户总持仓的函数么?

   

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


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

主题:有描述账户总持仓的函数么?

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


加好友 发短信
等级:论坛游民 帖子:220 积分:0 威望:0 精华:0 注册:2014/2/19 10:36:31
  发帖心情 Post By:2014/10/30 9:51:19    Post IP:222.171.114.217[只看该作者]

没有用,我的程序挺简单的
VARIABLE: X[4]=0;
//*************************************指标数据引用**************************************************//
 SL:=5;
 pz1zs:='RB05';
 pz2zs:='RU01';
 pz3zs:='M05';
 pz4zs:='RM05';

X[1]:=STKINDI(PZ1ZS,'KDJ.K',0,DATATYPE,0);
X[2]:=STKINDI(PZ2ZS,'KDJ.K',0,DATATYPE,0);
X[3]:=STKINDI(PZ3ZS,'KDJ.K',0,DATATYPE,0);
X[4]:=STKINDI(PZ4ZS,'KDJ.K',0,DATATYPE,0);
//*************************************指标排序引用**************************************************//
Y1:=HOD2(X,4,X[1]);
Y2:=HOD2(X,4,X[2]);
Y3:=HOD2(X,4,X[3]);
Y4:=HOD2(X,4,X[4]);

PZ1KD:= Y1<=2;
PZ1KK:= Y1>=3;
PZ2KD:= Y2<=2;
PZ2KK:= Y2>=3;
PZ3KD:= Y3<=2;
PZ3KK:= Y3>=3;
PZ4KD:= Y4<=2;
PZ4KK:= Y4>=3;

QPTJ:=taccount(4)<=-200;
TCTJ:=TACCOUNT(4)>=200;

hq_time:=extgbdata('hq_time');

//全部平仓
IF QPTJ or tctj THEN BEGIN
tsellshort(1{THOLDING<0},0{abs(THOLDING)},MKT,0,0,'806225',pz1zs);
tsell(1{THOLDING<0},0{THOLDING},MKT,0,0,'806225',pz1zs);
tsellshort(1{THOLDING<0},0{abs(THOLDING)},MKT,0,0,'806225',pz2zs);
tsell(1{THOLDING<0},0{abs(THOLDING)},MKT,0,0,'806225',pz2zs);
tsellshort(1{THOLDING<0},0{abs(THOLDING)},MKT,0,0,'806225',pz3zs);
tsell(1{THOLDING<0},0{abs(THOLDING)},MKT,0,0,'806225',pz3zs);
tsellshort(1{THOLDING<0},0{abs(THOLDING)},MKT,0,0,'806225',pz4zs);
tsell(1{THOLDING<0},0{abs(THOLDING)},MKT,0,0,'806225',pz4zs);
END
//排序开仓
if tholding2<sl*4 and time<>hq_time then begin
tbuy(PZ1KD AND tholding=0,SL,MKT,0,0,'806225',pz1zs);
tbuySHORT(PZ1KK AND tholding=0,SL,MKT,0,0,'806225',pz1zs);
tbuy(PZ2KD AND tholding=0,SL,MKT,0,0,'806225',pz2zs);
tbuySHORT(PZ2KK AND tholding=0,SL,MKT,0,0,'806225',pz2zs);
tbuy(PZ3KD AND tholding=0,SL,MKT,0,0,'806225',pz3zs);
tbuySHORT(PZ3KK AND tholding=0,SL,MKT,0,0,'806225',pz3zs);
tbuy(PZ4KD AND tholding=0,SL,MKT,0,0,'806225',pz4zs);
tbuySHORT(PZ4KK AND tholding=0,SL,MKT,0,0,'806225',pz4zs);
extgbdataset('hq_time',time);
end

 回到顶部
总数 17 1 2 下一页