Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2003
*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 2003

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

Search the Archive

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