File:Polarisation (Circular).svg
原始檔案 (SVG 檔案,表面大小:250 × 625 像素,檔案大小:11 KB)
說明
描述Polarisation (Circular).svg |
The direction of the helix relative to the central axis represents the direction of the electric field of the circularly polarized light at each point in space. The blue and red lines are projections of the helix onto two planes 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. 本vector image使用Inkscape創作 . |
|||
作者 | inductiveload | |||
授權許可 (重用此檔案) |
|
|||
其他版本 |
Derivative works of this file: Polarisation (Circular) With Phase Indicators.svg Linear polarisation Elliptical 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[{Sin[4t], -Cos[4t], t}, {t, 0, 5}, BoxRatios -> {1, 1, 4}, ImageSize -> 400, Boxed -> False, Axes -> False, PlotPoints -> 600, ViewPoint -> {2, 2, 2}, PlotRange -> All] repsi = ParametricPlot3D[{Sin[4t], -1, t, RGBColor[1, 0, 0]}, {t, 0, 5}, BoxRatios -> {4, 1, 1}, ImageSize -> 500, Boxed -> False, Axes -> False, PlotPoints -> 600, PlotRange -> All] impsi = ParametricPlot3D[{-1, -Cos[4t], t, RGBColor[0, 0, 102/255]}, {t, 0, \ 5}, BoxRatios -> {4, 1, 1}, ImageSize -> 500, Boxed -> False, Axes -> False, PlotPoints -> 600, PlotRange -> All] end = ParametricPlot3D[{Sin[t], -Cos[t], 0}, {t, 0, 2π}, BoxRatios -> {4, 1, 1}, ImageSize -> 500, Boxed -> False, Axes -> False, PlotPoints -> 600, PlotRange -> All] xaxis = Graphics3D[Arrow3D[{0, 0, -1}, {0, 0, 6}, HeadSize -> UniformSize[.5], HeadColor -> Black]] uaxis = Graphics3D[Arrow3D[{0, -1, 0}, {0, 3, 0}, HeadSize -> UniformSize[.5], HeadColor -> Black]] vaxis = Graphics3D[Arrow3D[{-1, 0, 0}, {3, 0, 0}, HeadSize -> UniformSize[.5], HeadColor -> 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]
檔案歷史
點選日期/時間以檢視該時間的檔案版本。
日期/時間 | 縮圖 | 尺寸 | 使用者 | 備註 | |
---|---|---|---|---|---|
目前 | 2007年2月12日 (一) 06:38 | 250 × 625(11 KB) | Inductiveload(留言 | 貢獻) | ||
2007年2月12日 (一) 03:01 | 250 × 625(373 KB) | Inductiveload(留言 | 貢獻) | {{Information |Description= |Source=Own drawing down in Mathematica, edited in Inscape. |Date=12/02/07 |Author=inductiveload |Permission={PD-self} |other_versions=Linear polarisation [[:image:Polarisation (Elliptical) |
無法覆蓋此檔案。
檔案用途
下列7個頁面有用到此檔案:
全域檔案使用狀況
以下其他 wiki 使用了這個檔案:
- bn.wikipedia.org 的使用狀況
- bs.wikipedia.org 的使用狀況
- de.wikipedia.org 的使用狀況
- en.wikipedia.org 的使用狀況
- en.wikibooks.org 的使用狀況
- es.wikipedia.org 的使用狀況
- et.wikipedia.org 的使用狀況
- fa.wikipedia.org 的使用狀況
- fr.wikipedia.org 的使用狀況
- fr.wikiversity.org 的使用狀況
- he.wikipedia.org 的使用狀況
- hi.wikibooks.org 的使用狀況
- jv.wikipedia.org 的使用狀況
- km.wikipedia.org 的使用狀況
- ko.wikipedia.org 的使用狀況
- mk.wikipedia.org 的使用狀況
- ne.wikipedia.org 的使用狀況
- no.wikipedia.org 的使用狀況
- ru.wikipedia.org 的使用狀況
- sa.wikipedia.org 的使用狀況
- sh.wikipedia.org 的使用狀況
- te.wikipedia.org 的使用狀況
- tr.wikipedia.org 的使用狀況
- tum.wikipedia.org 的使用狀況
- uk.wikipedia.org 的使用狀況
- vi.wikipedia.org 的使用狀況
- zh.wikipedia.org 的使用狀況
檢視此檔案的更多全域使用狀況。