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/avevar.cpp
+++ b/lib/nr/cpp/recipes/avevar.cpp
@@ -0,0 +1,19 @@
+#include "nr.h"
+
+void NR::avevar(Vec_I_DP &data, DP &ave, DP &var)
+{
+	DP s,ep;
+	int j;
+
+	int n=data.size();
+	ave=0.0;
+	for (j=0;j<n;j++) ave += data[j];
+	ave /= n;
+	var=ep=0.0;
+	for (j=0;j<n;j++) {
+		s=data[j]-ave;
+		ep += s;
+		var += s*s;
+	}
+	var=(var-ep*ep/n)/(n-1);
+}