sfera=ParametricPlot3D[{Sin[\[CurlyTheta]]Cos[\[CurlyPhi]],Sin[\[CurlyTheta]]Sin[\[CurlyPhi]],Cos[\[CurlyTheta]]},{\[CurlyTheta],0,\[Pi]},{\[CurlyPhi],0,2\[Pi]},Boxed->False,Axes->False,PlotStyle->None,Mesh->{21,20}];
krzywaVivianiego=ParametricPlot3D[{a(1+Cos[t]),a Sin[t],2a Sin[t/2]}/.a->1/2,{t,-2\[Pi],2\[Pi]},PlotStyle->{Blue,Thick}];
krzywaloksodroma=ParametricPlot3D[a{Sin[t]Cos[Log[(1+Cos[t])/Sin[t]]],Sin[t]Sin[Log[(1+Cos[t])/Sin[t]]],Cos[t]}/.a->1,{t,0,\[Pi]},PlotStyle->{Blue,Thick}];