//+------------------------------------------------------------------+
//|                                         luktom lot size calc.mq4 |
//|                                   luktom :: ?ukasz Tomaszkiewicz |
//|                                               http://luktom.biz/ |
//+------------------------------------------------------------------+
#property copyright "luktom :: ?ukasz Tomaszkiewicz"
#property link      "http://luktom.biz/"

#property indicator_chart_window

extern int stoploss;
extern double loss;

int init() 
{
	start();

	return(0);
}
  
int deinit() 
{
	Comment("");
}  
  
int start() 
{
   double tv=MarketInfo(Symbol(),MODE_TICKVALUE);
   double ls=loss/(stoploss*tv);
   
   string s="\n";
   s=s+"\n";
   s=s+"\n";
   s=s+"Stop loss: " + stoploss + "\n";
   s=s+"Acceptable loss: " + DoubleToStr(loss,2) + "\n";
   s=s+"tv: " + DoubleToStr(MarketInfo(Symbol(),MODE_TICKVALUE)*ls,2) + "\n";
   s=s+"Loss/equity: " + DoubleToStr(loss/AccountEquity()*100,2) + "%\n";
   s=s+"Spread: " + DoubleToStr(MarketInfo(Symbol(), MODE_SPREAD),0) + "\n";
   s=s+"\n";
   s=s+"LOT SIZE: " + DoubleToStr(ls,2) + "\n";
   s=s+"\n"; 
   
   Comment("\n" + s);


 return(0);
}