Текст подпрограммы и версий
zp57r_c.zip  zp57d_c.zip  		Тексты тестовых примеров
tzp57r_c.zip  tzp57d_c.zip 

Функция:  zp57r_c

Назначение

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

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

Подпрограмма - функция zp57r_c вычисляет значение полинома Лагерра 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.

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

    real zp57r_c (integer *n, real *x)

   Параметры
n - заданный порядок полинома Лагерра (тип: целый);
x - заданное значение вещественного аргумента, при котором необходимо вычислить значение полинома Лагерра (тип: вещественный). 
   Версии
zp57d_c - вычисление значения полинома Лагерра от вещественного аргумента в режиме удвоенной точности; при этом параметр x должен иметь тип double, а подпрограмма - функция zp57d_c должна быть описана как double . 
   Вызываемые подпрограммы:  нет 
   Замечания по использованию:  нет

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

int main(void)
{
    /* Local variables */
    extern float zp57r_c(int *, float *);
    static int n;
    static float x, y;

    n = 4;
    x = 2.f;
    y = (float)zp57r_c(&n, &x);

    printf("\n %16.7e \n", y);
    return 0;
} /* main */


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