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/mp2dfr.c
+++ b/lib/nr/k_and_r/recipes/mp2dfr.c
@@ -0,0 +1,18 @@
+
+#define IAZ 48
+
+void mp2dfr(a,s,n,m)
+int *m,n;
+unsigned char a[],s[];
+{
+	void mplsh(),mpsmu();
+	int j;
+
+	*m=(int) (2.408*n);
+	for (j=1;j<=(*m);j++) {
+		mpsmu(a,a,n,10);
+		s[j]=a[1]+IAZ;
+		mplsh(a,n);
+	}
+}
+#undef IAZ