简易甜筒

此物不能食。

用料  

简易甜筒的做法  

1. 打开电脑

2. 启动Mathematica

3. 制作甜筒下半部。输入并Shift+Enter：
   cone = RevolutionPlot3D[5 r, {r, 0, 3}, {[Theta], 0, 2 [Pi]},
    Mesh -> None, BoxRatios -> {1, 1, 2}, Boxed -> False, Axes -> False,
     PlotStyle -> Lighter[Lighter[Yellow]]]

4. 制作舔筒上半部。输入并Shift+Enter:
   hemisphere =
   RevolutionPlot3D[
    15 + Sqrt[9 - r^2], {r, 0, 3}, {[Theta], 0, 2 [Pi]}, Mesh -> None,
     Boxed -> False, Axes -> False]

5. 组装甜筒。输入并Shift+Enter：
   Show[cone, hemisphere, PlotRange -> All, BoxRatios -> {1, 1, 2},
   Boxed -> False, Axes -> False, AspectRatio -> Automatic]

小贴士

PlotStyle后面可以换更好看的颜色。