Текст подпрограммы и версий ( Фортран )
sfa4r.zip  sfa4d.zip  		Тексты тестовых примеров ( Фортран )
tsfa4r.zip  tsfa4d.zip 
Текст подпрограммы и версий ( Си )
sfa4r_c.zip  sfa4d_c.zip  		Тексты тестовых примеров ( Си )
tsfa4r_c.zip  tsfa4d_c.zip 
Текст подпрограммы и версий ( Паскаль )
sfa4r_p.zip  sfa4e_p.zip  		Тексты тестовых примеров ( Паскаль )
tsfa4r_p.zip  tsfa4e_p.zip 

Функция:  SFA4R

Назначение

Вычисление экспоненциального интеграла An(b).

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

Подпрограмма - функция SFA4R вычисляет значение интеграла 

                         ∞
        An(b)  =   ∫   t n  e-bt  dt
                       1

для  n = 0, 1, 2, ... и положительного вещественного параметра  b по рекуррентной формуле 

        An(b)  =  A0(b)  +  (n / b)  An-1(b)  ,
где  A0 (b)  =  (e - b) / b

Абрамовиц М., Стиган И. Справочник по специальным функциям. М.: Наука, 1979.

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

    FUNCTION  SFA4R (N, B) 
   Параметры
N - заданное значение параметра  n  (тип: целый);
B - заданное значение параметра  b > 0 (тип: вещественный). 
   Версии
SFA4D - вычисление экспоненциального интеграла An (b) в режиме удвоенной точности; при этом параметр B должен иметь тип DOUBLE PRECISION. 
   Вызываемые подпрограммы:  нет 
   Замечания по использованию:  нет

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

       N = 3 
       B = 0.25 
       RES = SFA4R (N, B) 
                                      
Результат:   RES  =  0.1535795*104