|
Текст подпрограммы и версий ( Фортран ) zp59r.zip zp59d.zip |
Тексты тестовых примеров ( Фортран ) tzp59r.zip tzp59d.zip |
|
Текст подпрограммы и версий ( Си ) zp59r_c.zip zp59d_c.zip |
Тексты тестовых примеров ( Си ) tzp59r_c.zip tzp59d_c.zip |
|
Текст подпрограммы и версий ( Паскаль ) zp59r_p.zip zp59e_p.zip |
Тексты тестовых примеров ( Паскаль ) tzp59r_p.zip tzp59e_p.zip |
Вычисление значения полинома Лежандра первого рода от вещественного аргумента
Подпрограмма - функция ZP59R вычисляет значение полинома Лежандра первого рода N - го порядка от вещественного аргумента x:
PN (x) = 1 / (2N N!) dN ( x2 - 1 )N / dxN , N = 0, 1, 2,...
по рекуррентной формуле
PN+1(x) = ( 2N + 1 ) x PN(x) / ( N + 1 ) - N PN-1(x) / ( N + 1 ) , N = 1, 2,...
Янке Е., Эмде Ф., Леш Ф. Специальные функции. М.: Наука, 1977
FUNCTION ZP59R (N, X)
Параметры
| N - | заданный порядок полинома Лежандра первого рода (тип: целый); |
| X - | заданное значение вещественного аргумента, при котором необходимо вычислить значение полинома Лежандра первого рода (тип: вещественный) |
Версии
| ZP59D - | вычисление значения полинома Лежандра первого рода от вещественного аргумента в режиме удвоенной точности; при этом параметр X должен иметь тип DOUBLE PRECISION, а подпрограмма - функция ZP59D должна быть описана как DOUBLE PRECISION FUNCTION |
Вызываемые подпрограммы: нет
Замечания по использованию: нет
N = 3
X = 2.0
Y = ZP59R (N, X)
Результат: Y = 17