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/slvsml.cpp
+++ b/lib/nr/cpp/recipes/slvsml.cpp
@@ -0,0 +1,12 @@
+#include "nr.h"
+
+void NR::slvsml(Mat_O_DP &u, Mat_I_DP &rhs)
+{
+	int i,j;
+	DP h=0.5;
+
+	for (i=0;i<3;i++)
+		for (j=0;j<3;j++)
+			u[i][j]=0.0;
+	u[1][1] = -h*h*rhs[1][1]/4.0;
+}