#property copyright "Copyright © 2006, MetaQuotes Software Corp."
#property link      "http://www.metaquotes.net"

#property indicator_separate_window

extern double Risk_to_Reward_ratio = 3.0;
int gi_84;

int init() {
   IndicatorShortName("TSR");
   if (Symbol() == "GBPJPY" || Symbol() == "EURJPY" || Symbol() == "USDJPY" || Symbol() == "GOLD" || Symbol() == "USDMXN") gi_84 = 2;
   if (Symbol() == "GBPUSD" || Symbol() == "EURUSD" || Symbol() == "NZDUSD" || Symbol() == "USDCHF" || Symbol() == "USDCAD" || Symbol() == "AUDUSD" || Symbol() == "EURUSD" ||
      Symbol() == "EURCHF" || Symbol() == "EURGBP" || Symbol() == "EURCAD" || Symbol() == "EURAUD" || Symbol() == "AUDNZD") gi_84 = 4;
   return (0);
}

int deinit() {
   return (0);
}

int start() {
   int li_0 = 0;
   int li_4 = 0;
   int li_8 = 0;
   int li_12 = 0;
   int li_16 = 0;
   bool li_20 = FALSE;
   bool li_24 = FALSE;
   bool li_28 = FALSE;
   bool li_32 = FALSE;
   double ld_36 = 0;
   double ld_44 = 0;
   double l_ilow_52 = 0;
   double l_ihigh_60 = 0;
   string ls_68 = "";
   int li_76 = 0;
   li_0 = (iHigh(NULL, PERIOD_D1, 1) - iLow(NULL, PERIOD_D1, 1)) / Point;
   for (li_76 = 1; li_76 <= 5; li_76++) li_4 = li_4 + (iHigh(NULL, PERIOD_D1, li_76) - iLow(NULL, PERIOD_D1, li_76)) / Point;
   for (li_76 = 1; li_76 <= 10; li_76++) li_8 = li_8 + (iHigh(NULL, PERIOD_D1, li_76) - iLow(NULL, PERIOD_D1, li_76)) / Point;
   for (li_76 = 1; li_76 <= 20; li_76++) li_12 = li_12 + (iHigh(NULL, PERIOD_D1, li_76) - iLow(NULL, PERIOD_D1, li_76)) / Point;
   li_4 /= 5;
   li_8 /= 10;
   li_12 /= 20;
   li_16 = (li_0 + li_4 + li_8 + li_12) / 4;
   l_ilow_52 = iLow(NULL, PERIOD_D1, 0);
   l_ihigh_60 = iHigh(NULL, PERIOD_D1, 0);
   li_20 = li_16 - (Bid - l_ilow_52) / Point;
   li_24 = li_16 - (l_ihigh_60 - Bid) / Point;
   li_28 = li_20 / Risk_to_Reward_ratio;
   ld_36 = Bid - li_28 * Point;
   li_32 = li_24 / Risk_to_Reward_ratio;
   ld_44 = Bid + li_32 * Point;
   ls_68 = "Average Day  Range: " + li_16 
      + "\n" 
      + "Prev 01  Day  Range: " + li_0 
      + "\n" 
      + "Prev 05  Days Range: " + li_4 
      + "\n" 
      + "Prev 10  Days Range: " + li_8 
      + "\n" 
      + "Prev 20  Days Range: " + li_12 
   + "\n";
   ls_68 = ls_68 + "Room Up:     " + li_20 
      + "\n" 
      + "Room Down: " + li_24 
      + "\n" 
      + "Maximum StopLosses :" 
      + "\n" 
      + "Long:  " + li_28 + " Pips at " + DoubleToStr(ld_36, gi_84) 
      + "\n" 
      + "Short: " + li_32 + " Pips at " + DoubleToStr(ld_44, gi_84) 
   + "\n";
   Comment(ls_68);
   string l_timeframe_80 = Period();
   ObjectCreate("TSR", OBJ_LABEL, WindowFind("TSR"), 0, 0);
   ObjectSetText("TSR", StringSubstr(Symbol(), 0), 12, "Arial Bold", CadetBlue);
   ObjectSet("TSR", OBJPROP_CORNER, 0);
   ObjectSet("TSR", OBJPROP_XDISTANCE, 25);
   ObjectSet("TSR", OBJPROP_YDISTANCE, 2);
   ObjectCreate("TSR1", OBJ_LABEL, WindowFind("TSR"), 0, 0);
   ObjectSetText("TSR1", StringSubstr(l_timeframe_80, 0), 12, "Arial Bold", CadetBlue);
   ObjectSet("TSR1", OBJPROP_CORNER, 0);
   ObjectSet("TSR1", OBJPROP_XDISTANCE, 100);
   ObjectSet("TSR1", OBJPROP_YDISTANCE, 2);
   ObjectCreate("TSR2", OBJ_LABEL, WindowFind("TSR"), 0, 0);
   ObjectSetText("TSR2", "Average Daily Range:", 10, "Arial Bold", CadetBlue);
   ObjectSet("TSR2", OBJPROP_CORNER, 0);
   ObjectSet("TSR2", OBJPROP_XDISTANCE, 150);
   ObjectSet("TSR2", OBJPROP_YDISTANCE, 2);
   ObjectCreate("TSR3", OBJ_LABEL, WindowFind("TSR"), 0, 0);
   ObjectSetText("TSR3", DoubleToStr(li_16, 0), 12, "Arial Bold", Teal);
   ObjectSet("TSR3", OBJPROP_CORNER, 0);
   ObjectSet("TSR3", OBJPROP_XDISTANCE, 300);
   ObjectSet("TSR3", OBJPROP_YDISTANCE, 2);
   ObjectCreate("TSR4", OBJ_LABEL, WindowFind("TSR"), 0, 0);
   ObjectSetText("TSR4", "Prev 01 Day Range:", 10, "Arial ", Teal);
   ObjectSet("TSR4", OBJPROP_CORNER, 0);
   ObjectSet("TSR4", OBJPROP_XDISTANCE, 25);
   ObjectSet("TSR4", OBJPROP_YDISTANCE, 20);
   ObjectCreate("TSR5", OBJ_LABEL, WindowFind("TSR"), 0, 0);
   ObjectSetText("TSR5", DoubleToStr(li_0, 0), 12, "Arial Bold", Teal);
   ObjectSet("TSR5", OBJPROP_CORNER, 0);
   ObjectSet("TSR5", OBJPROP_XDISTANCE, 160);
   ObjectSet("TSR5", OBJPROP_YDISTANCE, 20);
   ObjectCreate("TSR6", OBJ_LABEL, WindowFind("TSR"), 0, 0);
   ObjectSetText("TSR6", "Prev 05 Days Range:", 10, "Arial ", Maroon);
   ObjectSet("TSR6", OBJPROP_CORNER, 0);
   ObjectSet("TSR6", OBJPROP_XDISTANCE, 25);
   ObjectSet("TSR6", OBJPROP_YDISTANCE, 35);
   ObjectCreate("TSR7", OBJ_LABEL, WindowFind("TSR"), 0, 0);
   ObjectSetText("TSR7", DoubleToStr(li_4, 0), 12, "Arial Bold", Teal);
   ObjectSet("TSR7", OBJPROP_CORNER, 0);
   ObjectSet("TSR7", OBJPROP_XDISTANCE, 160);
   ObjectSet("TSR7", OBJPROP_YDISTANCE, 35);
   ObjectCreate("TSR8", OBJ_LABEL, WindowFind("TSR"), 0, 0);
   ObjectSetText("TSR8", "Prev 10 Days Range:", 10, "Arial ", Maroon);
   ObjectSet("TSR8", OBJPROP_CORNER, 0);
   ObjectSet("TSR8", OBJPROP_XDISTANCE, 220);
   ObjectSet("TSR8", OBJPROP_YDISTANCE, 20);
   ObjectCreate("TSR9", OBJ_LABEL, WindowFind("TSR"), 0, 0);
   ObjectSetText("TSR9", DoubleToStr(li_8, 0), 12, "Arial Bold", Teal);
   ObjectSet("TSR9", OBJPROP_CORNER, 0);
   ObjectSet("TSR9", OBJPROP_XDISTANCE, 355);
   ObjectSet("TSR9", OBJPROP_YDISTANCE, 20);
   ObjectCreate("TSR10", OBJ_LABEL, WindowFind("TSR"), 0, 0);
   ObjectSetText("TSR10", "Prev 20 Days Range:", 10, "Arial ", Maroon);
   ObjectSet("TSR10", OBJPROP_CORNER, 0);
   ObjectSet("TSR10", OBJPROP_XDISTANCE, 220);
   ObjectSet("TSR10", OBJPROP_YDISTANCE, 35);
   ObjectCreate("TSR11", OBJ_LABEL, WindowFind("TSR"), 0, 0);
   ObjectSetText("TSR11", DoubleToStr(li_12, 0), 12, "Arial Bold", Teal);
   ObjectSet("TSR11", OBJPROP_CORNER, 0);
   ObjectSet("TSR11", OBJPROP_XDISTANCE, 355);
   ObjectSet("TSR11", OBJPROP_YDISTANCE, 35);
   ObjectCreate("TSR12", OBJ_LABEL, WindowFind("TSR"), 0, 0);
   ObjectSetText("TSR12", "Room UP:", 10, "Arial ", Maroon);
   ObjectSet("TSR12", OBJPROP_CORNER, 0);
   ObjectSet("TSR12", OBJPROP_XDISTANCE, 420);
   ObjectSet("TSR12", OBJPROP_YDISTANCE, 20);
   ObjectCreate("TSR13", OBJ_LABEL, WindowFind("TSR"), 0, 0);
   ObjectSetText("TSR13", DoubleToStr(li_20, 0), 12, "Arial Bold", Teal);
   ObjectSet("TSR13", OBJPROP_CORNER, 0);
   ObjectSet("TSR13", OBJPROP_XDISTANCE, 490);
   ObjectSet("TSR13", OBJPROP_YDISTANCE, 20);
   ObjectCreate("TSR14", OBJ_LABEL, WindowFind("TSR"), 0, 0);
   ObjectSetText("TSR14", "Room DN:", 10, "Arial ", Maroon);
   ObjectSet("TSR14", OBJPROP_CORNER, 0);
   ObjectSet("TSR14", OBJPROP_XDISTANCE, 420);
   ObjectSet("TSR14", OBJPROP_YDISTANCE, 35);
   ObjectCreate("TSR15", OBJ_LABEL, WindowFind("TSR"), 0, 0);
   ObjectSetText("TSR15", DoubleToStr(li_24, 0), 12, "Arial Bold", Teal);
   ObjectSet("TSR15", OBJPROP_CORNER, 0);
   ObjectSet("TSR15", OBJPROP_XDISTANCE, 490);
   ObjectSet("TSR15", OBJPROP_YDISTANCE, 35);
   ObjectCreate("TSR16", OBJ_LABEL, WindowFind("TSR"), 0, 0);
   ObjectSetText("TSR16", "Maximum StopLosses;", 10, "Arial Bold", CadetBlue);
   ObjectSet("TSR16", OBJPROP_CORNER, 0);
   ObjectSet("TSR16", OBJPROP_XDISTANCE, 560);
   ObjectSet("TSR16", OBJPROP_YDISTANCE, 2);
   ObjectCreate("TSR17", OBJ_LABEL, WindowFind("TSR"), 0, 0);
   ObjectSetText("TSR17", "Long:             Pips at", 10, "Arial ", Maroon);
   ObjectSet("TSR17", OBJPROP_CORNER, 0);
   ObjectSet("TSR17", OBJPROP_XDISTANCE, 560);
   ObjectSet("TSR17", OBJPROP_YDISTANCE, 20);
   ObjectCreate("TSR18", OBJ_LABEL, WindowFind("TSR"), 0, 0);
   ObjectSetText("TSR18", DoubleToStr(li_28, 0), 12, "Arial Bold", Teal);
   ObjectSet("TSR18", OBJPROP_CORNER, 0);
   ObjectSet("TSR18", OBJPROP_XDISTANCE, 600);
   ObjectSet("TSR18", OBJPROP_YDISTANCE, 20);
   ObjectCreate("TSR19", OBJ_LABEL, WindowFind("TSR"), 0, 0);
   ObjectSetText("TSR19", "Short:             Pips at", 10, "Arial ", Maroon);
   ObjectSet("TSR19", OBJPROP_CORNER, 0);
   ObjectSet("TSR19", OBJPROP_XDISTANCE, 560);
   ObjectSet("TSR19", OBJPROP_YDISTANCE, 35);
   ObjectCreate("TSR20", OBJ_LABEL, WindowFind("TSR"), 0, 0);
   ObjectSetText("TSR20", DoubleToStr(li_32, 0), 12, "Arial Bold", Teal);
   ObjectSet("TSR20", OBJPROP_CORNER, 0);
   ObjectSet("TSR20", OBJPROP_XDISTANCE, 600);
   ObjectSet("TSR20", OBJPROP_YDISTANCE, 35);
   ObjectCreate("TSR21", OBJ_LABEL, WindowFind("TSR"), 0, 0);
   ObjectSetText("TSR21", DoubleToStr(ld_36, gi_84), 12, "Arial Bold", SteelBlue);
   ObjectSet("TSR21", OBJPROP_CORNER, 0);
   ObjectSet("TSR21", OBJPROP_XDISTANCE, 690);
   ObjectSet("TSR21", OBJPROP_YDISTANCE, 20);
   ObjectCreate("TSR22", OBJ_LABEL, WindowFind("TSR"), 0, 0);
   ObjectSetText("TSR22", DoubleToStr(ld_44, gi_84), 12, "Arial Bold", SteelBlue);
   ObjectSet("TSR22", OBJPROP_CORNER, 0);
   ObjectSet("TSR22", OBJPROP_XDISTANCE, 690);
   ObjectSet("TSR22", OBJPROP_YDISTANCE, 35);
   ObjectCreate("TSR23", OBJ_LABEL, WindowFind("TSR"), 0, 0);
   ObjectSetText("TSR23", "Risk to Reward Ratio:", 10, "Arial Bold", CadetBlue);
   ObjectSet("TSR23", OBJPROP_CORNER, 0);
   ObjectSet("TSR23", OBJPROP_XDISTANCE, 350);
   ObjectSet("TSR23", OBJPROP_YDISTANCE, 2);
   ObjectCreate("TSR24", OBJ_LABEL, WindowFind("TSR"), 0, 0);
   ObjectSetText("TSR24", DoubleToStr(Risk_to_Reward_ratio, 0), 12, "Arial Bold", Teal);
   ObjectSet("TSR24", OBJPROP_CORNER, 0);
   ObjectSet("TSR24", OBJPROP_XDISTANCE, 500);
   ObjectSet("TSR24", OBJPROP_YDISTANCE, 2);
   double l_ima_88 = iMA(Symbol(), PERIOD_D1, 1, 0, MODE_SMMA, PRICE_HIGH, 0);
   double l_ima_96 = iMA(Symbol(), PERIOD_D1, 1, 0, MODE_EMA, PRICE_LOW, 0);
   double l_ima_104 = iMA(Symbol(), PERIOD_D1, 1, 0, MODE_SMMA, PRICE_HIGH, 1);
   double l_ima_112 = iMA(Symbol(), PERIOD_D1, 1, 0, MODE_EMA, PRICE_LOW, 1);
   ObjectCreate("high", OBJ_LABEL, WindowFind("TSR"), 0, 0);
   ObjectSetText("high", DoubleToStr(l_ima_88, Digits), 12, "Arial Bold", Teal);
   ObjectSet("high", OBJPROP_CORNER, 0);
   ObjectSet("high", OBJPROP_XDISTANCE, 890);
   ObjectSet("high", OBJPROP_YDISTANCE, 20);
   ObjectCreate("high2", OBJ_LABEL, WindowFind("TSR"), 0, 0);
   ObjectSetText("high2", "DailyHigh", 9, "Arial Bold", CadetBlue);
   ObjectSet("high2", OBJPROP_CORNER, 0);
   ObjectSet("high2", OBJPROP_XDISTANCE, 890);
   ObjectSet("high2", OBJPROP_YDISTANCE, 2);
   ObjectCreate("low", OBJ_LABEL, WindowFind("TSR"), 0, 0);
   ObjectSetText("low", DoubleToStr(l_ima_96, Digits), 12, "Arial Bold", Teal);
   ObjectSet("low", OBJPROP_CORNER, 0);
   ObjectSet("low", OBJPROP_XDISTANCE, 830);
   ObjectSet("low", OBJPROP_YDISTANCE, 20);
   ObjectCreate("low2", OBJ_LABEL, WindowFind("TSR"), 0, 0);
   ObjectSetText("low2", "DailyLow", 9, "Arial Bold", CadetBlue);
   ObjectSet("low2", OBJPROP_CORNER, 0);
   ObjectSet("low2", OBJPROP_XDISTANCE, 830);
   ObjectSet("low2", OBJPROP_YDISTANCE, 2);
   double l_ima_120 = iMA(Symbol(), 0, 1, 0, MODE_EMA, PRICE_CLOSE, 0);
   ObjectCreate("high3", OBJ_LABEL, WindowFind("TSR"), 0, 0);
   ObjectSetText("high3", DoubleToStr(l_ima_120, Digits), 12, "Arial Bold", Coral);
   ObjectSet("high3", OBJPROP_CORNER, 0);
   ObjectSet("high3", OBJPROP_XDISTANCE, 890);
   ObjectSet("high3", OBJPROP_YDISTANCE, 35);
   ObjectCreate("high4", OBJ_LABEL, WindowFind("TSR"), 0, 0);
   ObjectSetText("high4", DoubleToStr(l_ima_120, Digits), 12, "Arial Bold", Coral);
   ObjectSet("high4", OBJPROP_CORNER, 0);
   ObjectSet("high4", OBJPROP_XDISTANCE, 830);
   ObjectSet("high4", OBJPROP_YDISTANCE, 35);
   ObjectCreate("low4", OBJ_LABEL, WindowFind("TSR"), 0, 0);
   ObjectSetText("low4", "T/Day", 9, "Arial ", Maroon);
   ObjectSet("low4", OBJPROP_CORNER, 0);
   ObjectSet("low4", OBJPROP_XDISTANCE, 790);
   ObjectSet("low4", OBJPROP_YDISTANCE, 20);
   ObjectCreate("low5", OBJ_LABEL, WindowFind("TSR"), 0, 0);
   ObjectSetText("low5", "Price", 9, "Arial ", Maroon);
   ObjectSet("low5", OBJPROP_CORNER, 0);
   ObjectSet("low5", OBJPROP_XDISTANCE, 790);
   ObjectSet("low5", OBJPROP_YDISTANCE, 37);
   return (0);
}