Vars

Series<Numeric> Lots(1);

   Series<Numeric> Num_A;

   Series<Numeric> Num_B;

Begin

   Num_A=ExitSize;

   Num_B=NumWinTrades;

   If(ExitSize!=Num_A[1])

   {

    If(NumWinTrades !=Num_B[1])

    { Lots=Min(Max(Lots-1,1),15);}

    If(NumWinTrades ==Num_B[1])

    { Lots=Min(Max(Lots+1,1),15);}

   }

   If(ExitSize==Num_A[1])

   {

    Lots=Lots[1];

   }

Return Min(Max(Lots,1),15);

End