Wave-Particle Duality in the Double-Slit Experiment

g1[d_]:=Graphics3D[{Gray,Specularity[Gray,10],Cylinder[{{0,0,0},{2,0,0}},.5],Black,Polygon[{{5,-1.5,-.75},{5,1.5,-.75},{5,1.5,.75},{5,-1.5,.75},{5,-1.5,-.75}}],Line[{{10,-3,-1.5},{10,3,-1.5},{10,3,1.5},{10,-3,1.5},{10,-3,-1.5}}],Thick,White,Line[{{5,-d/2,-.65},{5,-d/2,.65}}],Line[{{5,d/2,-.65},{5,d/2,.65}}]},Boxed->False,ViewPoint->{-5,-2.5,2.5}]

f[d_,λ_,ξ_]:=(((((Sin[ ((150π ξ)/λ)])/( ((150π ξ)/λ)))))^2)((Cos[((300π d)/λ)  ξ])^2)

g2[d_,λ_,n_]:=Graphics3D[{ColorData["VisibleSpectrum"][λ],Point[{10,Re[#]Boole[f[d,λ,Re[#]]≥Im[#]],(((3Im[#])/(f[d,λ,Re[#]]))-1.5)Boole[f[d,λ,Re[#]]≥Im[#]]}&/@RandomComplex[{-3,3+I},n]],White,Point[{10,0,0}]}]

Manipulate[
Show[g1[d],Refresh[g2[d,λ,n],UpdateInterval->2],ImageSize->{450,400}],{{d,1,"slit separation"},0,2,Appearance->"Labeled"},
{{λ,550,"wavelength of light/nm"},400,700,Appearance->"Labeled"},{{n,500,"photons/pulse"},0,3500,1,Appearance->"Labeled"},SaveDefinitions->True,TrackedSymbols->{d,λ,n}]

THIS NOTEBOOK IS THE SOURCE CODE FROM

"Wave-Particle Duality in the Double-Slit Experiment" from The Wolfram Demonstrations Project
 http://demonstrations.wolfram.com/WaveParticleDualityInTheDoubleSlitExperiment/

Contributed by: S. M. Blinder

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 »