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/ranpt.cpp
+++ b/lib/nr/cpp/recipes/ranpt.cpp
@@ -0,0 +1,12 @@
+#include "nr.h"
+
+extern int idum;
+
+void NR::ranpt(Vec_O_DP &pt, Vec_I_DP &regn)
+{
+	int j;
+
+	int n=pt.size();
+	for (j=0;j<n;j++)
+		pt[j]=regn[j]+(regn[n+j]-regn[j])*ran1(idum);
+}