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/asolve.cpp
+++ b/lib/nr/cpp/recipes/asolve.cpp
@@ -0,0 +1,12 @@
+#include "nr.h"
+
+extern Vec_INT *ija_p;
+extern Vec_DP *sa_p;
+
+void NR::asolve(Vec_I_DP &b, Vec_O_DP &x, const int itrnsp)
+{
+	int i;
+
+	int n=b.size();
+	for(i=0;i<n;i++) x[i]=((*sa_p)[i] != 0.0 ? b[i]/(*sa_p)[i] : b[i]);
+}