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]
许可协议
我，本作品著作权人，特此采用以下许可协议发表本作品：
 
|
本作品采用知识共享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上的用途
