WPR Custom

ÿþ//+------------------------------------------------------------------+

//|                                                   WPR Custom.mq5 |

//|                              Copyright © 2018, Vladimir Karputov |

//|                                           http://wmua.ru/slesar/ |

//+------------------------------------------------------------------+

#property copyright "Copyright © 2018, Vladimir Karputov"

#property link      "http://wmua.ru/slesar/"

#property version   "1.000"

#property description "Larry Williams' Percent Range Custom"

#property description "From the advisor you can set: the color of the line, the thickness of the line, the value of two levels"

#property description " - color of the line"

#property description " - thickness of the line"

#property description " - value of two levels"

//---- indicator settings

#property indicator_separate_window

#property indicator_levelstyle STYLE_DOT

#property indicator_levelwidth 1

#property indicator_maximum    0.0

#property indicator_minimum    -100.0

#property indicator_buffers    1

#property indicator_plots      1

#property indicator_type1      DRAW_LINE

#property indicator_color1     clrDodgerBlue

//---- input parameters

input int      Inp_WPR_Period       = 14;             // Period

input color    Inp_WPR_Color        = clrDodgerBlue;  // Color line

input int      Inp_WPR_Width        = 1;              // Width

input int      Inp_WPR_Level1       = -20.0;          // Value Level #1

input double   Inp_WPR_Level2       = -80.0;          // Value Level #2

//---- buffers

double    ExtWPRBuffer[];

//--- global variables

int       ExtPeriodWPR;

//+------------------------------------------------------------------+

//| Custom indicator initialization function                         |

//+------------------------------------------------------------------+

void OnInit()

  {

//--- check for input value

   if(Inp_WPR_Period<3)

     {

      ExtPeriodWPR=14;

      Print("Incorrect InpWPRPeriod value. Indicator will use value=",ExtPeriodWPR);

     }

   else

      ExtPeriodWPR=Inp_WPR_Period;

//--- name for DataWindow and indicator subwindow label

   IndicatorSetString(INDICATOR_SHORTNAME,"%R"+"("+string(ExtPeriodWPR)+")");

//--- indicator's buffer   

   SetIndexBuffer(0,ExtWPRBuffer);

   PlotIndexSetInteger(0,PLOT_DRAW_BEGIN,ExtPeriodWPR-1);

//--- digits   

   IndicatorSetInteger(INDICATOR_DIGITS,2);

//--- custom parameters

   PlotIndexSetInteger(0,PLOT_LINE_COLOR,Inp_WPR_Color);

   PlotIndexSetInteger(0,PLOT_LINE_WIDTH,Inp_WPR_Width);

   IndicatorSetInteger(INDICATOR_LEVELS,2);

   IndicatorSetDouble(INDICATOR_LEVELVALUE,0,Inp_WPR_Level1);

   IndicatorSetDouble(INDICATOR_LEVELVALUE,1,Inp_WPR_Level2);

//---

  }

//+------------------------------------------------------------------+

//| Williams  Percent Range                                          |

//+------------------------------------------------------------------+

int OnCalculate(const int rates_total,

                const int prev_calculated,

                const datetime &time[],

                const double &open[],

                const double &high[],

                const double &low[],

                const double &close[],

                const long &tick_volume[],

                const long &volume[],

                const int &spread[])

  {

//---- insufficient data

   if(rates_total<ExtPeriodWPR)

      return(0);

//--- start working

   int i=prev_calculated-1;

//--- correct position

   if(i<ExtPeriodWPR-1)

      i=ExtPeriodWPR-1;

//---  main cycle

   while(i<rates_total && !IsStopped())

     {

      //--- calculate maximum High

      double dMaxHigh=MaxAr(high,ExtPeriodWPR,i);

      //--- calculate minimum Low

      double dMinLow=MinAr(low,ExtPeriodWPR,i);

      //--- calculate WPR

      if(dMaxHigh!=dMinLow)

         ExtWPRBuffer[i]=-(dMaxHigh-close[i])*100/(dMaxHigh-dMinLow);

      else

         ExtWPRBuffer[i]=ExtWPRBuffer[i-1];

      //--- increment i for next iteration

      i++;

     }

//--- return new prev_calculated value

   return(rates_total);

  }

//+------------------------------------------------------------------+

//| Maximum High                                                     |

//+------------------------------------------------------------------+

double MaxAr(const double &array[],int period,int cur_position)

  {

   double Highest=array[cur_position];

   for(int i=cur_position-1;i>cur_position-period;i--)

     {

      if(Highest<array[i])

         Highest=array[i];

     }

   return(Highest);

  }

//+------------------------------------------------------------------+

//| Minimum Low                                                      |

//+------------------------------------------------------------------+

double MinAr(const double &array[],int period,int cur_position)

  {

   double Lowest=array[cur_position];

   for(int i=cur_position-1;i>cur_position-period;i--)

     {

      if(Lowest>array[i])

         Lowest=array[i];

     }

   return(Lowest);

  }

//+------------------------------------------------------------------+