pimpspit-monthly-pivot

//+-------------------------------------------------------------------------+
//|                                                 Pimpology Monthly Pivot |
//|                   No copyright, use as you wish.  FX Pimp & Spitfire_412|
//| http://www.forex-tsd.com/general-discussion/15143-school-pimpology.html |
//+-------------------------------------------------------------------------+
#property copyright "No copyright, use as you wish.  FX Pimp & Spitfire_412"
#property link      "http://www.forex-tsd.com/general-discussion/15143-school-pimpology.html"
#property indicator_chart_window
#property indicator_buffers 7
#property indicator_color1 DarkGreen
#property indicator_color2 DarkGray
#property indicator_color3 DarkGray
#property indicator_color4 DarkGray
#property indicator_color5 DarkGray
#property indicator_color6 DarkGray
#property indicator_color7 DarkGray
double P1Buffer[];
double P2Buffer[];
double P3Buffer[];
double P4Buffer[];
double P5Buffer[];
double P6Buffer[];
double P7Buffer[];
double PP, Q, DR1, DS1, DR2, DS2, DR3, DS3;
//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int init()
  {
   SetIndexBuffer(0, P1Buffer);
   SetIndexBuffer(1, P2Buffer);
   SetIndexBuffer(2, P3Buffer);
   SetIndexBuffer(3, P4Buffer);
   SetIndexBuffer(4, P5Buffer);
   SetIndexBuffer(5, P6Buffer);
   SetIndexBuffer(6, P7Buffer);
   SetIndexStyle(0, DRAW_LINE, STYLE_SOLID, 3);
   SetIndexStyle(1, DRAW_LINE, STYLE_SOLID, 1);
   SetIndexStyle(2, DRAW_LINE, STYLE_SOLID, 1);
   SetIndexStyle(3, DRAW_LINE, STYLE_SOLID, 1);
   SetIndexStyle(4, DRAW_LINE, STYLE_SOLID, 1);
   SetIndexStyle(5, DRAW_LINE, STYLE_SOLID, 1);
   SetIndexStyle(6, DRAW_LINE, STYLE_SOLID, 1);
   return(0);
  }
//+------------------------------------------------------------------+
//| Custor indicator deinitialization function                       |
//+------------------------------------------------------------------+
int deinit()
  {
   ObjectDelete("MonthP");
   ObjectDelete("MonthR1");
   ObjectDelete("MonthR2");
   ObjectDelete("MonthR3");
   ObjectDelete("MonthS1");
   ObjectDelete("MonthS2");
   ObjectDelete("MonthS3");
   ObjectDelete("txtMonthP");
   ObjectDelete("txtMonthR1");
   ObjectDelete("txtMonthR2");
   ObjectDelete("txtMonthR3");
   ObjectDelete("txtMonthS1");
   ObjectDelete("txtMonthS2");
   ObjectDelete("txtMonthS3");
   return(0);
  }
//+------------------------------------------------------------------+
//| Custom indicator iteration function                              |
//+------------------------------------------------------------------+
int start()
  {
   int i, Monthi, counted_bars = IndicatorCounted();
   if(counted_bars < 0) return(-1);
   if(counted_bars > 0) counted_bars--;  
   int limit = Bars - counted_bars;
   for(i = limit - 1; i >= 0; i--)
     {
       Monthi = iBarShift(Symbol(), PERIOD_MN1, Time[i], false);
       Q = (iHigh(Symbol(), PERIOD_MN1,Monthi + 1) - iLow(Symbol(), PERIOD_MN1, Monthi + 1));
       PP = (iHigh(Symbol(), PERIOD_MN1, Monthi + 1) + iLow(Symbol(), PERIOD_MN1, Monthi + 1) + iClose(Symbol(), PERIOD_MN1, Monthi + 1)) / 3;    
       DR1 = (2*PP)-iLow(Symbol(), PERIOD_MN1, Monthi + 1);
       DS1 = (2*PP)-iHigh(Symbol(), PERIOD_MN1,Monthi + 1);
       DR2 = PP+(iHigh(Symbol(), PERIOD_MN1,Monthi + 1) - iLow(Symbol(), PERIOD_MN1, Monthi + 1));
       DS2 = PP-(iHigh(Symbol(), PERIOD_MN1,Monthi + 1) - iLow(Symbol(), PERIOD_MN1, Monthi + 1));
       DR3 = (2*PP)+(iHigh(Symbol(), PERIOD_MN1,Monthi + 1)-(2*iLow(Symbol(), PERIOD_MN1, Monthi + 1)));
       DS3 = (2*PP)-((2*iHigh(Symbol(), PERIOD_MN1,Monthi + 1))-iLow(Symbol(), PERIOD_MN1, Monthi + 1));
       P1Buffer[i] = PP;
       SetPrice("MonthP", Time[i], PP, indicator_color1);
       SetText("txtMonthP", "mp", Time[i], PP, indicator_color1);
       P2Buffer[i] = DR1;
       SetPrice("MonthR1", Time[i], DR1, indicator_color4);
       SetText("txtMonthR1", "mr1", Time[i], DR1, indicator_color4);
       P3Buffer[i] = DS1;
       SetPrice("MonthS1", Time[i], DS1, indicator_color4);
       SetText("txtMonthS1", "ms1", Time[i], DS1, indicator_color4);
       P4Buffer[i] = DR2;
       SetPrice("MonthR2", Time[i], DR2, indicator_color4);
       SetText("txtMonthR2", "mr2", Time[i], DR2, indicator_color4);
       P5Buffer[i] = DS2;
       SetPrice("MonthS2", Time[i], DS2, indicator_color4);
       SetText("txtMonthS2", "ms2", Time[i], DS2, indicator_color4);
       P6Buffer[i] = DR3;
       SetPrice("MonthR3", Time[i], DR3, indicator_color4);
       SetText("txtMonthR3", "mr3", Time[i], DR3, indicator_color4);
       P7Buffer[i] = DS3;
       SetPrice("MonthS3", Time[i], DS3, indicator_color4);
       SetText("txtMonthS3", "ms3", Time[i], DS3, indicator_color4);
    }
   return(0);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void SetPrice(string name, datetime Tm, double Prc, color clr)
  {
   if(ObjectFind(name) == -1)
     {
       ObjectCreate(name, OBJ_ARROW, 0, Tm, Prc);
       ObjectSet(name, OBJPROP_COLOR, clr);
       ObjectSet(name, OBJPROP_WIDTH, 1);
       ObjectSet(name, OBJPROP_ARROWCODE, 4);
     }
   else
     {
       ObjectSet(name, OBJPROP_TIME1, Tm);
       ObjectSet(name, OBJPROP_PRICE1, Prc);
       ObjectSet(name, OBJPROP_COLOR, clr);
       ObjectSet(name, OBJPROP_WIDTH, 1);
       ObjectSet(name, OBJPROP_ARROWCODE, 4);
     } 
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void SetText(string name, string txt, datetime Tm, double Prc, color clr)
  {
   if(ObjectFind(name) == -1)
     {
       ObjectCreate(name, OBJ_TEXT, 0, 0, 0);
       ObjectSetText(name, txt, 8, "Times New Roman", clr);
     }
   else
     {
       ObjectSet(name, OBJPROP_TIME1, Tm);
       ObjectSet(name, OBJPROP_PRICE1, Prc);
       ObjectSetText(name, txt, 8, "Times New Roman", clr);
     } 
  }
//+------------------------------------------------------------------+