Резюме.

Абажур, изготовленный на основе аналитического выражения с использованием этого кода Mathematica в случае #1:

ParametricPlot3D[ {Если[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), Если[z > 0, Cos[z], Exp[z/5]]*(Sin[u] + (1 + Tanh

Печатайте, используя, например, опцию "Ваза" в Slic3r или с одной стенкой. #2 предназначен для меньших углов навеса.