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