主题：哪位高人帮忙看一下吧

//如果当前没有持仓
if(position=0)  then  begin
 //多头进场条件
   long :=((lastC-llastC)/llastC)>0.03;
   l0:(lastC-llastC)/llastC,linethick0;
   //多头进场
   if long=1  then begin
       myEntryPrice:=if(OPEN>lastC+MINDIFF,open,lastC+MINDIFF);//判断跳空情况
       buy(1,posNum,LIMITR,myEntryPrice);
       position:=1;
       barCount:=BARPOS-1;
       lClosePrice:=llastC;//开仓时候记录开仓前日收盘价；
       closePrice:=lastC;
   end
end
 p1:position,linethick0;
 b:barCount,linethick0;
//有多头仓位的情况，3种情况，止损平仓，定时平仓，持有后移动止损获利平仓；
if  position=1  then  BEGIN 
   //止损平仓
   longX1:=low<(closePrice-(closePrice-lClosePrice)*0.65);//价格跌破信号出来时那一天长阳线的65%；
   l123:closePrice-(closePrice-lClosePrice)*0.65,linethick0;
   if(longX1=1)then  BEGIN    //无论如何,会进入,不知为何??????????????
  myExitPrice:=if(open<closePrice-(closePrice-lClosePrice)*0.65,open,closePrice-(closePrice-lClosePrice)*0.65);
  exitP:myExitPrice;
  myExitPrice:=floor(myExitPrice/MINDIFF)*MINDIFF;  //对齐到最小变动价位；
  sell(1,0,limitr,myExitPrice);//作为例子，使用限价指令，在图上标出；可以使用市价指令；
  position:=0;
   end

   //定时平仓
  { longX2:=low<(myEntryPrice-2*N);//myEntryPrice,不是局部变量吗
 if(longX2  and position=1)then  BEGIN
  myExitPrice:=if(open<myEntryPrice-2*N,open,myEntryPrice-2*N);
  myExitPrice:=floor(myExitPrice/MINDIFF)*MINDIFF;  //对齐到最小变动价位；
  sell(1,0,limitr,myExitPrice);//作为例子，使用限价指令，在图上标出；可以使用市价指令；
  position:=0;
  totolUnits：=0；
 end}
end
 p2:position,linethick0;