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/fourew.cpp
+++ b/lib/nr/cpp/recipes/fourew.cpp
@@ -0,0 +1,17 @@
+#include <fstream>
+#include "nr.h"
+using namespace std;
+
+void NR::fourew(Vec_FSTREAM_p &file, int &na, int &nb, int &nc, int &nd)
+{
+	int i;
+
+	for (i=0;i<4;i++) (*file[i]).seekp(0);
+	for (i=0;i<4;i++) (*file[i]).seekg(0);
+	SWAP(file[1],file[3]);
+	SWAP(file[0],file[2]);
+	na=2;
+	nb=3;
+	nc=0;
+	nd=1;
+}