Dosya:Surface plasmon.gif
Daha yüksek çözünürlüğe sahip sürüm bulunmamaktadır.
Surface_plasmon.gif ((576 × 231 piksel, dosya boyutu: 1,51 MB, MIME tipi: image/gif), döngüye girdi, 31 kare)
 | Bu dosya Wikimedia Commons'ta bulunmaktadır. Dosyanın açıklaması aşağıda gösterilmiştir. Commons, serbest/özgür telifli medya dosyalarının bulundurulduğu depodur. Siz de yardım edebilirsiniz. |
Özet
| Açıklama |
English: At the interface between a dielectric and a metal, Maxwell equations admit solutions in the form of oscillations along the surface that couple the electric field and the electrons in the metal (surface plasma polaritons). |
| Tarih | |
| Kaynak | https://twitter.com/j_bertolotti/status/1191365991592275971 |
| Yazar | Jacopo Bertolotti |
| İzin (Bu dosyanın tekrar kullanımı) |
https://twitter.com/j_bertolotti/status/1030470604418428929 |
Mathematica 11.0 code
ed = ({edx, 0, edz} E^(I (kdx x - \[Omega] t)) E^(-kdz z)) /. {edz -> I kdx/kdz edx};
em = ({emx, 0, emz} E^(I (kmx x - \[Omega] t)) E^(kmz z)) /. {emx -> edx, emz -> I \[Epsilon]d/\[Epsilon]m kdx/kdz edx, kmx -> kdx, kmz -> -kdz \[Epsilon]m/\[Epsilon]d};
ed2 = ed /. {kdz -> \[Omega]/ c Sqrt[-\[Epsilon]d^2/(\[Epsilon]d + \[Epsilon]m)], kdx -> \[Omega]/ c Sqrt[(\[Epsilon]d \[Epsilon]m)/(\[Epsilon]d + \[Epsilon]m)]};
em2 = em /. {kdz -> \[Omega]/ c Sqrt[-\[Epsilon]d^2/(\[Epsilon]d + \[Epsilon]m)], kdx -> \[Omega]/ c Sqrt[(\[Epsilon]d \[Epsilon]m)/(\[Epsilon]d + \[Epsilon]m)]};
ed3 = ed2 /. {\[Epsilon]m -> 1 - \[Omega]p^2/\[Omega]^2};
em3 = em2 /. {\[Epsilon]m -> 1 - \[Omega]p^2/\[Omega]^2};
p1 = Table[
Show[
DensityPlot[ Re[ed3[[3]] /. {c -> 1, \[Omega]p -> 2, \[Epsilon]d -> 2, \[Omega] -> 0.5, edx -> 1}], {x, -10, 10}, {z, 0, 4}, PlotRange -> {-3, 3}, PlotPoints -> 50, ColorFunction -> "TemperatureMap"]
,
DensityPlot[ Re[em3[[3]] /. {c -> 1, \[Omega]p -> 2, \[Epsilon]d -> 2, \[Omega] -> 0.5, edx -> 1}], {x, -10, 10}, {z, -4, 0}, PlotRange -> {-3, 3}, PlotPoints -> 50 , ColorFunction -> "TemperatureMap"]
,
VectorPlot[ Re[(ed3)[[{1, 3}]] /. {c -> 1, \[Omega]p -> 2, \[Epsilon]d -> 2, \[Omega] -> 0.5, edx -> 1}], {x, -10, 10}, {z, 0, 4}, VectorStyle -> {Black}, VectorPoints -> Evaluate@Flatten[Table[{i, j}, {i, -9, 9, 1}, {j, 0.5, 4, 1}], 1], VectorScale -> Small]
,
VectorPlot[ Re[(em3)[[{1, 3}]] /. {c -> 1, \[Omega]p -> 2, \[Epsilon]d -> 2, \[Omega] -> 0.5, edx -> 1}], {x, -10, 10}, {z, -4, 0}, VectorStyle -> {Black}, VectorPoints -> Evaluate@Flatten[Table[{i, j}, {i, -9, 9, 1}, {j, -0.5, -4, -1}], 1], VectorScale -> Small]
, PlotRange -> All, AspectRatio -> 4/10, ImageSize -> Large, Epilog -> {Black, Thick, Line[{{-10, 0}, {10, 0}}]}, Frame -> False, PlotRangePadding -> None
]
, {t, 0, (2 \[Pi])/0.5, (2 \[Pi])/0.5 1/30}];
ListAnimate[p1]
Lisanslama
Ben, bu işin telif sahibi, burada işi aşağıdaki lisans altında yayımlıyorum:
 
|
Bu dosya Creative Commons Evrensel Kamu Malı İthafı altındadır. |
| Bu çalışmayı oluşturan kişi bu senet ile eser hakkında tüm dünya çapında telif hakkı yasaları kapsamında, yasalar tarafından izin verilen ölçülerde ve diğer benzer tüm haklarından feragat etmiş ve kamu malı olarak nitelendirmiştir. Siz bu çalışmayı ve eseri hiç bir izin almadan ticari amaçlar da dahil olmak üzere kopyalayabilir, değiştirebilir ve serbestçe dağıtabilirsiniz.
|
Dosya geçmişi
Dosyanın herhangi bir zamandaki hâli için ilgili tarih/saat kısmına tıklayın.
| Tarih/Saat | Küçük resim | Boyutlar | Kullanıcı | Yorum | |
|---|---|---|---|---|---|
| güncel | 09.47, 5 Kasım 2019 | | 576 × 231 (1,51 MB) | Berto | User created page with UploadWizard |
Dosya kullanımı
Bu görüntü dosyasına bağlantısı olan sayfalar:
