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