4
$\begingroup$

I use Mathematica v11.1.

I made a vase by rotating the graph with Mathematica.

f[x_] := Sin[0.8 x] + 1.5;
Plot[f[x], {x, 0, 7.5}, PlotStyle -> Thickness[0.01],
     AxesOrigin -> {0, 0}, AspectRatio -> 3/7]
RevolutionPlot3D[f[t], {t, 0, 7.5},
    PlotStyle -> Thickness[0.3], RevolutionAxis -> {1, 0, 0}, 
    BoxRatios -> {7.5, 6, 6}, PlotPoints -> 50,Mesh -> None]

enter image description here enter image description here

I would like to make Voronoi form as shown in the following figure.

enter image description here

Is there a 3D Voronoi function in Mathematica? Or, I want to know a good way.

$\endgroup$

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

Browse other questions tagged or ask your own question.