File:Polarisation (Elliptical).svg
Original file (SVG file, nominally 250 × 625 pixels, file size: 11 KB)
Captions
DescriptionPolarisation (Elliptical).svg |
English: Diagram of elliptical polarisation of electromagnetic radiation |
|||
Date | 12/02/07 | |||
Source |
Own drawing down in Mathematica, edited in Inkscape. This W3C-unspecified vector image was created with Inkscape . |
|||
Author | Inductiveload | |||
Permission (Reusing this file) |
|
|||
Other versions | Linear polarisation |
Mathematica Code
[edit]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]
File history
Click on a date/time to view the file as it appeared at that time.
Date/Time | Thumbnail | Dimensions | User | Comment | |
---|---|---|---|---|---|
current | 13:29, 3 May 2014 | 250 × 625 (11 KB) | 老陳 (talk | contribs) | Add near side edges of the top square. | |
21:02, 2 June 2007 | 250 × 625 (11 KB) | Inductiveload (talk | contribs) | {{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 |
You cannot overwrite this file.
File usage on Commons
The following 2 pages use this file:
File usage on other wikis
The following other wikis use this file:
- Usage on bs.wikipedia.org
- Usage on de.wikipedia.org
- Usage on en.wikipedia.org
- Usage on es.wikipedia.org
- Usage on et.wikipedia.org
- Usage on fr.wikipedia.org
- Usage on fr.wikiversity.org
- Usage on he.wikipedia.org
- Usage on ko.wikipedia.org
- Usage on mk.wikipedia.org
- Usage on no.wikipedia.org
- Usage on ru.wikipedia.org
- Usage on sh.wikipedia.org
- Usage on tr.wikipedia.org
- Usage on uk.wikipedia.org
- Usage on vi.wikipedia.org
- Usage on zh.wikipedia.org
Metadata
This file contains additional information such as Exif metadata which may have been added by the digital camera, scanner, or software program used to create or digitize it. If the file has been modified from its original state, some details such as the timestamp may not fully reflect those of the original file. The timestamp is only as accurate as the clock in the camera, and it may be completely wrong.
Width | 250 |
---|---|
Height | 625 |