Re: is there a way to swap the axes in a Plot?
- To: mathgroup at smc.vnet.net
- Subject: [mg29948] Re: is there a way to swap the axes in a Plot?
- From: dreiss at NOSPAM--scientificarts.com (David Reiss)
- Date: Thu, 19 Jul 2001 03:57:12 -0400 (EDT)
- References: <9j3a1k$im7$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
In article <9j3a1k$im7$1 at smc.vnet.net>, "David E. Burmaster" <deb at alceon.com> wrote: > Dear MathGroup, > > Is there an easy way to "transpose" the Plot of a graph? > > I know the inverse function in closed form (and it is impossible to invert > in closed form). > > In other words, I have an equation in closed form for: > > x = f^-1[y] > > I want to Plot this inverse function, then "transpose" the graph so that > the final graphic has x on the horizontal axis and y on the vertical axis. > > Any ideas? > > many thanks, > David E. Burmaster > > deb at Alceon.com Here is an example of how to do this: pl=Plot[Sin[x]/(1+x),{x,0,10}]; data=Cases[pl,(z:({ {_Real,_Real}..})):>z,Infinity][[1]]; ListPlot[data/.{x_,y_}:>{y,x}, PlotJoined->True]; --David