Fichier:Microcavity dynamics.gif
Le contenu de la page n’est pas pris en charge dans d’autres langues.
Microcavity_dynamics.gif (360 × 223 pixels, taille du fichier : 1,29 Mio, type MIME : image/gif, en boucle, 215 trames)
Ce fichier et sa description proviennent de Wikimedia Commons.
Description
DescriptionMicrocavity dynamics.gif |
English: Transfer matrix simulation of the dynamic of the electric field when a pulse is shone on a microcavity (in this case a Bragg reflector with a defect in the middle). Most of the pulse is reflected straight away, but the frequencies resonant with the cavity couple to it and the energy is stored in the confined mode. The cavity then relaxes exponentially with a time constant that depends on the Q-factor of the resonance. |
Date | |
Source | https://twitter.com/j_bertolotti/status/1075341329817853952 |
Auteur | Jacopo Bertolotti |
Autorisation (Réutilisation de ce fichier) |
https://twitter.com/j_bertolotti/status/1030470604418428929 |
Mathematica 11.0 code
c = 3 10^8; (*speed of light*) M[n_, k_, d_] := {{Cos[n k d], I c/n Sin[n k d]}, {I n/c Sin[n k d], Cos[n k d]}}; (*transfer matrix*) Mi[n_, k_, d_] := {{Cos[d k n], -((I c Sin[d k n])/n)}, {-((I n Sin[d k n])/c), Cos[d k n]}}; (*Inverse of a transfer matrix*) t[m_, n0_, n2_] := (2 n0/c)/(n2/c m[[1, 1]] - (n0 n2)/c^2 m[[1, 2]] - m[[2, 1]] + n0/c m[[2, 2]]); (*transmission coefficient*) d = 1 10^-6; (*layer thickness in m*) dim = 6; (*number of layers in the Bragg mirror*) s = Join[Table[1., 50], Table[If[EvenQ[j], 1., 2.], {j, 1, dim}], {1, 1}, Table[If[EvenQ[j], 1., 2.], {j, 1, dim}], Table[1., 50]] ;(*Reflective indices of each layer (including some space to show the pulse arrive*) dim = Dimensions[s][[1]]; source = E^(-(1/2) (w - w0)^2 \[Sigma]^2) /. {w0 -> 2.185 10^15, \[Sigma] -> (10 10^-6)/c, a -> 10^12}; nstep = 2000; \[Omega]min = 1.9 10^15; \[Omega]max = 2.8 10^15; sourcel = Table[source, {w, \[Omega]min, \[Omega]max, (\[Omega]max - \[Omega]min)/nstep}]; trasm = Reap[ For[\[Omega] = \[Omega]min, \[Omega] <= \[Omega]max, \[Omega] = \[Omega] + (\[Omega]max - \[Omega]min)/nstep, tm = Apply[Dot, Table[M[s[[j]], \[Omega]/c, d], {j, 1, dim}]]; Sow[N[t[tm, 1, 1]] ]; ];][[2, 1]]; field = trasm*sourcel; (*Field at the last interface*) sexpand = 5; (*increase spatial resolution*) s2 = Flatten@Table[Table[s[[j]], sexpand], {j, 1, dim}]; freq = Table[j, {j, \[Omega]min, \[Omega]max, (\[Omega]max - \[Omega]min)/nstep}]; fn = Transpose[{field, field/c}]; tmp0 = fn; ssm = Reap[For[i = dim*sexpand, i > 0, i--, tmp = Table[((Mi[s2[[i]], freq/c, d/sexpand])[[All, All, j]].tmp0[[j]]), {j, 1, nstep}]; Sow[tmp[[All, 1]]]; tmp0 = tmp; ];][[2, 1]]; fssm = Map[Fourier, ssm]; p1 = Table[ ListPlot[{Re@Reverse@fssm[[All, -j]], Abs@Reverse@fssm[[All, -j]], -Abs@Reverse@fssm[[All, -j]]}, PlotRange -> {-7, 7}, Joined -> True, Axes -> False, PlotStyle -> {Directive[Orange], Directive[Thick, Black], Directive[Thick, Black]}, Epilog -> {Dashed, Black, Thick, Line[{{50*sexpand, -3}, {50*sexpand, 3}}], Line[{{64*sexpand, -3}, {64*sexpand, 3}}], Text[Style["Microcavity", Medium, Bold], 57*sexpand, 5}]} ], {j, -15, 200, 1}]; ListAnimate[Drop[p1, {16}], 10]
Conditions d’utilisation
Moi, en tant que détenteur des droits d’auteur sur cette œuvre, je la publie sous la licence suivante :
Ce fichier est disponible selon les termes de la licence Creative Commons CC0 Don universel au domaine public. | |
La personne qui a associé une œuvre avec cet acte l’a placée dans le domaine public en renonçant mondialement à tous ses droits sur cette œuvre en vertu des lois relatives au droit d’auteur, ainsi qu’à tous les droits juridiques connexes et voisins qu’elle possédait sur l’œuvre, sans autre limite que celles imposées par la loi. Vous pouvez copier, modifier, distribuer et utiliser cette œuvre, y compris à des fins commerciales, sans qu’il soit nécessaire d’en demander la permission.
http://creativecommons.org/publicdomain/zero/1.0/deed.enCC0Creative Commons Zero, Public Domain Dedicationfalsefalse |
Cette image, qui provient de https://twitter.com/j_bertolotti/status/1030470604418428929, a été vérifiée le 21 décembre 2018 par le relecteur Ronhjones, qui a confirmé qu'à cette date, elle était disponible sous les termes de cette licence.
|
Éléments décrits dans ce fichier
dépeint
Valeur sans élément de Wikidata
19 décembre 2018
Historique du fichier
Cliquer sur une date et heure pour voir le fichier tel qu'il était à ce moment-là.
Date et heure | Vignette | Dimensions | Utilisateur | Commentaire | |
---|---|---|---|---|---|
actuel | 20 décembre 2018 à 16:59 | 360 × 223 (1,29 Mio) | Berto | User created page with UploadWizard |
Utilisation du fichier
La page suivante utilise ce fichier :
Usage global du fichier
Les autres wikis suivants utilisent ce fichier :
- Utilisation sur en.wikipedia.org
- Utilisation sur es.wikipedia.org
- Utilisation sur lv.wikipedia.org
- Utilisation sur zh.wikipedia.org
Métadonnées
Ce fichier contient des informations supplémentaires, probablement ajoutées par l'appareil photo numérique ou le numériseur utilisé pour le créer.
Si le fichier a été modifié depuis son état original, certains détails peuvent ne pas refléter entièrement l'image modifiée.
Commentaire de fichier GIF | Created with the Wolfram Language : www.wolfram.com |
---|
Ce document provient de « https://fr.wikipedia.org/wiki/Fichier:Microcavity_dynamics.gif ».