//+------------------------------------------------------------------+
//|                                                  WeeklyPivot.mq4 |
//|                                                                  |
//+------------------------------------------------------------------+

#property indicator_chart_window
#property indicator_buffers 7
#property indicator_color1 Magenta
#property indicator_color2 RoyalBlue
#property indicator_color3 Crimson
#property indicator_color4 RoyalBlue
#property indicator_color5 Crimson
#property indicator_color6 SeaGreen
#property indicator_color7 SeaGreen

extern int Line_Width=1;
extern int Line_Type=2;
//---- input parameters

//---- buffers
double PBuffer[];
double S1Buffer[];
double R1Buffer[];
double S2Buffer[];
double R2Buffer[];
double S3Buffer[];
double R3Buffer[];
string Pivot="WeeklyPivotPoint",Sup1="W_S 1",Res1="W_R 1";
string Sup2="W_S 2",Res2="W_R 2",Sup3="W_S 3",Res3="W_R 3";
int fontsize=10;
double P,S1,R1,S2,R2,S3,R3;
double last_week_high,last_week_low,this_week_open,last_week_close;
double prevtime=0;
//+------------------------------------------------------------------+
//| Custor indicator deinitialization function                       |
//+------------------------------------------------------------------+
int deinit()
  {
//---- TODO: add your code here

   ObjectDelete("WeeklyPivot");
   ObjectDelete("Sup1");
   ObjectDelete("Res1");
   ObjectDelete("Sup2");
   ObjectDelete("Res2");
   ObjectDelete("Sup3");
   ObjectDelete("Res3");

//----
   return(0);
  }
//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int init()
  {
   string short_name;

//---- indicator line
   SetIndexLabel(0,"Weekly Pivot");
   SetIndexStyle(0,DRAW_LINE,Line_Type,Line_Width,Magenta);
   SetIndexLabel(1,"Weekly Support 1");
   SetIndexStyle(1,DRAW_LINE,Line_Type,Line_Width,PowderBlue);
     SetIndexLabel(2,"Weekly Resistance 1");
   SetIndexStyle(2,DRAW_LINE,Line_Type,Line_Width,Coral);
      SetIndexLabel(3,"Weekly Support 2");
   SetIndexStyle(3,DRAW_LINE,Line_Type,Line_Width,Blue);
      SetIndexLabel(4,"Weekly Resistance 2");
   SetIndexStyle(4,DRAW_LINE,Line_Type,Line_Width,Crimson);
      SetIndexLabel(5,"Weekly Support 3");
   SetIndexStyle(5,DRAW_LINE,Line_Type,Line_Width,Navy);
         SetIndexLabel(6,"Weekly Resistance 3");
   SetIndexStyle(6,DRAW_LINE,Line_Type,Line_Width,FireBrick);
   SetIndexBuffer(0,PBuffer);
   SetIndexBuffer(1,S1Buffer);
   SetIndexBuffer(2,R1Buffer);
   SetIndexBuffer(3,S2Buffer);
   SetIndexBuffer(4,R2Buffer);
   SetIndexBuffer(5,S3Buffer);
   SetIndexBuffer(6,R3Buffer);

//---- name for DataWindow and indicator subwindow label
   short_name="WeeklyPivotPoint";
   IndicatorShortName(short_name);
   SetIndexLabel(0,short_name);

//----
   SetIndexDrawBegin(0,1);
//----

//----
   return(0);
  }
//+------------------------------------------------------------------+
//| Custom indicator iteration function                              |
//+------------------------------------------------------------------+
int start()

  {
   if(Period()>PERIOD_D1)
     {
      return(0);
     }
   int counted_bars=IndicatorCounted();

   int limit,i;
//---- indicator calculation
   if(counted_bars==0)
     {
      if(1==2)
        {
         ObjectCreate("WeeklyPivot",OBJ_TEXT,0,0,0);
         ObjectSetText("WeeklyPivot","                                                 Weekly Pivot",fontsize,"Arial",Red);
         ObjectCreate("Sup1",OBJ_TEXT,0,0,0);
         ObjectSetText("Sup1","                                    wS 1",fontsize,"Arial",Red);
         ObjectCreate("Res1",OBJ_TEXT,0,0,0);
         ObjectSetText("Res1","                                    wR 1",fontsize,"Arial",Red);
         ObjectCreate("Sup2",OBJ_TEXT,0,0,0);
         ObjectSetText("Sup2","                                    wS 2",fontsize,"Arial",Red);
         ObjectCreate("Res2",OBJ_TEXT,0,0,0);
         ObjectSetText("Res2","                                    wR 2",fontsize,"Arial",Red);
         ObjectCreate("Sup3",OBJ_TEXT,0,0,0);
         ObjectSetText("Sup3","                                    wS 3",fontsize,"Arial",Red);
         ObjectCreate("Res3",OBJ_TEXT,0,0,0);
         ObjectSetText("Res3","                                    wR 3",fontsize,"Arial",Red);
        }
     }
   if(counted_bars<0) return(-1);

   limit=(Bars-counted_bars)-1;

   for(i=limit; i>=0;i--)
     {

      // Monday
      if(1==TimeDayOfWeek(Time[i]) && 1!=TimeDayOfWeek(Time[i+1]))
        {
         last_week_close= Close[i+1];
         this_week_open = Open[i];

         last_week_close=iClose(Symbol(),PERIOD_W1,1);
         this_week_open=iOpen(Symbol(),PERIOD_W1,0);

         // WeeklyPivot
         P=(last_week_high+last_week_low+this_week_open+last_week_close)/4;

         R1 = (2*P)-last_week_low;
         S1 = (2*P)-last_week_high;
         R2 = P+(last_week_high - last_week_low);
         S2 = P-(last_week_high - last_week_low);
         R3 = (2*P)+(last_week_high-(2*last_week_low));
         S3 = (2*P)-((2* last_week_high)-last_week_low);

         last_week_low=iLow(Symbol(),PERIOD_W1,1);
         last_week_high=iHigh(Symbol(),PERIOD_W1,1);

         ObjectMove("WeeklyPivot",0,Time[i],P);
         ObjectMove("Sup1",0,Time[i],S1);
         ObjectMove("Res1",0,Time[i],R1);
         ObjectMove("Sup2",0,Time[i],S2);
         ObjectMove("Res2",0,Time[i],R2);
         ObjectMove("Sup3",0,Time[i],S3);
         ObjectMove("Res3",0,Time[i],R3);

        }

      last_week_high = MathMax(last_week_high, High[i]);
      last_week_low = MathMin(last_week_low, Low[i]);
      last_week_low=iLow(Symbol(),PERIOD_W1,1);
      last_week_high=iHigh(Symbol(),PERIOD_W1,1);
      PBuffer[i]=P;
      S1Buffer[i]=S1;
      R1Buffer[i]=R1;
      S2Buffer[i]=S2;
      R2Buffer[i]=R2;
      S3Buffer[i]=S3;
      R3Buffer[i]=R3;

     }

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