Delphi-Help

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

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

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

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

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

Автор:       Алексей Перов, 
 

Этот e-mail адрес защищен от спам-ботов, для его просмотра у Вас должен быть включен Javascript
 
, 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;

x := RandomBinom(10, 0.4);