Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2007

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

Search the Archive

Re: : Polar Plot

  • To: mathgroup at smc.vnet.net
  • Subject: [mg82762] Re: : Polar Plot
  • From: Tom Burton <Tom.Burton at DigiLore.com>
  • Date: Tue, 30 Oct 2007 05:42:37 -0500 (EST)

I think you must convert to Cartesian coordinates first:

In[41]:= eq = r^2 == 3 + 2*r*Cos[\[Theta]]

In[44]:= eq2 = FullSimplify[ eq /. {r -> Sqrt[x*x + y*y],  \[Theta] - 
 > ArcTan[x, y]}]

Out[44]= y^2 + (x - 2)*x == 3

This seems to describe a circle of radius 2 centered at {1,0}, which  
you can verify in version 6 with

ContourPlot[Evaluate[eq2],{x,-1,3},{y,-2,2}]

Use ImplicitPlot in version 5.

Tom Burton




  • Prev by Date: Problem with supplying custom tick marks
  • Next by Date: Re: Export from windows to linux/unix
  • Previous by thread: Problem with supplying custom tick marks
  • Next by thread: Re: : Polar Plot