snrm.c

来自「< C语言数值算法程序大全>>配套程序」· C语言 代码 · 共 23 行

#include <math.h>

double snrm(n,sx,itol)
double sx[];
int itol;
unsigned long n;
{
	unsigned long i,isamax;
	double ans;

	if (itol <= 3) {
		ans = 0.0;
		for (i=1;i<=n;i++) ans += sx[i]*sx[i];
		return sqrt(ans);
	} else {
		isamax=1;
		for (i=1;i<=n;i++) {
			if (fabs(sx[i]) > fabs(sx[isamax])) isamax=i;
		}
		return fabs(sx[isamax]);
	}
}