Функция:  SF63R (модуль SF63R_p)

Назначение

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

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

SF63R вычисляет интеграл от функции Бесселя первого рода нулевого порядка вещественного аргумента

                         ∞
                         ∫  J0 (t) dt .
                        x 

Подпрограмма - функция SF63R представлена в Библиотеку Вычислительным центром AH CCCP (группа Л.Н.Кармазиной) в виде процедуры на АЛГОЛе - 60. Перевод этой процедуры на стандарт языка ФОРТРАН осуществлен в НИВЦ МГУ. Алгоритм взят из кандидатской диссертации:

Г.Неметх, "Разложение обобщенных гипергеометрических функций по полиномам Чебышева", ОИЯИ, Дубна, 1971.

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

function SF63R(var X :Real): Real;

   Параметр 

   Версии:  нет 

   Вызываемые подпрограммы:  нет 

   Замечания по использованию:  нет 

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

Unit tsf63r_p;
interface
uses
SysUtils, Math, { Delphi }
Lstruct, Lfunc, UtRes_p, SF63R_p;

function tsf63r: String;

implementation

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

end.

Результат:    Y  =  -3.3249688286