File:Two Slit Interference, 800nm wl, 0.1mm d, Central Maximum.gif

From Wikimedia Commons, the free media repository
Jump to navigation Jump to search

Two_Slit_Interference,_800nm_wl,_0.1mm_d,_Central_Maximum.gif (600 × 370 pixels, file size: 222 KB, MIME type: image/gif, looped, 20 frames, 10 s)

Captions

Captions

Add a one-line explanation of what this file represents
Description

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: 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
Date
Source

Own work

 
This diagram was created with Mathematica.
Author Inductiveload
Permission
(Reusing this file)
Public domain I, the copyright holder of this work, release this work into the public domain. This applies worldwide.
In some countries this may not be legally possible; if so:
I grant anyone the right to use this work for any purpose, without any conditions, unless such conditions are required by law.

Mathematica Code

[edit]
Table[
  graph = Plot[x = xmm/1000;
      t = n τ/20;
      Sin[k Sqrt[l^2 + (x + d/2)^2] - ω t] +
        Sin[k Sqrt[l^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 = PaddedForm[N[n/20], {3, 2}];
  timestr = Graphics[Text["t=
        " <> ToString[time] <> "τ", {12, 1.5}, {-1, 0}, TextStyle -> \
{FontSize -> 14}]];
  c1 = Show[Show[graph], timestr, DisplayFunction -> $DisplayFunction];
  num = StringJoin[Map[ToString[#] &, IntegerDigits[n, 10, 2]]]; (*Gives a 
      number string of width 2 for easier ordering*)
  name = "Two Slit Interference - Central Maximum " <> num <> ".gif";
  Export[name, c1],
  {n, 0, 19, 1}
  ]

File history

Click on a date/time to view the file as it appeared at that time.

Date/TimeThumbnailDimensionsUserComment
current00:45, 14 June 2007Thumbnail for version as of 00:45, 14 June 2007600 × 370 (222 KB)Inductiveload (talk | contribs)
00:05, 14 June 2007Thumbnail for version as of 00:05, 14 June 2007600 × 370 (235 KB)Inductiveload (talk | contribs){{Information |Description=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

You cannot overwrite this file.

The following page uses this file:

File usage on other wikis

The following other wikis use this file:

Retrieved from "https://commons.wikimedia.org/w/index.php?title=File:Two_Slit_Interference,_800nm_wl,_0.1mm_d,_Central_Maximum.gif&oldid=480676961"