Файл:Drexhage experiment.gif
Перейти к навигации
Перейти к поиску
Нет версии с бо́льшим разрешением.
Drexhage_experiment.gif (576 × 245 пкс, размер файла: 1,42 МБ, 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]
Лицензирование
Я, владелец авторских прав на это произведение, добровольно публикую его на условиях следующей лицензии:
 
|
Этот файл доступен на условиях Creative Commons CC0 1.0 Универсальной передачи в общественное достояние (Universal Public Domain Dedication). |
| Лица, связанные с работой над этим произведением, решили передать данное произведение в общественное достояние, отказавшись от всех прав на произведение по всему миру в рамках закона об авторских правах (а также связанных и смежных прав), в той степени, которую допускает закон. Вы можете копировать, изменять, распространять и исполнять данное произведение в любых целях, в том числе в коммерческих, без получения на это разрешения автора.
|
История файла
Нажмите на дату/время, чтобы увидеть версию файла от того времени.
| Дата/время | Миниатюра | Размеры | Участник | Примечание | |
|---|---|---|---|---|---|
| текущий | 09:31, 16 июля 2019 | | 576 × 245 (1,42 МБ) | wikimediacommons>Berto | User created page with UploadWizard |
Использование файла
Следующая страница использует этот файл:
