DMUG-Archiv 2007

Frühere   Chronologischer Index   Spätere
Vorherige   Thematischer Index   Nächste

Re: Animation mit Mma 6

Hallo,

und mir ist es nicht recht gelungen, heraus zufinden was mit  dieser Frage
wohl gemeint ist, denn

deqn = {-x[t] + x[t]^3 + Derivative[1][y][t] ==
      gamma*Cos[Omega*t] - epsilon*y[t], Derivative[1][x][t] == y[t]};
param = {epsilon -> 0.25, gamma -> 0.3, Omega -> 1.0};
initial = {x[0] == 0, y[0] == -0.8};

traj = NDSolve[
    Join[deqn, initial] /.
       param,
    {x[t], y[t]},
    {t, 0, 20*Pi}
   ];

pos = {x[t], y[t]} /. traj[[1]];
vel = D[#, t] & /@ pos;

Animate[
ParametricPlot[
 {x[t], y[t]} /. traj, {t, 0, te},
 Epilog ->
  Dynamic[({Point[pos ], Arrow[{pos, pos + vel}]} /. t -> te)],
 PlotRange -> {{-Pi, Pi}, {-2, 2}}, PlotPoints -> 100],
{te, 0, 20 Pi}]

funktioniert problemlos. Allerdings ist meine Kristall-Kugel seit
Wochen in der Reparatur, so das ich nicht ahnen kann
was  die Kombination von "Plots als auch graphische Primitiven"
wohl sonst sein könnte.

Gruss
 Jens

heinrich@XXXXXXX.de wrote:
Liebe Mma-Anwender,
es will mir mit der Version 6 nicht gelingen, in einer Animation sowohl Plots
als auch graphische Primitiven zusammen zu zeigen, was bisher kein Problem war
- weiß jemand, wie das geht?
Viele Grüße
Elkedagmar Heinrich






Verweise:
Frühere   Chronologischer Index   Spätere
Vorherige   Thematischer Index   Nächste

DMUG DMUG-Archiv, http://www.mathematica.ch/archiv.html