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/avevar.c
+++ b/lib/nr/k_and_r/recipes/avevar.c
@@ -0,0 +1,18 @@
+
+void avevar(data,n,ave,var)
+float *ave,*var,data[];
+unsigned long n;
+{
+	unsigned long j;
+	float s,ep;
+
+	for (*ave=0.0,j=1;j<=n;j++) *ave += data[j];
+	*ave /= n;
+	*var=ep=0.0;
+	for (j=1;j<=n;j++) {
+		s=data[j]-(*ave);
+		ep += s;
+		*var += s*s;
+	}
+	*var=(*var-ep*ep/n)/(n-1);
+}