Текст подпрограммы и версий sf63r_c.zip |
Тексты тестовых примеров tsf63r_c.zip |
Вычисление интеграла от функции Бесселя первого рода нулевого порядка.
sf63r_c вычисляет интеграл от функции Бесселя первого рода нулевого порядка вещественного аргумента
∞ ∫ J0 (t) dt . x
Подпрограмма - функция sf63r_c представлена в Библиотеку Вычислительным центром AH CCCP (группа Л.Н.Кармазиной) в виде процедуры на АЛГОЛе - 60. Перевод этой процедуры на стандарт языка ФОРТРАН (а затем на Си) осуществлен в НИВЦ МГУ. Алгоритм взят из кандидатской диссертации:
Г.Неметх, "Разложение обобщенных гипергеометрических функций по полиномам Чебышева", ОИЯИ, Дубна, 1971.
real sf63r_c (real *x)
Параметры
x - | заданное значение аргумента x (тип: вещественный). |
Версии: нет
Вызываемые подпрограммы: нет
Замечания по использованию: нет
int main(void) { /* Local variables */ extern float sf63r_c(float *); static float x, y; x = 1.7f; y = (float)sf63r_c(&x); printf("\n %16.7e %16.7e \n",x,y); return 0; } /* main */ Результат: y = -3.3249688286