|
Текст подпрограммы и версий ( Фортран ) zp58r.zip zp58d.zip |
Тексты тестовых примеров ( Фортран ) tzp58r.zip tzp58d.zip |
|
Текст подпрограммы и версий ( Си ) zp58r_c.zip zp58d_c.zip |
Тексты тестовых примеров ( Си ) tzp58r_c.zip tzp58d_c.zip |
|
Текст подпрограммы и версий ( Паскаль ) zp58r_p.zip zp58e_p.zip |
Тексты тестовых примеров ( Паскаль ) tzp58r_p.zip tzp58e_p.zip |
Вычисление значения нормированного полинома Лагерра от вещественного аргумента
Подпрограмма - функция ZP58R вычисляет значение нормированного полинома Лагерра 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
FUNCTION ZP58R (N, X)
Параметры
| N - | заданный порядок нормированного полинома Лагерра (тип: целый); |
| X - | заданное значение вещественного аргумента, при котором необходимо вычислить значение нормированного полинома Лагерра (тип: вещественный) |
Версии
| ZP58D - | вычисление значения нормированного полинома Лагерра от вещественного аргумента в режиме удвоенной точности; при этом параметр X должен иметь тип DOUBLE PRECISION, а подпрограмма - функция ZP58D должна быть описана как DOUBLE PRECISION FUNCTION |
Вызываемые подпрограммы: нет
Замечания по использованию: нет
N = 2
X = 2.0
Y = ZP58R (N, X)
Результат: Y = -1