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