Vars

     Series<Bool>   BP2KB;

     Global Numeric KS;

Defs

     Numeric NN()
       {//NN:=BARSLAST(DATE<>REF(DATE,1))+1;
          return BarsSinceToday()+1;
       }    

Numeric BUYTRIG()
{//BUYTRIG:=151/100*RANGER;
return 151/100*RANGER;    
}

Numeric BUYPOSITION1()
{//BUYPOSITION1:=REF(OPEN,NN-1)+BUYTRIG;
    return O[NN-1] + BUYTRIG;
}

Numeric RANGER()
{//RANGER:=IFELSE((HHH - LC) >= (HC - LLL),HHH - LC,HC - LLL);
if ((HHH - LC) >= (HC - LLL))
    KS=HHH - LC;
    Else
    KS=HC - LLL;
    return KS;
}

Numeric BUYPOSITION1()

{//BUYPOSITION1:=REF(OPEN,NN-1)+BUYTRIG;

return O[NN-1] + BUYTRIG;

}

BOOL EXIT_BUY()
{ //EXIST(H>BUYPOSITION1,NN)
    RETURN CountIf(H>BUYPOSITION1 , NN)>0;
}

Bool BP2()
{

return H > BUYPOSITION1 and !BP2KB[1] and CountIf(H>BUYPOSITION1 AND !BP2KB[1],NN)<2;
}

OnBar(ArrayRef<Integer> indexs)
    {

BP2KB =EXIT_BUY();

PlotBool("BP2KB",BP2KB);

}