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/ansi/recipes/quadct.c
+++ b/lib/nr/ansi/recipes/quadct.c
@@ -0,0 +1,20 @@
+
+void quadct(float x, float y, float xx[], float yy[], unsigned long nn,
+	float *fa, float *fb, float *fc, float *fd)
+{
+	unsigned long k,na,nb,nc,nd;
+	float ff;
+	na=nb=nc=nd=0;
+	for (k=1;k<=nn;k++) {
+		if (yy[k] > y) {
+			xx[k] > x ? ++na : ++nb;
+		} else {
+			xx[k] > x ? ++nd : ++nc;
+		}
+	}
+	ff=1.0/nn;
+	*fa=ff*na;
+	*fb=ff*nb;
+	*fc=ff*nc;
+	*fd=ff*nd;
+}