PS_Calculator

//+------------------------------------------------------------------+
//|                                                PS_calculator.mq3 |
//|                  Copyright © 2007, itLogics itlogics@itlogics.eu |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2007, itLogics"
#property link      "http://www.powertradingfx.com"
#property indicator_separate_window
extern double percent_risk = 2;
extern int stoploss_1 = 10;
extern int stoploss_2 = 20;
extern int stoploss_3 = 30;
extern int stoploss_4 = 40;
extern color description_color = Black;
extern bool show_spread = true;
//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int init()
  {
   return(0);
  }
//+------------------------------------------------------------------+
//| Custom indicator deinitialization function                       |
//+------------------------------------------------------------------+
int deinit()
  {
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| Custom indicator iteration function                              |
//+------------------------------------------------------------------+
int start()
  {
   int spread=MarketInfo(Symbol(),MODE_SPREAD);
   double equity=AccountEquity( );
   double risk;
   double lotsize1;
   double lotsize2;
   double lotsize3;
   double lotsize4;
   double tickvalue=MarketInfo(Symbol(),MODE_TICKVALUE);
   double pipvalue1;
   double pipvalue2;
   double pipvalue3;
   double pipvalue4;
   double risk1;
   double risk2;
   double risk3;
   double risk4;
   risk=percent_risk/100;
   lotsize1=NormalizeDouble(equity*risk/stoploss_1/tickvalue,2);
   lotsize2=NormalizeDouble(equity*risk/stoploss_2/tickvalue,2);
   lotsize3=NormalizeDouble(equity*risk/stoploss_3/tickvalue,2);
   lotsize4=NormalizeDouble(equity*risk/stoploss_4/tickvalue,2);
   pipvalue1=(lotsize1*tickvalue);
   pipvalue2=(lotsize2*tickvalue);
   pipvalue3=(lotsize3*tickvalue);
   pipvalue4=(lotsize4*tickvalue);
   risk1=pipvalue1*stoploss_1/equity*100;
   risk2=pipvalue2*stoploss_2/equity*100;
   risk3=pipvalue3*stoploss_3/equity*100;
   risk4=pipvalue4*stoploss_4/equity*100;
        ObjectCreate("SLdesc", OBJ_LABEL, WindowFind("PS_Calculator"), 0, 0);
        ObjectSetText("SLdesc","Stop Loss",10, "Arial Bold", description_color);
        ObjectSet("SLdesc", OBJPROP_CORNER, 0);
        ObjectSet("SLdesc", OBJPROP_XDISTANCE, 200);
        ObjectSet("SLdesc", OBJPROP_YDISTANCE, 2);
        ObjectCreate("LSdesc", OBJ_LABEL, WindowFind("PS_Calculator"), 0, 0);
        ObjectSetText("LSdesc","Lot Size",10, "Arial Bold", description_color);
        ObjectSet("LSdesc", OBJPROP_CORNER, 0);
        ObjectSet("LSdesc", OBJPROP_XDISTANCE, 290);
        ObjectSet("LSdesc", OBJPROP_YDISTANCE, 2);
        ObjectCreate("PVdesc", OBJ_LABEL, WindowFind("PS_Calculator"), 0, 0);
        ObjectSetText("PVdesc","Pip Value",10, "Arial Bold", description_color);
        ObjectSet("PVdesc", OBJPROP_CORNER, 0);
        ObjectSet("PVdesc", OBJPROP_XDISTANCE, 370);
        ObjectSet("PVdesc", OBJPROP_YDISTANCE, 2);
        ObjectCreate("RRdesc", OBJ_LABEL, WindowFind("PS_Calculator"), 0, 0);
        ObjectSetText("RRdesc","Real Risk",10, "Arial Bold", description_color);
        ObjectSet("RRdesc", OBJPROP_CORNER, 0);
        ObjectSet("RRdesc", OBJPROP_XDISTANCE, 455);
        ObjectSet("RRdesc", OBJPROP_YDISTANCE, 2);
        ObjectCreate("stoploss_1", OBJ_LABEL, WindowFind("PS_Calculator"), 0, 0);
        ObjectSetText("stoploss_1"," "+stoploss_1,10, "Arial Bold", Red);
        ObjectSet("stoploss_1", OBJPROP_CORNER, 0);
        ObjectSet("stoploss_1", OBJPROP_XDISTANCE, 218);
        ObjectSet("stoploss_1", OBJPROP_YDISTANCE, 15);
        ObjectCreate("stoploss_2", OBJ_LABEL, WindowFind("PS_Calculator"), 0, 0);
        ObjectSetText("stoploss_2"," "+stoploss_2,10, "Arial Bold", Red);
        ObjectSet("stoploss_2", OBJPROP_CORNER, 0);
        ObjectSet("stoploss_2", OBJPROP_XDISTANCE, 218);
        ObjectSet("stoploss_2", OBJPROP_YDISTANCE, 28);
        ObjectCreate("stoploss_3", OBJ_LABEL, WindowFind("PS_Calculator"), 0, 0);
        ObjectSetText("stoploss_3"," "+stoploss_3,10, "Arial Bold", Red);
        ObjectSet("stoploss_3", OBJPROP_CORNER, 0);
        ObjectSet("stoploss_3", OBJPROP_XDISTANCE, 218);
        ObjectSet("stoploss_3", OBJPROP_YDISTANCE, 41);
        ObjectCreate("stoploss_4", OBJ_LABEL, WindowFind("PS_Calculator"), 0, 0);
        ObjectSetText("stoploss_4"," "+stoploss_4,10, "Arial Bold", Red);
        ObjectSet("stoploss_4", OBJPROP_CORNER, 0);
        ObjectSet("stoploss_4", OBJPROP_XDISTANCE, 218);
        ObjectSet("stoploss_4", OBJPROP_YDISTANCE, 54);
        ObjectCreate("lotsize1", OBJ_LABEL, WindowFind("PS_Calculator"), 0, 0);
        ObjectSetText("lotsize1"," "+DoubleToStr(lotsize1,2),10, "Arial Bold", Blue);
        ObjectSet("lotsize1", OBJPROP_CORNER, 0);
        ObjectSet("lotsize1", OBJPROP_XDISTANCE, 295);
        ObjectSet("lotsize1", OBJPROP_YDISTANCE, 15);
        ObjectCreate("lotsize2", OBJ_LABEL, WindowFind("PS_Calculator"), 0, 0);
        ObjectSetText("lotsize2"," "+DoubleToStr(lotsize2,2),10, "Arial Bold", Blue);
        ObjectSet("lotsize2", OBJPROP_CORNER, 0);
        ObjectSet("lotsize2", OBJPROP_XDISTANCE, 295);
        ObjectSet("lotsize2", OBJPROP_YDISTANCE, 28);
        ObjectCreate("lotsize3", OBJ_LABEL, WindowFind("PS_Calculator"), 0, 0);
        ObjectSetText("lotsize3"," "+DoubleToStr(lotsize3,2),10, "Arial Bold", Blue);
        ObjectSet("lotsize3", OBJPROP_CORNER, 0);
        ObjectSet("lotsize3", OBJPROP_XDISTANCE, 295);
        ObjectSet("lotsize3", OBJPROP_YDISTANCE, 41);
        ObjectCreate("lotsize4", OBJ_LABEL, WindowFind("PS_Calculator"), 0, 0);
        ObjectSetText("lotsize4"," "+DoubleToStr(lotsize4,2),10, "Arial Bold", Blue);
        ObjectSet("lotsize4", OBJPROP_CORNER, 0);
        ObjectSet("lotsize4", OBJPROP_XDISTANCE, 295);
        ObjectSet("lotsize4", OBJPROP_YDISTANCE, 54);
        ObjectCreate("pipvalue1", OBJ_LABEL, WindowFind("PS_Calculator"), 0, 0);
        ObjectSetText("pipvalue1"," "+DoubleToStr(pipvalue1,2),10, "Arial Bold", Blue);
        ObjectSet("pipvalue1", OBJPROP_CORNER, 0);
        ObjectSet("pipvalue1", OBJPROP_XDISTANCE, 380);
        ObjectSet("pipvalue1", OBJPROP_YDISTANCE, 15);
        ObjectCreate("pipvalue2", OBJ_LABEL, WindowFind("PS_Calculator"), 0, 0);
        ObjectSetText("pipvalue2"," "+DoubleToStr(pipvalue2,2),10, "Arial Bold", Blue);
        ObjectSet("pipvalue2", OBJPROP_CORNER, 0);
        ObjectSet("pipvalue2", OBJPROP_XDISTANCE, 380);
        ObjectSet("pipvalue2", OBJPROP_YDISTANCE, 28);
        ObjectCreate("pipvalue3", OBJ_LABEL, WindowFind("PS_Calculator"), 0, 0);
        ObjectSetText("pipvalue3"," "+DoubleToStr(pipvalue3,2),10, "Arial Bold", Blue);
        ObjectSet("pipvalue3", OBJPROP_CORNER, 0);
        ObjectSet("pipvalue3", OBJPROP_XDISTANCE, 380);
        ObjectSet("pipvalue3", OBJPROP_YDISTANCE, 41);
        ObjectCreate("pipvalue4", OBJ_LABEL, WindowFind("PS_Calculator"), 0, 0);
        ObjectSetText("pipvalue4"," "+DoubleToStr(pipvalue4,2),10, "Arial Bold", Blue);
        ObjectSet("pipvalue4", OBJPROP_CORNER, 0);
        ObjectSet("pipvalue4", OBJPROP_XDISTANCE, 380);
        ObjectSet("pipvalue4", OBJPROP_YDISTANCE, 54);
        ObjectCreate("risk1", OBJ_LABEL, WindowFind("PS_Calculator"), 0, 0);
        ObjectSetText("risk1"," "+DoubleToStr(risk1,2),10, "Arial Bold", Blue);
        ObjectSet("risk1", OBJPROP_CORNER, 0);
        ObjectSet("risk1", OBJPROP_XDISTANCE, 465);
        ObjectSet("risk1", OBJPROP_YDISTANCE, 15);
        ObjectCreate("risk2", OBJ_LABEL, WindowFind("PS_Calculator"), 0, 0);
        ObjectSetText("risk2"," "+DoubleToStr(risk2,2),10, "Arial Bold", Blue);
        ObjectSet("risk2", OBJPROP_CORNER, 0);
        ObjectSet("risk2", OBJPROP_XDISTANCE, 465);
        ObjectSet("risk2", OBJPROP_YDISTANCE, 28);
        ObjectCreate("risk3", OBJ_LABEL, WindowFind("PS_Calculator"), 0, 0);
        ObjectSetText("risk3"," "+DoubleToStr(risk3,2),10, "Arial Bold", Blue);
        ObjectSet("risk3", OBJPROP_CORNER, 0);
        ObjectSet("risk3", OBJPROP_XDISTANCE, 465);
        ObjectSet("risk3", OBJPROP_YDISTANCE, 41);
        ObjectCreate("risk4", OBJ_LABEL, WindowFind("PS_Calculator"), 0, 0);
        ObjectSetText("risk4"," "+DoubleToStr(risk4,2),10, "Arial Bold", Blue);
        ObjectSet("risk4", OBJPROP_CORNER, 0);
        ObjectSet("risk4", OBJPROP_XDISTANCE, 465);
        ObjectSet("risk4", OBJPROP_YDISTANCE, 54);
        
        
        ObjectCreate("symbol", OBJ_LABEL, WindowFind("PS_Calculator"), 0, 0);
        ObjectSetText("symbol",Symbol(),15, "Arial Bold", description_color);
        ObjectSet("symbol", OBJPROP_CORNER, 0);
        ObjectSet("symbol", OBJPROP_XDISTANCE, 20);
        ObjectSet("symbol", OBJPROP_YDISTANCE, 14);
        
        if (show_spread)
        {
        ObjectCreate("spreaddesc", OBJ_LABEL, WindowFind("PS_Calculator"), 0, 0);
        ObjectSetText("spreaddesc","Spread:",10, "Arial Bold", description_color);
        ObjectSet("spreaddesc", OBJPROP_CORNER, 0);
        ObjectSet("spreaddesc", OBJPROP_XDISTANCE, 60);
        ObjectSet("spreaddesc", OBJPROP_YDISTANCE, 40);
        
        ObjectCreate("spread", OBJ_LABEL, WindowFind("PS_Calculator"), 0, 0);
        ObjectSetText("spread"," "+spread,30, "Arial Bold", Green);
        ObjectSet("spread", OBJPROP_CORNER, 0);
        ObjectSet("spread", OBJPROP_XDISTANCE, 100);
        ObjectSet("spread", OBJPROP_YDISTANCE, 22);
        }
//----
   return(0);
  }
//+------------------------------------------------------------------+