Re: Animationen mit Mathematica

[Rolf Mertig <rolf@XXXXXXX.com>]

Hallo,
eine Möglichkeit ist folgende:

t = Block[{$DisplayFunction = Identity}, 
Table[Plot[Sin[x - n*2*(Pi/16)], {x, 0, 2*Pi}, Axes -> False], {n, 0, 15,1}]]; 
ps = Cell[CellGroupData[(Cell[GraphicsData["PostScript", DisplayString[#1]], 
"Graphics"] & ) /@ t, Closed]]; 
NotebookWrite[SelectedNotebook[], ps, After]; 
SelectionMove[SelectedNotebook[], Previous, CellGroup]; 
SelectionAnimate[SelectedNotebook[], AnimationDisplayTime -> 0.1]; 

Rolf Mertig

Mertig Consulting
http://www.mertig.com

On Friday 14 February 2003 12:27, Ralf Steenhoff wrote:
> Hallo
>
> Ich versuche zur Zeit eine Animation mit Mathematica zu erstellen. Ich bin
> mit dem derzeitigen Ergebnis auch schon recht zu frieden, allerdings stört
> mich, dass die Grafiken, die später zu einer Animation zusammengefasst
> werden, alle angezeigt werden. Mit untenstehenden Befehlen habe ich es zwar
> geschafft, dass die Zellgruppe mit den ausgegebenen Einzelgrafiken
> geschlossen wird, nachdem alle Bilder berechnet wurden, aber ganz
> zufriedenstellend finde ich das Ergebnis trotzdem noch nicht. Gibt es
> vielleicht eine Möglichkeit, dass die Ausgabe der Einzelbilder komplett
> unterdrückt wird und beim evaluieren des Notebooks später ausschließlich
> die Animation zu sehen ist?
>
> Hier mein bisheriger Ansatz:
>
> Table[Plot[Sin[x-n 2Pi/16],{x,0,2Pi},Axes->False],{n,0,15,1}];
> SelectionMove[SelectedNotebook[],Previous,CellGroup];
> FrontEndTokenExecute["SelectionCloseAllGroups"];
> SelectionAnimate[SelectedNotebook[],AnimationDisplayTime->.1];