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
|
%%
%% Ein Beispiel der DANTE-Edition
%%
%%
%% Copyright (C) 2010 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{352.81416pt}
\setlength\parindent{0pt}
\StartShownPreambleCommands
\usepackage{pst-optic,pstricks-add,graphicx}
\StopShownPreambleCommands
\begin{document}
\resizebox{\textwidth}{!}{
\begin{pspicture}(-8,-3)(7,5)%\psgrid[subgriddiv=0,griddots=10]
\rput(0,0){\lens[lensWidth=1,lensGlass=true,%
lensHeight=6,focus=4,drawing=false,AB=2.5]}
{%
\psset{linewidth=0.5pt,linestyle=dashed,arrowsize=5pt,arrows=|<->|}
\psline(-8,0)(4,0)
\pcline(-7.75,-3)(0,-3)
\lput*{:U}{2f}
\pcline(0,-3)(4,-3)
\lput*{:U}{f}
\pcline(7,0)(7,4)
\lput*{:U}{f}
\pcline(4,5)(5,5)
\lput*{:U}{s}
\pcline(5.25,2.3)(5.25,2.8)
\lput*{:U}{s}
}
\uput[90](0,3){\Large L}
\uput[45](-7.7,3){\Large B}
\uput[45](-7.7,-2){\Large E}
\uput[270](3,-0.5){\Large D}
\uput[-45](4,0){\Large A=F}
\uput[270](3,2){\Large S}
\uput[90](4,4){\Large Sp}
\uput[90](3.5,3.25){\Large B'}
\uput[0](6.3,2.25){\Large B''}
\uput[-90](6,1.1){\Large M}
\psarc[linewidth=0.5pt](-7.75,2.5){0.5}{-90}{0}\qdisk(-7.55,2.3){1pt}
\rput{210}(F'){\mirrorTwo}
{%
\psset{fillstyle=solid,fillcolor=lightgray}
\rput{210}(4,2.5){\psframe(-1,0)(1,0.2)}
\psframe(-8,-3)(-7.75,3)
\psframe(3,4)(3.8,4.2)\psframe(4.2,4)(5,4.2)%
}{%
\psset{linewidth=1pt,linecolor=red,%
arrowsize=5pt,ArrowInside=->,ArrowInsideNo=3}
\psline[linecolor=blue,ArrowInsideOffset=-0.2](F')(4,2.5)
\psline[linecolor=blue,ArrowInsideOffset=-0.2](4,2.3)(6,2.3)
\qdisk(6,2.3){2pt}
\psline[linestyle=dashed,arrows=-](F')(5.1,4)
\psline[linestyle=dashed,arrows=-](5,2.8)(6,2.8)
\psline(4,4)(F')
\psline[linecolor=blue,ArrowInsideOffset=-0.2](I)(F')
\psline(F')(I)
\psline[linecolor=blue,ArrowInsideOffset=-0.3](-7.75,2.5)(I)
\psline(I)(-7.75,2.5)
}
\psframe(5.5,1.1)(6.5,3.5)
\multido{\r=1.3+0.2}{12}{%
\psline(6.1,\r)(6.5,\r)%
}
\end{pspicture}
}
Sp Spalt; D Drehspiegel; L Sammellinse; E Endspiegel;
S halbdurchl\"assiger Spiegel; M Ma\ss stab
\end{document}
|
