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