설명Polarisation (Linear).svg	Diagram of linear polarisation. The direction of the black line relative to the central axis represents the direction of the electric field of the linearly polarized light at each point in space. The blue and red lines are projections of the black onto two planes which are at right angles. There is an version which is identical to this original with the exception of phase indictors to make the phase relationship of its components clearer. Refer to Other Versions section below.
날짜	12/02/07
출처	Own drawing down in Mathematica, edited in the Open Source program Inscape.   이 W3C-불확실 벡터 그림은 Inkscape(으)로 제작되었습니다 .
저자	inductiveload
저작권 (이 파일을 인용하기)	Public domainPublic domainfalsefalse 나는 이 작품의 저작권자로서, 이 작품을 퍼블릭 도메인으로 모두에게 공개합니다. 이 공개 선언은 전 세계적으로 유효합니다. 만약 저작권의 포기가 법률적으로 가능하지 않은 경우, 나는 이 작품을 법적으로 허용되는 한도 내에서 누구나 자유롭게 어떤 목적으로도 제한없이 사용할 수 있도록 허용합니다.
다른 버전	이 파일은 다음으로 파생됨:  Polarisation (Linear) With.Phase.Indicators.svg Circular polarisation Elliptical polarisation

This figure requires the use of Arrow3D, which is not included in the StandardPackages (as of Feb 2007). This can be obtained from Wolfram Research at this location. The required packages are:

<< Graphics`
<< Arrow3D`Arrow3D`

The code is:

wavefunction=ParametricPlot3D[{Sin[4t],-Sin[4t],t},{t,0,5},
    BoxRatios\[Rule]{1,
      1,4},ImageSize\[Rule]400,Boxed\[Rule]False,Axes\[Rule]False,
      PlotPoints\[Rule]60,ViewPoint->{2,2, 2},PlotRange\[Rule]All]

repsi=ParametricPlot3D[{Sin[4t],-1,t,RGBColor[1,0,0]},{t,0,5},
      BoxRatios\[Rule]{4,1,1},ImageSize\[Rule]500,
      Boxed\[Rule]False,Axes\[Rule]False,
        PlotPoints\[Rule]60,PlotRange\[Rule]All]

impsi=ParametricPlot3D[{-1,-Sin[4t],t,RGBColor[0,0,102/255]},{
    t,0,5},BoxRatios\[Rule]{4,1,1},ImageSize\[Rule]500,Boxed\[Rule]False,
      Axes\[Rule]False,PlotPoints\[Rule]60,PlotRange\[Rule]All]

end=ParametricPlot3D[{Sin[t],-Sin[t],0},{t,0,2π},BoxRatios\[Rule]{4,1,1},
    ImageSize\[Rule]500,Boxed\[Rule]False,Axes\[Rule]False,
      PlotPoints\[Rule]10,PlotRange\[Rule]All]

xaxis=Graphics3D[Arrow3D[{0,0,-1},{
  0,0,6},HeadSize \[Rule] UniformSize[.5],HeadColor\[Rule]Black]]

uaxis=Graphics3D[Arrow3D[{0,-1,0},{0,3,0},HeadSize \[Rule] 
    UniformSize[.5],HeadColor\[Rule]Black]]

vaxis=Graphics3D[Arrow3D[{-1,0,0},{3,0,0},HeadSize \[Rule] 
      UniformSize[.5],HeadColor\[Rule]Black]]

plane=Graphics3D[Polygon[{{1.2,1.2,0},{1.2,-1.2,0},{-1.2,-1.2,0},{-1.2,1.2,0}}\
]]

crate=WireFrame[Graphics3D[Cuboid[{1,1,0},{-1,-1,5}]]]

Show[wavefunction,xaxis,uaxis,vaxis,plane,repsi,impsi,end,crate]