MAKE A MEME
View Large Image
| View Original: | Two Slit Interference, 800nm wl, 0.1mm d, Central Maximum.gif (600x370) | |||
| Download: | Original | Medium | Small | Thumb |
| Courtesy of: | commons.wikimedia.org | More Like This | ||
| Keywords: Two Slit Interference, 800nm wl, 0.1mm d, Central Maximum.gif Animation of the wave pattern at the cnetral maximum of a two slit excperiement The wavelength is 800nm and the slit separation is 0 1mm and the screen is 5m away The equation is <math>u x y t \sin \left k \sqrt \left x-\frac d 2 \right 2 + L 2 + \omega t \right + \sin \left k \sqrt \left x+\frac d 2 \right 2 + L 2 + \omega t \right </math> where d is the slit separations k is the wavenumber 2Ï /λ x is the distance from the origin on the line containing the slits L is the distance to the screen Own Mathematica 2007-06-13 Inductiveload Mathematica Code <pre> Table graph Plotx xmm/1000; t n Ï„/20; Sink Sqrtl 2 + x + d/2 2 - ω t + Sink Sqrtl 2 + x - d/2 2 - ω t xmm -20 20 ImageSize -> 600 FrameLabel -> x/mm u x t None None PlotPoints -> 1000 Frame -> True PlotRange -> -2 2 DisplayFunction -> Identity; time PaddedFormNn/20 3 2 ; timestr GraphicsText t <> ToStringtime <> Ï„ 12 1 5 -1 0 TextStyle -> \ FontSize -> 14 ; c1 ShowShowgraph timestr DisplayFunction -> DisplayFunction; num StringJoinMapToString IntegerDigitsn 10 2; Gives a number string of width 2 for easier ordering name Two Slit Interference - Central Maximum <> num <> gif ; Exportname c1 n 0 19 1 </pre> Double-slit experiments Animated GIF | ||||
