Hallo,
wie wär's mit
ClearAll[TestPlot];
TestPlot[pos_] := Module[{}, Print["Position=", pos];
sinplot =
Plot[Sin[\[Alpha]], {\[Alpha], -2 \[Pi], 2 \[Pi]},
DisplayFunction -> Identity];
cosplot =
Plot[Cos[\[Alpha]], {\[Alpha], -2 \[Pi], 2 \[Pi]},
DisplayFunction -> Identity];
Print[Show[sinplot, cosplot,
DisplayFunction -> $DisplayFunction]]];
am Anfang des sehr übersichtlichen Dokuments ?
Gruss
Jens
klamser wrote:
Hallo,
in dem anliegenden Notebook werden unter MMA >5.2 keine Grafiken
dargestellt.
Um das zu demonstrien habe ich in die Datei das Modul TestPlot eingefügt.
Dann habe ich einige Testplot Anweisungen eingestreut.
Bis zur Position 2 geht alles bestens, dann gähnende Leere, wobei die
Printanweisungen ausgeführt werden.
Gruß,
Peter
|