ไฟล์:Polarization change in uniaxial crystal.gif
ไปยังการนำทาง
ไปยังการค้นหา
ไม่มีความละเอียดสูงกว่านี้
Polarization_change_in_uniaxial_crystal.gif (360 × 244 พิกเซล, ขนาดไฟล์: 339 กิโลไบต์, ชนิดไมม์: image/gif, วนซ้ำ, 31 เฟรม)
ความย่อ
| คำอธิบาย |
English: A wave in a uniaxial crystal will separate in two components, one parallel and one perpendicular to the optic axis, that will accumulating phase at different rates. This can be used to manipulate the polarization state of the wave. |
| วันที่ | |
| แหล่งที่มา | https://twitter.com/j_bertolotti/status/1198606136586444801 |
| ผู้สร้างสรรค์ | Jacopo Bertolotti |
| การอนุญาต (การใช้ไฟล์นี้ใหม่) |
https://twitter.com/j_bertolotti/status/1030470604418428929 |
| GIF genesis |
Mathematica 11.0 code
\[Theta] = \[Pi]/4;
\[Epsilon]r = FullSimplify@RotationMatrix[\[Theta], {1, 0, 0}].DiagonalMatrix[{\[Epsilon]1, \[Epsilon]1, \[Epsilon]2}].RotationMatrix[-\[Theta], {1, 0, 0}];
eq = Table[
(D[{Ex[x], Ey[x], Ez[x]}, {x, 2}])[[j]] == -(\[Epsilon]r.{Ex[x], Ey[x], Ez[x]})[[j]], {j, 1, 3, 1}];
sol = FullSimplify[DSolveValue[Flatten[{eq, Ex[0] == 0, Ex'[0] == 0, Ey[0] == 0, Ey'[0] == 0, Ez[0] == 1, Ez'[0] == 0}], {Ex[x], Ey[x], Ez[x]}, x] ];
p1 = Table[ Show[
Graphics3D[{Lighting -> "Neutral", Gray, Opacity[0.3], Cuboid[{0, -1, -1}, {62.8, 1, 1}], Opacity[1], Thick, Black, Arrowheads[0.002], Arrow[{{0, -1, -1}, {0, 1, 1}}]}]
,
ParametricPlot3D[Piecewise[{{{x, 0, Cos[x - \[Tau]]} /. {\[Epsilon]1 -> 1, \[Epsilon]2 -> 1.1}, x < 0}, {{x, sol2[[2]], sol2[[3]]} /. {\[Epsilon]1 -> 1, \[Epsilon]2 -> 1.1}, 0 < x < 62.8}, {{x, Cos[x - \[Tau]], 0} /. {\[Epsilon]1 -> 1, \[Epsilon]2 -> 1.1}, x > 62.8}}], {x, -20, 80}, BoxRatios -> {3, 1, 1}, PlotStyle -> {Orange}, PlotPoints -> 50]
, PlotRange -> {{-20, 80}, {-1, 1}, {-1, 1}}, BoxRatios -> {3, 1, 1}, Boxed -> False
]
, {\[Tau], 0, 2 \[Pi], (2 \[Pi])/30}];
ListAnimate[p1]
การอนุญาตใช้สิทธิ
ข้าพเจ้า ในฐานะผู้ถือลิขสิทธิ์ของภาพหรือสื่อนี้ อนุญาตให้ใช้ภาพหรือสื่อนี้ภายใต้เงื่อนไขต่อไปนี้
 
|
ไฟล์นี้มีให้ใช้ภายใต้ 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.
|
ประวัติไฟล์
คลิกวันที่/เวลาเพื่อดูไฟล์ที่ปรากฏในขณะนั้น
| วันที่/เวลา | รูปย่อ | ขนาด | ผู้ใช้ | ความเห็น | |
|---|---|---|---|---|---|
| ปัจจุบัน | 10:30, 25 พฤศจิกายน 2562 | | 360 × 244 (339 กิโลไบต์) | wikimediacommons>Berto | User created page with UploadWizard |
การใช้ไฟล์
1 หน้าต่อไปนี้ใช้ไฟล์นี้:
