Re: maßstäbliche ContourPlots

[Udo und Susanne Krause <su.krause@XXXXXXX.ch>]

Lieber Reinhard,

wenn AspectRation nicht Automatic ist, dann wird die Länge zur Breite 
nicht im Verhältnis des Goldenen Schnittes gezeichnet:

With[{xMin = -3, xMax = 3, yMin = 0, yMax = 2, zMin = 0, zMax = 3},
 If[xMin < xMax && yMin < yMax && zMin < zMax, 
   ContourPlot[f[x, y, 0], {x, -3, 3}, {y, 0, 2}, AspectRatio -> (yMax 
- yMin)/(xMax - xMin)],
   Return[$Failed]
 ]
]

Mit den besten Grüssen
Udo.

reinhard schlosser wrote:

> Liebe Liste,
>
> ich habe eine reellwertige Funktion von drei reellen Veränderlichen 
> f(x,y,z).
>
> Mit ContourPlot stelle ich die Funktion auf verschieden großen Ebenen 
> dar.
> (Im Anhang befindet sich ein einfaches Beispiel.)
>
> ContourPlot[f[x, y, 0],{x, -3, 3}, {y, 0, 2}, AspectRatio->Automatic, 
> FrameLabel ->{"x in m", "y in m"}, PlotRange ->{{-3,3}, {0,2}, {-10,10}}]
> ContourPlot[f[0, y, z],{y,  0, 2}, {z,  0, 3}, AspectRatio->Automatic, 
> FrameLabel ->{"y in m", "z in m"}, PlotRange ->{{0,2}, {0,3}, {-10,10}}]
> ContourPlot[f[x, 0, z],{x, -3, 3}, {z,  0, 3}, AspectRatio->Automatic, 
> FrameLabel ->{"x in m", "z in m"}, PlotRange ->{{-3,3}, {0,3}, {-10,10}}]
>
> Durch AspectRatio->Automatic erreiche ich, dass die horizontale zur 
> vertikalen Achse innerhalb eines ContourPlots maßstäblich ist.
>
> Wie erreiche ich, dass die Achsen aller ContourPlots zueinander 
> maßstäblich sind?
>
> Also die Achsen {x,-3,3}, {y,0,2}, {z,0,3} sollten "exakt" im 
> Verhältnis 6 zu 2 zu 3 sein.
>
> Bemerkung: Wenn ich eine Graphik mit der Maus markiere, ensteht ein 
> rechteckiger Rahmen mit 8 schwarzen Kästchen.
> Es genügt mir nicht die Kanten dieses Rahmens mit ImageSize zu 
> kontrollieren.
> Da je nach Achsenbeschriftung die Länge der Achsen beeinflusst wird.
>
> Nehmen wir jetzt an die einzelnen Achsen sind zueinander maßstäblich.
> Wie erreiche ich es dann, dass beim Ausdrucken des Notebooks die 
> Achsen z. B. "exakt" 12cm zu 4cm zu 6cm sind.
>
> Danke für Eure Hilfe.