主题：求助阿火版主帮写个日内系统

修改了你在看看

1 分钟 主力合约，非主力合约，数据不保证每分钟数据都有，

有些交易没有提示（涨跌停有提示），不好看出是什么操作，仔细的想想。

variable:f=0,fk=0,ff=-1,hh=0,ll=0;

TR1:=MAX(MAX((HIGH-LOW),ABS(REF(CLOSE,1)-HIGH)),ABS(REF(CLOSE,1)-LOW));
ATR:=MA(TR1,144*60);
h1:=ref(hhv(h,30),1);
l1:=ref(llv(l,30),1);
if ref(date,31)<>ref(date,30) then
begin
   hh:=h1;
   ll:=l1;
   f:=1;
   ff:=-1;
end
s:hh;
ss:ll;
sf:f,linethick0;
sff:ff,linethick0;
if f=1 then
begin
   if ff=-1 and c>=hh then
   begin
     sellshort(holding<0,0,market);
     buy(holding=0,10,market);
     fk:=c;
     ff:=0;
     sell(holding>0,0,limit,c-ATR);//ATR 止损挂单
   end
   if ff=-1 and c<ll then
   begin
     sell(holding>0,0,market);
     buyshort(holding,10,market);
     fk:=c;
     ff:=3;
     sellshort(holding<0,0,limit,c-ATR);//ATR 止损挂单
   end
  
   if ff=0 and c-fk>=50*mindiff then
   begin
     sell(holding>0,30%,market);
     ff:=1;
   end
   if ff=1 and c-fk>=100*mindiff then
   begin
     sell(holding>0,30%,market);
     ff:=-2;
   end
   if ff=3 and fk-c>=50*mindiff then
      begin
        sellshort(holding<0,30%,market);
        ff:=4;
      end
   if ff=4 and fk-c>=100*mindiff then
      begin
        sellshort(holding<0,30%,market);
        ff:=-2;
      end
   if CLOSE>DYNAINFO( 54) then
   begin
   sell(holding>0,0,market);
   DRAWTEXT(1,h,'涨停' );
   end
   if close<DYNAINFO( 55) then
   begin
   sellshort(holding<0,0,market);
   DRAWTEXT(1,l,'跌停' );
   end
   if time>=151400  then
   begin
    sell(holding>0,0,market);
    sellshort(holding<0,0,market);
    f:=0;
   end
   if time>=145900  then
   begin
    sell(holding>0,0,market);
    sellshort(holding<0,0,market);
    f:=0;
   end
end