Текст подпрограммы и версий
zp58r_c.zip  zp58d_c.zip  		Тексты тестовых примеров
tzp58r_c.zip  tzp58d_c.zip 

Функция:  zp58r_c

Назначение

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

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

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

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

                   LN(x)    =    ( 2N - 1 - x ) LN-1(x) / N   -   ( N - 1 ) LN-2(x) / N,     N = 2, 3, ...

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

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

    real zp58r_c (integer *n, real *x)

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

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

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

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

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


Результат:       y  =  -1