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/examples/xsphfpt.c
+++ b/lib/nr/ansi/examples/xsphfpt.c
@@ -0,0 +1,12 @@
+
+/* Auxiliary routine for sphfpt */
+
+extern int m,n;
+extern float c2,dx,gmma;
+
+void derivs(float x,float y[],float dydx[])
+{
+	dydx[1]=y[2];
+	dydx[2]=(2.0*x*(m+1.0)*y[2]-(y[3]-c2*x*x)*y[1])/(1.0-x*x);
+	dydx[3]=0.0;
+}