• Beitrags-Autor:
  • Beitrag zuletzt geändert am:30.04.2020
  • Beitrags-Kategorie:Physik
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Title:       Polarisator (lambda/4-Plättchen)
% Author:      Tobias Krähling <devel-nospam-@semibyte.de>
% Needs:       pstricks, pst-3dplot
% DesignScale: unit=10mm
% Size:	      8.1 x 6.7
% FontSize:    11pt
% Fonts:       pxfonts
% License:     Create Commons Attribution-NonCommercial-ShareAlike 3.0
%              Germany License
%              http://creativecommons.org/licenses/by-nc-sa/3.0/de/
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
{\sbPSTDefault\psset{Alpha=55,Beta=30,RotY=-90}
\begin{pspicture}(-3.4,-3)(4.7,3.7)
   \pstThreeDCircle(0,0,-0.5)(1.5,0,0)(0,1.5,0)
   \pstThreeDCircle(0,0, 0.5)(1.5,0,0)(0,1.5,0)
   \parametricplotThreeD[xPlotpoints=200,linecolor=sblinehighlight,%
      linewidth=1.5pt,plotstyle=curve](140,2000){%
      0.5 90 t add cos mul 0.5 90 t add sin mul t 300 div}
   \psCylinder[SegmentColor={[cmyk]{0.8,0.1,.11,0}},RotY=45,showInside=false]
      (0,0,-1){2}{1.0}
   \pstThreeDCircle[fillstyle=solid,fillcolor=sbfilllight](0,0,0)(2,0,0)(0,2,0)
   \pstThreeDCoor[linewidth=1pt,zMin=-5.5,zMax=7.5,yMin=-3,yMax=4,xMin=-3,
      xMax=4,linecolor=sblinedark]
   \pstThreeDLine[linecolor=sblinedark,linewidth=1pt](0,0,0)(1.8,-1.8,0)
   \parametricplotThreeD[xPlotpoints=200,linecolor=sblinehighlight,%
      linewidth=1.5pt,plotstyle=curve](140,583){%
      0.5 90 t add cos mul 0.5 90 t add sin mul t 300 div}
   \pstThreeDPut(3.8,0,0){\rput[l](1ex,0){opt. Achse}}
   \pstThreeDCircle[beginAngle=0,endAngle=-45,linewidth=1pt,
      linecolor=sblinedark](0,0,0)(1.5,0,0)(0,1.5,0)
   \pstThreeDPut(1.0,-0.35,0){\footnotesize$45^o$}
   \pstThreeDLine[arrows=<->,linecolor=sblinehighlight,linewidth=1.5pt]
      (.5,-.5,-3)(-.5,.5,-3)
   \pstThreeDLine[arrows=<->,linecolor=sblinehighlight,linewidth=1.5pt]
      (.5,-.5,-4)(-.5,.5,-4)
   \pstThreeDLine[arrows=<->,linecolor=sblinehighlight,linewidth=1.5pt]
      (.5,-.5,-5)(-.5,.5,-5)

   \pstThreeDPut(-.5,.9,-4){\rput{35}(0,0){linear pol.}}
   \pstThreeDPut(-.5,.9,5){\rput{35}(0,0){zirkul"ar pol.}}


   \pstThreeDLine[linewidth=1pt,linecolor=sblinedark](-1.2,1.6,0)(-1.2,2.1,0)
   \pstThreeDLine[linewidth=1pt,linecolor=sblinedark](-1.2,1.6,1)(-1.2,2.1,1)
   \pstThreeDLine[linewidth=1pt,linecolor=sblinedark,arrows=->]
      (-1.2,2.0,-1)(-1.2,2.0,0)
   \pstThreeDLine[linewidth=1pt,linecolor=sblinedark,arrows=->]
      (-1.2,2.0,2)(-1.2,2.0,1)
   \pstThreeDPut(-1.2,2.0,0.5){$d$}
\end{pspicture}
}