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/svbksb.cpp
+++ b/lib/nr/cpp/recipes/svbksb.cpp
@@ -0,0 +1,24 @@
+#include "nr.h"
+
+void NR::svbksb(Mat_I_DP &u, Vec_I_DP &w, Mat_I_DP &v, Vec_I_DP &b, Vec_O_DP &x)
+{
+	int jj,j,i;
+	DP s;
+
+	int m=u.nrows();
+	int n=u.ncols();
+	Vec_DP tmp(n);
+	for (j=0;j<n;j++) {
+		s=0.0;
+		if (w[j] != 0.0) {
+			for (i=0;i<m;i++) s += u[i][j]*b[i];
+			s /= w[j];
+		}
+		tmp[j]=s;
+	}
+	for (j=0;j<n;j++) {
+		s=0.0;
+		for (jj=0;jj<n;jj++) s += v[j][jj]*tmp[jj];
+		x[j]=s;
+	}
+}