Re: Animation

["Robert Nowak" <robert.nowak@XXXXXXX.at>]

aslo irgend etwas hat da nicht ganz geklappt !!??
aber weils so schoen ist ...

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];

---
Robert Nowak (robert.nowak@XXXXXXX.at)
Ionen Mikrofabrikations Systeme GmbH
A-1020 Wien, Schreygasse 3, Austria
Phone: (+43 1)2144894-32, Fax: (+43 1)2144894-99

----- Original Message -----
From: Jens-Peer Kuska <kuska@XXXXXXX.de>
To: B. Schnizer <schnizer@XXXXXXX.at>
Cc: Deutsche Mathematica News Group <dmug@XXXXXXX.ch>
Sent: Thursday, December 14, 2000 11:30 PM
Subject: Re: Animation


> 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
> >
***************************************************************************
>