主题：-----最高价格 回落止损问题

INPUT:N(16,1,30,1),K1(0.4,0.1,1,0.1),K2(0.8,0.1,1,0.1),NMIN(6,1,10,1),SS(1000,100,1000,100);
CYC:=BARSLAST(DATE<>REF(DATE,1))+1;
LHIGH:=CALLSTOCK(STKLABEL,VTHIGH,6,-1);
LLOW:=CALLSTOCK(STKLABEL,VTLOW,6,-1);
LCLOSE:=CALLSTOCK(STKLABEL,VTCLOSE,6,-1);
TOPEN:=VALUEWHEN(CYC=1,OPEN);
HH:=HHV(LHIGH,N);//N日HIGH的最高价
HC:=HHV(LCLOSE,N);//N日CLOSE的最高价
LC:=LLV(LCLOSE,N);//N日CLOSE的最低价
LL:=LLV(LLOW,N);//N日LOW的最低价
MOVING:=MAX(HH-LL,HC-LL);//RANGE
T1:=TIME>=131000 AND TIME<=185200;
T2:=TIME>=185400 AND TIME<=190000;
HOLDER:=SS;
UP:TOPEN+K1*MOVING;
DOWN:TOPEN-K2*MOVING;
//C>UP AND HOLDING=0 :=C>UP AND HOLDING=0 ;
//C<DOWN AND HOLDING=0:=C<DOWN AND HOLDING=0 ;
globalvariable:A:=0;
globalvariable:B:=0;
globalvariable:MAXP:=0;
globalvariable:P:=0;
globalvariable:MAXP:=0;
globalvariable:DOWN:=0;
///每天的 开盘的时候 持仓为0 且没有开过仓

IF TIME >=130000  AND TIME <=130200 THEN BEGIN
   B:=0;//A 代表是否有仓位 b代表是否开过仓位
   A:=0;
END
///

//持有空仓的情况
IF  1 THEN BEGIN
 IF T1 THEN BEGIN
   IF C>UP  and tbuyHOLDING(0)=0  THEN BEGIN
    tBUY( B=0 AND A=0,HOLDER,mkt);
    A:=1;
    B:=1;
    P:=tAVGENTERPRICE();
    MAXP:=0;   
   END
  
   IF C<DOWN AND tsellHOLDING(0)=0 THEN BEGIN
    tBUYSHORT( B=0 AND A=0,HOLDER,mkt);
          A:=-1;
          B:=1;
          P:=0;
          MAXP:=0;
   END
  
 END
 
END

IF tHOLDING>0 THEN BEGIN

  IF T1 THEN BEGIN
   //最高价格 浮亏10跳 止盈操作
  
       If tENTERBARS>0 then begin
       {
           IF  h >p  THEN BEGIN//MAKE A MAX
           p:= h;
           END
          
           IF p - C >10 * MINDIFF THEN BEGIN//IF BIGGER THEN SELL
           SELL(1,HOLDER,MARKET);
           A:=0;
           B:=1;
           MAXP:=0;
          
           p:=0;
           END
   }
    //      
////////+百分比止盈
{
          P:=(O-AVGENTERPRICE())/AVGENTERPRICE() *100;
       
          IF P>MAXP THEN BEGIN
          MAXP=P;
          DOWN:=(MAXP-P)/MAXP*100;
          END
         
   
         
          IF DOWN >=90 THEN BEGIN
          SELL(1,HOLDER,MARKET);
          MAXP:=0;
          P:=0;
          A:=0;
          B:=1;         
          END
    }   
///////////////////////         
          //浮亏10跳 止损
         
          IF  ( tAVGENTERPRICE()- DYNAINFO(  7)>10*MINDIFF) THEN BEGIN
          tSELL(1,HOLDER,MkT);
          A:=0;
          B:=1;
          END
        
       end 
   //
  END
 
  IF T2 THEN BEGIN
  tSELL(1,HOLDER,mkt);
  A:=0;
  B:=1;
  END
END