Double Cone

Author

Eric W. Weisstein
July 8, 2024

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

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

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

Graphic

V6

ParametricPlot3D[{z  Cos[θ],z  Sin[θ],z},{θ,0,2Pi},{z,-1,1},PlotStyle->Opacity[.6],Boxed->False,Axes->False,Method->{"ShrinkWrap"->True},ImageSize->300]

V5

ParametricPlot3D[{z  Cos[θ],z  Sin[θ],z},{θ,0,2Pi},{z,-1,1},Boxed->False,Axes->False]

<<ImplicitPlot3D`

ImplicitPlot3D[x^2+y^2-z^2==0,{x,-2,2},{y,-2,2},{z,-2,2}]