

Computer | 1 |
Keyboard | 1 |
Mouse | 1 |
Mathematica | 1 |
打开电脑
启动Mathematica
制作甜筒下半部。输入并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]]]
制作舔筒上半部。输入并Shift+Enter:
hemisphere =
RevolutionPlot3D[
15 + Sqrt[9 - r^2], {r, 0, 3}, {\[Theta], 0, 2 \[Pi]}, Mesh -> None,
Boxed -> False, Axes -> False]
组装甜筒。输入并Shift+Enter:
Show[cone, hemisphere, PlotRange -> All, BoxRatios -> {1, 1, 2},
Boxed -> False, Axes -> False, AspectRatio -> Automatic]