I would like to export this parametrization from ParametricPlot3D
in a 3D format such as .obj or .stl. All the exports I have made show an ugly mesh.
Is there a way to export the mesh as you see it on Mathematica?
param[a_, g_][u_, v_] :=
{50*(a + Cos[u/2]*g*Sin[v] - Sin[u/2]*Sin[2 v]) Cos[u],
50*(a + Cos[u/2]*g*Sin[v]- Sin[u/2]*Sin[2 v]) Sin[u],
50*(Sin[u/2]*g*Sin[v] + Cos[u/2]*Sin[2 v])}
ParametricPlot3D[param[2, 1][u, v] // Evaluate, {u, 0, 2 Pi}, {v, 0, 2*Pi},
PlotPoints -> {50, 50}, Axes -> None, Boxed -> False]