Текст подпрограммы и версий
sfa3r_p.zip  sfa3e_p.zip 
Тексты тестовых примеров
tsfa3r_p.zip  tsfa3e_p.zip 

Функция:  SFA3R (модуль SFA3R_p)

Назначение

Вычисление значений сферической функции Неймана (функции Стокса).

Математическое описание

Подпрограмма - функция 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