Attēls:Microcavity dynamics.gif
Lapas saturs netiek atbalstīts citās valodās.
Vikipēdijas lapa
Microcavity_dynamics.gif (360 × 223 pikseļi, faila izmērs: 1,29 MB, MIME tips: image/gif, looped, 215 kadri)
Šis fails ir no Vikikrātuves. Tā apraksts no attēla lapas Vikikrātuvē ir parādīts zemāk. Vikikrātuve ir brīvi licencēta failu krātuve. Tu vari tai palīdzēt. |
Kopsavilkums
AprakstsMicrocavity 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. |
Datums | |
Avots | https://twitter.com/j_bertolotti/status/1075341329817853952 |
Autors | Jacopo Bertolotti |
Atļauja: (Šī faila izmantošana citur) |
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]
Licence
Es, šī darba autortiesību īpašnieks, publicēju to saskaņā ar šo licenci:
This file is made available under the Creative Commons CC0 1.0 Universal Public Domain Dedication. | |
The person who associated a work with this deed has dedicated the work to the public domain by waiving all of their rights to the work worldwide under copyright law, including all related and neighboring rights, to the extent allowed by law. You can copy, modify, distribute and perform the work, even for commercial purposes, all without asking permission.
http://creativecommons.org/publicdomain/zero/1.0/deed.enCC0Creative Commons Zero, Public Domain Dedicationfalsefalse |
This file, which was originally posted to
https://twitter.com/j_bertolotti/status/1030470604418428929, was reviewed on 21 December 2018 by reviewer Ronhjones, who confirmed that it was available there under the stated license on that date.
|
Šajā failā attēlotais
attēlo
Šai īpašībai ir vērtība, bet tā ir nezināma
19 decembris 2018
Faila hronoloģija
Uzklikšķini uz datums/laiks kolonnā esošās saites, lai apskatītos, kā šis fails izskatījās tad.
Datums/Laiks | Attēls | Izmēri | Dalībnieks | Komentārs | |
---|---|---|---|---|---|
tagadējais | 2018. gada 20. decembris, plkst. 16.59 | 360 × 223 (1,29 MB) | Berto | User created page with UploadWizard |
Faila lietojums
Šo failu izmanto šajā 1 lapā:
Globālais faila lietojums
Šīs Vikipēdijas izmanto šo failu:
- Izmantojums en.wikipedia.org
- Izmantojums es.wikipedia.org
- Izmantojums fr.wikipedia.org
- Izmantojums zh.wikipedia.org
Metadati
Šis fails satur papildu informāciju, kuru, visticamāk, ir pievienojis digitālais fotoaparāts vai skeneris, ar ko veidots fails. Ja šis fails pēc tam ir ticis modificēts, šie dati var neatbilst izmaiņām (var būt novecojuši).
GIF faila komentārs | Created with the Wolfram Language : www.wolfram.com |
---|
Saturs iegūts no "https://lv.wikipedia.org/wiki/Attēls:Microcavity_dynamics.gif"