Lamp shade from analytic expression

Lamp shade made from an analytic expression using this Mathematica code in case of #1:

ParametricPlot3D[   {If[z > 0, Cos[z], Exp[z/5]]*    (Cos[u] +     (1 + Tanh[z + \[Pi]/2])*(0.13 Sin[5 (u + z)] +       0.01 Sin[2.5 (u + z)]^2)*0.4 Cos[z]^2 + (1 + Tanh[z]) Cos[     15*z]*0.05),  If[z > 0, Cos[z], Exp[z/5]]*(Sin[u] +   (1 + Tanh[z + \[Pi]/2])*(0.13 Cos[5 (u + z)] +       0.01 Sin[2.5 (u + z)]^2)*     0.4 Cos[z]^2 + (1 + Tanh[z]) Sin[15*z]*0.05),  z}, {u, 0, 2 \[Pi]}, {z, -0.8 \[Pi], \[Pi]/2}, PlotPoints -> 200]  

Print using e.g. vase option of slic3r or with a single wall. #2 is designed for smaller overhang angles.