How to Enhance 3D Parametric Plots in Mathematica?

[Ishika_96_sparkles]

TL;DR Summary

I tried to make a superimposed plot of a curve on a half sphere and need help with some graphics.

This is the code line that i used to generate the following graphs

ParametricPlot3D[{{1 + Cos[t], Sin[t],
   2*Sin[t/2]}, {2 *Cos[t]*Sin[\[Phi]], 2*Sin[t]*Sin[\[Phi]],
   2*Cos[\[Phi]]}}, {t, 0, 2 \[Pi]}, {\[Phi], 0, \[Pi]/2},
 PlotStyle -> {Directive[Green, Thickness[0.025]], Yellow},
 PlotRange -> All, PlotLegends -> {"Curve 1", "Sphere"},
 BoxRatios -> {2, 2, 1}, Axes -> False, Background -> Gray,
 Boxed -> False, Mesh -> 10]

I obtained the following output

and with a slight change in the background

Query:

I want to know if the visual of the general curve can be improved
and if one could put arrowheads along the Curve 1 in the anti-clockwise sense of rotation. What could be the procedure?

When I turn off the Mesh, the Curve 1 also vanishes. How could I keep the curve and put Mesh-> None at the same time?

 

[DrClaude]

I want to know if the visual of the general curve can be improved

How?

and if one could put arrowheads along the Curve 1 in the anti-clockwise sense of rotation. What could be the procedure?

See https://mathematica.stackexchange.com/questions/127415/addding-arrows-in-closed-curves

When I turn off the Mesh, the Curve 1 also vanishes. How could I keep the curve and put Mesh-> None at the same time?

It works when I try it.

 

[Ishika_96_sparkles]

How?See https://mathematica.stackexchange.com/questions/127415/addding-arrows-in-closed-curvesIt works when I try it.

Thanks for the reply Dr Claude. I followed your link and tried to use it in my own code. I am able to get this

The improved visual of the graphic by using some built-in commands to label curves on the surface itself. For instance, the curve on the surface be labelled $\alpha (t)$ and is positioned along the curve somewhere.

About the Mesh-> None problem, i used Show[c1,s1] for the individual plots. Its solves now.

However, i still do not fully understand the technique of using the arrowheads. For example i use

c1=ParametricPlot3D[{1+Cos[t],Sin[t],2*Sin[t/2]},{t,0,pi/2}],
PlotStyle-> {Directive[Red,Thickness[0.005]],Arrowheads[{0,0.05,0.05,0.05,0}]},
PlotRange-> All,BoxRatios-> {2,2,1},Boxed-> True,Axes-> True]/.Line-> Arrow

I do not understand how the replacement works in this case! i.e. /.Line-> Arrow is linked to the list of arrowheads be placed on the curve c1. How? or should I have used /.c1-> Arrow?

 

[DrClaude]

c1=ParametricPlot3D[{1+Cos[t],Sin[t],2*Sin[t/2]},{t,0,pi/2}],
PlotStyle-> {Directive[Red,Thickness[0.005]],Arrowheads[{0,0.05,0.05,0.05,0}]},
PlotRange-> All,BoxRatios-> {2,2,1},Boxed-> True,Axes-> True]/.Line-> Arrow

This can't be the exact code as the brackets aren't paired.

I do not understand how the replacement works in this case! i.e. /.Line-> Arrow is linked to the list of arrowheads be placed on the curve c1. How? or should I have used /.c1-> Arrow?

The former is the correct approach. Note however the use of :> instead of -> and the fact that it is Line[x_], not simply Line.

 

[Ishika_96_sparkles]

This can't be the exact code as the brackets aren't paired.

Yes, i had typed it out by hand. Sorry for the inconvenience.

Here is all the code pasted below

Clear[c1, s1]

c1 = ParametricPlot3D[{1 + Cos[t], Sin[t], 2*Sin[t/2]}, {t, 0,
     2 \[Pi]},
    PlotStyle -> {Directive[Red, Thickness[0.005]],
      Arrowheads[{0, 0.05, 0.05, 0.05, 0}]}, PlotRange -> All,
    BoxRatios -> {2, 2, 1}, Boxed -> True, Axes -> True] /.
   Line -> Arrow;

s1 = ParametricPlot3D[{2 *Cos[t]*Sin[\[Phi]], 2*Sin[t]*Sin[\[Phi]],
    2*Cos[\[Phi]]}, {t, 0, 2 \[Pi]}, {\[Phi], 0, \[Pi]/2},
   PlotStyle ->
    Directive[Yellow, Opacity[0.3], Specularity[White, 10]],
   PlotRange -> All, BoxRatios -> {2, 2, 1}, Axes -> False,
   Background -> White, Boxed -> False, Mesh -> None];

Show[{c1, s1}]

Used the Arrow part in c1.