anorm2.c

来自「Numerical Recipes Software 提供的算法子程序集」· C语言 代码 · 共 16 行

#include <math.h>

double anorm2(a,n)
double **a;
int n;
{
	int i,j;
	double sum=0.0;

	for (j=1;j<=n;j++)
		for (i=1;i<=n;i++)
			sum += a[i][j]*a[i][j];
	return sqrt(sum)/n;
}
/* (C) Copr. 1986-92 Numerical Recipes Software . */