Re: Animation

[Jens-Peer Kuska <kuska@XXXXXXX.de>]

Hallo,

es wird ja nach der Eingabe eine CellGroupData[] erzeugt,
in der die einzelnen Bilder drin stehen.

Wenn man direkt nach der Ausgabe von ShowAnimation[]
die Zelle

NotebookFind[
  nb = SelectedNotebook[], "ShowAnimation"]; 
SelectionMove[nb, Next, CellGroup];
FrontEndExecute[FrontEndToken["SelectionCloseAllGroups"]]; 
NotebookFind[
  nb = SelectedNotebook[], "ShowAnimation", Previous]; 
SelectionMove[nb, Next, CellGroup];
SelectionAnimate[nb];

sollte es wohl klappen.

Gruss
  Jens

"B. Schnizer" wrote:
> 
> Liebe DMUG-ler !
> 
> Wir moechten eine Animation, z.B. eine laufende Welle, z.B.
> 
> In[1]:=
> << Graphics`Animation`
> 
> In[2]:=
> Animate[Plot[Sin[x - n \[Pi]/6], {x, 0, 6 \[Pi]}, Axes -> False], {n, 1, 6,
>       1}]
> 
> Das gibt eine groesser Anzahl von Bildern. Markiert man den
> Outputteil der Zelle
> und gibt dann aus dem Menue den Befehl " Cell - Animate Selected Graphics ",
> dann beginnt eines der Bilder zu laufen.
> 
> Frage:
> Gibt es eine Moeglichkeit, nur ein Bild zu bekommen, das bei
> Animation zu laufen beginnt ?
> 
> Vielen Dank
> BS
> **************************************************************************
>   ao. Prof. Dr. B. Schnizer              Institut fuer Theoretische Physik
>   Tel: +43 (316) 873-8173, -8171 (Secr.) Technische Universitaet Graz
>   Fax: +43 (316) 873 8678                Petersgasse 16
>   e-mail: schnizer@XXXXXXX.at     A-8010 Graz
>   http://www.itp.tu-graz.ac.at/schnizer   Austria/Europe
> https://online.tu-graz.ac.at/tug_online/tgo_org.display?CORG=2382
> ***************************************************************************