|
Текст подпрограммы и версий 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