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/pcshft.cpp
+++ b/lib/nr/cpp/recipes/pcshft.cpp
@@ -0,0 +1,19 @@
+#include "nr.h"
+
+void NR::pcshft(const DP a, const DP b, Vec_IO_DP &d)
+{
+	int k,j;
+	DP fac,cnst;
+
+	int n=d.size();
+	cnst=2.0/(b-a);
+	fac=cnst;
+	for (j=1;j<n;j++) {
+		d[j] *= fac;
+		fac *= cnst;
+	}
+	cnst=0.5*(a+b);
+	for (j=0;j<=n-2;j++)
+		for (k=n-2;k>=j;k--)
+			d[k] -= cnst*d[k+1];
+}