09 May 2025   9:26:36.220 PM

poisson_simulation_test():
  FORTRAN90 version.
  Test poisson_simulation().

TEST01:
  POISSON_FIXED_EVENTS simulates a Poisson process
  until a given number of events have occurred.

  Simulate a Poisson process, for which, on average,
  LAMBDA events occur per unit time.
  Run until you have observed EVENT_NUM events.

  LAMBDA =   0.500000    
  EVENT_NUM =   1000

  Minimum wait =   0.866215E-03
  Average wait =    2.07773    
  Maximum wait =    12.9632    

 Count            Time            Wait

     0     0.00000         0.00000    
     1    0.344868        0.344868    
     2     2.23306         1.88819    
     3     2.68720        0.454145    
     4     2.74182        0.546119E-01
     5     3.38837        0.646558    
  ....  ..............  ..............
   995     2072.33         1.78455    
   996     2072.77        0.434222    
   997     2077.20         4.43507    
   998     2077.24        0.345378E-01
   999     2077.39        0.154215    
  1000     2077.73        0.338289    
 
  Data stored in "poisson_timeline_data.txt".
  Plot commands stored in "poisson_timeline_commands.txt".
 
  Data stored in "poisson_times_data.txt".
  Plot commands stored in "poisson_times_commands.txt".

TEST02:
  POISSON_FIXED_TIME simulates a Poisson process
  counting the number of events that occur during
  a given time.

  Simulate a Poisson process, for which, on average,
  LAMBDA events occur per unit time.
  Run for a total of    1000.00     time units.
  LAMBDA =   0.500000    

  Mean number of events =    500.894    
  Variance =    503.047    
  STD =    22.4287    
 
  Data stored in "poisson_events_data.txt".
  Plot commands stored in "poisson_events_commands.txt".

poisson_simulation_test():
  Normal end of execution.

09 May 2025   9:26:36.421 PM