Marvin
简易甜筒
0
人做过这道菜
此物不能食。
用料
| 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后面可以换更好看的颜色。
