奇怪的买入

刘延友 · 发表于 2023-11-27 14:46

这时我的一定交易代码：
//SZ002416（SZ002416）

//更新最最高价和最低价
SZ002416最新价:=DYNAINFO2(7,'SZ002416');

IF SZ002416最新价>EXTGBDATA('SZ002416最高价') THEN BEGIN
EXTGBDATASET('SZ002416最高价',SZ002416最新价);
END
IF SZ002416最新价<EXTGBDATA('SZ002416最低价') OR EXTGBDATA('SZ002416最低价')<=0 THEN BEGIN
EXTGBDATASET('SZ002416最低价',SZ002416最新价);
END

//计算仓位系数，根据股价设立仓位系数。
IF DYNAINFO2(4,'SZ002416')<16 THEN 仓位系数:=1;
IF DYNAINFO2(4,'SZ002416')>=16 THEN 仓位系数:=1;

//计算交易数量
SZ002416持仓量:=DYNAINFO2(45,'SZ002416');
IF SZ002416持仓量>4000*仓位系数 THEN BEGIN
SZ002416持仓量:=4000*仓位系数;
END

IF SZ002416持仓量<=600*仓位系数 OR SZ002416持仓量>=3600*仓位系数 THEN BEGIN
SZ002416交易量:=200*仓位系数;
END
IF (SZ002416持仓量>600*仓位系数 AND SZ002416持仓量<=1200*仓位系数) OR (SZ002416持仓量>=3000*仓位系数 AND SZ002416持仓量<3600*仓位系数) THEN BEGIN
SZ002416交易量:=200*仓位系数;
END
IF SZ002416持仓量>1200*仓位系数 AND SZ002416持仓量<3000*仓位系数 THEN BEGIN
SZ002416交易量:=200*仓位系数;
END

//根据仓位，设定加仓减仓股价系数，控制减仓加仓难度
SZ002416加仓系数:=SZ002416持仓量*0+0.02; //加仓系数为加仓时的涨幅。持仓量越大，加仓系数越大，加仓价格涨幅越大，加仓难道越大。反之亦然。
SZ002416减仓系数:=(4000-SZ002416持仓量)*0+0.02; //减仓系数为减仓时的跌幅。持仓量越大，减仓系数越小，减仓价格跌幅越小，减仓难道越小。反之亦然。

//交易
IF SZ002416最新价>EXTGBDATA('SZ002416最低价')*(1+SZ002416减仓系数) THEN BEGIN //最新价比最低价高(1+SZ002416减仓系数)，卖。
TSELL (DYNAINFO2(60,'SZ002416')>=SZ002416交易量,SZ002416交易量,MKT,0,0,'','SZ002416');//昨日持仓够卖
IF DYNAINFO2(213,'SZ002416')<TIME+30 OR DYNAINFO2(217,'SZ002416')<TIME+30 THEN BEGIN
      EXTGBDATASET('SZ002416最高价',SZ002416最新价); //更新最高价和最低价
      EXTGBDATASET('SZ002416最低价',SZ002416最新价); //更新最高价和最低价
END
END

IF SZ002416最新价<EXTGBDATA('SZ002416最高价')*(1-SZ002416加仓系数) THEN BEGIN //最新价比最个最高价低(1-SZ002416加仓系数)，买。
TBUY (SZ002416最新价<80,SZ002416交易量,MKT,0,0,'','SZ002416'); //股价不能超过80元
IF DYNAINFO2(213,'SZ002416')<TIME+30 OR DYNAINFO2(217,'SZ002416')<TIME+30 THEN BEGIN
      EXTGBDATASET('SZ002416最高价',SZ002416最新价); //更新最高价和最低价
      EXTGBDATASET('SZ002416最低价',SZ002416最新价); //更新最高价和最低价
END
END

//结束

为什么系统会频繁交易？