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/eclazz.c
+++ b/lib/nr/k_and_r/recipes/eclazz.c
@@ -0,0 +1,16 @@
+
+void eclazz(nf,n,equiv)
+int (*equiv)(),n,nf[];
+{
+	int kk,jj;
+
+	nf[1]=1;
+	for (jj=2;jj<=n;jj++) {
+		nf[jj]=jj;
+		for (kk=1;kk<=(jj-1);kk++) {
+			nf[kk]=nf[nf[kk]];
+			if ((*equiv)(jj,kk)) nf[nf[nf[kk]]]=jj;
+		}
+	}
+	for (jj=1;jj<=n;jj++) nf[jj]=nf[nf[jj]];
+}