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,

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

```

• Prev by Date: Re: Cropping a surface to a sphere
• Next by Date: Re: Cropping a surface to a sphere
• Previous by thread: Re: Transforming a polynomial into a trigonometric format tia sal2
• Next by thread: Re: Cropping a surface to a sphere (fun Manipulate example)