add numerical recipes library

lib/nr/ansi/examples/xf1dim.c

@@ -0,0 +1,39 @@
+
+/* Driver for routine f1dim */
+
+#include <stdio.h>
+#define NRANSI
+#include "nr.h"
+#include "nrutil.h"
+
+float func(float x[])
+{
+	int i;
+	float f=0.0;
+
+	for (i=1;i<=3;i++) f += (x[i]-1.0)*(x[i]-1.0);
+	return f;
+}
+
+#define NDIM 3
+
+int ncom;   /* defining declarations */
+float *pcom,*xicom,(*nrfunc)(float []);
+
+int main(void)
+{
+	ncom=NDIM;
+	pcom=vector(1,ncom);
+	xicom=vector(1,ncom);
+	nrfunc=func;
+	pcom[1]=pcom[2]=pcom[3]=0.0;
+	printf("\nEnter vector direction along which to\n");
+	printf("plot the function. Minimum is in the\n");
+	printf("direction 1.0 1.0 1.0 - enter x y z:\n");
+	scanf(" %f %f %f",&xicom[1],&xicom[2],&xicom[3]);
+	scrsho(f1dim);
+	free_vector(xicom,1,ncom);
+	free_vector(pcom,1,ncom);
+	return 0;
+}
+#undef NRANSI