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/hufapp.c
+++ b/lib/nr/ansi/recipes/hufapp.c
@@ -0,0 +1,15 @@
+
+void hufapp(unsigned long index[], unsigned long nprob[], unsigned long n,
+	unsigned long i)
+{
+	unsigned long j,k;
+
+	k=index[i];
+	while (i <= (n>>1)) {
+		if ((j = i << 1) < n && nprob[index[j]] > nprob[index[j+1]]) j++;
+		if (nprob[k] <= nprob[index[j]]) break;
+		index[i]=index[j];
+		i=j;
+	}
+	index[i]=k;
+}