1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
|
%
% ellselection.tex -- Wahl einer elliptischen Funktion
%
% (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}
\def\skala{1}
\begin{tikzpicture}[>=latex,thick,scale=\skala]
\def\l{0.45}
\pgfmathparse{\l*72/2.54}
\xdef\L{\pgfmathresult}
\def\sx{4.1}
\pgfmathparse{\sx*72/2.54}
\xdef\Sx{\pgfmathresult}
\def\sy{3.2}
\pgfmathparse{\sy*72/2.54}
\xdef\Sy{\pgfmathresult}
\pgfmathparse{\sx/2-\l}
\xdef\linksx{\pgfmathresult}
\pgfmathparse{\sy/2-\l}
\xdef\linksy{\pgfmathresult}
\pgfmathparse{\sx/2+2*\l}
\xdef\rechtsx{\pgfmathresult}
\pgfmathparse{\sy/2}
\xdef\rechtsy{\pgfmathresult}
\fill[color=red!20] ({-\sx},0) rectangle (\sx,\sy);
\fill[color=blue!20] ({-\sx},{-\sy}) rectangle (\sx,0);
\fill[color=yellow!40,opacity=0.5] (0,0) rectangle (\sx,\sy);
\draw (-\sx,-\sy) rectangle (\sx,\sy);
\draw[->] ({-1.4*\sx},0) -- ({1.4*\sx},0) coordinate[label={$\Re u$}];
\draw[->] (0,{-\sy-1}) -- (0,{\sy+1}) coordinate[label={right:$\Im u$}];
\definecolor{darkgreen}{rgb}{0,0.6,0}
\draw[->,line width=1.9pt,color=darkgreen]
(\sx,0) to[out=180,in=-79] (\linksx,\linksy);
\draw[->,line width=1.9pt,color=darkgreen]
(\sx,{\sy-\l}) to[out=-90,in=0] (\rechtsx,\rechtsy);
\def\rect#1#2{
\fill[color=white] (-\l,-\l) rectangle (\l,\l);
#2
\draw (-\l,-\l) rectangle (\l,\l);
\node at (0,0) {\Huge #1\strut};
}
\def\kreuz{
\begin{scope}
\clip ({-\l},{-\l}) rectangle ({\l},{\l});
\fill[color=white] ({-2*\l},{-2*\l}) rectangle ({2*\l},{2*\l});
\draw[color=darkgreen!30,line width=3pt] (-\l,-\l) -- (\l,\l);
\draw[color=darkgreen!30,line width=3pt] (-\l,\l) -- (\l,-\l);
\end{scope}
}
\def\kreis{
\begin{scope}
\clip ({-\l},{-\l}) rectangle ({\l},{\l});
\fill[color=white] ({-2*\l},{-2*\l}) rectangle ({2*\l},{2*\l});
\draw[color=darkgreen!30,line width=3pt]
(0,0) circle[radius={\l*(\L-1.5)/\L}];
\end{scope}
}
\begin{scope}[xshift={0},yshift={0}]
\rect{s}{}
\end{scope}
\begin{scope}[xshift={\Sx},yshift={0}]
\rect{c}{\kreis}
\end{scope}
\begin{scope}[xshift={\Sx},yshift={\Sy}]
\rect{d}{\kreuz}
\end{scope}
\begin{scope}[xshift={0},yshift={\Sy}]
\rect{n}{}
\end{scope}
\node at ({-\l+0.1},{\sy+\l-0.1}) [above left] {$iK'\mathstrut$};
\node at ({-\l+0.1},{-\l+0.1}) [below left] {$0\mathstrut$};
\node at ({\sx+\l-0.1},{-\l+0.1}) [below right] {$K\mathstrut$};
\node at ({\sx+\l-0.1},{\sy+\l-0.1}) [above right] {$K+iK'\mathstrut$};
\node at ({-\sx},0) [below left] {$-K\mathstrut$};
\node at (0,{-\sy+0.05}) [below left] {$-iK'\mathstrut$};
\node at ({\sx-0.1},{-\sy+0.1}) [below right] {$K-iK'\mathstrut$};
\node at ({-\sx+0.1},{-\sy+0.1}) [below left] {$-K-iK'\mathstrut$};
\node at ({-\sx+0.1},{\sy-0.1}) [above left] {$-K+iK'\mathstrut$};
\begin{scope}[xshift={-\L+0.5*\Sx},yshift={0.5*\Sy}]
\node at ({-\l},{\l-0.1}) [above] {Nullstelle\strut};
\kreis
\node[color=darkgreen] at (0,0) {\Huge c\strut};
\draw[line width=0.2pt] (-\l,-\l) rectangle (\l,\l);
\end{scope}
\begin{scope}[xshift={\L+0.5*\Sx},yshift={0.5*\Sy}]
\node at ({\l},{\l-0.1}) [above] {Pol\strut};
\kreuz
\node[color=darkgreen] at (0,0) {\Huge d\strut};
\draw[line width=0.2pt] (-\l,-\l) rectangle (\l,\l);
\end{scope}
\end{tikzpicture}
\end{document}
|