Re: newbie PolarPlot question

• To: mathgroup at smc.vnet.net
• Subject: [mg25070] Re: [mg25046] newbie PolarPlot question
• From: BobHanlon at aol.com
• Date: Thu, 7 Sep 2000 22:28:13 -0400 (EDT)
• Sender: owner-wri-mathgroup at wolfram.com

```In a message dated 9/3/2000 10:22:37 PM, dmagnoli at home.com writes:

>I've defined:
>
>r[t] := 16/(5 + 3 Cos[t])
>
>Then I load Graphics, with:
>
><<Graphics`
>
>
>PolarPlot[r, {t, 0, 2 Pi}], which tells me:
>
>ParametricPlot::pptr:
>{r Cos[t], r Sin[t]} does not evaluate to a pair
>of real numbers at t = 2.617993877991494`*^-7
>
>ParametricPlot::pptr:
>{r Cos[t], r Sin[t]} does not evaluate to a pair
>of real numbers at t = 0.25488992540742256`.
>
>ParametricPlot::pptr:
>{r Cos[t], r Sin[t]} does not evaluate to a pair
>of real numbers at t = 0.5328694051959509`.
>
>General::stop:
>Further output of ParametricPlot ::pptr will be
>suppressed during this calculation.
>
>Near as I can make out, x and y should both evaluate to real numbers for
>any value of theta between 0 and 2 Pi, so I don't know what I'm doing
>wrong.
>

Needs["Graphics`Graphics`"];

The function definition should read:

r[t_] := 16/(5 + 3 Cos[t]);

The plot call should read:

PolarPlot[r[t], {t, 0, 2 Pi}];

Bob Hanlon

```

• Prev by Date: How to keep things real?
• Next by Date: new Mathematica-related books
• Previous by thread: Re: newbie PolarPlot question
• Next by thread: RE: newbie PolarPlot question