input:entrystop(0.5,0.1,1,0.1);
input:exitstop(0.5,0,1,1,0.1);

dayopen:=valuewhen(day>ref(day,1),open);

if holding=0 then begin
 if high>=dayopen*(1+entrystop/100) then begin
  myentryprice:=dayopen*(1+entrystop/100);
  myentryprice:=trimprice(myentryprice);
  buy(1,volunit,limitr,myentryprice);
  exit;
 end 
end

if holding=0 then begin
 if low<=dayopen*(1-entrystop/100) then begin
  myentryprice:=dayopen*(1-entrystop/100);
  myentryprice:=trimprice(myentryprice);
  buyshort(1,volunit,limitr,myentryprice);
  exit;
 end
end

if holding>0 then begin
 if low<=dayopen*(1-exitstop/100) then begin
  myexitprice:=dayopen*(1-exitstop/100);
  myexitprice:=trimprice(myexitprice);
  sell(1,holding,limitr,myexitprice);
  exit;
 end
 
 if time>=closetime(0) then
  sell(1,holding,limitr,close);
end

if holding<0 then begin
 if high>=dayopen*(1+exitstop/100) then begin
  myexitprice:=dayopen*(1+exitstop/100);
  myexitprice:=trimprice(myexitprice);
  sellshort(1,holding,limitr,myexitprice);
  exit;
 end
 
 if time>=closetime(0) then
  sellshort(1,holding,limitr,close);
end

资产:asset,noaxis,colorred,linethick2;