summaryrefslogtreecommitdiff
path: root/info/examples/PSTricks_7_de/35-00-22.ltx
blob: 8b910f92cd77f743bf50c011f726731bf503343d (plain)
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
%% 
%%  Ein Beispiel der DANTE-Edition
%%  
%%  7. Auflage
%% 
%%  Beispiel 35-00-22 auf Seite 827.
%% 
%%  Copyright (C) 2016 Herbert Voss
%% 
%%  It may be distributed and/or modified under the conditions
%%  of the LaTeX Project Public License, either version 1.3
%%  of this license or (at your option) any later version.
%% 
%%  See http://www.latex-project.org/lppl.txt for details.
%% 
%% 
%% ==== 
% Show page(s) 1
%% 
%% 
\documentclass[]{exaarticle}
\pagestyle{empty}
\setlength\textwidth{193.16928pt}
\setlength\parindent{0pt}
%StartShownPreambleCommands
\usepackage[dvipsnames]{pstricks}
\usepackage{pst-slpe,pst-blur}
\usepackage{pst-grad,pst-circ}
\usepackage{pstricks-add}
%StopShownPreambleCommands
\begin{document}
\newpsstyle{Elektron}{linecolor=black!30,slopebegin=BrickRed!30,sloperadius=0.07,linestyle=none,slopecenter=0.65 0.65}
\begin{pspicture}[showgrid=false](0,-3)(15,10)
\pnode(2,4){P1}
\pnode(2.5,3.5){P2}
\pnode(2.5,0){P3}
\pnode(2,0){P4}
\pnode(2,6){Q1}
\pnode(2.5,6.5){Q2}
\pnode(2.5,10){Q3}
\pnode(2,10){Q4}
\pnode(0,6){L1}
\pnode(12.8,6){L2}
\pnode(0,4){L3}
\pnode(12.8,4){L4}
\pnode(12,4.3){E1}
\pnode(11.4,5.5){E2}
\pnode(11.2,5){E3}
\pnode(10.6,5.7){E4}
\pnode(10.3,4.4){E5}
\pnode(9.7,5.3){E6}
\pnode(7,3.5){R1}
\pnode(7,-2){R2}
\pnode(14,-2){R3}
\pnode(14,5){R4}
\pnode(13,5){R5}
\pnode(12.5,6.5){S1}
\pnode(13,8){S2}
\pnode(7,6.5){S3}
\pnode(6,8.5){S4}
\pspolygon[fillstyle=gradient,linewidth=.2pt,gradbegin=black!80,gradend=BrickRed!90,gradmidpoint=0.5,gradangle=90](P1)(P2)(P3)(P4)
\pspolygon[fillstyle=gradient,linewidth=.2pt,gradbegin=black!80,gradend=BrickRed!90,gradmidpoint=0.5,gradangle=90](Q1)(Q2)(Q3)(Q4)
\pscircle[linecolor=black!50,linewidth=0.2pt,fillstyle=solid,fillcolor=cyan!30,opacity=0.2](9,5){4}%
\psframe[fillstyle=gradient,linestyle=none,gradbegin=yellow!90,gradend=yellow!10,gradmidpoint=0.5,gradangle=0](L1)(L4)
\pcline[linecolor=black!70,ArrowInside=->,ArrowInsidePos=0.1,arrowsize=0.2,arrowinset=0.03,arrowlength=1.5](L1)(L2)
\pcline[linecolor=black!70,ArrowInside=->,ArrowInsidePos=0.1,arrowsize=0.2,arrowinset=0.03,arrowlength=1.5](L3)(L4)
\psellipticarc[linewidth=1.5pt](7,5)(0.5,1.5){71}{289}
\psellipticarc[linecolor=black!30,linewidth=1.2pt,linestyle=dashed,dash=3pt 3pt](7,5)(0.5,1.5){289}{71}
\pscustom[fillstyle=solid,linecolor=black!40,fillcolor=brown!70!BrickRed!50,opacity=0.9]{%
  \psarc[liftpen=0](9,5){3.99}{-30}{30}
  \psarcn[liftpen=0](9,5){3.5}{30}{-30}%
  \closepath
}%
\psline(R1)(R2)
\psline(R4)(R5)
\psLNode(R2)(R3){0.5}{RU}
\rput(RU){\pnode(0.7;40){RE}}
\circledipole[radius=0.5,labeloffset=0](R3)(R4){$I_{\text{Ph}}$}
\battery(R3)(R2){$U_{\text{G}}$}
\pcline[arrows=->,arrowsize=0.15,arrowinset=0,arrowlength=1.5,nodesepA=-0.7](RU)(RE)
\pcline(S1)(S2)
\uput{0.1cm}[70](S2){\Large\textbf{K}}
\pcline(S3)(S4)
\uput{0.1cm}[120](S4){\Large\textbf{A}}
\rput(E1){\pcline[linewidth=0.6pt,arrows=->,arrowsize=0.1,arrowinset=0.02,arrowlength=1.5](0,0)(0.5;185)}
\rput(E1){\psBall[style=Elektron](0,0){BrickRed!90}{.1}}
\rput[c]{0}(E1){\tiny $-$}%
\rput(E2){\pcline[linewidth=0.6pt,arrows=->,arrowsize=0.1,arrowinset=0.02,arrowlength=1.5](0,0)(0.5;170)}
\rput(E2){\psBall[style=Elektron](0,0){BrickRed!90}{.1}}
\rput[c]{0}(E2){\tiny $-$}%
\rput(E3){\pcline[linewidth=0.6pt,arrows=->,arrowsize=0.1,arrowinset=0.02,arrowlength=1.5](0,0)(0.5;180)}
\rput(E3){\psBall[style=Elektron](0,0){BrickRed!90}{.1}}
\rput[c]{0}(E3){\tiny $-$}%
\rput(E4){\pcline[linewidth=0.6pt,arrows=->,arrowsize=0.1,arrowinset=0.02,arrowlength=1.5](0,0)(0.5;190)}
\rput(E4){\psBall[style=Elektron](0,0){BrickRed!90}{.1}}
\rput[c]{0}(E4){\tiny $-$}%
\rput(E5){\pcline[linewidth=0.6pt,arrows=->,arrowsize=0.1,arrowinset=0.02,arrowlength=1.5](0,0)(0.5;176)}
\rput(E5){\psBall[style=Elektron](0,0){BrickRed!90}{.1}}
\rput[c]{0}(E5){\tiny $-$}%
\rput(E6){\pcline[linewidth=0.6pt,arrows=->,arrowsize=0.1,arrowinset=0.02,arrowlength=1.5](0,0)(0.5;180)}
\rput(E6){\psBall[style=Elektron](0,0){BrickRed!90}{.1}}
\rput[c]{0}(E6){\tiny $-$}%
\pscircle[linecolor=black!50,linewidth=0.2pt,fillstyle=solid,fillcolor=cyan!30,opacity=0.2](9,5){4}%
\end{pspicture}
\end{document}