Re: Animation

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

also lieber jens,

habe mir die muehe gemacht dein notebook zu laden und mit evaluate notebook
auszufuehren doch ....

... leider keine animation ...

hingegen klappt der folgende code bestens:

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: Robert Nowak <robert.nowak@XXXXXXX.at>
Cc: Deutsche Mathematica News Group <dmug@XXXXXXX.ch>
Sent: Friday, December 15, 2000 11:48 AM
Subject: Re: Animation

[[Kopie der Meldung (mit dem großen Notebook) unterdrückt -- REM]]