       Re: Plot3D ? or sth

• To: mathgroup at smc.vnet.net
• Subject: [mg39295] Re: Plot3D ? or sth
• From: digrpat at aol.com (Patrick Callahan)
• Date: Mon, 10 Feb 2003 01:07:16 -0500 (EST)
• References: <b258gp\$hkt\$1@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

```<< Graphics`ContourPlot3D`

heart = (x^2 + 9/4y^2 + z^2 - 1)^3 - x^2z^3 - 9/80y^2z^3

ContourPlot3D[heart,
{x, -2, 2},
{y, -2, 2},
{z, -2, 2},
MaxRecursion -> 3, (*if you're patient, try 4 recursions *)
Axes -> False, PlotRange -> All,
ContourStyle -> {{EdgeForm[]}},
ViewPoint -> {0, 1, 0},
Boxed -> False]

Export["heart.dxf", %]

(* dxf file can be imported into any 3D program
this formula gets unstable near the z=0 plane
causing the surface to get rough. I would like
to see how the Gurus of this group solve that
problem *)

>Hi,
>14th II is comming so I thought to draw some hearts, i know the formula
>but i don't know how to draw it using mathematica, could anyone help me
>with it ?
>
>Here's formula:  (2x^2 + y^2 + z^2 -1)^3 = a*x^2*z^3 -y^2*z^3, where a is
>a real-noumber value.
>
>Chris
>
>
>
>
>--
>Serwis Usenet w portalu Gazeta.pl -> http://www.gazeta.pl/usenet/
>
>
>
>
>
>
>

```

• Prev by Date: Re: Plot3D ? or sth
• Next by Date: Re: smoothing functions to avoid artifacts in graphs
• Previous by thread: Re: Plot3D ? or sth
• Next by thread: Detecting unsuccessful computations