主题：请教一下，后台程序化当根K线只开仓一次？

下面编了一个后台交易系统：

平多:=L<MAH1;
开多:=H>上轨 AND H>MAN ;

平空:=H>MAL1;
开空:=L<下轨 AND H<MAN ;

交易时间:=TIME>090000 AND TIME<=151300;
开仓时间:=TIME>090000 AND TIME<=150500;

if 平空 AND EXTGBDATA('POSITION')=-1 then begin
   tsellshort(1,SS,mkt);
   EXTGBDATASET('POSITION',0);
end

if 开多 AND 交易时间 AND EXTGBDATA('POSITION')=0 then begin
   tbuy(1,SS,mkt);
   EXTGBDATASET('POSITION',1);
end

if 平多 AND EXTGBDATA('POSITION')=1 then begin
   tsell(1,SS,mkt);
   EXTGBDATASET('POSITION',0);
end

if 开空 AND 交易时间 AND EXTGBDATA('POSITION')=0 then begin
   tbuyshort(1,SS,mkt);
   EXTGBDATASET('POSITION',-1);
end

IF NOT(交易时间) AND EXTGBDATA('POSITION')<>0 THEN BEGIN
   TSELL(1,SS,MKT);
   TSELLSHORT(1,SS,MKT);
END 

但用后台测试却一根K线出现了多次交易，怎么才能定义一根K线只开仓一次呢？谢谢

有人回答一下吗？刚刚测试过，本来账号有2张多单 2张空单，加载这个后台交易系统后，首先触发了平多条件，结果就把我账号里面的1张多单给平了，如何可以使其区分开呢？麻烦解答一下

请问是这样吗？

VARIABLE : POSITION=0 ; 

这个我已经写了

如果上面的写法不对，能否教一下应该怎么将全局变量记录呢?麻烦你了

如果只能做一个开平动作，应该怎么表达呢？谢谢

如果不论开平，只做一个动作，又应该怎么表达呢？谢谢

在论坛上搜不到相关的例子，麻烦你了

您所指的tenterbars  texitbars  说明里面好像说只有-1 ,0, 1   您所说的>1是什么意思呢？  能否说明详细一点了，大侠，万分感激

大侠，请帮忙看一下，我这样写，在帐号本来持有仓位的情况下，会不会出现误平仓的情况（每根K线值开仓一次）：

MAA:MA(C,5);

BPK:=H>MAA ;
SPK:=L <MAA ;

//当交易系统加载的时候，判断第一次开多仓或者开空仓
IF  EXTGBDATA('POSITION-15')=0 AND  TENTERBARS=-1 THEN BEGIN
     IF  BPK THEN  BEGIN
         TBUY(1,SS,MKT);
         EXTGBDATASET('POSITION-15',1);
     END
    
     IF  SPK THEN  BEGIN
          TBUYSHORT(1,SS,MKT);
          EXTGBDATASET('POSITION-15',-1);
      END
 END

//加载第一次开仓后，再次交易
IF BPK AND EXTGBDATA('POSITION-15')<0  AND  TENTERBARS>=1  THEN BEGIN
   TSELLSHORT(1,SS,MKT);
   TBUY(1,SS,MKT);
   EXTGBDATASET('POSITION-15',1);
END

IF SPK AND EXTGBDATA('POSITION-15')>0  AND  TENTERBARS>=1  THEN BEGIN
   TSELL(1,SS,MKT);
   TBUYSHORT(1,SS,MKT);
   EXTGBDATASET('POSITION-15',-1);
END

谢谢

大侠，我上面这样写可以吗？

大侠，你看看这样表达对吗？是不是你说的那个意思？

平多:=L<MAH1;
开多:=H>上轨 AND H>MAN ;

平空:=H>MAL1;
开空:=L<下轨 AND H<MAN ;

交易时间:=TIME>090000 AND TIME<=151300;
开仓时间:=TIME>090000 AND TIME<=150500;

if 平空 AND EXTGBDATA('POSITION')=-1 AND TEXITBARS>1 then begin
   tsellshort(1,SS,mkt);
   EXTGBDATASET('POSITION',0);
end

if 开多 AND 交易时间 AND EXTGBDATA('POSITION')=0  AND  TENTERBARS>1 then begin
   tbuy(1,SS,mkt);
   EXTGBDATASET('POSITION',1);
end

if 平多 AND EXTGBDATA('POSITION')=1 AND TEXITBARS>1 Then begin
   tsell(1,SS,mkt);
   EXTGBDATASET('POSITION',0);
end

if 开空 AND 交易时间 AND EXTGBDATA('POSITION')=0  AND  TENTERBARS>1 then begin
   tbuyshort(1,SS,mkt);
   EXTGBDATASET('POSITION',-1);
end

IF NOT(交易时间) AND EXTGBDATA('POSITION')<>0  AND TEXITBARS>1 THEN BEGIN
   TSELL(1,SS,MKT);
   TSELLSHORT(1,SS,MKT);
END