Текст подпрограммы и версий ( Фортран )
sf29r.zip  sf29d.zip  		Тексты тестовых примеров ( Фортран )
tsf29r.zip  tsf29d.zip 
Текст подпрограммы и версий ( Си )
sf29r_c.zip  sf29d_c.zip  		Тексты тестовых примеров ( Си )
tsf29r_c.zip  tsf29d_c.zip 
Текст подпрограммы и версий ( Паскаль )
sf29r_p.zip , sf29e_p.zip 		Тексты тестовых примеров ( Паскаль )
tsf29r_p.zip , tsf29e_p.zip

Функция:  SF29R

Назначение

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

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

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

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

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

    REAL  FUNCTION  SF29R (X, IERR) 
   Параметры
X - заданное значение аргумента  x (тип: вещественный);
IERR - целая переменная, служащая для сообщения об ошибках, обнаруженных в ходе работы функции; при этом:
IERR= 1 - когда значение аргумента меньше 0; функция вычисляется для абсолютного значения аргумента;
IERR=65 - когда значение аргумента больше 67.35; значение функции полагается равным 3.4E38. 
   Версии
SF29D - вычисление модифицированной функции Бесселя первого порядка  I1 (x) с повышенной точностью. 
   Вызываемые подпрограммы
UTSF10 - подпрограмма выдачи диагностических сообщений при работе функции SF29R.
UTSF11 - подпрограмма выдачи диагностических сообщений при работе функции SF29D. 
   Замечания по использованию
 

Для функции SF29D параметр X имеет тип DOUBLE PRECISION и его областью допустимых значений является полуинтервал  0 ≤ X < 2070. При IERR = 65 значение функции SF29D полагается равным 1.7D308.

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

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

         X = 1.
         Y = SF29R (X, IERR)

Результаты:

       Y  =  0.565159103986,    IERR  =  0