Re: x mit der y Achse vertauschen

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

Hallo,

Block[{$DisplayFunction = Identity},
Plot[Sin[x], {x, 0, 2Pi}] /. Line[pnts_] :> 
Line[Reverse /@ pnts]
] //
Show

falls Polygone und Pinkte noch drin sind, dann muß

man da natürlich auch x und y vertauschen.

Gruß

  Jens



----- Original Message ----- 
From: "klamser" <klamser@XXXXXXX.de>
To: <demug@XXXXXXX.ch>
Sent: Sunday, October 16, 2005 1:11 PM
Subject: x mit der y Achse vertauschen


| Hallo,
|
| manchmal ist es ganz nett, wenn in einem 
Funktionsplot die X- mit der
| Y-Achse vertauscht werden kann.
|
| Natürlich ist das kein Problem, wenn man 
ImplicitPlot verwendet:
|
| ImplicitPlot[3*x + y == 3, {y, -20, 20}, 
Frame -> True, FrameLabel ->
| {"y", "x", "", ""}]
|
| Leider ist das aber nicht effektiv, wenn man 
eine etwas komplizierte
| Funktion darstellen will, bei der die Berechnung 
eines Punktes länger
| dauert.
|
| Gibt es einen einfachen und effektiven Weg die 
Achsen zu vertauschen?
|
| Schöner Gruß,
|
| Peter Klamser
|
|