Re: Kombinieren von Grafiken

[Jens-Peer Kuska <kuska@XXXXXXX.de>]

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 
> <mailto:martin.heimann@XXXXXXX.de>        
> Web:     http://www.bgc-jena.mpg.de/~martin.heimann 
> <http://www.bgc-jena.mpg.de/%7Emartin.heimann>