[Date Index]
[Thread Index]
[Author Index]
Re: Cropping a surface to a sphere (fun Manipulate example)
*To*: mathgroup at smc.vnet.net
*Subject*: [mg88236] Re: Cropping a surface to a sphere (fun Manipulate example)
*From*: "David Park" <djmpark at comcast.net>
*Date*: Tue, 29 Apr 2008 06:49:13 -0400 (EDT)
*References*: <fv42mu$624$1@smc.vnet.net>
This is nice Craig, but unfortunately ContourPlot3D is not the fastest of
routines. So, on my machine at least, the response is quite slow.
But, looking at the plot, there is obvious symmetry. There appears to be
only one fundamental surface which is present in 12 copies. So would it be
possible to use Reduce to obtain a parametrization of one of the surfaces
and use rotation/reflection geometric transformations to generate all the
other surfaces? This might then be much faster. For those who are experts in
group theory, how would one start with the polynomial and then generate the
set of transformations to create all the surfaces?
I put this forward as a challenge problem for those who might care to take
it up.
--
David Park
djmpark at comcast.net
http://home.comcast.net/~djmpark/
"W_Craig Carter" <ccarter at mit.edu> wrote in message
news:fv42mu$624$1 at smc.vnet.net...
> 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}]
>
> --
> W. Craig Carter
>
Prev by Date:
**Re: Does Mathematica really need more printed, introductory documentation?**
Next by Date:
**Re: Coordinate readout from Graphics3D?**
Previous by thread:
**Re: Cropping a surface to a sphere (fun Manipulate example)**
Next by thread:
**Re: Cropping a surface to a sphere (fun Manipulate example)**
| |