Corwin
Зарегистрирован: 25.10.2005 Сообщения: 1
|
Добавлено: Вт Окт 25 2005 12:17 Заголовок сообщения: как реализовать распределение Эрланга? |
|
|
нужно реализовать распределение Эрланга
в среде Delphi с построением гистограммы, гистограмму я сам могу реализовать, делал для экспотенциального распределения, а с реализацией Эрланга возникли проблемы, на сколько я понял из прочтеных книг, он должен содержать два генератора.
Первый реализовал с помощью функции
function TForm1.Slych():real;
var
i:integer;
r:real;
a:integer;
begin
a:=4*k+1;
z:=(a*z+b)mod c;
r:=z/c;
result:=-m*ln(1-r);
end;
z-базовое число, r-i-ое псевдо случайное число - это я генерирую равномероное распределение,
а дальше надо реализовать
распределение Эрланга по формуле
k
x=- M*ln(П ri),
i=1
к количесто повторений числа r, а M - это матожидание
вот с реализацией этой функции и связью ее с предыдущей у меня возникли проблемы...
поможите? |
|