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/wt1.cpp
+++ b/lib/nr/cpp/recipes/wt1.cpp
@@ -0,0 +1,15 @@
+#include "nr.h"
+
+void NR::wt1(Vec_IO_DP &a, const int isign,
+	void wtstep(Vec_IO_DP &, const int, const int))
+{
+	int nn;
+
+	int n=a.size();
+	if (n < 4) return;
+	if (isign >= 0) {
+		for (nn=n;nn>=4;nn>>=1) wtstep(a,nn,isign);
+	} else {
+		for (nn=4;nn<=n;nn<<=1) wtstep(a,nn,isign);
+	}
+}