Fraunhofer Diffraction at One Slit

Manipulate[
DensityPlot[(((Sin[((2π)/(hull (10^(-9))))(d/2)Sin[θ]])^2)/((((2π)/(hull (10^(-9))))(d/2)Sin[θ])^2)),{θ,-0.015,0.015},{c,-0.004,0.004},AspectRatio->Automatic,PlotPoints->50,
ColorFunction->GrayLevel,ImageSize->550],
{{hull,550,"wavelength (nm)"},380,700,Appearance->"Labeled"},
{{d,0.0004,"width of slit (m)"},0.0001,0.01,Appearance->"Labeled"}]

THIS NOTEBOOK IS THE SOURCE CODE FROM

"Fraunhofer Diffraction at One Slit" from The Wolfram Demonstrations Project
 http://demonstrations.wolfram.com/FraunhoferDiffractionAtOneSlit/

Contributed by: Gábor Angler

A full-function Wolfram Mathematica 6 system is required to edit this notebook.
GET WOLFRAM MATHEMATICA 6 »

© The Wolfram Demonstrations Project & Contributors   |   Terms of Use   |   Make a new version of this Demonstration »