01 April 2023 11:58:10.202 AM
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.442115E-02
Average wait = 2.04824
Maximum wait = 14.4673
Count Time Wait
0 0.00000 0.00000
1 0.170566 0.170566
2 3.36295 3.19238
3 4.60783 1.24488
4 5.44315 0.835319
5 8.13475 2.69160
.... .............. ..............
995 2033.79 0.388740
996 2036.64 2.84122
997 2039.39 2.75319
998 2040.82 1.43278
999 2046.06 5.23488
1000 2048.24 2.18445
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 = 501.119
Variance = 495.517
STD = 22.2602
Data stored in "poisson_events_data.txt".
Plot commands stored in "poisson_events_commands.txt".
poisson_simulation_test():
Normal end of execution.
01 April 2023 11:58:10.408 AM