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/pccheb.c
+++ b/lib/nr/k_and_r/recipes/pccheb.c
@@ -0,0 +1,22 @@
+
+void pccheb(d,c,n)
+float c[],d[];
+int n;
+{
+	int j,jm,jp,k;
+	float fac,pow;
+
+	pow=1.0;
+	c[0]=2.0*d[0];
+	for (k=1;k<n;k++) {
+		c[k]=0.0;
+		fac=d[k]/pow;
+		jm=k;
+		jp=1;
+		for (j=k;j>=0;j-=2,jm--,jp++) {
+			c[j] += fac;
+			fac *= ((float)jm)/((float)jp);
+		}
+		pow += pow;
+	}
+}