Fájl:Bragg.gif
Bragg.gif (360 × 223 képpont, fájlméret: 2,34 MB, MIME-típus: image/gif, ismétlődik, 251 képkocka)
![]() |
Ez a fájl a Wikimedia Commonsból származik. Az alább látható leírás az ottani dokumentációjának másolata. A Commons projekt szabad licencű kép- és multimédiatár. Segíts te is az építésében! |
Összefoglaló
LeírásBragg.gif |
English: Transfer matrix simulation of a pulse reflecting from a Bragg mirror |
Dátum | |
Forrás | https://twitter.com/j_bertolotti/status/1073634107576463360 |
Szerző | Jacopo Bertolotti |
Engedély (Fájl újrafelhasználása) |
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 = 20; (*number of layers in the Bragg mirror*) s = Join[Table[1., 4*dim], Table[If[EvenQ[j], 1., 5.], {j, 1, dim}]] (*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) \[Sigma] /. {w0 -> 2.182 10^15, \[Sigma] -> (15 10^-6)/c}; nstep = 1500; \[Omega]min = 1. 10^15; \[Omega]max = 3. 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]; (*Fourier transform with respect of frequncy to get the time evolution*) p1 = Table[ ListPlot[Re@Reverse@fssm[[All, -j]], PlotRange -> {-10 10^-14, 10 10^-14}, Joined -> True, Axes -> False, PlotStyle -> {Thick, Orange}, Epilog -> {Dashed, Black, Thick, Line[{{4/5 dim*sexpand, -10 10^-14}, {4/5 dim*sexpand, 10 10^-14}}], Text[Style["Bragg\n mirror", Medium, Bold], {4.5/5 dim*sexpand, 9 10^-14}]} ], {j, -50, 200, 1}]; ListAnimate[p1, 10]
Licenc
![]() ![]() |
Ez a fájl a Creative Commons CC0 1.0 Universal Public Domain Dedication licenc alatt lett közzétéve. |
A műhöz tartozó személy ezzel a dokumentummal a munkáját köztulajdonná tette. A törvények alapján megengedhető mértékig lemondott minden őt megillető jogról a szerzői jog és az összes kapcsolódó vagy vonatkozó törvény alapján, ami a munka alapján neki járna az egész világon. A CC0 alatt kiadott művek szerzőjét nem kell megjelölni. A munka hivatkozásakor nem kell jóváhagyást kérni a szerzőtől.
http://creativecommons.org/publicdomain/zero/1.0/deed.enCC0Creative Commons Zero, Public Domain Dedicationfalsefalse |
![]() |
Ezt a fájlt, amit eredetileg a(z) https://twitter.com/j_bertolotti/status/1030470604418428929 oldalon tettek közzé, átnézte egy adminisztrátor vagy licencellenőrző, Ronhjones, és megerősítette, hogy az itt látható licenc alatt elérhető (dátum: 2018. december 15.).
|
Képaláírások
A fájl által ábrázolt elemek
mű tárgya
Valamilyen, Wikidata-elemmel nem rendelkező érték
14. december 2018
image/gif
4fa4d74f3f1cf85144f49454d6ab50ff2c03c8ff
2 449 186 byte
223 képpont
360 képpont
Fájltörténet
Kattints egy időpontra, hogy a fájl akkori állapotát láthasd.
Dátum/idő | Bélyegkép | Felbontás | Feltöltő | Megjegyzés | |
---|---|---|---|---|---|
aktuális | 2018. december 15., 14:44 | ![]() | 360 × 223 (2,34 MB) | Berto | User created page with UploadWizard |
Fájlhasználat
Az alábbi lapok használják ezt a fájlt:
Globális fájlhasználat
A következő wikik használják ezt a fájlt:
- Használata itt: ca.wikipedia.org
- Használata itt: en.wikipedia.org
Metaadatok
Ez a kép járulékos adatokat tartalmaz, amelyek feltehetően a kép létrehozásához használt digitális fényképezőgép vagy lapolvasó beállításairól adnak tájékoztatást. Ha a képet az eredetihez képest módosították, ezen adatok eltérhetnek a kép tényleges jellemzőitől.
GIF fájlmegjegyzés | Created with the Wolfram Language : www.wolfram.com |
---|