Автор: Ларри Вильямс (Larry Williams)
Источник: How I made one million dollars (https://ru.wikipedia.org/wiki/Williams_%25R)
Пример:
Исходный текст:
Код: Выделить всё
function Initialize()
{
IndicatorName = "RWilliams";
PriceStudy = false;
AddInput("Input", Inputs.Candle);
AddSeries("RWilliams", DrawAs.Line, Color.White);
AddParameter("nK", 5);
AddLevel(-20.0 , Color.Gray, "RWilliams");
AddLevel(-80.0 , Color.Gray, "RWilliams");
}
function Evaluate()
{
// AlfaDirect. 2015. OX
// %R () - Совпадает со встроенным RWilliams AlfaDirect
if (CurrentIndex < (nK))
{
RWilliams = 0.0;
}
else
{
var eMax = Input.High[0];
var eMin = Input.Low[0];
for (int i=1; i < nK; i++)
{
if (Input.High[-i] > eMax)
eMax = Input.High[-i];
if (Input.Low[-i] < eMin)
eMin = Input.Low[-i];
}
double a = (eMax - eMin);
if (a > 0.0)
RWilliams = -100.0*(eMax - Input.Close[0]) / a;
else
RWilliams = -100.0;
}
}