1. Die Beschriftungen in einer Animation bekommt man dadurch hin, dass man zum einen die Sequenz selbst erzeugt (z.B.
Table[Grafik...,{t,tmin,tmax}] und zum anderen den aktuellen Wert des Parameters t in einen String einbaut, also z.B.
mit PlotLabel->"Parameter t = "<>ToString[t]<>... oder eine Textprimitive Text[...].
2. Grafiken automatisch waehrend der Generierung rausschreiben geht am einfachsten mit setzen der DisplayFunction z.B.
file=InputString["Wie soll die Sequenz heissen ? "]
ausgabe = "!rasterps -format "<>#2<>" -h "<>#3<>" -w "<>#4<>">"<>file<>"."ToString[#1]<>"."<>#2&
j=Input["Erste Nummer der Folge ?"]
Table[Plot[Sin[2 Pi x t],{x,0,1},DisplayFunction->(Display[ausgabe[j++,"ppm","300","400"],PlotLabel->ToString[t]<>"
Hz"],{t,1,10}]
usw.
Rasterps muss natuerlich im Pfad stehen. In 3.0 gibt man die Grafiken mit Display[] aus, da man jetzt aus mehreren
Ausgabeformaten waehlen kann. In 2.2.4 ist Display auf die Ausgabe von Mathematica-ps eingeschraenkt.
3. Diese oben erzeugte ppm-Sequenz kann nun mit mpeg_encode(ueber www beziehen) in ein mpeg-File umgewandelt werden und
dann mit mpeg_play auch ohne Mathematica angesehen werden.
Ein Beispliel finden Sie unter
www.hu-berlin.de/inside/mstat/grafik/schreibeFortran.html
im den letzten Punkten Animation der Daten und Herstellen einer -.ppm Sequenz.
Mit freundlichen Gruessen
Hans-Joachim Spitzer
HU/RZ
|