跳转到内容

英文维基 | 中文维基 | 日文维基 | 草榴社区

File:Polarisation (Elliptical).svg

页面内容不支持其他语言。
这个文件来自维基共享资源
维基百科,自由的百科全书

原始文件 (SVG文件,尺寸为250 × 625像素,文件大小:11 KB)


描述
English: Diagram of elliptical polarisation of electromagnetic radiation
日期 12/02/07
来源

Own drawing down in Mathematica, edited in Inkscape.

 
本W3C状态不明的矢量图使用Inkscape创作 .
作者 Inductiveload
授权
(二次使用本文件)
Public domain 我,本作品著作权人,释出本作品至公有领域。这适用于全世界。
在一些国家这可能不合法;如果是这样的话,那么:
我无条件地授予任何人以任何目的使用本作品的权利,除非这些条件是法律规定所必需的。
其他版本

Circular polarisation

Linear polarisation

Mathematica Code

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[{0.5 Sin[4t+1],-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[{0.5 Sin[4t+1],-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[{0.5 Sin[t+1],-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]

说明

添加一行文字以描述该文件所表现的内容

此文件中描述的项目

描绘内容

创作作者 简体中文(已转写)

某些值没有维基数据项目

维基媒体用户名 简体中文(已转写):​Inductiveload
作者姓名字符串 简体中文(已转写):​Inductiveload

版权状态 简体中文(已转写)

文件历史

点击某个日期/时间查看对应时刻的文件。

日期/时间缩⁠略⁠图大小用户备注
当前2014年5月3日 (六) 13:292014年5月3日 (六) 13:29版本的缩略图250 × 625(11 KB)老陳Add near side edges of the top square.
2007年6月2日 (六) 21:022007年6月2日 (六) 21:02版本的缩略图250 × 625(11 KB)Inductiveload{{Information |Description=Diagram of elliptical polarisation |Source=Own drawing down in Mathematica, edited in Inkscape. |Date=12/02/07 |Author=User:Inductiveload |Permission={{PD-self}} |other_versions=[[:image:Polarisation (Circular).svg|Circular

以下2个页面使用本文件:

全域文件用途

以下其他wiki使用此文件:

元数据