MAKE A MEME
View Large Image
| View Original: | Polarisation (Elliptical).svg (250x625) | |||
| Download: | Original | Medium | Small | Thumb |
| Courtesy of: | commons.wikimedia.org | More Like This | ||
| Keywords: Polarisation (Elliptical).svg Diagram of elliptical polarisation of electromagnetic radiation Own drawing down in Mathematica edited in Inkscape Created with Inkscape 12/02/07 Inductiveload 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 http //library wolfram com/infocenter/TechNotes/4117/ this location The required packages are << Graphics` << Arrow3D`Arrow3D` The code is <pre><nowiki> wavefunction ParametricPlot3D 0 5 Sin4t+1 -Sin4t t t 0 5 BoxRatios\Rule 1 1 4 ImageSize\Rule400 Boxed\RuleFalse Axes\RuleFalse PlotPoints\Rule60 ViewPoint-> 2 2 2 PlotRange\RuleAll repsi ParametricPlot3D 0 5 Sin4t+1 -1 t RGBColor1 0 0 t 0 5 BoxRatios\Rule 4 1 1 ImageSize\Rule500 Boxed\RuleFalse Axes\RuleFalse PlotPoints\Rule60 PlotRange\RuleAll impsi ParametricPlot3D -1 -Sin4t t RGBColor0 0 102/255 t 0 5 BoxRatios\Rule 4 1 1 ImageSize\Rule500 Boxed\RuleFalse Axes\RuleFalse PlotPoints\Rule60 PlotRange\RuleAll end ParametricPlot3D 0 5 Sint+1 -Sint 0 t 0 2Ï BoxRatios\Rule 4 1 1 ImageSize\Rule500 Boxed\RuleFalse Axes\RuleFalse PlotPoints\Rule10 PlotRange\RuleAll xaxis Graphics3DArrow3D 0 0 -1 0 0 6 HeadSize \Rule UniformSize 5 HeadColor\RuleBlack uaxis Graphics3DArrow3D 0 -1 0 0 3 0 HeadSize \Rule UniformSize 5 HeadColor\RuleBlack vaxis Graphics3DArrow3D -1 0 0 3 0 0 HeadSize \Rule UniformSize 5 HeadColor\RuleBlack plane Graphics3DPolygon 1 2 1 2 0 1 2 -1 2 0 -1 2 -1 2 0 -1 2 1 2 0 \ crate WireFrameGraphics3DCuboid 1 1 0 -1 -1 5 Showwavefunction xaxis uaxis vaxis plane repsi impsi end crate </nowiki></pre> Circular and elliptical polarization SVG physics | ||||
.svg){kind=link}
