Re: Achsenskalierung

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

Hallo,

so etwas wie


Needs["Graphics`Graphics`"]

linplt = Plot[Sin[Exp[-t/30]*t], {t, 0, 10}, 
    FrameStyle -> {{GrayLevel[0]}, {GrayLevel[0]}, {GrayLevel[0]},
{GrayLevel[
            1]}}, FrameTicks -> {Table[i, {i, 0, 9}], Automatic, None,
None}, 
    AspectRatio -> 1, Axes -> False];

logplt = LogLinearPlot[Sin[Exp[-t/30]*t], {t, 10, 500}, 
    FrameTicks -> {Automatic, None, None, None}, 
    FrameStyle -> {{GrayLevel[0]}, {RGBColor[1, 1, 1]}, {GrayLevel[
            0]}, {GrayLevel[0]}}, AspectRatio -> 1];

Show[Graphics[{Rectangle[{0, 0}, {1, 1.0}, linplt], 
      Rectangle[{0.8, 0.12}, {2, 0.875}, logplt]}]]


ist gelinde gesagt un"ublich. Kein Mensch bekommt mit, das pl"otzlich
die Achsensklaierung eine andere ist ...

Besser ist es 

linplt1 = Plot[Sin[Exp[-t/30]*t], {t, 0, 10}, Axes -> False, AspectRatio
-> 1];
LogLinearPlot[Sin[Exp[-t/30]*t], {t, 10, 1000}, AspectRatio -> 1, 
  Epilog -> Rectangle[Scaled[{0.5, -0.15}], Scaled[{0.99, 0.65}],
linplt1]]

zu machen.

Gruss
  Jens


Jens Bredenbeck wrote:
> 
> Hallo Ihr Mathematica-User,
> 
> ich suche nach einer Möglichkeit innerhalb einer Graphik auf einer Achse
> zwischen logarithmischer und linearer Darstellung zu wechseln.
> Beispielsweise möchte ich mir die Entwicklung einer Zeitreihe von
> Messwerten im Kurzzeitbereich auf linearer Zeitskala und im
> Langzeitbereich auf einer logarithmischen Skala anschauen. Wer weiss Rat?
> 
> Jens Bredenbeck