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

[shulja]

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

[Krjuger]

Тьфу, я совсем не так понял)))Извиняюсь.
Так насчеем с того,что именно вы считаете?
Вероятность?Если вероятность то чего?Напишите более подробно про вашу задачу.
В общем вот тебе код,который и факториал считает и Пуассоновское распределение.

function fact(x:integer):longint;
begin
if x=0 then fact:=1
else fact:=fact(x-1)*x;
end;

function P( double x; double lambda;n:integer):double;
var
 res:double;
begin
 res:=Exp(n*Ln(x*lambda))*exp(-lambda*x)/fact(n);
P:=res;
end;
 
var
x:double;
lambda:double;
n:integer;
res:double;
begin
n:=10;
lambda:=2.7;
x=12.1;
res:=P(x,lambda,n);
writeln(res);
readln;
end.

n-число событий такого потока, выпадающих на интервал х

Сообщение отредактировано: Krjuger - 31.03.2012 3:11