INPUT:SS(1,1,10000,1),N1(0.01,0.01,1,0.01);
if DATE<>REF(DATE,1) then begin
flag:=0;
end
N:=BARSLAST(DATE<>REF(DATE,1))+1;
昨收:=CALLSTOCK(STKLABEL,VTCLOSE,6,-1);
今开:=VALUEWHEN(N=1,O);
FIRSTH:VALUEWHEN(N=1,o*1.01);//第一根K线的最高价 上轨
FIRSTL:VALUEWHEN(N=1,o*0.99);//第一根K线的最低价 下轨
时间:time,LINETHICK0;
T1:=TIME>000000 AND TIME<170000;
T2:=TIME>=185900;
手数:=2;
//交易条件
开多条件:=C>FIRSTH AND N>=2;//从第二根K起，今开>=昨收*(1+N1)且当价格突破上轨
开空条件:=C<FIRSTL AND N>=2;//从第二根K起，今开>=昨收*(1+N1)且当价格跌穿下轨

开多:BUY(开多条件 AND HOLDING=0 and flag=0 and T1,手数,THISCLOSE);          //开多信号
开空:BUYSHORT(开空条件 AND HOLDING=0 and flag=0 and T1,手数,THISCLOSE);     //开空信号

if c<=hhv(h,ENTERBARS)*0.99 and holding>0 and ENTERBARS>1 then begin
SELL(holding>0,手数,THISCLOSE);
flag:=1;
end
if c>llv(l,ENTERBARS)*1.01 and holding<0 and ENTERBARS>1 then begin
SELLSHORT(holding<0,手数,THISCLOSE); 
flag:=1;
end

SELL(holding>0 and T2,手数,THISCLOSE);
SELLSHORT(holding<0 and T2,手数,THISCLOSE);