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


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件公式模型编写问题提交 → 如果在账户中检查有没有别的品种持仓用什么函数

   

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


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

主题:如果在账户中检查有没有别的品种持仓用什么函数

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


加好友 发短信
等级:新手上路 帖子:52 积分:0 威望:0 精华:0 注册:2014/4/18 9:51:24
  发帖心情 Post By:2014/6/24 10:35:31    Post IP:110.52.251.89[只看该作者]

模型按提示修了,全局变量也设好了,编译通不过,请修改一下
X1:=STKINDI('RU13','MACD.MACD1',0,4,-1),LINETHICK0;
X2:=STKINDI('JM13','MACD.MACD1',0,4,-1),LINETHICK0;
X3:=STKINDI('I13','MACD.MACD1',0,4,-1),LINETHICK0;
X4:=STKINDI('JD13','MACD.MACD1',0,4,-1),LINETHICK0;
X5:=STKINDI('BB13','MACD.MACD1',0,4,-1),LINETHICK0;
X6:=STKINDI('J13','MACD.MACD1',0,4,-1),LINETHICK0;
act:=STKINDI('','MACD.MACD1',0,4,-1),LINETHICK0;
//
s30:X1+X2+X3+X4+X5+X6,LINETHICK0;
MA30:MA(s30,30),LINETHICK0;
A1:=Max(X1,Max(X2,Max(X3,Max(X4,Max(X5,x6))))),LINETHICK0;
B1:=Min(X1,Min(X2,Min(X3,Min(X4,Min(X5,x6))))),LINETHICK0;

KD:=abs(s30)>abs(MA30) and s30>0 AND ma30>0 and IF(act=A1,1,0); //开多条件
PD:=abs(s30)<abs(MA30);//平多条件
KK:=abs(s30)>abs(MA30) and s30<0 AND ma30<0 and  IF(act=B1,1,0); //开空条件
PK:=abs(s30)<abs(MA30);//平空条件


//开多:BUY(KD AND HOLDING=0  ,1,THISCLOSE);//开多信号
//开空:BUYSHORT(KK AND HOLDING=0 ,1,THISCLOSE);//开空信号
//平多:SELL(PD ,abs(HOLDING),THISCLOSE);//平多信号
//平空:SELLSHORT(PK,abs(HOLDING),THISCLOSE) ;//平空信号
WARNING_DISABLE:4;
if ISLASTBAR then
BEGIN
IF KD AND HOLIDNG=0  AND EXTGBDATA('KDA1')=0 THEN
BEGIN
开多:BUY(1,1,THISCLOSE);//开多信号
EXTGBDATASET('KDA1',1);
END
IF PD THEN
BEGIN
平多:SELL(1 ,abs(HOLDING),THISCLOSE);//平多信号
EXTGBDATASET('KDA1',0);
END

IF KK AND HOLIDNG=0  AND EXTGBDATA('KKB1')=0 THEN
BEGIN
开空:BUYSHORT(1,1,THISCLOSE);//开空信号
EXTGBDATASET('KKB1',1);
END
IF PK THEN
BEGIN
平空:SELLSHORT(1 ,abs(HOLDING),THISCLOSE);//平空信号
EXTGBDATASET('KKB1',0);
END
END

 回到顶部
总数 41 1 2 3 4 5 下一页