?? xksone.c
字號:
/* Driver for routine ksone */
#include <stdio.h>
#include <math.h>
#include "nr.h"
#include "nrutil.h"
#define NPTS 1000
#define EPS 0.1
float func(x)
float x;
{
return 1.0 - erfcc(x/sqrt(2.0));
}
main()
{
long idum=(-5);
int i,j;
float d,factr,prob,varnce,*data;
data=vector(1,NPTS);
printf("%19s %16s %15s\n\n",
"variance ratio","k-s statistic","probability");
for (i=1;i<=11;i++) {
varnce=1.0+(i-1)*EPS;
factr=sqrt(varnce);
for (j=1;j<=NPTS;j++)
data[j]=factr*fabs(gasdev(&idum));
ksone(data,NPTS,func,&d,&prob);
printf("%16.6f %16.6f %16.6f \n",varnce,d,prob);
}
free_vector(data,1,NPTS);
return 0;
}
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -