add ellipsenumfang

4 files changed, 65 insertions, 1 deletions

diff --git a/buch/chapters/110-elliptisch/images/Makefile b/buch/chapters/110-elliptisch/images/Makefile
index ef2e6fc..e366988 100644
--- a/buch/chapters/110-elliptisch/images/Makefile
+++ b/buch/chapters/110-elliptisch/images/Makefile
@@ -3,8 +3,14 @@
 #
 # (c) 2021 Prof Dr Andreas Müller, OST Ostschweizer Fachhochschule
 #
-all:	lemniskate.pdf
+all:	lemniskate.pdf ellipsenumfang.pdf
 
 lemniskate.pdf:	lemniskate.tex
 	pdflatex lemniskate.tex
 
+ellipsenumfang.pdf:	ellipsenumfang.tex ekpath.tex
+	pdflatex ellipsenumfang.tex
+
+ekpath.tex:	ellipsenumfang.m
+	octave 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);
diff --git a/buch/chapters/110-elliptisch/images/ellipsenumfang.pdf b/buch/chapters/110-elliptisch/images/ellipsenumfang.pdf
new file mode 100644
index 0000000..b52d5f3
--- /dev/null
+++ b/buch/chapters/110-elliptisch/images/ellipsenumfang.pdf
diff --git a/buch/chapters/110-elliptisch/images/ellipsenumfang.tex b/buch/chapters/110-elliptisch/images/ellipsenumfang.tex
new file mode 100644
index 0000000..9f7c788
--- /dev/null
+++ b/buch/chapters/110-elliptisch/images/ellipsenumfang.tex
@@ -0,0 +1,44 @@
+%
+% ellipsenumfang.tex -- template for standalon tikz images
+%
+% (c) 2021 Prof Dr Andreas Müller, OST Ostschweizer Fachhochschule
+%
+\documentclass[tikz]{standalone}
+\usepackage{amsmath}
+\usepackage{times}
+\usepackage{txfonts}
+\usepackage{pgfplots}
+\usepackage{csvsimple}
+\usetikzlibrary{arrows,intersections,math}
+\begin{document}
+\input{ekplot.tex}
+\def\skala{1}
+\begin{tikzpicture}[>=latex,thick,scale=\skala]
+
+\def\dx{10}
+\def\dy{4}
+
+\draw[->] (0,-0.1) -- (0,6.8) coordinate[label={right:$E(\varepsilon)$}];
+\draw[->] (-0.1,0) -- (10.5,0) coordinate[label={$\varepsilon$}];
+\draw[line width=0.4pt] (0,\dy) -- (10,\dy);
+\draw[line width=0.4pt] (\dx,0) -- (10,\dy);
+
+\draw[color=red,line width=1.4pt] \ekpath;
+\fill[color=red] (\dx,\dy) circle[radius=0.05];
+
+\foreach \y in {2,4,...,16}{
+	\draw (-0.1,{\dy*\y/10})  -- (0.1,{\dy*\y/10});
+	\pgfmathparse{\y/10}
+	\xdef\v{\pgfmathresult}
+	\node at (0,{\dy*\y/10}) [left] {$\v$};
+}
+\foreach \i in {1,...,9}{
+	\draw (\i,-0.1) -- (\i,0.1);
+	\node at (\i,0) [below] {$0.\i$};
+}
+\draw (10,-0.1) -- (10,0.1);
+\node at (10,0) [below] {$1.0$};
+
+\end{tikzpicture}
+\end{document}
+