|
kuing
Posted 2018-11-27 16:12
有 mathematica 的可以运行如下命令看效果:- tu1 = ParametricPlot3D[{{(2 Sin[t])/(
- Cos[t/3] + Sqrt[3] Sin[t/3]), (-2 Cos[t])/(
- Cos[t/3] + Sqrt[3] Sin[t/3]),
- 4 Sqrt[2] - (4 Sqrt[2])/(Cos[t/3] + Sqrt[3] Sin[t/3])}}, {t, 0,
- 2 Pi}];
- tu2 = ContourPlot3D[
- x^2 + y^2 == (z - 4 Sqrt[2])^2/8, {x, -2, 2}, {y, -2, 2}, {z, 0,
- 4 Sqrt[2]}, BoxRatios -> Automatic, Mesh -> None,
- ContourStyle -> Opacity[0.2], PlotPoints -> 40];
- Show[tu2, tu1]
Copy the Code
|
|