Текст подпрограммы и версий
sf26r_p.zip , sf26e_p.zip 		Тексты тестовых примеров
tsf26r_p.zip , tsf26e_p.zip

Функция:  SF26R (модуль SF26R_p)

Назначение

Вычисление функций Неймана нулевого порядка  N0 (x).

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

Функцию Неймана называют также функцией Бесселя второго рода.

SF26R вычисляет функцию Неймана нулевого порядка  N0 (x) для вещественных значений  x.

J.F.Hart, E.W.Cheney, C.L.Lawson et al, Computer Approximations, Wiley, New York, 1968.

Использование 

function SF26R(X :Real): Real;


   Параметры
X - заданное значение аргумента  x (тип: вещественный). 
   Версии
SF26E - вычисление функции Неймана нулевого порядка   N0 (x) с расширенной (Extended) точностью. 
   Вызываемые подпрограммы:  нет 
   Замечания по использованию
 

Для функции SF26E параметр X имеет тип Extended.

Если значение X pавно нулю, то SF26R полагается равной - 3.4E38, а SF26E равной - 1.7E308.

Если значение X меньше нуля, то вычисляется   N0 ( | X | ).

Пример использования 

Unit tsf26r_p;
interface
uses
SysUtils, Math, { Delphi }
Lstruct, Lfunc, UtRes_p, SF26R_p;

function tsf26r: String;

implementation

function tsf26r: String;
var
X,R :Real;
begin
Result := '';  { результат функции }
X := 0.6;
R := SF26R(X);
Result := Result + Format(' %20.16f %20.16f ',[X,R]) + #$0D#$0A;
UtRes('tsf26r',Result);  { вывод результатов в файл tsf26r.res }
exit;
end;

end.


Результат:

       R  =  -0.308509870116