User Portlet
| Discussions |
|---|
| I have this: Clear [r]; r[t_] := 5 + Sin[10 t]; curves = ParametricPlot[r[t] {Cos[t], Sin[t]}, {t, 0, 2 Pi}]; Animate[Show[curves, Graphics[{PointSize[0.03], Point[r[t] {Cos[t], Sin[t]}]}]], {t, 0, 2 Pi}] How... |
| Could you help me in solving this issue. I would like making the point to follow the round sinusoidal curve, instead to turn on a circle. Here is what I wrote: r = 5 + Sin[20 t]; curves = ParametricPlot[{r Cos[t], r Sin[t]}, {t, 0, 2... |