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