File:Polarisation (Elliptical).svg
Archivo original (archivo SVG, nominalmente 250 × 625 píxeles, tamaño de archivo: 11 kB)
Leyendas
DescripciónPolarisation (Elliptical).svg |
English: Diagram of elliptical polarisation of electromagnetic radiation |
|||
Fecha | 12/02/07 | |||
Fuente |
Own drawing down in Mathematica, edited in Inkscape. |
|||
Autor | Inductiveload | |||
Permiso (Reutilización de este archivo) |
|
|||
Otras versiones | Linear polarisation |
Mathematica Code[editar]
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]
Historial del archivo
Haz clic sobre una fecha y hora para ver el archivo tal como apareció en ese momento.
Fecha y hora | Miniatura | Dimensiones | Usuario | Comentario | |
---|---|---|---|---|---|
actual | 13:29 3 may 2014 | 250 × 625 (11 kB) | 老陳 (discusión | contribs.) | Add near side edges of the top square. | |
21:02 2 jun 2007 | 250 × 625 (11 kB) | Inductiveload (discusión | 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 |
No puedes sobrescribir este archivo.
Usos del archivo
Las siguientes páginas usan este archivo:
Uso global del archivo
Las wikis siguientes utilizan este archivo:
- Uso en bs.wikipedia.org
- Uso en de.wikipedia.org
- Uso en en.wikipedia.org
- Uso en es.wikipedia.org
- Uso en et.wikipedia.org
- Uso en fr.wikipedia.org
- Uso en fr.wikiversity.org
- Uso en he.wikipedia.org
- Uso en ko.wikipedia.org
- Uso en mk.wikipedia.org
- Uso en no.wikipedia.org
- Uso en ru.wikipedia.org
- Uso en sh.wikipedia.org
- Uso en tr.wikipedia.org
- Uso en uk.wikipedia.org
- Uso en vi.wikipedia.org
- Uso en zh.wikipedia.org
Metadatos
Este archivo contiene información adicional, probablemente añadida por la cámara digital o el escáner usado para crearlo o digitalizarlo.
Si el archivo ha sido modificado desde su estado original, pueden haberse perdido algunos detalles.
Anchura | 250 |
---|---|
Altura | 625 |