File:Drexhage experiment.gif
此為最大尺寸。
Drexhage_experiment.gif （576 × 245 像素，檔案大小：1.42 MB，MIME 類型：image/gif、循環、61 畫格）
摘要
| 描述 |
English: Schematic of the Drexhage experiment. Both the emission pattern and the total power emitted by a dipole depend on the distance from a mirror. This can be interpreted as an effect of the modified local density of states.
Italiano: Rappresentazione schematica dell'esperimento di Drexhage. Quando un dipolo si trova vicino a uno specchio la radiazione riflessa interferisce con quella emessa modificando sia la distribuzione angolare che la potenza totale emessa. Questo effetto ha un'interpretazione naturale in termini di densità degli stati vicino allo specchio. |
| 日期 | |
| 來源 | https://twitter.com/j_bertolotti/status/1150745727011905536 |
| 作者 | Jacopo Bertolotti |
| 授權許可 (重用此檔案) |
https://twitter.com/j_bertolotti/status/1030470604418428929 |
Mathematica 11.0 code
\[Lambda] = 1;
k0 = (2 \[Pi])/\[Lambda];
G[r_] := I/4 HankelH1[0, k0 Norm[r] ];
s = Table[{h,(Abs[NIntegrate[G[{Cos[\[Theta]], Sin[\[Theta]]}] - G[{Cos[\[Theta]], Sin[\[Theta]]} - {2*h, 0}], {\[Theta], 0, 2 \[Pi]}] ]/s0)^2}, {h, 3, 0, -0.01}];
p1 = Table[
GraphicsRow[{
DensityPlot[Abs[G[{x, y}] - G[{x + 2*h, y}] ]^2, {x, -3, 7}, {y, -5, 5}, PlotPoints -> 100, Frame -> False, ColorFunction -> "AvocadoColors", PlotLabel -> "|E\!\(\*SuperscriptBox[\(|\), \(2\)]\)",
PlotRange -> {0, 0.02}, LabelStyle -> {Black, Bold}, Epilog -> {Gray, Polygon[{{-5, -5}, {-h, -5}, {-h, 5}, {-5, 5}}]}]
,
ListPlot[s, PlotRange -> {0, 2}, Joined -> True, Axes -> False, Frame -> True, LabelStyle -> {Black, Bold}, PlotStyle -> {Black, Thick}, FrameLabel -> {"Distance from the mirror / \[Lambda]",
"P/\!\(\*SubscriptBox[\(P\), \(\[Infinity]\)]\)"}, Epilog -> {PointSize[0.03], Red, Point[{h, Evaluate[(1/s0 Abs[NIntegrate[G[{Cos[\[Theta]], Sin[\[Theta]]}] - G[{Cos[\[Theta]], Sin[\[Theta]]} - {2*h, 0}], {\[Theta], 0, 2 \[Pi]}] ])^2]}]}]
}, ImageSize -> Large]
, {h, 3, 0, -0.05}];
ListAnimate[p1]
授權條款
我，本作品的著作權持有者，決定用以下授權條款發佈本作品：
 
|
此檔案在創用CC CC0 1.0 通用公有領域貢獻宣告之下分發。 |
| 在此宣告之下分發本作品者，已依據各國著作權法，在全世界放棄其對本作品所擁有的著作權及所有相關相似的法律權利，從而將本作品貢獻至公有領域。您可以複製、修改、分發和演示該作品，用於任何商業用途，所有這些都不需要請求授權。
|
檔案歷史
點選日期/時間以檢視該時間的檔案版本。
| 日期/時間 | 縮圖 | 尺寸 | 使用者 | 備註 | |
|---|---|---|---|---|---|
| 目前 | 2019年7月16日 (二) 08:31 | | 576 × 245（1.42 MB） | Berto | User created page with UploadWizard |
檔案用途
下列頁面有用到此檔案：
全域檔案使用狀況
以下其他 wiki 使用了這個檔案：
- en-two.iwiki.icu 的使用狀況
- ko.wikipedia.org 的使用狀況
- ru.wikipedia.org 的使用狀況
- www.wikidata.org 的使用狀況
