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/fmin.cpp
+++ b/lib/nr/cpp/recipes/fmin.cpp
@@ -0,0 +1,16 @@
+#include "nr.h"
+
+extern Vec_DP *fvec_p;
+extern void (*nrfuncv)(Vec_I_DP &v, Vec_O_DP &f);
+
+DP NR::fmin(Vec_I_DP &x)
+{
+	int i;
+	DP sum;
+
+	Vec_DP &fvec=*fvec_p;
+	nrfuncv(x,fvec);
+	int n=x.size();
+	for (sum=0.0,i=0;i<n;i++) sum += SQR(fvec[i]);
+	return 0.5*sum;
+}