48 lines
965 B
C
48 lines
965 B
C
|
|
/* Driver for routine poidev */
|
|
|
|
#include <stdio.h>
|
|
#define NRANSI
|
|
#include "nr.h"
|
|
|
|
#define N 20
|
|
#define NPTS 10000
|
|
#define ISCAL 200
|
|
#define LLEN 50
|
|
|
|
int main(void)
|
|
{
|
|
char txt[LLEN+1];
|
|
long idum=(-13);
|
|
int i,j,k,klim,dist[N+1];
|
|
float xm,dd;
|
|
|
|
for (;;) {
|
|
for (j=0;j<=N;j++) dist[j]=0;
|
|
do {
|
|
printf("Mean of Poisson distribution (0.0<x<%d.0) ",N);
|
|
printf("- Negative to end:\n");
|
|
scanf("%f",&xm);
|
|
} while (xm > N);
|
|
if (xm < 0.0) break;
|
|
for (i=1;i<=NPTS;i++) {
|
|
j=(int) (0.5+poidev(xm,&idum));
|
|
if ((j >= 0) && (j <= N)) ++dist[j];
|
|
}
|
|
printf("Poisson-distributed deviate, mean %5.2f of %6d points\n",
|
|
xm,NPTS);
|
|
printf("%5s %8s %10s\n","x","p(x)","graph:");
|
|
for (j=0;j<=N;j++) {
|
|
dd=(float) dist[j]/NPTS;
|
|
for (k=0;k<=LLEN;k++) txt[k]=' ';
|
|
klim=(int) (ISCAL*dd);
|
|
if (klim > LLEN) klim=LLEN;
|
|
for (k=1;k<=klim;k++) txt[k]='*';
|
|
txt[LLEN]='\0';
|
|
printf("%6d %8.4f %s\n",j,dd,txt);
|
|
}
|
|
}
|
|
return 0;
|
|
}
|
|
#undef NRANSI
|