add numerical recipes library

lib/nr/ansi/examples/xpoldiv.c

@@ -0,0 +1,37 @@
+
+/* Driver for routine poldiv */
+
+#include <stdio.h>
+#define NRANSI
+#include "nr.h"
+#include "nrutil.h"
+
+#define N 5
+#define NV 3
+
+int main(void)
+{
+	int i;
+	static float u[N+1]={-1.0,5.0,-10.0,10.0,-5.0,1.0};
+	static float v[NV+1]={1.0,3.0,3.0,1.0};
+	float *q,*r;
+
+	q=vector(0,N);
+	r=vector(0,N);
+	poldiv(u,N,v,NV,q,r);
+	printf("\n%10s %10s %10s %10s %10s %10s\n\n",
+		"x^0","x^1","x^2","x^3","x^4","x^5");
+	printf("quotient polynomial coefficients:\n");
+	for (i=0;i<=5;i++) printf("%10.2f ",q[i]);
+	printf("\nexpected quotient coefficients:\n");
+	printf("%10.2f %10.2f %10.2f %10.2f %10.2f %10.2f\n\n",
+		31.0,-8.0,1.0,0.0,0.0,0.0);
+	printf("remainder polynomial coefficients:\n");
+	for (i=0;i<=3;i++) printf("%10.2f ",r[i]);
+	printf("\nexpected remainder coefficients:\n");
+	printf("%10.2f %10.2f %10.2f %10.2f\n",-32.0,-80.0,-80.0,0.0);
+	free_vector(r,0,N);
+	free_vector(q,0,N);
+	return 0;
+}
+#undef NRANSI