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/cpp/recipes/mp2dfr.cpp
+++ b/lib/nr/cpp/recipes/mp2dfr.cpp
@@ -0,0 +1,16 @@
+#include "nr.h"
+
+void NR::mp2dfr(Vec_IO_UCHR &a, string &s)
+{
+	const unsigned int IAZ=48;
+	int j,m;
+
+	int n=a.size();
+	m=int(2.408*n);
+	mplsh(a);
+	for (j=0;j<m;j++) {
+		mpsmu(a,a,10);
+		s += a[0]+IAZ;
+		mplsh(a);
+	}
+}