add numerical recipes library

2025-09-12 18:55:25 +09:00
parent d4dff245bd
commit 2c75620ec9
1344 changed files with 63869 additions and 0 deletions
--- a/lib/nr/k_and_r/recipes/poldiv.c
+++ b/lib/nr/k_and_r/recipes/poldiv.c
@@ -0,0 +1,17 @@
+
+void poldiv(u,n,v,nv,q,r)
+float q[],r[],u[],v[];
+int n,nv;
+{
+	int k,j;
+
+	for (j=0;j<=n;j++) {
+		r[j]=u[j];
+		q[j]=0.0;
+	}
+	for (k=n-nv;k>=0;k--) {
+		q[k]=r[nv+k]/v[nv];
+		for (j=nv+k-1;j>=k;j--) r[j] -= q[k]*v[j-k];
+	}
+	for (j=nv;j<=n;j++) r[j]=0.0;
+}