Текст подпрограммы и версий ( Фортран ) zp56r.zip zp56d.zip |
Тексты тестовых примеров ( Фортран ) tzp56r.zip tzp56d.zip |
Текст подпрограммы и версий ( Си ) zp56r_c.zip zp56d_c.zip |
Тексты тестовых примеров ( Си ) tzp56r_c.zip tzp56d_c.zip |
Текст подпрограммы и версий ( Паскаль ) zp56r_p.zip zp56e_p.zip |
Тексты тестовых примеров ( Паскаль ) tzp56r_p.zip tzp56e_p.zip |
Вычисление значения полинома Эрмита от вещественного аргумента
Подпрограмма - функция ZP56R вычисляет значение полинома Эрмита N - го порядка от вещественного аргумента x:
HN (x) = ( -1 )N ex*x ( dN e -x*x / dxN ) , N = 0, 1, 2,... по рекуррентной формуле HN+1(x) = 2x HN(x) - 2N HN-1(x), N = 1, 2,...
Янке Е., Эмде Ф., Леш Ф. Специальные функции. М.: Наука, 1977
FUNCTION ZP56R (N, X)
Параметры
N - | заданный порядок полинома Эрмита (тип: целый); |
X - | заданное значение вещественного аргумента, при котором необходимо вычислить значение полинома Эрмита (тип: вещественный) |
Версии
ZP56D - | вычисление значения полинома Эрмита от вещественного аргумента в режиме удвоенной точности; при этом параметр X должен иметь тип DOUBLE PRECISION, а подпрограмма - функция ZP56D должна быть описана как DOUBLE PRECISION FUNCTION |
Вызываемые подпрограммы: нет
Замечания по использованию: нет
N = 5 X = 2 Y = ZP56R (N, X) Результат: Y = -16