Delphi-Help

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

>> Гамма распределение

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

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

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

Этот e-mail адрес защищен от спам-ботов, для его просмотра у Вас должен быть включен Javascript
 
, ICQ:102661702, Караганда

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

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

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

function RandomGamma(k, a: Extended): Extended;

{ гамма распределение }

var

  tr: Extended;

  i: Integer;

begin

  tr := 1;

  for i := 1 to Round(k) do tr := tr * random;

  Result := -ln(tr) / a

end;