此物不能食。
用料
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]
小贴士
PlotStyle后面可以换更好看的颜色。