MathGroup Archive 2003

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

Search the Archive

Re: Heart Plot

  • To: mathgroup at smc.vnet.net
  • Subject: [mg45246] Re: Heart Plot
  • From: bobhanlon at aol.com (Bob Hanlon)
  • Date: Tue, 23 Dec 2003 05:13:37 -0500 (EST)
  • References: <bs3mof$ik9$1@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

Needs["Graphics`"];

Animate these for a crude view of the heart: first with cross-sections then a
rotating "wireframe".

plts=Table[ImplicitPlot[Evaluate[
          (2*x^2+y^2+z^2-1)^3-(1/10)*x^2*z^3-y^2*z^3 == 0 /. z -> t],
        {x, -1.25, 1.25}, {y, -1.25, 1.25},
        PlotStyle ->
          {AbsoluteThickness[2], Hue[(t+1)/2.25]}],
      {t, -0.99, 1.23, .01}];

SpinShow[StackGraphics[Graphics /@ plts]];


Bob Hanlon

In article <bs3mof$ik9$1 at smc.vnet.net>, Manuel Prinz <manuel.prinz at gmx.de>
wrote:

<< I'd like to plot a heart in Mathematica, but if I try

Solve[(2*x^2+y^2+z^2-1)^3-(1/10)*x^2*z^3-y^2*z^3==0, z] 

There is a huge output...

What I have to do?!


  • Prev by Date: Re: a bug in RealDigits? Mathematica 5.0
  • Next by Date: Re: bug???
  • Previous by thread: Heart Plot
  • Next by thread: Re: Heart Plot