PP Presentation

for k9=1 to total

num=0

r9=rnd

t9=exp(-lambda)

while r9 > t9

num = num + 1

r9 = r9 * rnd

wend

x(k9)=num

next k9

(returns a discrete Poisson pdf in x())

Previous slide Next slide Back to the first slide View Graphic Version