Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2001
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2001

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

Search the Archive

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?