//________________COUNT BUYS__________________  
   int BuyCnt = 0;
  
   i = OrdersTotal();
      for( i=0;i<OrdersTotal();i++)                                
  {
    OrderSelect(i, SELECT_BY_POS, MODE_TRADES);
     
    if (OrderSymbol() == Symbol())
     
        type = OrderType();

    if (type == OP_BUY) BuyCnt++;
  }
//________________COUNT SELLS__________________ 
   int SellCnt = 0;
  
           for( i=0;i<OrdersTotal();i++)                          
  {
    OrderSelect(i, SELECT_BY_POS, MODE_TRADES); 

    if (OrderSymbol() == Symbol())
    
    type = OrderType();

    if (type == OP_SELL) SellCnt++;
   }

//____If BUYS >= SELLS, close BUYS at Profit whilst true

    while (BuyCnt>=SellCnt+5)             //+5 means can be unhedged by 5 positions

             for( i=0;i<OrdersTotal();i++)                                

   {
    OrderSelect(i, SELECT_BY_POS, MODE_TRADES); 
    if (OrderSymbol() == Symbol()) 

 if ((type==OP_BUY)&& OrderProfit()>0.1)
                OrderClose(OrderTicket(),Lots,Bid,0,0);

//____If SELLS >= BUYS, close SELLS at Profit whilst true
                

 while (SellCnt>=BuyCnt+5)              //+5 means can be unhedged by 5 positions


             for( i=0;i<OrdersTotal();i++)                                

   {
    OrderSelect(i, SELECT_BY_POS, MODE_TRADES); 
    if (OrderSymbol() == Symbol()) 
 
 if ((type==OP_SELL)&& OrderProfit()>0.1)
                OrderClose(OrderTicket(),Lots,Ask,0,0);

   }
   }