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

Beugung am Spalt

Beugungswinkel

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

Argument

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

Intensitaet

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

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

Interferenz am Doppelspalt

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

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

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