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

From testwiki
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)

This file is from Wikimedia Commons and may be used by other projects. The description on its file description page there is shown below.

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

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}
  ]

Captions

Add a one-line explanation of what this file represents

Items portrayed in this file

depicts

inception

13 June 2007

File history

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

Date/TimeThumbnailDimensionsUserComment
current01:45, 14 June 2007Thumbnail for version as of 01:45, 14 June 2007600 × 370 (222 KB)wikimediacommons>Inductiveload
Retrieved from "https://en-labs.wikimedia.beta.math.wmflabs.org/wiki/File:Two_Slit_Interference,_800nm_wl,_0.1mm_d,_Central_Maximum.gif"