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

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

Назначение

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

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

Подпрограмма sf80r_c вычисляет вероятность  P того, что случайная величина, имеющая распределение Парето с параметрами  A, x0, меньше или pавна значению  x: 

                         x
        P = A/x0  ∫ (x0 / Z)A - 1 dZ  ,      x ≥ x0 > 0  ,   A > 0
                       x0

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

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

    int sf80r_c (real *x, real *a, real *x0, real *p,
            integer *ierr)

   Параметры
x - заданное значение аргумента  x (тип: вещественный);
a, x0 - заданные значения параметров распределения Парето (тип: вещественный);
p - вещественная переменная, содержащая вычисленное значение функции распределения Парето;
ierr - целая переменная, служащая для сообщения об ошибках; при этом:
ierr=65 - когда  a ≤ 0 либо  x0 ≤ 0; значение функции распределения полагается равным нулю. 
   Версии:  нет 
   Вызываемые подпрограммы
utsf16_c - подпрограмма выдачи диагностических сообщений при работе подпрограммы sf80r_c. 
   Замечания по использованию:  нет

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

int main(void)
{
    /* Local variables */
    extern int sf80r_c(float *, float *, float *, float *, int *);
    static float p;
    static int ierr;
    static float c_b1 = 4.f;
    static float c_b2 = 1.f;

    sf80r_c(&c_b1, &c_b2, &c_b2, &p, &ierr);

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


Результаты:    p  =  0.75 ,   ierr  =  0