Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2008

[Date Index] [Thread Index] [Author Index]

Search the Archive

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


  • 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)