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/fpoly.c
+++ b/lib/nr/k_and_r/recipes/fpoly.c
@@ -0,0 +1,10 @@
+
+void fpoly(x,p,np)
+float p[],x;
+int np;
+{
+	int j;
+
+	p[1]=1.0;
+	for (j=2;j<=np;j++) p[j]=p[j-1]*x;
+}