Текст подпрограммы и версий
sf25r_c.zip  sf25d_c.zip  		Тексты тестовых примеров
tsf25r_c.zip  tsf25d_c.zip 

Функция:  sf25r_c

Назначение

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

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

sf25r_c вычисляет функцию Бесселя первого рода первого порядка   J1 (x) для вещественных значений  x.

J.F.Hart, E.W.Cheney, C.L.Lawson et al, Computer Approximations, Wiley, New York, 1968.

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

    real sf25r_c (real *x)

   Параметры
x - заданное значение аргумента x (тип: вещественный). 
   Версии
sf25d_c - вычисление функции Бесселя первого рода первого порядка  J1 (x) с повышенной точностью. 
   Вызываемые подпрограммы:  нет 
   Замечания по использованию
 

Для функции sf25d_c параметр x имеет тип double.

Если значение x меньше нуля, то вычисляется   J1 ( | x | ).

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

int main(void)
{
    /* Local variables */
    extern float sf25r_c(float *);
    static float x, y;

    x = .5f;
    y = (float)sf25r_c(&x);

    printf("\n %16.7e %16.7e \n",x,y);
    return 0;
} /* main */


Результат:

       y  =  0.242268457674