Re: Heart Plot
- To: mathgroup at smc.vnet.net
- Subject: [mg45315] Re: [mg45217] Heart Plot
- From: Omega Consulting <info at omegaconsultinggroup.com>
- Date: Tue, 30 Dec 2003 04:14:21 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
At 02:42 AM 12/21/2003, Manuel Prinz wrote: >Hey! > >I'd like to plot a heart in Mathematica, but if I try > >Solve[(2*x^2+y^2+z^2-1)^3-(1/10)*x^2*z^3-y^2*z^3==0, z] > >There is a huge output... > >What I have to do?! > >Regards > >Manuel >-- >Manuel Prinz http://www.prinz.manuel.de >Paul-Leo-Strasse 1 >D-49086 Osnabr"uck In the Graphics packages, << Graphics` You can use InequalityPlot3D, but you have to use the right number of PlotPoints to get a smooth surface. InequalityPlot3D[(2*x^2 + y^2 + z^2 - 1)^3 - (1/10)*x^2*z^3 - y^2*z^3 < 0, {x, -1, 1}, {y, -2, 2}, {z, -2, 2}, PlotPoints -> 9] -------------------------------------------------------------- Omega Consulting "The final answer to your Mathematica needs" http://omegaconsultinggroup.com