MathGroup Archive 2001

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: is there a way to swap the axes in a Plot?


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?