Текст подпрограммы и версий sf64r_p.zip |
Тексты тестовых примеров tsf64r_p.zip |
Вычисление интеграла от функции Неймана нулевого порядка.
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