Текст подпрограммы и версий
sf70r_c.zip  		Тексты тестовых примеров
tsf70r_c.zip 

Подпрограмма:  sf70r_c

Назначение

Вычисление обратной функции показательного распределения вероятностей.

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

sf70r_c вычисляет значение  x такое, что F (x, λ) = P, где F (x, λ) - функция показательного распределения вероятностей: 

                            x
        F (x, λ) = λ ∫ e - λz dz ,   λ > 0
                           0

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

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

    int sf70r_c (real *p, real *rl, real *x, integer *ierr)

   Параметры
p - заданное значение аргумента (тип: вещественный);
rl - параметр  λ обратной функции показательного распределения (тип: вещественный);
x - вещественная переменная, содержащая вычисленное значение функции;
ierr - целая переменная, служащая для сообщения об ошибках; при этом:
 

ierr = 65, когда  λ ≤ 0;

ierr = 66, когда  p < 0,  либо  p > 1;

значение  x  в обоих случаях полагается равным нулю. 
   Версии:  нет 
   Вызываемые подпрограммы
utsf16_c - подпрограмма выдачи диагностических сообщений при работе подпрограммы sf70r_c. 
   Замечания по использованию:  нет

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

int main(void)
{
    /* Local variables */
    extern int sf70r_c(float *, float *, float *, int *);
    static int ierr;
    static float fx;
    static int ier;
    static float c_b1 = .77686984f;
    static float c_b2 = 1.f;

    sf70r_c(&c_b1, &c_b2, &fx, &ierr);

    printf("\n %16.7e %5i \n",fx,ierr);
    return 0;
} /* main */


Результаты:    fx  =  1.49999999996 ,   ierr  =  0