Текст подпрограммы и версий
sf64r_p.zip
Тексты тестовых примеров
tsf64r_p.zip

Функция:  SF64R (модуль SF64R_p)

Назначение

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

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

SF64R вычисляет интеграл от функции Неймана (функции Бесселя второго рода) нулевого порядка вещественного аргумента

                         
                         ∫  N0 (t) dt .
                        x 

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

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

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

function SF64R(var X :Real): Real;

Параметр

X - заданное значение аргумента  x (тип: вещественный).

Версии: нет

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

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

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

Unit tsf64r_p;
interface
uses
SysUtils, Math, { Delphi }
Lstruct, Lfunc, UtRes_p, SF64R_p;

function tsf64r: String;

implementation

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

end.

Результат:    Y  =  0.5095248283005