plot3d(Title = "Spiral in form of a Sphere",
       TitlePosition = Below,
       Axes = Box, Ticks = 0, 
       [Mode = Curve, [(-3+abs(u))*cos(3*u*PI),
        (-3+abs(u))*sin(3*u*PI), 3*cos((u+3)*1/6*PI)],
        u = [-3.0, 3.0], Grid = [50], Smoothness = [5]]);
