1
$\begingroup$

I have a Mathematica ver 12.0

I would definitely like to convert the following graph to an STL file.

So I set the PlotPoints to 120 and the surface of the graph is very smooth.

 ContourPlot3D[Sin[x] Sin[y] Sin[z]+Sin[x] Cos[y] Cos[z]+Cos[x] Sin[y] Cos[z]+Cos[x] Cos[y] Sin[z]==0, {x,-2Pi,2Pi},{y,-2Pi,2Pi},{z,-2Pi,2Pi},Extrusion->1, Mesh->False, PlotPoints->120]

However, the thickness set in this graph is not as precise as the value of PlotPoints.

Is there a way to set the thickness precisely?

enter image description here

enter image description here

$\endgroup$
2
  • $\begingroup$ is ContourPlot3D[ Sin[x] Sin[y] Sin[z] + Sin[x] Cos[y] Cos[z] + Cos[x] Sin[y] Cos[z] + Cos[x] Cos[y] Sin[z] == 0, {x, -2 Pi, 2 Pi}, {y, -2 Pi, 2 Pi}, {z, -2 Pi, 2 Pi}, PlotTheme -> "ThickSurface", Method -> { "Extrusion" -> 1, "ExtrusionStyle" -> Directive[Red]}, Mesh -> None] any better? $\endgroup$
    – kglr
    May 12, 2020 at 7:18
  • $\begingroup$ Yes. I do not want a surface. I want the thickness to be smoother. $\endgroup$
    – Milk
    May 12, 2020 at 7:24

0

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service and acknowledge you have read our privacy policy.

Browse other questions tagged or ask your own question.