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

Функция:  SF82R (модуль SF82R_p)

Назначение

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

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

Предположим, что случайное событие наступает с вероятностью  P за одно испытание. Тогда вероятность того, что это событие будет иметь место  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.

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

function SF82R(K :Integer; N :Integer; P :Real): Real;


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

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

Unit tsf82r_p;
interface
uses
SysUtils, Math, { Delphi }
Lstruct, Lfunc, UtRes_p, SF82R_p;

function tsf82r: String;

implementation

function tsf82r: String;
var
K,N :Integer;
P,RES :Real;
begin
Result := '';  { результат функции }
K := 2;
N := 4;
P := 0.5;
RES := SF82R(K,N,P);
Result := Result + Format('%16.7f ',[RES]) + #$0D#$0A;
UtRes('tsf82r',Result);  { вывод результатов в файл tsf82r.res }
exit;
end;

end.


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