Fil:Birifrangence k-surface.gif
Ingen høyere oppløsning tilgjengelig.
Birifrangence_k-surface.gif (360 × 368 piksler, filstørrelse: 1,19 MB, MIME-type: image/gif, gjentas, 64 rammer)
|
Denne filen er fra Wikimedia Commons og kan brukes av andre prosjekter. Informasjonen fra filbeskrivelsessiden vises nedenfor. |
Beskrivelse
| Beskrivelse |
English: In a birefringent crystal, at each frequency and direction correspond two possible values of the wavenumber, as the surface of allowed k-vectors has two sheets.
For some special directions these two values are degenerate (optic axes). |
| Dato | |
| Kilde | https://twitter.com/j_bertolotti/status/1194199575562739712 |
| Opphavsperson | Jacopo Bertolotti |
| Tillatelse (Gjenbruk av denne filen) |
https://twitter.com/j_bertolotti/status/1030470604418428929 |
Mathematica 11.0 code
f = \[Omega]^2 c^2 e1 e2 e3 (\[Omega]^4 c^4 - \[Omega]^2 c^2 ((kx^2 + ky^2)/e3 + (kx^2 + kz^2)/e2 + (ky^2 + kz^2) e1) + (kx^2/(e2 e3) + ky^2/(e1 e3) + kz^2/(e1 e2)) (kx^2 +
ky^2 + kz^2)) /. {c -> 1, e1 -> 1, e2 -> 2, e3 -> 3, \[Omega] -> 1};
p1 = Table[
Show[
ContourPlot3D[{f == 0}, {kx, -2, 2}, {ky, -2, 2}, {kz, -2, 2}, ContourStyle -> Directive[Opacity[0.5], Orange], AxesLabel -> {"\!\(\*SubscriptBox[\(k\), \(x\)]\)", "\!\(\*SubscriptBox[\(k\), \(y\)]\)",
"\!\(\*SubscriptBox[\(k\), \(z\)]\)"}, Mesh -> None, Ticks -> None, LabelStyle -> {Bold, Black}, RegionFunction -> Function[{kx, ky, kz}, kx < a], BoxRatios -> {1, 1, 1}]
,
Graphics3D[{Black, Thick, Line[{2*{-1.24, 0, -0.68}, 2*{1.24, 0, 0.68}}], Line[{2*{-1.24, 0, 0.68}, 2*{1.24, 0, -0.68}}]}]
]
, {a, 1.8, 1.24, -0.05}];
p2 = Show[
ContourPlot3D[{f == 0}, {kx, -2, 2}, {ky, -2, 2}, {kz, -2, 2}, ContourStyle -> Directive[Opacity[0.5], Orange], AxesLabel -> {"\!\(\*SubscriptBox[\(k\), \(x\)]\)", "\!\(\*SubscriptBox[\(k\), \(y\)]\)",
"\!\(\*SubscriptBox[\(k\), \(z\)]\)"}, Mesh -> None, Ticks -> None, LabelStyle -> {Bold, Black}, RegionFunction -> Function[{kx, ky, kz}, kx < 1.24], BoxRatios -> {1, 1, 1}]
,
Graphics3D[{Black, Thick, Line[{2*{-1.24, 0, -0.68}, 2*{1.24, 0, 0.68}}], Line[{2*{-1.24, 0, 0.68}, 2*{1.24, 0, -0.68}}]}]
];
p3 = Table[
Show[
ContourPlot3D[{f == 0}, {kx, -2, 2}, {ky, -2, 2}, {kz, -2, 2}, ContourStyle -> Directive[Opacity[0.5], Orange], AxesLabel -> {"\!\(\*SubscriptBox[\(k\), \(x\)]\)", "\!\(\*SubscriptBox[\(k\), \(y\)]\)",
"\!\(\*SubscriptBox[\(k\), \(z\)]\)"}, Mesh -> None, Ticks -> None, LabelStyle -> {Bold, Black}, RegionFunction -> Function[{kx, ky, kz}, kx < a], BoxRatios -> {1, 1, 1}]
,
Graphics3D[{Black, Thick, Line[{2*{-1.24, 0, -0.68}, 2*{1.24, 0, 0.68}}], Line[{2*{-1.24, 0, 0.68}, 2*{1.24, 0, -0.68}}]}]
]
, {a, 1.24, 0.5, -0.05}];
ListAnimate[
Join[p1, Table[p2, 5], p3, Reverse[p3], Table[p2, 5], Reverse[p1] ] ]
Lisensiering
Jeg, rettighetsinnehaver av dette arbeidet, publiserer det herved under følgende lisens:
 
|
Denne filen er gjort tilgjengelig under lisensen Creative Commons CC0 1.0 Universal Fristatus-erklæring. |
| Personen som koblet et verk med dette dokumentet har tilegnet arbeidet til allmennheten ved, i den utstrekning loven tillater det, å avstå fra alle de rettigheter vedkommende skulle hatt ifølge opphavsrettsloven og andre relaterte eller nærliggende juridiske rettigheter. Verk under CC0 krever ikke attributtering. Ved bruk av verket trenger du ikke å få godkjennelse fra opphavspersonen.
|
Filhistorikk
Klikk på et tidspunkt for å vise filen slik den var på det tidspunktet.
| Dato/klokkeslett | Miniatyrbilde | Dimensjoner | Bruker | Kommentar | |
|---|---|---|---|---|---|
| nåværende | 14. nov. 2019 kl. 12:20 | | 360 × 368 (1,19 MB) | Berto | User created page with UploadWizard |
Filbruk
Den følgende siden bruker denne filen:
Global filbruk
Følgende andre wikier bruker denne filen:
- Bruk i en.wikipedia.org
