add numerical recipes library

lib/nr/ansi/recipes/fmin.c

@@ -0,0 +1,18 @@
+
+#define NRANSI
+#include "nrutil.h"
+
+extern int nn;
+extern float *fvec;
+extern void (*nrfuncv)(int n, float v[], float f[]);
+
+float fmin(float x[])
+{
+	int i;
+	float sum;
+
+	(*nrfuncv)(nn,x,fvec);
+	for (sum=0.0,i=1;i<=nn;i++) sum += SQR(fvec[i]);
+	return 0.5*sum;
+}
+#undef NRANSI