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