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/ansi/recipes/mp2dfr.c
+++ b/lib/nr/ansi/recipes/mp2dfr.c
@@ -0,0 +1,17 @@
+
+#define IAZ 48
+
+void mp2dfr(unsigned char a[], unsigned char s[], int n, int *m)
+{
+	void mplsh(unsigned char u[], int n);
+	void mpsmu(unsigned char w[], unsigned char u[], int n, int iv);
+	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