Hallo,
ich kann mein notebook schicken.
Eigenlich sollte man das in eine Palette verpacken. Wenn
es im selben notebook steht dann findet
der zweite Aufruf
NotebookFind[
nb = SelectedNotebook[], "ShowAnimation"];
SelectionMove[nb, Next, CellGroup];
FrontEndExecute[FrontEndToken["SelectionCloseAllGroups"]];
(* der hier *)
NotebookFind[
nb = SelectedNotebook[], "ShowAnimation", Previous];
SelectionMove[nb, Next, CellGroup];
SelectionAnimate[nb];
das "ShowAnimation" aus dem ersten NotebookFind[] Aufruf.
Zu allem "Uberfluss geht die Selection verloren, da
das FrontEnd scheinbar wieder auf die "aktive" Zelle springt.
Deshalb sucht das zweite NotebookFind[] auch den Vorhergehenden.
Wenn man alles in eine Zelle schreibt ist die aktive Zelle ohnehin
die nach der Ausgabe der Animation.
Das macht ja die FrontEnd Programmierung so spannend. Besonders
weil das FrontEnd keine Mathematica-Expression des Notebooks
verwaltet un man daher nicht das ganze mit einem netten Pattern
erledigen kann.
Gruss
Jens
Robert Nowak wrote:
>
> 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];
FECloseAnimation.nb
Description: Mathematica Notebook document
