From 50d4a6fb4adb0a24acdb987a3e5108de66187651 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Andreas=20M=C3=BCller?= <andreas.mueller@ost.ch>
Date: Wed, 13 Oct 2021 11:32:58 +0200
Subject: add ellipsenumfang

---
 buch/chapters/110-elliptisch/images/ellipsenumfang.m | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 buch/chapters/110-elliptisch/images/ellipsenumfang.m

(limited to 'buch/chapters/110-elliptisch/images/ellipsenumfang.m')

diff --git a/buch/chapters/110-elliptisch/images/ellipsenumfang.m b/buch/chapters/110-elliptisch/images/ellipsenumfang.m
new file mode 100644
index 0000000..84022bc
--- /dev/null
+++ b/buch/chapters/110-elliptisch/images/ellipsenumfang.m
@@ -0,0 +1,14 @@
+#
+# ellipsenumfang
+#
+# (c) 2021 Prof Dr Andreas Müller, OST Ostschweizer Fachhochschule
+#
+f = fopen("ekplot.tex", "w");
+fprintf(f, "\\def\\ekpath{\n");
+fprintf(f, "(0,{\\dy*%.4f})\n", pi / 2);
+for epsilon = (1:100) / 100
+	[k, e] = ellipke(epsilon^2);
+	fprintf(f, "--({\\dx*%.4f},{\\dy*%.4f})\n", epsilon, e);
+endfor
+fprintf(f, "\n}\n");
+fclose(f);
-- 
cgit v1.2.1