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: [mg82773] Re: Polar Plot
  • From: Jean-Marc Gulliet <jeanmarc.gulliet at gmail.com>
  • Date: Tue, 30 Oct 2007 05:48:17 -0500 (EST)
  • Organization: The Open University, Milton Keynes, UK
  • References: <fg4dhs$6dc$1@smc.vnet.net>

Miguel wrote:

> How can I to plot a polar expresion in implicit form. For example,
> r^2==3+2*r*Cos[teta]

Try to get an explicit form if possible, then you can use *PolarPLot*. 
For instance,

In[1]:= sols = Solve[r^2 == 3 + 2*r*Cos[theta], r]

Out[1]= {{r -> Cos[theta] - Sqrt[3 + Cos[theta]^2]},
{r -> Cos[theta] + Sqrt[3 + Cos[theta]^2]}}

In[2]:= f = r /. sols

Out[2]= {Cos[theta] - Sqrt[3 + Cos[theta]^2],
  Cos[theta] + Sqrt[3 + Cos[theta]^2]}

In[3]:= PolarPlot[f, {theta, 0, 2 Pi}]

[...graphic deleted...]

Regards,
-- 
Jean-Marc


  • Prev by Date: Re: Export from windows to linux/unix
  • Next by Date: Re: Vectors,Norms and assumptions
  • Previous by thread: Re: Polar Plot
  • Next by thread: Multimedia export from Mathematica 6