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/dpythag.c
+++ b/lib/nr/ansi/recipes/dpythag.c
@@ -0,0 +1,14 @@
+
+#include <math.h>
+#define NRANSI
+#include "nrutil.h"
+
+double dpythag(double a, double b)
+{
+	double absa,absb;
+	absa=fabs(a);
+	absb=fabs(b);
+	if (absa > absb) return absa*sqrt(1.0+DSQR(absb/absa));
+	else return (absb == 0.0 ? 0.0 : absb*sqrt(1.0+DSQR(absa/absb)));
+}
+#undef NRANSI