Cone-Sphere Intersection

Author

Eric W. Weisstein
February 10, 2004

This notebook downloaded from http://mathworld.wolfram.com/notebooks/SolidGeometry/Cone-SphereIntersection.nb.

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

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

Initialization

<<Graphics`Shapes`

Graphic

g1=Show[{WireFrame[TranslateShape[Sphere[.5,15,15],{.2,.3,.2}]],WireFrame[cone[15,1,1,-1,1]],WireFrame[cone[15,1,1,1,-1]],Show[Graphics3D[{RGBColor[1,0,0],Thickness[.02],ConeSphereIntersection[1,.5,{.2,.3,.2}][[1]]}],DisplayFunction->Identity]},Boxed->False]

g2=Show[Graphics3D[{RGBColor[1,0,0],Thickness[.02],ConeSphereIntersection[1,.5,{.2,.3,.2}][[1]]}]]

LiveGraphics3D

<<Utilities`LiveGraphics3D`

WriteLiveForm[conesphe.m,g1]

WriteLiveForm[cnsphbox.m,g2]