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 .