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/fleg.cpp
+++ b/lib/nr/cpp/recipes/fleg.cpp
@@ -0,0 +1,21 @@
+#include "nr.h"
+
+void NR::fleg(const DP x, Vec_O_DP &pl)
+{
+	int j;
+	DP twox,f2,f1,d;
+
+	int nl=pl.size();
+	pl[0]=1.0;
+	pl[1]=x;
+	if (nl > 2) {
+		twox=2.0*x;
+		f2=x;
+		d=1.0;
+		for (j=2;j<nl;j++) {
+			f1=d++;
+			f2+=twox;
+			pl[j]=(f2*pl[j-1]-f1*pl[j-2])/d;
+		}
+	}
+}