Текст подпрограммы и версий ( Фортран )
zp57r.zip  zp57d.zip  		Тексты тестовых примеров ( Фортран )
tzp57r.zip  tzp57d.zip 
Текст подпрограммы и версий ( Си )
zp57r_c.zip  zp57d_c.zip  		Тексты тестовых примеров ( Си )
tzp57r_c.zip  tzp57d_c.zip 
Текст подпрограммы и версий ( Паскаль )
zp57r_p.zip  zp57e_p.zip  		Тексты тестовых примеров ( Паскаль )
tzp57r_p.zip  tzp57e_p.zip 

Функция:  ZP57R

Назначение

Вычисление значения полинома Лагерра от вещественного аргумента

Математическое описание

Подпрограмма - функция ZP57R вычисляет значение полинома Лагерра N - го порядка от вещественного аргумента  x: 

                  LN (x)    =    ex   dN ( xN e -x ) /  dxN ,    N = 0, 1, 2,... 
по рекуррентной формуле

                  LN+1(x)    =    ( 2N + 1 - x ) LN(x)  -  N2 LN-1(x),     N = 1, 2,...

Янке Е., Эмде Ф., Леш Ф. Специальные функции. М.: Наука, 1977

Использование 

    FUNCTION  ZP57R (N, X) 
   Параметры
N - заданный порядок полинома Лагерра (тип: целый);
X - заданное значение вещественного аргумента, при котором необходимо вычислить значение полинома Лагерра (тип: вещественный) 
   Версии
ZP57D - вычисление значения полинома Лагерра от вещественного аргумента в режиме удвоенной точности; при этом параметр X должен иметь тип DOUBLE PRECISION, а подпрограмма - функция ZP57D должна быть описана как DOUBLE PRECISION  FUNCTION 
   Вызываемые подпрограммы:  нет 
   Замечания по использованию:  нет

Пример использования 

      N = 4 
      X = 2 
      Y = ZP57R (N, X) 

Результат:        Y  =  8