math - Mathematica 中圆锥的参数图

Question

我有一个圆锥体，如图所示：

（两个底是椭圆）

如何通过 Mathematica 绘制曲面？

Answer 1

你总是可以使用 RegionPlot：

RegionPlot3D[ Sqrt[x^2 + y^2] < 1 - z/3, {x, -2, 2}, {y, -2, 2}, {z, -1, 1}, 
              BoxRatios -> {1, 1, 1/2}]