Heart Plot

[Manuel Prinz]

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

[Bob Hanlon]

Needs["Graphics`"];

Animate these for a crude view of the heart: first with cross-sections then a
rotating "wireframe".

plts=Table[ImplicitPlot[Evaluate[
(2*x^2+y^2+z^2-1)^3-(1/10)*x^2*z^3-y^2*z^3 == 0 /. z -> t],
{x, -1.25, 1.25}, {y, -1.25, 1.25},
PlotStyle ->
{AbsoluteThickness[2], Hue[(t+1)/2.25]}],
{t, -0.99, 1.23, .01}];

SpinShow[StackGraphics[Graphics /@ plts]];


Bob Hanlon

In article <bs3mof$ik9$***@smc.vnet.net>, Manuel Prinz <***@gmx.de>
wrote:

<< 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?!

[Omega Consulting]

Post by Manuel Prinz
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