From a27efc4b9657ace8e18fbf58db4dc3c31cb73514 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Andreas=20M=C3=BCller?= <andreas.mueller@ost.ch>
Date: Wed, 13 Oct 2021 20:53:37 +0200
Subject: ellipsenumfang komplett

---
 .../110-elliptisch/images/ellipsenumfang.tex       | 71 +++++++++++++++++-----
 1 file changed, 55 insertions(+), 16 deletions(-)

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

diff --git a/buch/chapters/110-elliptisch/images/ellipsenumfang.tex b/buch/chapters/110-elliptisch/images/ellipsenumfang.tex
index 9f7c788..0d1b807 100644
--- a/buch/chapters/110-elliptisch/images/ellipsenumfang.tex
+++ b/buch/chapters/110-elliptisch/images/ellipsenumfang.tex
@@ -12,32 +12,71 @@
 \usetikzlibrary{arrows,intersections,math}
 \begin{document}
 \input{ekplot.tex}
-\def\skala{1}
+\def\skala{1.19}
 \begin{tikzpicture}[>=latex,thick,scale=\skala]
 
+\pgfkeys{/pgf/number format/.cd, fixed, fixed zerofill, precision=1}
+
 \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[line width=0.4pt] (0,\dy) -- (10,\dy);
+%\draw[line width=0.4pt] (\dx,0) -- (10,\dy);
+
+\draw[->] (0,{\dy-0.1}) -- (0,7.0) coordinate[label={left:$E(k=\varepsilon)$}];
+\draw[->] (-0.1,\dy) -- (10.5,\dy) coordinate[label={$\varepsilon$}];
+
+\foreach \i in {0,...,10}{
+	\pgfmathparse{\i/10}
+	\xdef\wert{\pgfmathresult}
+	\draw (\i,{\dy-0.1}) -- (\i,{\dy+0.1});
+	\node at (\i,{\dy-0.1}) [below] {$\pgfmathprintnumber{\wert}$};
+}
 
 \draw[color=red,line width=1.4pt] \ekpath;
-\fill[color=red] (\dx,\dy) circle[radius=0.05];
+\fill[color=red] (\dx,\dy) circle[radius=0.07];
 
-\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 \y in {1.0,1.2,1.4}{
+	\draw (-0.1,{\dy*\y})  -- (0.1,{\dy*\y});
+	\node at (-0.1,{\dy*\y}) [left] {$\pgfmathprintnumber{\y}$};
 }
-\foreach \i in {1,...,9}{
-	\draw (\i,-0.1) -- (\i,0.1);
-	\node at (\i,0) [below] {$0.\i$};
+
+\draw (-0.1,{\dy*3.14159/2}) -- (0.1,{\dy*3.14159/2});
+\node at (0,{\dy*3.14159/2}) [left] {$\displaystyle\frac{\pi}2$};
+
+
+\punkte
+
+\foreach \exzentrizitaet in {0.05,0.15,...,0.95}{
+	\pgfmathparse{sqrt(1-\exzentrizitaet*\exzentrizitaet)}
+	\xdef\halbachse{\pgfmathresult}
+
+	\pgfmathparse{\exzentrizitaet*\dx}
+	\xdef\mitte{\pgfmathresult}
+	%\node at (\mitte,1) {$\pgfmathprintnumber{\mitte}$};
+
+	\pgfmathparse{(1-\exzentrizitaet)}
+	\xdef\breite{\halbachse}
+	%\node at (\mitte,0.5) {$\pgfmathprintnumber{\breite}$};
+
+	\begin{scope}
+
+		\clip ({\mitte-(\breite/2)},{1.8*\dy})
+			rectangle ({\mitte+(\breite/2)+0.1},{1.8*\dy+1.1});
+		\fill[color=blue!20] ({\mitte-\breite/2},{1.8*\dy})
+			ellipse({\breite} and 1);
+		\draw[color=blue,line width=1.4pt]
+			({\mitte-\breite/2},{1.8*\dy})
+				ellipse({\breite} and 1);
+		\draw[color=blue,line width=0.2pt]
+			({\mitte-\breite/2},{1.8*\dy+1})
+			--
+			({\mitte-\breite/2},{1.8*\dy})
+			--
+			({\mitte+\breite/2},{1.8*\dy});
+	\end{scope}
 }
-\draw (10,-0.1) -- (10,0.1);
-\node at (10,0) [below] {$1.0$};
+
 
 \end{tikzpicture}
 \end{document}
-- 
cgit v1.2.1

