add numerical recipes library

lib/nr/ansi/recipes/predic.c

@@ -0,0 +1,22 @@
+
+#define NRANSI
+#include "nrutil.h"
+
+void predic(float data[], int ndata, float d[], int m, float future[],
+	int nfut)
+{
+	int k,j;
+	float sum,discrp,*reg;
+
+	reg=vector(1,m);
+	for (j=1;j<=m;j++) reg[j]=data[ndata+1-j];
+	for (j=1;j<=nfut;j++) {
+		discrp=0.0;
+		sum=discrp;
+		for (k=1;k<=m;k++) sum += d[k]*reg[k];
+		for (k=m;k>=2;k--) reg[k]=reg[k-1];
+		future[j]=reg[1]=sum;
+	}
+	free_vector(reg,1,m);
+}
+#undef NRANSI