plot3d(Axes = None,
       Title = "Spiral surrounding a Sphere",
       TitlePosition = Below,
       CameraPoint = [14.4, 14.4, 12.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, 3], Grid = [50], Smoothness = [5],
        Title = "surrounding spiral",TitlePosition = [0, 10]],
       [Mode = Surface,
        [2*sin(u)*cos(v), 2*sin(u)*sin(v), 2*cos(u)],
        u = [0, PI], v = [-PI, PI], Grid = [20, 20],
        Smoothness = [0, 0], Title = "sphere ",
        TitlePosition = [0, 0],
        Style = [ColorPatches, AndMesh]]);
