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