Автор: Ларри Вильямс (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;
 }
}
