Poisson Пуасонновский поток Моделирование систем Опции

[shulja]

Добрый день! Есть необходимость на Паскале написать входной Пуассоновский поток для системы массового обслуживания. При чем проблема только с ним.
Есть заданая Лямбда, есть написанная функция которрая должна возвращать число сгенерированное по формуле Пуассона - но в формуле есть факториал он должен быть интеджер - а число возвращаемое в диапазоне от 0 до 1 - как быть не пойму.

[Krjuger]

Вам нужно сделать рандом от 0 до 1 чтоли?
Тогда добавьте

begin
randomize;//<<<<это
n:=10;
lambda:=2.7;
x=12.1;
res:=P(x,lambda,n);
d:=random;//<<<<это
writeln(res);
readln;
end.
Ну а 

дальше делайте,что хотите)
В d будет храниться как раз то самое случайно число,или вам,что то другое надо?)

Сообщение отредактировано: Krjuger - 30.03.2012 23:25

[shulja]

Вам нужно сделать рандом от 0 до 1 чтоли?
Тогда добавьте

вот у меня есть для Эланга
а надо еще один написать для пуассона что б сам генерил числа штук 300 - 500 чтоб распределение проверить

function Exponential (lambda : real): real;
begin
result := -1/lambda*ln(random);
end;

function Erlang (lambda : real): real;
var i : integer;
begin
result := 0;
for i := 0 to n do
result := result + Exponential(0.25);
end;


begin
for i := 0 to n do
begin
result := Erlang(0.25);
s := Format('%.3f',[result]);
ListBox1.Items.Add(s);
end;