主题：总赢利大于2000元或总亏损大于3000元时全部平仓

buycond:=ref(count(c>o,2)=2,1);//开仓条件

if buycond  and holding=0  and flag=0 then //全局变量flag为0时才开仓
 begin
 buy(1,1,limitr,c+2*mindiff);//买开仓

 end
 
//赢利超过2000,平仓,且当日不再开仓

if holding>0 and and openprofit>2000  then   

 begin

 sell(1,1,market); //平仓

 flag=1;//全局变量赋值为1

 end

//亏损超过3000,平仓,且当日不再开仓

if holding>0 and and openprofit<-3000  then

 begin

 sell(1,1,market); 

 flag=1;//全局变量赋值为1

 end

if time=closetime(0) then flag:=0;//收盘时,全局变量赋值为0,否则第二天满足条件不会再开仓