Maple-Worksheet: Schwingungen und Wellen

Einführung in Maple Anwendungen

Home

Back

< >

Physik

Hinweise

Übersicht

Übungen

Anwendungen

Stichworte

Download

Überlagerung von Schwingungen und Wellen

>	restart; with (plots): Warning, the name changecoords has been redefined

Überlagerung zweier eindimensionaler Wellen:

y1:= x -> sin(x - 10*Pi*t):
y2:= x -> 3*sin(x - 4*Pi*t):

W1:= animate (y1(x), x = -2*Pi..2*Pi,
           t = 0..1,
           color = black,
           frames = 200):
W2:= animate (y2(x), x = -2*Pi..2*Pi,
           t = 0..1,
           color = black,
           frames = 200):
Wres:= animate (y1(x)+y2(x), x = -2*Pi..2*Pi,
           t = 0..1,
           color = red,
           frames = 200):

display ([W1, W2, Wres], axes = NONE);

Überlagerung zweier Wellen

Stehende Welle
durch Überlagerung zweier gegenläufiger Wellen gleicher Wellenlänge und gleicher Frequenz:

>
y1:= x -> sin(x - 2*Pi*t):
y2:= x -> sin(x + 2*Pi*t):

Wrechts:= animate (y1(x), x = -2*Pi..2*Pi,
           t = 0..1,
           color = black,
           frames = 150):
Wlinks:= animate (y2(x), x = -2*Pi..2*Pi,
           t = 0..1,
           color = black,
           frames = 150):
Wres:= animate (y1(x)+y2(x), x = -2*Pi..2*Pi,
           t = 0..1,
           color = red,
           frames = 150):

display ([Wrechts, Wlinks, Wres], axes = NONE);

stehende Welle

Schwebung
durch Überlagerung zweier Schwingungen mit wenig verschiedenen Frequenzen:

>
n1:= 50:
n2:= 54:
y1:= x -> sin(n1*x):
y2:= x -> sin(n2*x):
plot (y1(x)+y2(x), x = -Pi..Pi, color = red, axes = NONE);

Schwebung

Schwingungen im Raum

>
animate3d (cos(t*x)*(6-abs(t))*y,
           x = -Pi/2..Pi/2,
           y = -1..1,
           t = -6..6,
           frames = 200);

frame 177

Dreieckschwingung durch Fourier-Synthese:

>
omega:= .8;
n:= 6;
f:= x -> Sum ((-1)^(i+1)*sin((2*i-1)*omega*x)/(2*i-1)^2, i = 1..n);
plot (f(x), x = 0..12*Pi,
           color = red,
           numpoints = 1000,
           tickmarks=[0,0]);

Dreieckschwingung

Home

Back

Top