?? moment.c
字號:
#include <math.h>
void moment(data,n,ave,adev,sdev,svar,skew,curt)
int n;
float data[],*ave,*adev,*sdev,*svar,*skew,*curt;
{
int j;
float s,p;
void nrerror();
if (n <= 1) nrerror("n must be at least 2 in MOMENT");
s=0.0;
for (j=1;j<=n;j++) s += data[j];
*ave=s/n;
*adev=(*svar)=(*skew)=(*curt)=0.0;
for (j=1;j<=n;j++) {
*adev += fabs(s=data[j]-(*ave));
*svar += (p=s*s);
*skew += (p *= s);
*curt += (p *= s);
}
*adev /= n;
*svar /= (n-1);
*sdev=sqrt(*svar);
if (*svar) {
*skew /= (n*(*svar)*(*sdev));
*curt=(*curt)/(n*(*svar)*(*svar))-3.0;
} else nrerror("No skew/kurtosis when variance = 0 (in MOMENT)");
}
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -