WARNING_DISABLE:4;
ss:=1; //手?jǐn)?shù)
extgbdataset('t1_position',0);
//0表示沒(méi)有倉(cāng)位，1表示持有多頭， -1表示持有空頭
extgbdataset('t1_holding',0);
//0表示沒(méi)有倉(cāng)位，>0表示持有多頭， <0表示持有空頭
extgbdataset('t1_enterbarpos',0);//記錄其開(kāi)倉(cāng)的K線

maa:ema(c,10);
bpk:=cross(c,maa);
spk:=cross(maa ,c);
//非最后一根K線退出
if not(islastbar) or workmode<>1 then exit;

//如果當(dāng)是最后一根k線，執(zhí)行
IF islastbar and  time<151000 then begin

 // 如果最后一根k線發(fā)生過(guò)開(kāi)倉(cāng)信號(hào)，則那一根k線不再交易
 if extgbdata('t1_enterbarpos') = barpos then begin
  goto continueline ;
 end
 
//沒(méi)有持倉(cāng)狀態(tài)
if extgbdata('t1_position')=0  and extgbdata('t1_holding')=0 then begin
     if  bpk then begin
      
        buy(1,ss,c);
        extgbdataset('t1_position',1);
        extgbdataset('t1_holding',ss);
        extgbdataset('t1_enterbarpos',barpos);
        goto continueline ;
      
      end

      if spk then begin
     
         buyshort(1,ss,c);
         extgbdataset('t1_position',-1);//程序化交易 www.kzuj.com.cn
         extgbdataset('t1_holding',-ss);
         extgbdataset('t1_enterbarpos',barpos);
         goto continueline ;
       
      end
end//沒(méi)有持倉(cāng)狀態(tài)
   
//持有倉(cāng)位狀態(tài)
   //持有空頭
if bpk and extgbdata('t1_position')=-1   and  extgbdata('t1_holding')<0 then begin

       sellshort(1,ss,c);
       buy(1,ss,c);
       extgbdataset('t1_position',1);
       extgbdataset('t1_holding',ss);
       extgbdataset('t1_enterbarpos',barpos);
       goto continueline ;
     
end
    //持有多頭
if spk and extgbdata('t1_position')=1    and  extgbdata('t1_holding')>0  then begin

        sell(1,ss,c);
        buyshort(1,ss,c);
        extgbdataset('t1_position',-1);
        extgbdataset('t1_holding',-ss);
        extgbdataset('t1_enterbarpos',barpos);
        goto continueline ;
      
end
END//if  ISLASTBAR

if  time>=151300 then begin

             sell(extgbdata('t1_holding')>0,ss,c);
             sellshort(extgbdata('t1_holding')<0,ss,c);
             extgbdataset('t1_position',0);
             extgbdataset('t1_holding',0);
                    
end

continueline@ 資產(chǎn):tasset,linethick0;
position:=extgbdata('t1_position');
t1holding:=extgbdata('t1_holding');
debugfile('d:\debug\803555.txt','position=%.0f' ,position) ;
debugfile('d:\debug\803555.txt','t1holding=%.0f' ,t1holding) ;

以上代碼能在金子塔里測(cè)試嗎？我用了，不能出信號(hào)。