Текст подпрограммы и версий
sf27r_p.zip , sf27e_p.zip 		Тексты тестовых примеров
tsf27r_p.zip , tsf27e_p.zip

Функция:  SF27R (модуль SF27R_p)

Назначение

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

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

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

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

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

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

function SF27R(X :Real): Real;


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

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

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

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

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

Unit tsf27r_p;
interface
uses
SysUtils, Math, { Delphi }
Lstruct, Lfunc, UtRes_p, SF27R_p;

function tsf27r: String;

implementation

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

end.


Результат:

       Y  =  -1.47147239267