Текст подпрограммы и версий 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 :Real; N :Integer): Real;
Параметры
X - | заданное значение аргумента (тип: вещественный); |
N - | заданное значение порядка вычисляемой функции, N ≥ 1 (тип: целый). |
Версии
SFA3E - | вычисление значений сферической функции Неймана (функции Стокса) в режиме расширенной (Extended) точности; при этом параметр X должен иметь тип Extended. |
Вызываемые подпрограммы: нет
Замечания по использованию: нет
Unit tsfa3r_p; interface uses SysUtils, Math, { Delphi } Lstruct, Lfunc, UtRes_p, SFA3R_p; function tsfa3r: String; implementation function tsfa3r: String; var Y :Real; begin Result := ''; { результат функции } Y := SFA3R(0.01,1); Result := Result + Format('%16.7f ',[Y]) + #$0D#$0A; UtRes('tsfa3r',Result); { вывод результатов в файл tsfa3r.res } exit; end; end. Результат: Y = -10000.5