sfera=ParametricPlot3D[{Sin[\[CurlyTheta]]Cos[\[CurlyPhi]],Sin[\[CurlyTheta]]Sin[\[CurlyPhi]],Cos[\[CurlyTheta]]},{\[CurlyTheta],0,\[Pi]},{\[CurlyPhi],0,2\[Pi]},Boxed->False,Axes->False,Mesh->{21,20}];
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}];