//+------------------------------------------------------------------+
//|                                                        Pivot.mq4 |
//|                               Copyright © 2004, Poul_Trade_Forum |
//|                                                         Aborigen |
//|                                          http://forex.kbpauk.ru/ |
//+------------------------------------------------------------------+
#property copyright "Poul Trade Forum"
#property link      "http://forex.kbpauk.ru/"

#property indicator_chart_window

#property indicator_buffers 7
#property indicator_color1 Orange
#property indicator_color2 DarkBlue
#property indicator_color3 Maroon
#property indicator_color4 DarkBlue
#property indicator_color5 Maroon
#property indicator_color6 Green
#property indicator_color7 Green



double PBuffer[];
double S1Buffer[];
double R1Buffer[];
double S2Buffer[];
double R2Buffer[];
double S3Buffer[];
double R3Buffer[];
string Pivot="Pivot Point",Sup1="S 1", Res1="R 1";
string Sup2="S 2", Res2="R 2", Sup3="S 3", Res3="R 3";
int fontsize=10;
double P,S1,R1,S2,R2,S3,R3;
double LastHigh,LastLow,LastClose, x;


int deinit()
{


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


   return(0);
}

int init()
{
   string short_name;


   SetIndexStyle(0,DRAW_LINE,0,2,Orange);
   SetIndexStyle(1,DRAW_LINE,0,2,DarkBlue);
   SetIndexStyle(2,DRAW_LINE,0,2,Maroon);
   SetIndexStyle(3,DRAW_LINE,0,2,DarkBlue);
   SetIndexStyle(4,DRAW_LINE,0,2,Maroon);
   SetIndexStyle(5,DRAW_LINE,0,2,Green);
   SetIndexStyle(6,DRAW_LINE,0,2,Green);
   SetIndexBuffer(0,PBuffer);
   SetIndexBuffer(1,S1Buffer);
   SetIndexBuffer(2,R1Buffer);
   SetIndexBuffer(3,S2Buffer);
   SetIndexBuffer(4,R2Buffer);
   SetIndexBuffer(5,S3Buffer);
   SetIndexBuffer(6,R3Buffer);



   short_name="Pivot Point";
   IndicatorShortName(short_name);
   SetIndexLabel(0,short_name);


   SetIndexDrawBegin(0,1);

   return(0);
}

//+------------------------------------------------------------------+
//| Custom indicator iteration function                              |
//+------------------------------------------------------------------+
int start()
{
   int    counted_bars=IndicatorCounted();

   int limit, i;
 
    if (counted_bars==0)
    {
        x=Period();
        if (x>240) return(-1);
        
        ObjectCreate("Pivot", OBJ_TEXT, 0, 0,0);
        ObjectSetText("Pivot", "                 Pivot Point",fontsize,"Arial",Red);
        ObjectCreate("Sup1", OBJ_TEXT, 0, 0, 0);
        ObjectSetText("Sup1", "      S 1",fontsize,"Arial",Red);
        ObjectCreate("Res1", OBJ_TEXT, 0, 0, 0);
        ObjectSetText("Res1", "      R 1",fontsize,"Arial",Red);
        ObjectCreate("Sup2", OBJ_TEXT, 0, 0, 0);
        ObjectSetText("Sup2", "      S 2",fontsize,"Arial",Red);
        ObjectCreate("Res2", OBJ_TEXT, 0, 0, 0);
        ObjectSetText("Res2", "      R 2",fontsize,"Arial",Red);
        ObjectCreate("Sup3", OBJ_TEXT, 0, 0, 0);
        ObjectSetText("Sup3", "      S 3",fontsize,"Arial",Red);
        ObjectCreate("Res3", OBJ_TEXT, 0, 0, 0);
        ObjectSetText("Res3", "      R 3",fontsize,"Arial",Red);
    }
    
    if(counted_bars<0) return(-1);

    limit=(Bars-counted_bars)-1;



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

       // if (High[i+1]>LastHigh) LastHigh=High[i+1];
       // if (Low[i+1]<LastLow) LastLow=Low[i+1];

            // Time[] open time of each bar of the current chart.
            // iTime() Time value for the bar of indicated symbol with timeframe and shift. 
            // TimeDay Returns day of month (1 - 31) 
            // Close[] close prices for each bar of the current chart
            // iClose(  	string symbol, int timeframe, int shift) 
            
       // datetime yesterday     = iTime(Symbol(), PERIOD_D1, 1 );
        
        
        string str = "bar 0 start time: " + TimeToStr(TimeCurrent(), TIME_DATE) ; 
        
        str = str + "\nToday:     " + TimeToStr(iTime(Symbol(),PERIOD_D1,0),TIME_DATE ) ; 
        str = str + "\nYesterday: " + TimeToStr(iTime(Symbol(),PERIOD_D1,1),TIME_DATE ) ; 
        
        str = str + "\nToday:     High: " + iHigh(Symbol(), PERIOD_D1, 0 ); 
        str = str + "\nYesterday: High: " + iHigh(Symbol(), PERIOD_D1, 1 ); 
        
        Comment(str);
                        // MathCeil(x) smallest integer that exceeds or equals to x
                        // MathFloor(x) largest integer that is less than or equal to x. 
        
        
                        
         int maxdays = MathFloor(    1.0*(Bars-1)*Period()/PERIOD_D1  ); 
         int yesterday=1; 
         for ( int p=0; p<maxdays;  p++ )    
         {
             if ( Time[i] > iTime(Symbol(),PERIOD_D1,p) ) 
             {
                yesterday=p+1;  // p is daily bar number of the day that contains this bar
                break; 
             }
         }
     
     
         LastHigh  = iHigh (Symbol(), PERIOD_D1, yesterday ); 
         LastLow   = iLow  (Symbol(), PERIOD_D1, yesterday ); 
         LastClose = iClose(Symbol(), PERIOD_D1, yesterday ); 
    
         P=(LastHigh+LastLow+LastClose)/3;   
         R1 = (2*P)-LastLow;
         S1 = (2*P)-LastHigh;
         R2 = P+(LastHigh - LastLow);
         S2 = P-(LastHigh - LastLow);
         R3 = (2*P)+(LastHigh-(2*LastLow));
         S3 = (2*P)-((2* LastHigh)-LastLow); 

        if (TimeDay(Time[i])!=TimeDay(Time[i+1]))  // when day changes 
        { 
        
         
            ObjectMove("Pivot", 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);
        }
        
        PBuffer[i]=P;
        S1Buffer[i]=S1;
        R1Buffer[i]=R1;
        S2Buffer[i]=S2;
        R2Buffer[i]=R2;
        S3Buffer[i]=S3;
        R3Buffer[i]=R3;

    }


    return(0);
}