打开电脑
启动Mathematica
制作橄榄。输入 makeolive = Graphics3D[{{FaceForm[Green, Orange], Scale[Sphere[{0, 0, -1}], {1, 1, 1.5}, {10, 0, 0}]}, {Orange, Cylinder[{{0, 0, -1}, {-10, -10, 1}}, 0.1]}}, Boxed -> False] 然后 shift + enter
制作荷叶。输入并 shift + enter lotus = RevolutionPlot3D[1/10 Cos[t] - 10, {t, 0, 2.8 Pi}, PlotStyle -> FaceForm[Green, LightGreen], Mesh -> None, Boxed -> False, Axes -> None, BoxRatios -> {10, 10, 0.2}]
制作酒杯,并放入以上原料。输入 Show[{RevolutionPlot3D[{1 t Sin[t] + 7, 1.7 t Cos[t], -4 t}, {t, 0, 5.7 }, PlotStyle -> {RGBColor[0, 1, 0, .5]}, Mesh -> None], makeolive, lotus}, ViewAngle -> Pi/40, ViewPoint -> {10, 10, 4}, ImageSize -> {360, 400}, Boxed -> False, Axes -> False, SphericalRegion -> True] 然后 shift + enter.
调酒。禁止酒后驾车,因此请回家再倒酒来喝。
此物不能饮。