Re: Cropping a surface to a sphere (fun Manipulate example)
- To: mathgroup at smc.vnet.net
- Subject: [mg88218] Re: [mg88172] Cropping a surface to a sphere (fun Manipulate example)
- From: "W_Craig Carter" <ccarter at mit.edu>
- Date: Mon, 28 Apr 2008 04:41:45 -0400 (EDT)
HellO Szabolcs,
I liked your surface so much, I thought I might share this fun Manipulate:
sphere[ls_] := Function[{x, y, z}, x^2 + y^2 + z^2 < ls^2]
Manipulate[
ContourPlot3D[-x^4*y^2 + x^2*y^4 + x^4*z^2 - y^4*z^2 - x^2*z^4 +
y^2*z^4 == ls, {x, -3, 3}, {y, -3, 3}, {z, -3, 3},
RegionFunction -> sphere[3]], {{ls, 0}, 0, 1/2}]
On Sun, Apr 27, 2008 at 7:10 AM, W_Craig Carter <ccarter at mit.edu> wrote:
> Hell Szabolcs,
> In 6, there is the option: RegionFunction -> (#1^2 + #2^2 + #3^2 < 9 &)
> Your surface is very pleasing. If not 6, this would be difficult.
>
>
>
> On Sun, Apr 27, 2008 at 4:58 AM, Szabolcs Horv=E1t <szhorvat at gmail.com> =
wrote:
> >
> > Is there a simple way to crop a surface to a sphere?
> >
> > For example, consider the surface
> >
> > ContourPlot3D[
> > -x^4*y^2 + x^2*y^4 + x^4*z^2 - y^4*z^2 -
> > x^2*z^4 + y^2*z^4 == 1,
> > {x, -3, 3}, {y, -3, 3}, {z, -3, 3},
> > Mesh -> False]
> >
>
> W. Craig Carter
>
--
W. Craig Carter