Биноминальное рапределение

Previous  Top  Next

    
 

 

Code:

{ **** UBPFD *********** by kladovka.net.ru ****

>> Биноминальное рапределение

 

Возвращает случайное число, распределенное по биноминальному закону

распределения

 

Зависимости: system

Автор:       Алексей Перов, aperov@rambler.ru, ICQ:102661702, Караганда

Copyright:   Лабораторные работы по курсу "Моделирование информационных систем", КарГТУ

Дата:        26 апреля 2002 г.

********************************************** }

 

function RandomBinom(n, p: Extended): Extended;

{ биноминальное распределение }

var

x: Extended;

i: Integer;

begin

x := 0;

for i := 1 to Round(n) do

   if Random - p <= 0 then x := x + 1;

Result := x

end;

 

 

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

 

 

Code:

x := RandomBinom(10, 0.4);

 

©Drkb::04141