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

Функция:  sf82r_c

Назначение

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

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

Предположим, что случайное событие наступает с вероятностью  P за одно испытание. Тогдa вepoятность того, что это событие будет иметь место  K или больше раз за  N испытаний, определяется соотношением: 

           N
           ∑    [ N! / (j! (N - j)!) ] P j (1 - P) N - j   =   I P (K, N - K + 1)  ,
          j =K

где  I - неполная бета - функция,  K = 1, 2, ..., N. Если K = 0, то значение функции полагается равным 1.

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

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

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

    real sf82r_c (integer *k, integer *n, real *p)

   Параметры
k, n - заданные целочисленные параметры биномиальной функции распределения вероятностей (тип: целый);
p - заданный вещественный параметр биномиальной функции распределения вероятностей (тип: вещественный) 
   Версии:  нет 
   Вызываемые подпрограммы
sfg6r_c - вычисление неполной бета - функции  Ix(a, b) 
   Замечания по использованию:  нет

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

int main(void)
{
    /* Local variables */
    extern float sf82r_c(int *, int *, float *);
    static int k, n;
    static float p, res;

    k = 2;
    n = 4;
    p = .5f;
    res = (float)sf82r_c(&k, &n, &p);

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


Результат:    res = 0.6875