Créez des tracés imprimables en 3D
Créez facilement des tracés imprimables en 3D avec les thèmes de fonctions volumiques "ThickSurface" et "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]=
