Trailing-Edge
-
PDP-10 Archives
-
decuslib20-06
-
decus/20-160/poisson.dat
There are no other files named poisson.dat in the archive.
TITLE THIS PROGRAM GENERATES POISSON DISTRIBUTED RANDOM VARIABLES
* NOSTATS
* NARROW
* EULER
L LEV.K=INTGRL(TEST.JK)
N LEV=1
R TEST.KL=LEV.K*RND.K
NOTE
NOTE GENERATE PSEUDO RANDOM NUMBER BETWEEN 0 AND 1
NOTE
A RND.K=NOISE(SEED)
C SEED=12345
NOTE
NOTE GENERATE POISSON DISTRIBUTED RANDOM VARIABLE
NOTE
S POISON.K=TABND(TAB1,RND.K,0,1)
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
PARM DT=1
PARM START=0
PARM STOP=20
PARM PRTPER=1
PARM PLTPER=1
NOTE POISSON PRINTED OUTPUT
PRINT RND,POISON
NOTE PLOTTED OUTPUT FOR POISSON
PLOT RND=R(0,1)/POISON=+(0,20)
PLOT RND=R(0,1)//POISON