简易甜筒

作者： Marvin

此物不能食。

用料

• Computer 1
• Keyboard 1
• Mouse 1
• Mathematica 1

简易甜筒的做法步骤

步骤 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后面可以换更好看的颜色。

菜谱创建时间：2012-01-24 20:28:55