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

```

• Prev by Date: Re: is there a way to swap the axes in a Plot?
• Next by Date: Re: slow integration
• Previous by thread: Re: is there a way to swap the axes in a Plot?
• Next by thread: Re: is there a way to swap the axes in a Plot?