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/chstwo.cpp
+++ b/lib/nr/cpp/recipes/chstwo.cpp
@@ -0,0 +1,20 @@
+#include "nr.h"
+
+void NR::chstwo(Vec_I_DP &bins1, Vec_I_DP &bins2, const int knstrn, DP &df,
+	DP &chsq, DP &prob)
+{
+	int j;
+	DP temp;
+
+	int nbins=bins1.size();
+	df=nbins-knstrn;
+	chsq=0.0;
+	for (j=0;j<nbins;j++)
+		if (bins1[j] == 0.0 && bins2[j] == 0.0)
+			--df;
+		else {
+			temp=bins1[j]-bins2[j];
+			chsq += temp*temp/(bins1[j]+bins2[j]);
+		}
+	prob=gammq(0.5*df,0.5*chsq);
+}