|
Текст подпрограммы и версий ( Фортран ) sfa3r.zip sfa3d.zip |
Тексты тестовых примеров ( Фортран ) tsfa3r.zip tsfa3d.zip |
|
Текст подпрограммы и версий ( Си ) sfa3r_c.zip sfa3d_c.zip |
Тексты тестовых примеров ( Си ) tsfa3r_c.zip tsfa3d_c.zip |
|
Текст подпрограммы и версий ( Паскаль ) sfa3r_p.zip sfa3e_p.zip |
Тексты тестовых примеров ( Паскаль ) tsfa3r_p.zip tsfa3e_p.zip |
Вычисление значений сферической функции Неймана (функции Стокса).
Подпрограмма - функция SFA3R вычисляет сферическую функцию Неймана
(функцию Стокса)
( π/2x)1/2 Nn + 1/2 (X)
от вещественных аргументов X.
Если X = 0, то значение функции полагается равным наибольшему
представимому в машине числу. Значение n должно быть больше или равно 1 .
Абрамовиц М., Стиган И. Справочник по специальным функциям. М.: Наука, 1979.
FUNCTION SFA3R (X, N)
Параметры
| X - | заданное значение аргумента (тип: вещественный); |
| N - | заданное значение порядка вычисляемой функции, N ≥ 1 (тип: целый). |
Версии
| SFA3D - | вычисление значений сферической функции Неймана (функции Стокса) в режиме удвоенной точности; при этом параметр X должен иметь тип DOUBLE PRECISION. |
Вызываемые подпрограммы: нет
Замечания по использованию: нет
X = 0.01
N = 1
Y = SFA3R (X, N)
Результат: Y = -10000.5