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/f1dim.cpp
+++ b/lib/nr/cpp/recipes/f1dim.cpp
@@ -0,0 +1,16 @@
+#include "nr.h"
+
+extern int ncom;
+extern DP (*nrfunc)(Vec_I_DP &);
+extern Vec_DP *pcom_p,*xicom_p;
+
+DP NR::f1dim(const DP x)
+{
+	int j;
+
+	Vec_DP xt(ncom);
+	Vec_DP &pcom=*pcom_p,&xicom=*xicom_p;
+	for (j=0;j<ncom;j++)
+		xt[j]=pcom[j]+x*xicom[j];
+	return nrfunc(xt);
+}