Re: Plot with axes exchanged
- To: mathgroup at smc.vnet.net
- Subject: [mg130498] Re: Plot with axes exchanged
- From: Roland Franzius <roland.franzius at uos.de>
- Date: Tue, 16 Apr 2013 04:21:24 -0400 (EDT)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- Delivered-to: l-mathgroup@wolfram.com
- Delivered-to: mathgroup-newout@smc.vnet.net
- Delivered-to: mathgroup-newsend@smc.vnet.net
- References: <kkikc9$rnl$1@smc.vnet.net>
Am 16.04.2013 06:34, schrieb Dr. Wolfgang Hintze:
> How can I exchange axes in a plot, i.e. plot the function value along
> the horizontal axis and the independent variable against the vertical
> axis?
>
> Any help is apreciated.
Plot[InverseFunction[(#^2&)][x],{x,0,1}]
may give you the wrong branch.
To get the desired branch use a parametrization
ParametricPlot[{x^2],x},{x,0,1}]
or mirror the graphics data at the identity function graph
pl = Plot[x^2, {x, -1, 2}];
pl1 = Graphics[pl[[1]] /. {x_Line :> Map[Reverse, x, {2}]},
Axes -> True]
--
Roland Franzius