Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2004
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2004

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

Search the Archive

Re: Drawing a HEART in mathematica?

  • To: mathgroup at smc.vnet.net
  • Subject: [mg46288] Re: Drawing a HEART in mathematica?
  • From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
  • Date: Fri, 13 Feb 2004 21:56:53 -0500 (EST)
  • Organization: Universitaet Leipzig
  • References: <c0hik8$lkb$1@smc.vnet.net>
  • Reply-to: kuska at informatik.uni-leipzig.de
  • Sender: owner-wri-mathgroup at wolfram.com

Hi,

what is with a heart-surface

Needs["Graphics`ContourPlot3D`"]
ContourPlot3D[(2*x^2 + y^2 + z^2 - 1)^3 - (1/10)*x^2*z^3 - y^2*z^3, 
   {x, -0.9, 0.9}, {y, -1.2, 1.2}, {z, -1.2, 1.4}]

a good looking heart needs some more PlotPoints ..

Regards
  Jens


Charlie Bishop wrote:
> 
> can anyone suggest some code or a graph (or several graphs) that I could
> plot in mathematic to display the image of a heart? trying to make a
> homemade valentine for my girl.. and being a Physics/Math major it seems
> appropriatte to be a bit geeky about it :)
> 
> I can't seem to get it look right though.. so can someone help?
> 
> - Charlie


  • Prev by Date: Re: Drawing a HEART in mathematica?
  • Next by Date: question: How to get Mathematica to show more than one value of a complex valued function?
  • Previous by thread: Re: Drawing a HEART in mathematica?
  • Next by thread: RE: RE: Drawing a HEART in mathematica?