| | | Home | | | Back | | | < > | | |
Einführung in Maple |
| Hinweise |
| Übersicht |
| Übungen |
| Anwendungen |
| Stichworte |
| Download |
Lichtbeugung am Mehrfachspalt
> |
restart; with (plots): Warning, the name changecoords has been redefined |
N = Anzahl der Spalte im Mehrfachspalt:
b = Spaltbreite in m:
g = Abstand benachbarter Spalte in m :
λ = Wellenlänge des benutzten Lichtes in m:
Gangunterschied benachbarter Wellenzüge bei einem optischen Gitter:
> |
Delta[Gitter]:= g*sin(phi); |
![Delta[Gitter] := g*sin(phi)](images-beugung/beugung2.gif){kind=small}
Die zugehörige Phasendifferenz:
> |
delta[Gitter]:= 2*Pi*Delta[Gitter]/lambda; |
Normierte Intensitätsverteilung hinter dem Gitter:
> |
J[Gitter]:= (sin(N*delta[Gitter]/2)/(sin(delta[Gitter]/2)))^2; |
Normierte Intensitätsverteilung hinter einem Spalt:
> |
J[Spalt]:= sin(Pi*b*sin(phi)/lambda)^2/(Pi*b/N*sin(phi)/lambda)^2; |
Normierte Intensitätsverteilung hinter einem Mehrfachspalt:
> |
J[Mehrfachspalt]:= J[Spalt]*J[Gitter]; |
Intensitätsverteilung von Beugungsbildern auf einem 3m entfernt stehenden ebenen Schirm:
> |
J[MSp]:= subs (phi
= arctan (x/3), J[Mehrfachspalt]): J:= simplify (expand (J[MSp]), trig); J:= unapply (%, [N, b, g, lambda]); |
Zeichnen eines Beugungsbildes:
> |
xMax:= .5; # Parameterliste: N, b, g, lambda plot (J(5, 0.05E-3, 0.3E-3, 500E-9), x = -xMax..xMax, color = blue, thickness = 1, numpoints = 2000, axes = none); |
| | | Home | | | Back | | | Top | | |