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