ملف:Drexhage experiment.gif
لا توجد دقة أعلى متوفرة.
Drexhage_experiment.gif (576 × 245 بكسل حجم الملف: 1٫42 ميجابايت، نوع MIME: image/gif، ملفوف، 61 إطارا)
وصف قصير
| ⧼wm-license-information-description⧽ |
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 stste.
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.
|
| ⧼wm-license-information-date⧽ | 2019 |
| ⧼wm-license-information-source⧽ | https://twitter.com/j_bertolotti/status/1150745727011905536 |
| ⧼wm-license-information-author⧽ | Jacopo Bertolotti |
| ⧼wm-license-information-permission⧽ (⧼wm-license-information-permission-reusing-text⧽) |
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]
ترخيص
تاريخ الملف
اضغط على زمن/تاريخ لرؤية الملف كما بدا في هذا الزمن.
| زمن/تاريخ | صورة مصغرة | الأبعاد | مستخدم | تعليق | |
|---|---|---|---|---|---|
| حالي | ★ مراجعة معتمدة 15:01، 5 أكتوبر 2023 | | 576 × 245 (1٫42 ميجابايت) | Pastakhov (نقاش | مساهمات) | Upload https://upload.wikimedia.org/wikipedia/commons/8/84/Drexhage_experiment.gif |
لا يمكنك استبدال هذا الملف.
وصلات
لا يوجد صفحات تصل لهذه الصورة.
