Double Sphere

Author

Eric W. Weisstein
May 23, 2008

This notebook downloaded from http://mathworld.wolfram.com/notebooks/Surfaces/DoubleSphere.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/DoubleSphere.html.

©2008 Wolfram Research, Inc. except for portions noted otherwise

Equation

Expand[((((x^2)+(y^2)+(z^2)-(a^2)))^2)]

Plot

ContourPlot3D[((x^2)+(y^2)+(z^2)-1)==0,{x,-1,1},{y,-1,1},{z,-1,1},ImageSize->Small]

g=ContourPlot3D[((((x^2)+(y^2)+(z^2)-1))^2)==0,{x,-1,1},{y,-1,1},{z,-1,1},ImageSize->Small]

...Mathematica bug...

Length[Union[g[[1,1]]]]

Graphics3D[Point[g[[1,1]]],ImageSize->Medium]