Danke, löst aber das Problem nur in diesem Trivialfall. Wenn ich in
beiden Grafiken ganz unterschiedliche y-Werte habe, muss der
PlotRange für die y-Achsen individuell (oder Automatic) gesetzt
werden. Dann funktioniert es nicht mehr:
opts = {PlotRange -> {{0, 10}, Automatic}, Frame -> True};
GraphicsColumn[{ListPlot[Range[10], Sequence @@ opts, FrameLabel ->
{"", ""}],
ListPlot[Range[-1000, -990], Sequence @@ opts, FrameLabel ->
{"x", "y"}]}]
Gruss,
Martin
On May 25, 2007, at 11:59, Jens-Peer Kuska wrote:
Hallo,
die gab es schon immer, die Version 6.0 Variante
opts = {PlotRange -> {{0, 10}, {-10, 10}}, Frame -> True};
GraphicsColumn[{ListPlot[Range[10], Sequence @@ opts,
FrameLabel -> {"", "y"}],
ListPlot[-Range[10], Sequence @@ opts, FrameLabel -> {"x", "y"}]}]
aber
natürlich ist
ListPlot[
{Range[10], -Range[10]}, FrameLabel -> {"x", "y"},Frame->True]
hübscher.
Gruss
Jens
Martin Heimann wrote:
Gibt es jetzt in Mathematica v6 ein einfaches Rezept, wie man zwei
Grafiken so übereinander anordnen kann, dass die x-Achse bei
beiden Grafiken die selbe Länge hat und gleichweit vom linken Rand
beginnt?
GraphicsColumn[{ListPlot[Range[10], FrameLabel -> None], ListPlot
[-Range[10], FrameLabel -> {"x", "y"}]}]
Gruss,
Martin
--------
Max-Planck-Institute for Biogeochemistry, PF 100164, D-07701 Jena,
Germany
Street Address: Beutenberg Campus, Hans-Knoell-Straße 10, D-07745
Jena
Office: +49-3641-57-6350/6301
SIP (VoIP): 1-747-617-6659
Mobile - (NEW): +49-172-360 6519
Home: +49-3641-618247
Fax.: +49-3641-57-7300
Email: martin.heimann@XXXXXXX.de
Web: http://www.bgc-jena.mpg.de/~martin.heimann
--------
Max-Planck-Institute for Biogeochemistry, PF 100164, D-07701 Jena,
Germany
Street Address: Beutenberg Campus, Hans-Knoell-Straße 10, D-07745 Jena
Office: +49-3641-57-6350/6301
SIP (VoIP): 1-747-617-6659
Mobile - (NEW): +49-172-360 6519
Home: +49-3641-618247
Fax.: +49-3641-57-7300
Email: martin.heimann@XXXXXXX.de
Web: http://www.bgc-jena.mpg.de/~martin.heimann