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/k_and_r/recipes/probks.c
+++ b/lib/nr/k_and_r/recipes/probks.c
@@ -0,0 +1,23 @@
+
+#include <math.h>
+#define EPS1 0.001
+#define EPS2 1.0e-8
+
+float probks(alam)
+float alam;
+{
+	int j;
+	float a2,fac=2.0,sum=0.0,term,termbf=0.0;
+
+	a2 = -2.0*alam*alam;
+	for (j=1;j<=100;j++) {
+		term=fac*exp(a2*j*j);
+		sum += term;
+		if (fabs(term) <= EPS1*termbf || fabs(term) <= EPS2*sum) return sum;
+		fac = -fac;
+		termbf=fabs(term);
+	}
+	return 1.0;
+}
+#undef EPS1
+#undef EPS2