void pip_value_calc()
{
   double total_profit_buy = 0.0;
   double total_pips_buy   = 0.0;
   double total_profit_sell = 0.0;
   double total_pips_sell   = 0.0;
   for(int i = 0; i < OrdersTotal(); i++)
   {
      if(OrderSelect(i, SELECT_BY_POS, MODE_TRADES))
      {
         if(OrderSymbol()!= _Symbol) continue;
         if(OrderType() >1) continue;
         
            double profit = OrderProfit();
            double lots   = OrderLots();
            double open   = OrderOpenPrice();
            double current= (OrderType() == OP_BUY) ? Bid : Ask;
            
            double diff   = (current - open) / Point;
            if(OrderType() == OP_SELL) diff = -diff;
            
            if(OrderType() == OP_BUY)
            {
               total_profit_buy += profit;
               total_pips_buy   += diff * lots;
            }
            else if(OrderType() == OP_SELL)
            {
               total_profit_sell += profit;
               total_pips_sell   += diff * lots;
            }
      }
   }
   if(MathAbs(total_pips_buy) >eps)
   {
      double pip_value_buy = MathAbs(total_profit_buy) / MathAbs(total_pips_buy);
      Alert("Pip Value for 1 Lot (Buy Trades - ", Symbol(), "): ", DoubleToStr(dig*pip_value_buy, 8), " ", AccountCurrency());
   }
   if(MathAbs(total_pips_sell) >eps)
   {
      double pip_value_sell = MathAbs(total_profit_sell) / MathAbs(total_pips_sell);
      Alert("Pip Value for 1 Lot (Sell Trades - ", Symbol(), "): ", DoubleToStr(dig*pip_value_sell, 8), " ", AccountCurrency());
   }
   if(MathAbs(total_pips_buy) <=eps && MathAbs(total_pips_sell) <=eps)
   {
      Alert("No open trades on this symbol.");
   }
}