Google
 

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