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

#property indicator_chart_window

extern int RangePeriod=13;
extern int OpenTime=7;

int init()
  {
   return(0);
  }
int start()
  {
   int i = 0; double RAvg = 0, WAvg = 0, todaysHigh, todaysLow, todaysRange, decimals;
   if(Point == 0.0001) decimals = 4;
   if(Point == 0.01) decimals = 2;
   for(i=1;i<=RangePeriod;i++){
      RAvg = RAvg + (iHigh(NULL,PERIOD_D1,i)-iLow(NULL,PERIOD_D1,i))/Point;
   }
   for(i=1;i<=RangePeriod;i++){
      WAvg    =    WAvg  +  (iHigh(NULL,PERIOD_W1,i)-iLow(NULL,PERIOD_W1,i))/Point;
   }
   RAvg = RAvg/RangePeriod;
   WAvg = WAvg/RangePeriod;
   todaysHigh = iHigh(NULL,PERIOD_D1,0);
   todaysLow = iLow(NULL,PERIOD_D1,0);
   todaysRange = (todaysHigh - todaysLow)/Point;
   string sComment   = "";
   string sp         = "-----------------------------------------------------\n";
   string NL         = "\n";
   sComment = sComment + sp;
   sComment = sComment + "Tick Value = " + DoubleToStr(MarketInfo(Symbol(), MODE_TICKVALUE)*0.1, 2) + "$/MiniLot";
   sComment = sComment + "    Spread = " + DoubleToStr(MarketInfo(Symbol(), MODE_SPREAD), 0) + "pips = " + DoubleToStr(MarketInfo(Symbol(), MODE_SPREAD)*0.1*MarketInfo(Symbol(), MODE_TICKVALUE),2) + "$/MiniLot";
   sComment = sComment + "    Daily Range(" + DoubleToStr(RangePeriod,0) + " days) = " + DoubleToStr(RAvg,0);
   sComment = sComment + "    Weekly Range(" + DoubleToStr(RangePeriod,0) + " weeks) = " + DoubleToStr(WAvg,0);
   sComment = sComment + NL + sp;
   sComment = sComment + "Todays High = " + DoubleToStr(todaysHigh,decimals);
   sComment = sComment + "    Todays Low = " + DoubleToStr(todaysLow,decimals);
   sComment = sComment + "    Left To Move = " + DoubleToStr(RAvg-todaysRange,0) + "pips";  
   sComment = sComment + NL + sp;
   int h = TimeHour(TimeCurrent()), d = TimeDayOfWeek(TimeCurrent());
   double DayChange, WeekChange;
   DayChange = 100*(MarketInfo(Symbol(), MODE_BID)/iOpen(Symbol(),PERIOD_H1,h-OpenTime)-1);
   WeekChange = 100*(MarketInfo(Symbol(), MODE_BID)/iOpen(Symbol(),PERIOD_H1,24*(d-1)+h-OpenTime)-1);
   sComment = sComment + "DayChange = " + DoubleToStr(DayChange,2) + 
            "%    WeekChange = " + DoubleToStr(WeekChange,2) +
    	      "%    MonthChange = " + DoubleToStr(100*(MarketInfo(Symbol(), MODE_BID)/iOpen(NULL,PERIOD_MN1,0)-1),2) + "%";
   Comment(sComment);
   return(0);
  }
//+------------------------------------------------------------------+