aboutsummaryrefslogtreecommitdiffstats
path: root/buch/chapters/110-elliptisch/images
diff options
context:
space:
mode:
authorAndreas Müller <andreas.mueller@ost.ch>2021-10-13 11:32:58 +0200
committerAndreas Müller <andreas.mueller@ost.ch>2021-10-13 11:32:58 +0200
commit50d4a6fb4adb0a24acdb987a3e5108de66187651 (patch)
treeccfac9c4e77c7c92b19cd31adfc2a3bde2d9bb5b /buch/chapters/110-elliptisch/images
parentadd some info on elliptic functions (diff)
downloadSeminarSpezielleFunktionen-50d4a6fb4adb0a24acdb987a3e5108de66187651.tar.gz
SeminarSpezielleFunktionen-50d4a6fb4adb0a24acdb987a3e5108de66187651.zip
add ellipsenumfang
Diffstat (limited to '')
-rw-r--r--buch/chapters/110-elliptisch/images/Makefile8
-rw-r--r--buch/chapters/110-elliptisch/images/ellipsenumfang.m14
-rw-r--r--buch/chapters/110-elliptisch/images/ellipsenumfang.pdfbin0 -> 16542 bytes
-rw-r--r--buch/chapters/110-elliptisch/images/ellipsenumfang.tex44
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
Binary files differ
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}
+