建一个最简单的后台交易系统,求救 - 公式模型编写问题提交 - 金字塔客服中心 - 专业程序化交易软件提供商

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

金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 公式模型编写问题提交 → 建一个最简单的后台交易系统,求救

共有3767人关注过本帖树形打印复制链接主题：建一个最简单的后台交易系统,求救

eric917

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：论坛游民帖子：271 积分：730 威望：0 精华：0 注册：2011/6/22 15:58:05

建一个最简单的后台交易系统,求救 发帖心情

Post By：2013/2/20 14:42:19 Post IP：219.135.216.183[只看该作者]

我想写一个很简单的单均线交易系统，

上穿就开多平空，下破就开空平多，出信号立即开仓不进行复核，每根K线只开仓一次，在总账号有其他持仓的情况，不能平掉或者影响其他交易系统的持仓

我在论坛发了3天贴都没有问出来，应该怎么写才对或者指出我哪里写得不对，万分感激~！！！！！

SS:=1; //手数

EXTGBDATASET('POSITIONAA',0);

MAA:MA(C,20);

BPK:=CROSS(H,MAA);
SPK:=CROSS(MAA,L) ;

//本来没有持仓
IF EXTGBDATA('POSITIONAA')=0    THEN BEGIN
     IF BPK THEN BEGIN
         BUY(HOLDING=0,SS,MARKET);
         TBUY(1,SS,MKT);
         POSITIONAA:=1;
         EXTGBDATASET('POSITIONAA',1);
     END

     IF SPK THEN BEGIN
          BUYSHORT(HOLDING=0,SS,MARKET);
          TBUYSHORT(1,SS,MKT);
          POSITIONAA:=-1;
          EXTGBDATASET('POSITIONAA',-1);
      END
END

//本来已经持有仓位交易
IF BPK AND EXTGBDATA('POSITIONAA')=-1 AND TENTERBARS>=1 THEN BEGIN
SELLSHORT(HOLDING<0,SS,MARKET);
TSELLSHORT(1,SS,MKT);
END

IF BPK AND EXTGBDATA('POSITIONAA')=-1   AND TENTERBARS>=1 THEN BEGIN
   BUY(HOLDING<0,SS,MARKET);
   TBUY(1,SS,MKT);
   POSITIONAA:=1;
   EXTGBDATASET('POSITIONAA',1);
END

IF SPK AND EXTGBDATA('POSITIONAA')=1 AND TENTERBARS>=1 THEN BEGIN
SELL(HOLDING>0,SS,MARKET);
TSELL(1,SS,MKT);
END

IF SPK AND EXTGBDATA('POSITIONAA')=1 AND TENTERBARS>=1 THEN BEGIN
   BUYSHORT(HOLDING>0,SS,MARKET);
   TBUYSHORT(1,SS,MKT);
   POSITIONAA:=-1;
   EXTGBDATASET('POSITIONAA',-1);
END

AA:=TENTERBARS;
BB:=TEXITBARS;

DEBUGOUT('POSITIONAA=%.0F' ,POSITIONAA ) ;
DEBUGOUT('AA=%.0F' ,AA ) ;
DEBUGOUT('BB=%.0F' ,BB ) ;

[此贴子已经被作者于2013-2-20 14:42:59编辑过]

jinzhe

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：罗宾汉帖子：46311 积分：50819 威望：0 精华：2 注册：2011/3/23 8:50:25

Post By：2013/2/20 14:47:37 Post IP：58.246.57.26[只看该作者]

开仓分两段，一段是初次开仓，一段是后续开仓，

把这个加上

金字塔—专业程序化交易量化投资平台

客户服务部

----------------------------------------------------------- 欢迎您参加我公司的技术培训，具体培训需求请发邮件到service@weistock.com

您的宝贵建议或者投诉，请发往邮箱:weiwei@weistock.com

eric917

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：论坛游民帖子：271 积分：730 威望：0 精华：0 注册：2011/6/22 15:58:05

Post By：2013/2/20 14:57:33 Post IP：219.135.216.183[只看该作者]

SS:=1; //手数

EXTGBDATASET('POSITIONAA',0);

MAA:MA(C,5);

BPK:=CROSS(H,MAA);
SPK:=CROSS(MAA ,L);

//初次开仓
IF EXTGBDATA('POSITIONAA')=0    THEN BEGIN
     IF BPK THEN BEGIN
         BUY(HOLDING=0,SS,MARKET);
         TBUY(1,SS,MKT);
         POSITIONAA:=1;
         EXTGBDATASET('POSITIONAA',1);
     END

     IF SPK THEN BEGIN
          BUYSHORT(HOLDING=0,SS,MARKET);
          TBUYSHORT(1,SS,MKT);
          POSITIONAA:=-1;
          EXTGBDATASET('POSITIONAA',-1);
      END
END

//后续开仓
IF BPK AND EXTGBDATA('POSITIONAA')=-1 AND TENTERBARS>=1 THEN BEGIN
SELLSHORT(HOLDING<0,SS,MARKET);
TSELLSHORT(1,SS,MKT);
END

IF BPK AND EXTGBDATA('POSITIONAA')=-1   AND TENTERBARS>=1 THEN BEGIN
   BUY(HOLDING<0,SS,MARKET);
   TBUY(1,SS,MKT);
   POSITIONAA:=1;
   EXTGBDATASET('POSITIONAA',1);
END

IF SPK AND EXTGBDATA('POSITIONAA')=1 AND TENTERBARS>=1 THEN BEGIN
SELL(HOLDING>0,SS,MARKET);
TSELL(1,SS,MKT);
END

IF SPK AND EXTGBDATA('POSITIONAA')=1 AND TENTERBARS>=1 THEN BEGIN
   BUYSHORT(HOLDING>0,SS,MARKET);
   TBUYSHORT(1,SS,MKT);
   POSITIONAA:=-1;
   EXTGBDATASET('POSITIONAA',-1);
END

AA:=TENTERBARS;
BB:=TEXITBARS;

DEBUGOUT('POSITIONAA=%.0f' ,POSITIONAA) ;
DEBUGOUT('AA=%.0f' ,AA) ;
DEBUGOUT('BB=%.0f' ,BB) ;

谢谢

eric917

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：论坛游民帖子：271 积分：730 威望：0 精华：0 注册：2011/6/22 15:58:05

Post By：2013/2/20 15:03:24 Post IP：219.135.216.183[只看该作者]

SS:=1; //手数

EXTGBDATASET('POSITIONAA',0);

MAA:MA(C,5);

BPK:=CROSS(H,MAA);
SPK:=CROSS(MAA ,L);

//初次开仓
IF EXTGBDATA('POSITIONAA')=0 THEN BEGIN
IF BPK THEN BEGIN
BUY(HOLDING=0,SS,MARKET);
TBUY(1,SS,MKT);
POSITIONAA:=1;
EXTGBDATASET('POSITIONAA',1);
END

IF SPK THEN BEGIN
BUYSHORT(HOLDING=0,SS,MARKET);
TBUYSHORT(1,SS,MKT);
POSITIONAA:=-1;
EXTGBDATASET('POSITIONAA',-1);
END
END

//后续开仓
IF BPK AND EXTGBDATA('POSITIONAA')=-1 AND TENTERBARS>=1 THEN BEGIN
SELLSHORT(HOLDING<0,SS,MARKET);
TSELLSHORT(1,SS,MKT);
END

IF BPK AND EXTGBDATA('POSITIONAA')=-1 AND TENTERBARS>=1 THEN BEGIN
BUY(HOLDING<0,SS,MARKET);
TBUY(1,SS,MKT);
POSITIONAA:=1;
EXTGBDATASET('POSITIONAA',1);
END

IF SPK AND EXTGBDATA('POSITIONAA')=1 AND TENTERBARS>=1 THEN BEGIN
SELL(HOLDING>0,SS,MARKET);
TSELL(1,SS,MKT);
END

IF SPK AND EXTGBDATA('POSITIONAA')=1 AND TENTERBARS>=1 THEN BEGIN
BUYSHORT(HOLDING>0,SS,MARKET);
TBUYSHORT(1,SS,MKT);
POSITIONAA:=-1;
EXTGBDATASET('POSITIONAA',-1);
END

AA:=TENTERBARS;
BB:=TEXITBARS;

DEBUGOUT('POSITIONAA=%.0f' ,POSITIONAA) ;
DEBUGOUT('AA=%.0f' ,AA) ;
DEBUGOUT('BB=%.0f' ,BB) ;

谢谢