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