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
|
\newlength{\GRheight}
\newlength{\GRwidth}
% desired width of the graphic
\setlength{\GRwidth}{0.5\textwidth}
% calculate height:
% first intermediate step
% axis width: GRwidth - (llx+urx)
\setlength{\GRheight}%
{\GRwidth-7ex-\baselineskip-2pt-2ex}
% sec. intermediate step
% scale with data range ration
% factor 0.7692 = (yMax-yMin)/(xMax-xMin)
\setlength{\GRheight}{0.7692\GRheight}
% third intermediate step
% add padding values to axis height to obtain total height.
\begin{NumericDataPlot}%
{\GRwidth}{\GRheight+2\baselineskip+1ex+2pt+0.5em}
\setxAxis{xMin=-1.1, xMax=1.5, Dx=0.5, xO=0}
\setyAxis{yMin=-1, yMax=1, Dy=0.5, yO=0}
\plotxAxis{$Real\left(G\left(I\omega\right)\right)$}
\plotyAxis{$Imag\left(G\left(I\omega\right)\right)$}
\listplot[style=StdLineStyA]{\DataNyquistNeg}
\listplot[style=StdLineStyA]{\DataNyquistPos}
% Pfeile
\listplot%
[style=StdLineStyA, arrows=->, linestyle=none]{\DataNyquistArrowPos}
\listplot%
[style=StdLineStyA, arrows=<-, linestyle=none]{\DataNyquistArrowNeg}
% Beschriftung
% 1.00000 -0.00000
% 0.80000 0.40000
% 0.00000 0.00000
\NDPput[x=1.0, y=0.0]{\pnode{Pa1}}
\NDPput[x=0.8, y=-0.4]{\pnode{Pa2}}
\NDPput[x=0.0, y=0.0]{\pnode{Pa3}}
\NDPput[x=1.1, y=0.1, RefPoint=l]%
{\Rnode{Pb1}{
\psframebox[fillstyle=solid,fillcolor=white,linestyle=none]{%
$\omega=0$}}}
\ncline{-}{Pb1}{Pa1}
\NDPput[x=0.9, y=-0.6, RefPoint=l]%
{\Rnode{Pb2}{
\psframebox[fillstyle=solid,fillcolor=white,linestyle=none]{%
$\omega=0.5$}}}
\ncline{-}{Pb2}{Pa2}
\NDPput[x=-0.1, y=-0.15, RefPoint=r]%
{\Rnode{Pb3}{
\psframebox[fillstyle=solid,fillcolor=white,linestyle=none]{%
$\omega=\infty$}}}
\ncline{-}{Pb3}{Pa3}
\NDPput[x=-0.1, y=0.15, RefPoint=r]%
{\Rnode{Pc3}{
\psframebox[fillstyle=solid,fillcolor=white,linestyle=none]{%
$\omega=-\infty$}}}
\ncline{-}{Pc3}{Pa3}
% Pfeil
\ncline{->}{Pa3}{Pa2}
% Marker
\listplot[style=StdLineStyC, plotstyle=dots]{\DataNyquistMarkPos}
\listplot[style=StdLineStyC, plotstyle=dots, dotstyle=x, dotsize=10pt]{-1 0}
\end{NumericDataPlot}
%%% Local Variables:
%%% mode: latex
%%% TeX-master: "../NumericPlotsDoc"
%%% End:
|