Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2010

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

Search the Archive

Re: Getting started with 3D cardioid

  • To: mathgroup at smc.vnet.net
  • Subject: [mg111977] Re: Getting started with 3D cardioid
  • From: Bill Rowe <readnews at sbcglobal.net>
  • Date: Mon, 23 Aug 2010 02:37:49 -0400 (EDT)

On 8/22/10 at 8:10 AM, aetherwizard at gmail.com (David Thomson) wrote:

>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?

To plot a basic cardioid:

ParametricPlot[{2 Cos[t] - Cos[2 t], 2 Sin[t] - Sin[2 t]}, {t, 0,
   2 Pi}]

The same cardioid rotated 45 degrees counterclockwise about the origin

m = TransformationMatrix[RotationTransform[\[Pi]/4]][[;; 2, ;; 2]];
ParametricPlot[m.{2 Cos[t] - Cos[2 t], 2 Sin[t] - Sin[2 t]}, {t, 0,
   2 Pi}]

The same cardioid rotated 45 degrees about the point {1,0}

m = TransformationMatrix[RotationTransform[\[Pi]/4, {1, 0}]][[;; 2]];
ParametricPlot[m.{2 Cos[t] - Cos[2 t], 2 Sin[t] - Sin[2 t], 1},
{t, 0,
   2 Pi}]



  • Prev by Date: Re: Getting started with 3D cardioid
  • Next by Date: Re: "Abort Evaluation" does not work
  • Previous by thread: Re: Getting started with 3D cardioid
  • Next by thread: Re: Getting started with 3D cardioid