From 6893688fccb63844102d8f1d728302d4eb823d68 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Andreas=20M=C3=BCller?= <andreas.mueller@ost.ch>
Date: Sat, 18 Jun 2022 11:01:07 +0200
Subject: add new graphs

---
 buch/chapters/040-rekursion/images/loggammaplot.m | 43 +++++++++++++++++++++++
 1 file changed, 43 insertions(+)
 create mode 100644 buch/chapters/040-rekursion/images/loggammaplot.m

(limited to 'buch/chapters/040-rekursion/images/loggammaplot.m')

diff --git a/buch/chapters/040-rekursion/images/loggammaplot.m b/buch/chapters/040-rekursion/images/loggammaplot.m
new file mode 100644
index 0000000..5456e4f
--- /dev/null
+++ b/buch/chapters/040-rekursion/images/loggammaplot.m
@@ -0,0 +1,43 @@
+#
+# loggammaplot.m
+#
+# (c) 2022 Prof Dr Andreas Müller, OST Ostschweizer Fachhochschule
+#
+xmax = 10;
+xmin = 0.1;
+N = 500;
+
+fn = fopen("loggammadata.tex", "w");
+
+fprintf(fn, "\\def\\loggammapath{\n ({%.4f*\\dx},{%.4f*\\dy})",
+	xmax, log(gamma(xmax)));
+xstep = (xmax - 1) / N;
+for x = (xmax:-xstep:1)
+	fprintf(fn, "\n\t-- ({%.4f*\\dx},{%.4f*\\dy})", x, log(gamma(x)));
+endfor
+for k = (0:0.2:10)
+	x = exp(-k);
+	fprintf(fn, "\n\t-- ({%.4f*\\dx},{%.4f*\\dy})", x, log(gamma(x)));
+endfor
+fprintf(fn, "\n}\n");
+
+function retval = lgp(fn, x0, name)
+	fprintf(fn, "\\def\\loggammaplot%s{\n", name);
+	fprintf(fn, "\\draw[color=red,line width=1pt] ");
+	for k = (-7:0.1:7)
+		x = x0 + 0.5 * tanh(k);
+		if (k > -5)
+			fprintf(fn, "\n\t-- ");
+		end
+		fprintf(fn, "({%.4f*\\dx},{%.4f*\\dy})", x, log(gamma(x)));
+	endfor
+	fprintf(fn, ";\n}\n");
+endfunction
+
+lgp(fn, -0.5, "zero");
+lgp(fn, -1.5, "one");
+lgp(fn, -2.5, "two");
+lgp(fn, -3.5, "three");
+lgp(fn, -4.5, "four");
+
+fclose(fn);
-- 
cgit v1.2.1