Архив форумов ЦИТФорума

[Corwin]

нужно реализовать распределение Эрланга
в среде 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 - это матожидание

вот с реализацией этой функции и связью ее с предыдущей у меня возникли проблемы...
поможите?