> 1. Wie kann ich in eine animierte Grafik per Animate[plot, {t, tmin,
> tmax}] ein Textfeld integrieren, daß den aktuellen Parameter t oder
> einen Zählerwert ausgibt?
Am einfachsten geben Sie den gewünschten Text als PlotLabel im "plot"
Befehl, also zum Beispiel:
Animate[Plot[Sin[t x],{x,0,2Pi},PlotLabel->t,
PlotRange->{-1,1}], {t,0.,2}, Frames->12];
mittels geeigneter Formatierung, wie NumberForm[t,4] etc. können Sie
auch erreichen, daß die Dezimalpunkte in jedem Bild am gleichen Ort
sind; das braucht oft etwas Experimentieren.
> 2. Wie kann ich die animierten Grafiken als einzelne Dateien file_1.bmp,
> file_2.bmp, ... ,file_n.bmp automatisch mit jedem Animationszyklus
> speichern? Kann man überhaupt Grafiken als Bitmap- oder Tiff-File per
> Mathematica-Befehl und nicht über die Menu-Leiste speichern?
In Mathematica 3 können Sie mit Display["datei",-grafik-,"FORMAT"]
direkt Dateien erzeugen, als Formate gibt es unter anderem EPS,
GIF, TIFF. Durch Ändern der DisplayFunction können Sie dann die Dateien
gleich beim Erzeugen der Bilder schreiben:
Do[t=2.0i/11;
Plot[Sin[t x],{x,0,2Pi},PlotLabel->NumberForm[t,4],PlotRange->{-1,1},
DisplayFunction->(Display["bild"<>ToString[i]<>".gif",#,"GIF"]&)],
{i,0, 11}]
In Mathematica 2, sofern Sie das Hilfsprogramm "rasterps" zur Verfügung
haben (gab es nicht in allen Versionen), können Sie etwas ähnliches machen:
Do[t=2.0i/11;
Plot[Sin[t x],{x,0,2Pi},PlotLabel->NumberForm[t,4],PlotRange->{-1,1},
DisplayFunction->(Display["!rasterps -format eps -file bild"<>
ToString[i]<>".eps",#]&)],
{i,0, 11}]
(rasterps scheint GIF nicht zu unterstützen; verwenden Sie ein Grafik-Tool
zur Konversion eines der unterstützten Formate).
> 3. Gibt es vielleicht ein (externes) Tool, daß aus
> Mathematica-Animationen direkt Video-Files im avi-Format erzeugt?
Weiß ich leider nicht, aber wenn Sie die Bilder erst mal in GIF oder TIFF
haben, sollte es das ja wohl möglich sein.
mit freundlichen Grüßen,
Roman Mäder
-----------------------------------------------------------------------
MathConsult Dr. R. Mäder Aryanastrasse 21
Mathematik- und Informatik-Beratung CH-8704 Herrliberg
T: +41-1-991 6343 mailto:maeder@XXXXXXX.ch
F: +41-1-991 6345 http://www.mathconsult.ch
-----------------------------------------------------------------------
|