1PAGE 1 THIS PROGRAM GENERATES POISSON DISTRIBUTED RANDO (C) 1978 UND
* * * * * S O U R C E L I S T I N G * * * * *
0001 TITLE THIS PROGRAM GENERATES POISSON DISTRIBUTED RANDOM VARIABLES
0002 * NOSTATS
0003 * NARROW
0004 * EULER
0005 L LEV.K=INTGRL(TEST.JK)
0006 N LEV=1
0007 R TEST.KL=LEV.K*RND.K
0008 NOTE
0009 NOTE GENERATE PSEUDO RANDOM NUMBER BETWEEN 0 AND 1
0010 NOTE
0011 A RND.K=NOISE(SEED)
0012 C SEED=12345
0013 NOTE
0014 NOTE GENERATE POISSON DISTRIBUTED RANDOM VARIABLE
0015 NOTE
0016 S POISON.K=TABND(TAB1,RND.K,0,1)
0017 T TAB1=0.0,1.2,1.75,2.3,2.7,3.0,3.25,3.50,3.8,4.05,4.4,4.65,5.0,
X 5.3,5.65,6.0,6.5,7.0,7.5,8.5,20.0
0018 PARM DT=1
0019 PARM START=0
0020 PARM STOP=20
0021 PARM PRTPER=1
0022 PARM PLTPER=1
0023 NOTE POISSON PRINTED OUTPUT
0024 PRINT RND,POISON
0025 NOTE PLOTTED OUTPUT FOR POISSON
0026 PLOT RND=R(0,1)/POISON=+(0,20)
0027 PLOT RND=R(0,1)//POISON
1PAGE 2 THIS PROGRAM GENERATES POISSON DISTRIBUTED RANDO -(P) 1978 UND
TIME RND POISON
E+00 E-03 E+00
0.000 344.41 3.470
1.000 621.11 5.127
2.000 377.00 3.662
3.000 922.01 7.287
4.000 889.08 7.366
5.000 286.39 3.184
6.000 466.60 4.165
7.000 472.06 4.204
8.000 382.98 3.698
9.000 299.33 3.247
10.000 99.17 1.743
11.000 151.02 2.309
12.000 763.60 6.127
13.000 472.43 4.207
14.000 712.20 5.730
15.000 271.38 3.110
16.000 968.43 10.986
17.000 618.18 5.110
18.000 743.21 5.947
19.000 145.65 2.256
20.000 934.98 7.552
1PAGE 3 THIS PROGRAM GENERATES POISSON DISTRIBUTED RANDO -(P) 1978 UND
R=RND +=POISON
R 0 .25 .5 .75 1
+ 0 5 10 15 20
0 . . . . . + . . . .R. . . . . . . . . . . . . . . . . . .
. + . R . .
. + . R . . .
T . . + . . R .
I . . + . . R .
M . + . R . . .
E . + . R . . .
. + . R . . .
. + . R . . .
. + . R . . .
10 . . .+R . . . . . . . . . . . . . . . . . . . . . . . . .
. + R . . . .
. . + . .R .
. + . R . . .
. . + . R . .
. + .R . . .
. . . + . R .
. + . R . .
. . + . R .
. + R . . . .
20 . . . . . . . . . . .+. . . . . . . . . . . . . . . R . .
1PAGE 4 THIS PROGRAM GENERATES POISSON DISTRIBUTED RANDO -(P) 1978 UND
R=RND
R 0 .25 .5 .75 1
1.7 . . . R . . . . . . . . . . . . . . . . . . . . . . . . .
. R . . . .
P . R . . . .
O . . . . .
I . . . . .
S . .R . . .
O . . RR . . .
N . . R . . .
. . R . . .
. . . . .
4.025 . . . . . . . . . . . . . R . . . . . . . . . . . . . . .
. . . . .
. . . . .
. . . . .
. . . R . .
. . . . .
. . . . .
. . . R . .
. . . R .
. . . .R .
6.35 . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
. . . . .
. . . . .
. . . . .
. . . . R R .
. . . . R .
. . . . .
. . . . .
. . . . .
. . . . .
8.675 . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
. . . . .
. . . . .
. . . . .
. . . . .
. . . . .
. . . . .
. . . . .
. . . . .
. . . . .
11 . . . . . . . . . . . . . . . . . . . . . . . . . . . R .