Текст подпрограммы и версий
sf25r_p.zip , sf25e_p.zip 		Тексты тестовых примеров
tsf25r_p.zip , tsf25e_p.zip

Функция:  SF25R (модуль SF25R_p)

Назначение

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

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

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

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

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

function SF25R(X :Real): Real;


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

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

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

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

Unit tsf25r_p;
interface
uses
SysUtils, Math, { Delphi }
Lstruct, Lfunc, UtRes_p, SF25R_p;

function tsf25r: String;

implementation

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

end.


Результат:

       Y  =  0.242268457674