blob: 4782fde81cba41369b17c897fc453d0a8271bb8c (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
c function ppoiss.f
c
c source
c Bevington, page 39.
c
c purpose
c evaluate poisson probability function
c
c usage
c result = ppoiss (nobs, averag)
c
c description of parameters
c nobs - number of items observed
c averag - mean of distribution
c
c subroutines and function subprograms required
c factor (n)
c calculates n factorial for integers
c
function ppoiss (nobs,averag)
1 ppoiss=((averag**nobs)/factor(nobs))*exp(-averag)
return
end
|
