westphal@XXXXXXX.de said:
> Beide Teilwellen sollen 2dimensional, aber im dreidimensionalen Raum
> zu betrachten sein. Desweiteren sollen die Flaechen unter der Welle
> ausgefuellt sein (wie z.B. mit "FilledPlot").
Das Problem ist hinreichend kompliziert, dass es wohl am besten ist,
die Grafik mittels der Polygon-Primitive selber zusammenzusetzen.
Hier mal eine Welle, die sich in Richtung rtg ausbreitet, mit Amplituden-
vektor ampl, gezeichnet von t0 bis t1 in Schritten von dt:
Welle[ampl_, rtg_List, {t_, t0_, t1_, dt_}] :=
With[{at=Function[t, ampl], rt=Function[t, t rtg]},
Table[Polygon[{rt[t], rt[t] + at[t], rt[t+dt] + at[t+dt], rt[t+dt]}],
{t, t0, t1-dt, dt}]
]
Die eine Welle hat Amplitude x Sin[w t], wobei x der Einheitsvektor in
X-Richtung ist. Die zweite Welle ist y Sin[w t + phi], mit einer
allfälligen Phase phi. Die zwei kann man dann zu einem Bild zusammensetzen:
x = {1,0,0}
y = {0,1,0}
z = {0,0,1}
w=1
e = Welle[x Sin[w t], z, {t, 0., 2Pi, 2Pi/18}];
b = Welle[y Sin[w t+Pi/2], z, {t, 0., 2Pi, 2Pi/18}];
Show[Graphics3D[{e,b}]];
Das sieht dann so aus, wie in der angefügten GIF-Grafik und
gibt Ihnen mal den Anfang; Jetzt müssen Sie "nur" noch die Details,
Farben, Beschriftungen, Achsen, etc. einsetzen.
Roman Mäder
-----------------------------------------------------------------------
MathConsult Dr. R. Mäder Samstagernstrasse 58a
Mathematik- und Informatik-Beratung CH-8832 Wollerau
T: +41-1-687 4050 mailto:maeder@XXXXXXX.ch
F: +41-1-687 4054 http://www.mathconsult.ch/
-----------------------------------------------------------------------
|