//+------------------------------------------------------------------+
//|                                       Max&Operating_Leverage.mq4 |
//+------------------------------------------------------------------+
#property strict
#property indicator_chart_window

extern string  OL_Text = "Operating Leverage: ";
extern string  ML_Text = "Max Leverage: ";  
extern string  Font = "Arial";
extern int     FontSize = 10;
extern color   OL_Fontcolor=clrDodgerBlue;
extern color   ML_Fontcolor=clrDarkOrange;
input ENUM_BASE_CORNER corner=CORNER_RIGHT_UPPER;
extern int     OL_XDISTANCE=5; 
extern int     OL_YDISTANCE=20;
extern int     ML_XDISTANCE=200; 
extern int     ML_YDISTANCE=20;

//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
  int OnInit()
  {

 return(INIT_SUCCEEDED);
  }
//+------------------------------------------------------------------+
//| Deinit                   
//+------------------------------------------------------------------+
  int deinit()
  {
  ObjectDelete("Operating Leverage");
  ObjectDelete("Max Leverage");
  return(0);
  }
//+------------------------------------------------------------------+
//| Custom indicator iteration function                              |
//+------------------------------------------------------------------+
  int OnCalculate(const int rates_total,
                const int prev_calculated,
                const datetime &time[],
                const double &open[],
                const double &high[],
                const double &low[],
                const double &close[],
                const long &tick_volume[],
                const long &volume[],
                const int &spread[])
  {
 
 double CL=0;   
 CL=(AccountBalance()/AccountMargin());
  
  ObjectCreate ("Operating Leverage", OBJ_LABEL,0,0,0);
  ObjectSet ("Operating Leverage", OBJPROP_CORNER,corner);
  ObjectSet ("Operating Leverage", OBJPROP_XDISTANCE,OL_XDISTANCE);
  ObjectSet ("Operating Leverage", OBJPROP_YDISTANCE,OL_YDISTANCE);
  ObjectSetText("Operating Leverage",OL_Text+DoubleToStr(CL,1),FontSize,Font,OL_Fontcolor); 
  
  ObjectCreate ("Max Leverage", OBJ_LABEL,0,0,0);
  ObjectSet ("Max Leverage", OBJPROP_CORNER,corner);
  ObjectSet ("Max Leverage", OBJPROP_XDISTANCE,ML_XDISTANCE);
  ObjectSet ("Max Leverage", OBJPROP_YDISTANCE,ML_YDISTANCE);
  ObjectSetText("Max Leverage",ML_Text+DoubleToStr(AccountLeverage(),0),FontSize,Font,ML_Fontcolor); 

 return(rates_total);
  }
//+------------------------------------------------------------------+