mtf_visualization_v1.6

//+------------------------------------------------------------------+
//|                                       MTF Visualization v1.6.mq4 |
//|                                  2016 - Joca (nc32007a@gmail.com)|
//+------------------------------------------------------------------+
#property indicator_chart_window

//---- input parameters
extern bool updirection=true;
extern string   FrameLabel="Enable Timeframe:(1=true)...M1,M5,M15,M30,H1,H4,D1,W1,MN,Year";
extern string enable_TMF="1,1,1,1,1,1,1,1,1,1";
extern bool   stats=false;
extern bool pivots=false;
extern color MNPivotclr=White,W1Pivotclr=Yellow,D1Pivotclr=Red;
extern double offset=10;
extern double step=6;
extern color   UpCandleColor=Lime;
extern color   DownCandleColor=Red;
extern int     widthHL = 1;
extern int     widthOC = 5;
extern int year_width_factor=2;

int BaseTF,nextTF,width_OC,width_HL;
string BaseTMFR;
int timeFrame[]={1,5,15,30,60,240,1440,10080,43200,99};
string TimeFrames[]={"M1","M5","M15","M30","H1","H4","D1","W1","MN","Year"};
string StatsLabel[]={"Year","D1","W1","MN","High","Close","Low","Range"};
double P1,P2,P3,P4,Points_Per_Pixel,SizeY,MNPivot,W1Pivot,D1Pivot;
//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
void init()
  {
   BaseTF=Period();

   for(int i=0;i<ArraySize(timeFrame);i++)
     {
      if(timeFrame[i]==BaseTF)nextTF=i+1;
      //BaseTMFR=TimeFrames[i];
     }
   if(BaseTF==43200) nextTF=9;
//DeleteObjects();

  }
//+------------------------------------------------------------------+
//| Custor indicator deinitialization function                       |
//+------------------------------------------------------------------+
void deinit()
  {
//ObjectsDeleteAll();
   DeleteObjects();
  }
//+------------------------------------------------------------------+
//| Custom indicator iteration function                              |
//+------------------------------------------------------------------+
int start()

  {
//ObjectsDeleteAll();  
   double dif=MathAbs(Time[1]-Time[2]);
   datetime dtStart=Time[0]+dif*offset;

   int i,j,shift,control;
   j=nextTF;

   int Bar_Year_High=iHighest(Symbol(),PERIOD_MN1,MODE_HIGH,Month(),0);
   int Bar_Year_Low=iLowest(Symbol(),PERIOD_MN1,MODE_LOW,Month(),0);


   double YearHigh=iHigh(Symbol(),PERIOD_MN1,Bar_Year_High);
   double YearLow=iLow(Symbol(),PERIOD_MN1,Bar_Year_Low);

   double YearOpen=iOpen(Symbol(),PERIOD_MN1,Month()-1);
   double YearClose=Bid;

//Comment("Month()= "+Month()+" Day of Year= " + DayOfYear()+"  YearOpen= " + YearOpen+ "  YearHigh ("+Bar_Year_High+")= "+ YearHigh+ "  YearLow ("+Bar_Year_Low+") = "+YearLow+"  YearClose(" +DayOfYear()+") = "+YearClose );

   while(j<(ArraySize(timeFrame)))
     {
      shift=j;

      if(updirection==0)shift=(ArraySize(timeFrame)-(j-nextTF)-1);

      control=0;

      if(StringSubstr(enable_TMF,2*shift,1)=="1")
        {
         control=1;

         if(timeFrame[shift]!=99)
           {
            P1=iOpen(NULL, timeFrame[shift],0);
            P2=iClose(NULL, timeFrame[shift],0);
            P3=iLow(NULL, timeFrame[shift],0);
            P4=iHigh(NULL, timeFrame[shift],0);
            width_OC=widthOC;
            width_HL=widthHL;
           }

         else

           {
            P1=YearOpen;
            P2=YearClose;
            P3=YearLow;
            P4=YearHigh;
            width_OC=widthOC*year_width_factor;
            width_HL=widthHL*year_width_factor;
           }

         datetime T=dtStart+dif*i*step;

         string name="Body#"+i;

         color clr=DownCandleColor; if(P1<=P2) clr=UpCandleColor;

         objTrendLine(name,T,P1,T,P2,0,width_OC,clr,STYLE_SOLID,False);

         name="Tail#"+i;

         objTrendLine(name,T,P3,T,P4,0,width_HL,clr,STYLE_SOLID,False);

         ObjectSetText(name,TimeFrames[shift],5,"Arial",White);

         if(timeFrame[shift]==99) ObjectSetText(name,TimeFrames[shift]+"  "+Year(),5,"Arial",White);

         if(pivots && (TimeFrames[shift]=="D1" || TimeFrames[shift]=="W1" || TimeFrames[shift]=="MN"))

           {
            D1Pivot= (iHigh(NULL, 1440,1)+ iLow(NULL, 1440,1)+iClose(NULL, 1440,1))/3;
            W1Pivot= (iHigh(NULL, 10080,1)+ iLow(NULL, 10080,1)+iClose(NULL, 10080,1))/3;
            MNPivot= (iHigh(NULL, 43200,1)+ iLow(NULL, 43200,1)+iClose(NULL, 43200,1))/3;

            if(TimeFrames[shift]=="D1") objTrendLine("D1Pivot",Time[0],D1Pivot,dtStart,D1Pivot,0,2,D1Pivotclr,STYLE_SOLID,False);
            ObjectSetText("D1Pivot","D1 - Pivot",5,"Arial",White);

            if(TimeFrames[shift]=="W1") objTrendLine("W1Pivot",Time[0],W1Pivot,dtStart,W1Pivot,0,2,W1Pivotclr,STYLE_SOLID,False);
            ObjectSetText("W1Pivot","W1 - Pivot",5,"Arial",White);

            if(TimeFrames[shift]=="MN") objTrendLine("MNPivot",Time[0],MNPivot,dtStart,MNPivot,0,2,MNPivotclr,STYLE_SOLID,False);
            ObjectSetText("MNPivot","MN - Pivot",5,"Arial",White);
           }
        }
      if(control==1) i++;
      j++;
     }

   if(stats)

     {
      double ActualBid=Bid;
      double YPos=30;
      string Name;
      double PercChange;
      double Open_Price_D1,Close_Price_D1,High_Price_D1,Low_Price_D1,Open_Price_W1,Open_Price_MN1,Day_Range;

      PercChange=((ActualBid-YearOpen)/YearOpen)*100;
      Name="Year = "+DoubleToStr((ActualBid-YearOpen)*10000,0)+" pips => "+DoubleToStr(PercChange,2)+" %"+"\n";
      clr=DownCandleColor; if(PercChange>=0) clr=UpCandleColor;

      objLabel("Stat_Year",Name,1,3,YPos,0,clr,"Arial",14);

      Open_Price_MN1=iOpen(NULL,PERIOD_MN1,0);
      PercChange=((ActualBid-Open_Price_MN1)/Open_Price_MN1)*100;
      YPos=YPos+20;
      Name="MN = " + DoubleToStr((ActualBid-Open_Price_MN1)*10000, 0)+" pips => "+DoubleToStr(PercChange, 2) + " %"+"\n";
      clr=DownCandleColor; if(PercChange>=0) clr=UpCandleColor;

      objLabel("Stat_MN",Name,1,3,YPos,0,clr,"Arial",14);

      Open_Price_W1=iOpen(NULL,PERIOD_W1,0);
      PercChange=((ActualBid-Open_Price_W1)/Open_Price_W1)*100;
      YPos=YPos+20;
      Name="W1 = " + DoubleToStr((ActualBid-Open_Price_W1)*10000, 0)+" pips => "+ DoubleToStr(PercChange, 2) + " %"+"\n";
      clr=DownCandleColor; if(PercChange>=0) clr=UpCandleColor;

      objLabel("Stat_W1",Name,1,3,YPos,0,clr,"Arial",14);

      Open_Price_D1=iOpen(NULL,PERIOD_D1,0);
      PercChange=((ActualBid-Open_Price_D1)/Open_Price_D1)*100;
      YPos=YPos+20;
      Name="D1 = " + DoubleToStr((ActualBid-Open_Price_D1)*10000, 0)+" pips => "+ DoubleToStr(PercChange, 2) + " %"+"\n";
      clr=DownCandleColor; if(PercChange>=0) clr=UpCandleColor;

      objLabel("Stat_D1",Name,1,3,YPos,0,clr,"Arial",14);

      High_Price_D1=iHigh(NULL,PERIOD_D1,0);
      PercChange=High_Price_D1;
      YPos=YPos+40;
      Name="Day High = " + DoubleToStr(PercChange, 4) +"\n";
      //clr=DownCandleColor; if (ActualBid>=Open_Price_D1) clr=UpCandleColor;

      objLabel("Stat_High",Name,1,3,YPos,0,clr,"Arial",14);

      Close_Price_D1=ActualBid;
      PercChange=ActualBid;
      YPos=YPos+20;
      Name="Day Close = " + DoubleToStr(PercChange, 4) +"\n";

      objLabel("Stat_Close",Name,1,3,YPos,0,clr,"Arial",14);

      Low_Price_D1= iLow(NULL,PERIOD_D1,0);
      PercChange  = Low_Price_D1;
      YPos=YPos+20;
      Name="Day Low = " + DoubleToStr(PercChange, 4) +"\n";

      objLabel("Stat_Low",Name,1,3,YPos,0,clr,"Arial",14);

      Day_Range=High_Price_D1-Low_Price_D1;
      PercChange=Day_Range*10000;
      YPos=YPos+40;
      Name="Day Range = " + DoubleToStr(PercChange, 0) + "  pips" + "\n";

      objLabel("Stat_Range",Name,1,3,YPos,0,clr,"Arial",14);
     }

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

// External Code
void objTrendLine(string name,datetime time_1,double price_1,datetime time_2,double price_2,int window=0,int width=1,color col=White,int style=STYLE_SOLID,bool ray=true)
  {
   if(ObjectFind(name)==-1) 
     {
      ObjectCreate(0,name,OBJ_TREND,window,time_1,price_1,time_2,price_2);
     }
   ObjectSet(name,OBJPROP_PRICE1,price_1);
   ObjectSet(name,OBJPROP_PRICE2,price_2);
   ObjectSet(name,OBJPROP_TIME1,time_1);
   ObjectSet(name,OBJPROP_TIME2,time_2);
   ObjectSet(name,OBJPROP_WIDTH,width);
   ObjectSet(name,OBJPROP_COLOR,col);
   ObjectSet(name,OBJPROP_STYLE,style);
   ObjectSet(name,OBJPROP_RAY,ray);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void objHLine(string name,double price,int window=0,color col=White,int style=STYLE_SOLID)
  {
   if(ObjectFind(name)==-1) 
     {
      ObjectCreate(0,name,OBJ_HLINE,window,0,price);
     }
   ObjectSet(name,OBJPROP_PRICE1,price);
   ObjectSet(name,OBJPROP_COLOR,col);
   ObjectSet(name,OBJPROP_STYLE,style);
   ObjectSet(name,OBJPROP_WIDTH,2);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void objLabel(string name,string tex,int corner,int position_x,int position_y,int window=0,color tex_color=White,string tex_font="Arial",int tex_size=12)
  {
   if(ObjectFind(name)==-1)
     {
      ObjectCreate(name,OBJ_LABEL,window,0,0);
     }
   ObjectSet(name,OBJPROP_CORNER,corner);
   ObjectSet(name,OBJPROP_XDISTANCE,position_x);
   ObjectSet(name,OBJPROP_YDISTANCE,position_y);
   ObjectSetText(name,tex,tex_size,tex_font,tex_color);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void DeleteObjects()
  {
//ObjectsDeleteAll(EMPTY_VALUE,2);
   ObjectDelete("D1Pivot");
   ObjectDelete("W1Pivot");
   ObjectDelete("MNPivot");

   for(int j=0;j<ArraySize(timeFrame);j++)
     {
      ObjectDelete("Body#"+j);
      ObjectDelete("Tail#"+j);
     }

   for(j=0;j<ArraySize(StatsLabel);j++)
     {
      ObjectDelete("Stat_"+StatsLabel[j]);
     }
  }
//+------------------------------------------------------------------+