MathGroup Archive 2010

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

Search the Archive

Re: Getting started with 3D cardioid

  • To: mathgroup at
  • Subject: [mg112035] Re: Getting started with 3D cardioid
  • From: David Thomson <aetherwizard at>
  • Date: Thu, 26 Aug 2010 06:47:35 -0400 (EDT)
  • References: <i4r4ab$jt2$> <i4t54d$fgj$>

On Aug 23, 1:40 am, Helen Read <h... at> wrote:
> On 8/22/2010 8:14 AM,David Thomsonwrote:
> > I'm new to Mathematica, sorry.  I would like to draw a cardioid
> > rotated about its polar axis.  I checked the Mathematica wiki and it
> > did not cover this topic (that I could find).  Can someone help me to
> > understand how to do this in Mathematica?
> The thing to do is represent the cardioid parametrically.
> For example, if you start with this cardioid:
> r[t_] = 1 - Cos[t]
> PolarPlot[r[t], {t, 0, 2 \[Pi]}]
> Then express the polar curve parametrically, like so.
> x[t_] = r[t] Cos[t];
> y[t_] = r[t] Sin[t];
> Note that due to symmetry, you need only revolve the top half (t from 0
> to Pi) around the polar axis.
> RevolutionPlot3D[{x[t], y[t]}, {t, 0, \[Pi]}, RevolutionAxis -> x]
> --
> Helen Read
> University of Vermont

Thank you, Helen.  That worked beautifully.  Not only did it produce
the 3D shape I was looking for, but also with the proper

I tried to use a different geometry, but the parametric equation did
not give the results I was expecting.
r[t_] = t^-1 Sin[t + 1]
PolarPlot[r[t], {t, 0, 2 \[Pi]}]

In the above case, I'm looking for something with the appearance of a

Afterward, I want to learn how to position the cardioid origin on top
of the point of the horn.  This is a project I am actually building
and would like to use Mathematica to model it so I can make


  • Prev by Date: Re: i get an empty figure when exporting it, if I keep
  • Next by Date: Why is Newton's method failing to "find sufficient increase in function"?
  • Previous by thread: Re: Getting started with 3D cardioid
  • Next by thread: Re: Getting started with 3D cardioid