Текст подпрограммы и версий
sf24r_p.zip , sf24e_p.zip 		Тексты тестовых примеров
tsf24r_p.zip , tsf24e_p.zip

Функция:  SF24R (модуль SF24R_p)

Назначение

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

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

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

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

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

function SF24R(X :Real): Real;


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

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

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

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

Unit tsf24r_p;
interface
uses
SysUtils, Math, { Delphi }
Lstruct, Lfunc, UtRes_p, SF24R_p;

function tsf24r: String;

implementation

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

end.


Результат:

       R  =  0.938469807240