创建可三维打印的绘图
轻松创建带有特性主题 "ThickSurface" 和 "FilledSurface" 的可三维打印绘图.
In[1]:=
RevolutionPlot3D[{Sin[t] + Sin[5 t]/10, Cos[t] + Cos[5 t]/10}, {t, 0,
Pi}, RegionFunction -> (Sin[5 (#4 + #5)] > 0 &), Boxed -> False,
Axes -> None, PlotTheme -> "ThickSurface"]
Out[1]=
Out[15]=