- #1

Ishika_96_sparkles

- 57

- 22

- 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

I obtained the following output

and with a slight change in the background

I want to know if the

and

When I turn off the Mesh, the Curve 1 also vanishes. How could I

Mathematica Code lines:

```
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 improvedand

**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?