Initialisierung

nm=(10^(-9));μm=(10^(-6));

ShowCodeButton:=DynamicModule[{mode=1(*show*)},SelectionMove[EvaluationNotebook[],All,EvaluationCell];
SetOptions[NotebookSelection[EvaluationNotebook[]],CellOpen->False];
Button[Dynamic[If[mode==1,"Show code","Hide code"]],If[mode==1,SelectionMove[EvaluationNotebook[],All,EvaluationCell];
SelectionMove[EvaluationNotebook[],Previous,Cell];SetOptions[NotebookSelection[EvaluationNotebook[]],CellOpen->True];
mode=2,
(*else*)
SelectionMove[EvaluationNotebook[],All,EvaluationCell];
SelectionMove[EvaluationNotebook[],Previous,Cell];SetOptions[NotebookSelection[EvaluationNotebook[]],CellOpen->False];
mode=1
]
]
]

Berechnung der Intensitaetsverteilung hinter einem Spalt oder einem Doppelspalt

Beugung am Spalt

Sinus des Beugungswinkesl.

sinα:=(y/(Sqrt[(l^2)+(y^2)]));

α : Beugungswinkel zur Strahlachse
y : Koordinate auf Schirm
l : Abtsand Spalt zu Schirm

Argument der Spaltfunktion

x[λ_,d_,y_,l_]:=((π d)/(λ ))sinα;

d: Breite des Spalts
λ: Wellenlaenge des Lichts

Auf dem Schirm gemessene Intensitaet in Abhaengigkeit von der Koordinate y.

Intensity[λ_,d_,y_,l_]= (((((Sin[x[λ,d,y,l]])/(x[λ,d,y,l]))))^2);

ShowCodeButton
(* Plot intensity as function of screen position *)
Manipulate[
Plot[Intensity[λ nm,d μm,y,l],{y,-0.2,0.2},
PlotStyle->{Thickness->0.002,Blue},
Filling->Axis,
FillingStyle->Directive[Blue,Opacity[0.2]],
PlotRange->All,
Axes->None,
ImageSize->750,
Frame->True,FrameStyle->Directive[Black,20],
FrameLabel->{"y [m]","I/I0","",""}],
{{l,1,"Abstand, l [m]"},0.1,10,ControlType->Slider, Appearance->"Labeled"},
{{d,10,"Spaltbreite, d [μm]"},1,100,ControlType->Slider,Appearance->"Labeled"},
{{λ,600,"Wellenlange, λ [nm]"},400,800,ControlType->Slider,Appearance->"Labeled"},
LabelStyle->{Black,Italic,Large},SaveDefinitions->True]

Interferenz am Doppelspalt

Argument der Doppelspaltfunktion

z:=((π dp)/λ)sinα;

dp: Abstand der beiden Spalte

IntensityDS[λ_,d_,y_,l_,dp_]= (((((Sin[x[λ,d,y,l]])/(x[λ,d,y,l]))))^2)(((Cos[z]))^2);

ShowCodeButton
Manipulate[

Plot[IntensityDS[λ nm,d μm,y,l,dp μm],{y,-0.2,0.2},PlotStyle->{Thickness->0.002,Red},
PlotRange->All,
PlotPoints->100,
Filling->Axis,
FillingStyle->Directive[Red,Opacity[0.2]],
Axes->None,
ImageSize->750,
Frame->True,FrameStyle->Directive[Black,20],
FrameLabel->{"y [m]","I/I0","",""}],
{{l,1,"Abstand, l [m]"},0.1,10,ControlType->Slider,Appearance->"Labeled"},
{{d,5,"Spaltbreite, d [μm]"},1,10,ControlType->Slider,Appearance->"Labeled"},
{{λ,600,"Wellenlaenge, λ [nm]"},400,1000,ControlType->Slider,Appearance->"Labeled"},
{{dp,55,"Spaltabstand, d' [μm]"},10,100,ControlType->Slider,Appearance->"Labeled"},
LabelStyle->{Black,Italic,Large},SaveDefinitions->True]