SPlot = ParametricPlot3D[{Cos[θ]Sin[ϕ],Sin[θ]Sin[ϕ],Cos[ϕ]},{θ,0,2π},{ϕ,0,π}]

//Options

CurvePlot = ParametricPlot3D[{Sqrt[1-t^2]*Cos[5π t],Sqrt[1-t^2]*Sin[5π t],t},{t,0,1}]

Show[SPlot,CurvePlot]

Export["MySpherePlot.eps",Show[SPlot,CurvePlot], "EPS"]

Export["FrinkleMorrisICCS053DRealTime.eps",Show[{GHunter1, BCollective1, Thinker1},PlotRange->{{1.`,24.`},{1000.`,10000.`},{0.`,2400`}},Ticks->{{2, 12, 19, 24}, {2000, 4000, 8000, 10000}, {800, 1600, 2400}},ViewPoint->{1.8255624707223126`,2.3738183930082197`,1.5755341641824594`},ViewVertical->{0.`,0.`,1.`},PlotLabel->StyleForm["Runtime vs Processes and Number of Bodies",{10,FontFamily->"Times New Roman"}],ImageSize->{400, 400}],"EPS",{"AllowRasterization"->False}]

SPlot2 = ParametricPlot3D[{Cos[θ]Sin[ϕ],Sin[θ]Sin[ϕ],Cos[ϕ]},{θ,0,2π},{ϕ,0,π}, PlotStyle->{GrayLevel[0.6],Opacity[0.6]}, Mesh->None, MaxRecursion->3]

CurvePlot2 = ParametricPlot3D[{Sqrt[1-t^2]*Cos[5π t],Sqrt[1-t^2]*Sin[5π t],t},{t,0,1}, PlotStyle->{GrayLevel[0.1], Thickness[0.02]}]

Show[SPlot2,CurvePlot2]

//Options

Show[SPlot2,CurvePlot2, ViewPoint->{2.9616557718594043`,-0.18457604529885918`,1.6262001022364112`},ViewVertical->{0.13533480441426457`,0.05286985718469969`,0.9893883306949922`}, Lighting->"Neutral"]

Show[SPlot2,CurvePlot2, ViewPoint->{2.9616557718594043`,-0.18457604529885918`,1.6262001022364112`},ViewVertical->{0.13533480441426457`,0.05286985718469969`,0.9893883306949922`},Lighting->{{"Point",White,{1,1,1}}}]

Export["MySpherePlot2.eps",Show[SPlot2,CurvePlot2, ViewPoint->{2.9616557718594043`,-0.18457604529885918`,1.6262001022364112`},ViewVertical->{0.13533480441426457`,0.05286985718469969`,0.9893883306949922`}], "EPS"]

Export["MySpherePlot3.eps",Show[SPlot2,CurvePlot2, ViewPoint->{2.9616557718594043`,-0.18457604529885918`,1.6262001022364112`},ViewVertical->{0.13533480441426457`,0.05286985718469969`,0.9893883306949922`}, Lighting->{{"Point",White,{1,1,1}}}], "EPS", {"AllowRasterization"->False}]

Show[SPlot2,CurvePlot2, ViewPoint->{2.9616557718594043`,-0.18457604529885918`,1.6262001022364112`},ViewVertical->{0.13533480441426457`,0.05286985718469969`,0.9893883306949922`},BaseStyle->{FontFamily->"Times",FontSlant->"Plain",FontSize->8,FontColor->Black}, Axes->True,AxesLabel->{StyleForm["x",{FontFamily->"Times",FontSlant->"Italic",FontSize->8,FontColor->Black}],StyleForm["y",{FontFamily->"Times",FontSlant->"Italic",FontSize->8,FontColor->Black}],StyleForm["z",{FontFamily->"Times",FontSlant->"Italic",FontSize->8,FontColor->Black}]},ImageSize->{200,200},Ticks->{{-1,0,1},{-1,0,1},{-1,0,1}},Lighting->{{"Point",White,{1,1,1}}}]

SPlot3 = ParametricPlot3D[{Cos[θ]Sin[ϕ],Sin[θ]Sin[ϕ],Cos[ϕ]},{θ,0,2π},{ϕ,0,π}, ColorFunction->GrayLevel,PlotStyle->{GrayLevel[0.6],Opacity[0.6]}, Mesh->None, MaxRecursion->3]

Show[SPlot3,CurvePlot2, ViewPoint->{2.9616557718594043`,-0.18457604529885918`,1.6262001022364112`},ViewVertical->{0.13533480441426457`,0.05286985718469969`,0.9893883306949922`},BaseStyle->{FontFamily->"Times",FontSlant->"Plain",FontSize->8,FontColor->Black}, Axes->True,AxesLabel->{StyleForm["x",{FontFamily->"Times",FontSlant->"Italic",FontSize->8,FontColor->Black}],StyleForm["y",{FontFamily->"Times",FontSlant->"Italic",FontSize->8,FontColor->Black}],StyleForm["z",{FontFamily->"Times",FontSlant->"Italic",FontSize->8,FontColor->Black}]},ImageSize->{200,200},Ticks->{{-1,0,1},{-1,0,1},{-1,0,1}},Lighting->{{"Point",White,{1,1,1}}}]

Export["MySpherePlot4.eps",Show[SPlot3,CurvePlot2, ViewPoint->{2.9616557718594043`,-0.18457604529885918`,1.6262001022364112`},ViewVertical->{0.13533480441426457`,0.05286985718469969`,0.9893883306949922`},BaseStyle->{FontFamily->"Times",FontSlant->"Plain",FontSize->8,FontColor->Black}, Axes->True,AxesLabel->{StyleForm["x",{FontFamily->"Times",FontSlant->"Italic",FontSize->8,FontColor->Black}],StyleForm["y",{FontFamily->"Times",FontSlant->"Italic",FontSize->8,FontColor->Black}],StyleForm["z",{FontFamily->"Times",FontSlant->"Italic",FontSize->8,FontColor->Black}]},ImageSize->{200,200},Ticks->{{-1,0,1},{-1,0,1},{-1,0,1}},Lighting->{{"Point",White,{1,1,1}}}], "EPS", {"AllowRasterization"->False}]

SPlot4 = ParametricPlot3D[{Cos[θ]Sin[ϕ],Sin[θ]Sin[ϕ],Cos[ϕ]},{θ,0,2π},{ϕ,0,π}, ColorFunction->GrayLevel,PlotStyle->{GrayLevel[0.6],Opacity[0.6]}, Mesh->None, MaxRecursion->5]

Show[SPlot4,CurvePlot2, ViewPoint->{2.9616557718594043`,-0.18457604529885918`,1.6262001022364112`},ViewVertical->{0.13533480441426457`,0.05286985718469969`,0.9893883306949922`},BaseStyle->{FontFamily->"Times",FontSlant->"Plain",FontSize->8,FontColor->Black}, Axes->True,AxesLabel->{StyleForm["x",{FontFamily->"Times",FontSlant->"Italic",FontSize->8,FontColor->Black}],StyleForm["y",{FontFamily->"Times",FontSlant->"Italic",FontSize->8,FontColor->Black}],StyleForm["z",{FontFamily->"Times",FontSlant->"Italic",FontSize->8,FontColor->Black}]},ImageSize->{200,200},Ticks->{{-1,0,1},{-1,0,1},{-1,0,1}},PlotRange->{{-1,1},{-1,1},{-1,1}},Lighting->{{"Point",White,{1,1,1}}}]

Export["MySpherePlot5.eps",Show[SPlot4,CurvePlot2, ViewPoint->{2.9616557718594043`,-0.18457604529885918`,1.6262001022364112`},ViewVertical->{0.13533480441426457`,0.05286985718469969`,0.9893883306949922`},BaseStyle->{FontFamily->"Times",FontSlant->"Plain",FontSize->8,FontColor->Black}, Axes->True,AxesLabel->{StyleForm["x",{FontFamily->"Times",FontSlant->"Italic",FontSize->8,FontColor->Black}],StyleForm["y",{FontFamily->"Times",FontSlant->"Italic",FontSize->8,FontColor->Black}],StyleForm["z",{FontFamily->"Times",FontSlant->"Italic",FontSize->8,FontColor->Black}]},ImageSize->{200,200},Ticks->{{-1,0,1},{-1,0,1},{-1,0,1}},PlotRange->{{-1,1},{-1,1},{-1,1}},Lighting->{{"Point",White,{1,1,1}}}], "EPS", {"AllowRasterization"->False}]

Show[CurvePlot2,SPlot4, ViewPoint->{2.9616557718594043`,-0.18457604529885918`,1.6262001022364112`},ViewVertical->{0.13533480441426457`,0.05286985718469969`,0.9893883306949922`},BaseStyle->{FontFamily->"Times",FontSlant->"Plain",FontSize->8,FontColor->Black}, Axes->True,AxesLabel->{StyleForm["x",{FontFamily->"Times",FontSlant->"Italic",FontSize->8,FontColor->Black}],StyleForm["y",{FontFamily->"Times",FontSlant->"Italic",FontSize->8,FontColor->Black}],StyleForm["z",{FontFamily->"Times",FontSlant->"Italic",FontSize->8,FontColor->Black}]},ImageSize->{200,200},Ticks->{{-1,0,1},{-1,0,1},{-1,0,1}},Lighting->{{"Point",White,{1,1,1}}}]

Show[CurvePlot2,SPlot4, ViewPoint->{2.9616557718594043`,-0.18457604529885918`,1.6262001022364112`},ViewVertical->{0.13533480441426457`,0.05286985718469969`,0.9893883306949922`},BaseStyle->{FontFamily->"Times",FontSlant->"Plain",FontSize->8,FontColor->Black}, Axes->True,AxesLabel->{StyleForm["x",{FontFamily->"Times",FontSlant->"Italic",FontSize->8,FontColor->Black}],StyleForm["y",{FontFamily->"Times",FontSlant->"Italic",FontSize->8,FontColor->Black}],StyleForm["z",{FontFamily->"Times",FontSlant->"Italic",FontSize->8,FontColor->Black}]},ImageSize->{200,200},Ticks->{{-1,0,1},{-1,0,1},{-1,0,1}},PlotRange->{{-1,1},{-1,1},{-1,1}},Lighting->{{"Point",White,{1,1,1}}}]

Export["MySpherePlot6.eps",Show[CurvePlot2,SPlot4, ViewPoint->{2.9616557718594043`,-0.18457604529885918`,1.6262001022364112`},ViewVertical->{0.13533480441426457`,0.05286985718469969`,0.9893883306949922`},BaseStyle->{FontFamily->"Times",FontSlant->"Plain",FontSize->8,FontColor->Black}, Axes->True,AxesLabel->{StyleForm["x",{FontFamily->"Times",FontSlant->"Italic",FontSize->8,FontColor->Black}],StyleForm["y",{FontFamily->"Times",FontSlant->"Italic",FontSize->8,FontColor->Black}],StyleForm["z",{FontFamily->"Times",FontSlant->"Italic",FontSize->8,FontColor->Black}]},ImageSize->{200,200},Ticks->{{-1,0,1},{-1,0,1},{-1,0,1}},PlotRange->{{-1,1},{-1,1},{-1,1}},Lighting->{{"Point",White,{1,1,1}}}], "EPS", {"AllowRasterization"->False}]