109 lines
8.3 KiB
MQL5
109 lines
8.3 KiB
MQL5
//+------------------------------------------------------------------+
|
|
//| WPR.mq5 |
|
|
//| Copyright 2000-2025, MetaQuotes Ltd. |
|
|
//| https://www.mql5.com |
|
|
//+------------------------------------------------------------------+
|
|
#property copyright "Copyright 2000-2025, MetaQuotes Ltd."
|
|
#property link "https://www.mql5.com"
|
|
#property description "Larry Williams' Percent Range"
|
|
//--- indicator settings
|
|
#property indicator_separate_window
|
|
#property indicator_level1 -20.0
|
|
#property indicator_level2 -80.0
|
|
#property indicator_levelstyle STYLE_DOT
|
|
#property indicator_levelcolor clrSilver
|
|
#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 InpWPRPeriod=14; // Period
|
|
//--- indicator buffers
|
|
double ExtWPRBuffer[];
|
|
//--- global variables
|
|
int ExtPeriodWPR;
|
|
//+------------------------------------------------------------------+
|
|
//| Custom indicator initialization function |
|
|
//+------------------------------------------------------------------+
|
|
void OnInit()
|
|
{
|
|
//--- check for input value
|
|
if(InpWPRPeriod<3)
|
|
{
|
|
ExtPeriodWPR=14;
|
|
Print("Incorrect InpWPRPeriod value. Indicator will use value=",ExtPeriodWPR);
|
|
}
|
|
else
|
|
ExtPeriodWPR=InpWPRPeriod;
|
|
//--- indicator's buffer
|
|
SetIndexBuffer(0,ExtWPRBuffer);
|
|
PlotIndexSetInteger(0,PLOT_DRAW_BEGIN,ExtPeriodWPR-1);
|
|
//--- name for DataWindow and indicator subwindow label
|
|
IndicatorSetString(INDICATOR_SHORTNAME,"%R"+"("+string(ExtPeriodWPR)+")");
|
|
//--- digits
|
|
IndicatorSetInteger(INDICATOR_DIGITS,2);
|
|
}
|
|
//+------------------------------------------------------------------+
|
|
//| 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[])
|
|
{
|
|
if(rates_total<ExtPeriodWPR)
|
|
return(0);
|
|
//--- start working
|
|
int i,pos=prev_calculated-1;
|
|
if(pos<ExtPeriodWPR-1)
|
|
{
|
|
pos=ExtPeriodWPR-1;
|
|
for(i=0; i<pos; i++)
|
|
ExtWPRBuffer[i]=0.0;
|
|
}
|
|
//--- main cycle
|
|
for(i=pos; i<rates_total && !IsStopped(); i++)
|
|
{
|
|
double max_high=Highest(high,ExtPeriodWPR,i);
|
|
double min_low =Lowest(low,ExtPeriodWPR,i);
|
|
//--- calculate WPR
|
|
if(max_high!=min_low)
|
|
ExtWPRBuffer[i]=-(max_high-close[i])*100/(max_high-min_low);
|
|
else
|
|
ExtWPRBuffer[i]=ExtWPRBuffer[i-1];
|
|
}
|
|
//--- return new prev_calculated value
|
|
return(rates_total);
|
|
}
|
|
//+------------------------------------------------------------------+
|
|
//| Maximum High |
|
|
//+------------------------------------------------------------------+
|
|
double Highest(const double &array[],int period,int cur_position)
|
|
{
|
|
double res=array[cur_position];
|
|
for(int i=cur_position-1; i>cur_position-period && i>=0; i--)
|
|
if(res<array[i])
|
|
res=array[i];
|
|
return(res);
|
|
}
|
|
//+------------------------------------------------------------------+
|
|
//| Minimum Low |
|
|
//+------------------------------------------------------------------+
|
|
double Lowest(const double &array[],int period,int cur_position)
|
|
{
|
|
double res=array[cur_position];
|
|
for(int i=cur_position-1; i>cur_position-period && i>=0; i--)
|
|
if(res>array[i])
|
|
res=array[i];
|
|
return(res);
|
|
}
|
|
//+------------------------------------------------------------------+
|