Gedämpfte Schwingung 3D Feder Mathematica |
17.06.2010, 22:11 | TeQu!l4 | Auf diesen Beitrag antworten » |
Gedämpfte Schwingung 3D Feder Mathematica Hey ich soll in dem Programm Wolfram Mathematica eine gedämpfte Schwingung und eine dazu passende Feder in 3D Zeichnen Mein Lehrer meinte ich solle an die Gyration denken Außerdem sollte ein Punkt die Funktion "abfahren" und die feder sich passend verformen! Leider hab ich noch nie etwas mit 3D Plots gemacht und bin deswegen etwas hilflos. Meine Ideen: Gedämpfte Schwingung: ber = 10 e = 2.718281828459 Manipulate[ Plot[{Cos[2*\[Pi]*f * t] * yo * e^(-k * t), yo * e^(-k * t)}, {t, 0, 1.5 ber}, PlotRange -> 20 ber, PlotStyle -> {Blue, Thickness[0.005]} ], {f, 1, 5} , {yo, 1, 15 ber}, {k, 0.01, 1}] 3d PLot: ParametricPlot3D[{Sin[u], Cos[u], u/10}, {u, 0, 20}] irgendwie sowas. |
|
Verwandte Themen
Die Beliebtesten » |
Die Größten » |
|
Die Neuesten » |
|