Re: Heart Plot
- To: mathgroup at smc.vnet.net
- Subject: [mg45246] Re: Heart Plot
- From: bobhanlon at aol.com (Bob Hanlon)
- Date: Tue, 23 Dec 2003 05:13:37 -0500 (EST)
- References: <bs3mof$ik9$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
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$1 at smc.vnet.net>, Manuel Prinz <manuel.prinz at 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?!