I have a curve like below;
ParametricPlot[
FromPolarCoordinates[{Exp[(t + 0)*0.5], t}] // Evaluate, {t, 0,
Pi - 0}, PlotRange -> All]
This curve rotates around z axis. Therefore for a rotation of pi/2 gives something like this:
ParametricPlot[
FromPolarCoordinates[{Exp[(t + Pi/2)*0.5], t}] //
Evaluate, {t, -Pi/2, Pi - Pi/2}, PlotRange -> All]
What I want is to plot all the curves in a specified circle when it rotates with 3.6 degrees. And I want the sum of curves in the circle.
I tried this code but it didn't work:
ParametricPlot[Sum[HeavisideTheta[1 -
((Exp[(t + Pi*i/50)*0.5]*Cos[t] -
1)^2 + (Exp[(t + Pi*i/50)*0.5]*Sin[t])^2)]*
FromPolarCoordinates[{Exp[(t + Pi*i/50)*0.5], t}], {i, 1, 100}] //
Evaluate, {t, -Pi*i/50, Pi - Pi*i/50}, PlotRange -> All]
I also tried this code:
ParametricPlot[ Evaluate@Sum[ HeavisideTheta[ 1 - ((Exp[(t + Pi*i/50)*0.5]Cos[t] - 1)^2 + (Exp[(t + Pii/50)*0.5]Sin[t])^2)] FromPolarCoordinates[{Exp[(t + Pi*i/50)*0.5], t}], {i, 1, 100}], {t, -Pi, Pi}, PlotRange -> All]
But it gives something like below:
What I need is something like this:
And the sum of those curves in the circle area.
How should I write the code to achieve what I want?
ParametricPlot[ Table[FromPolarCoordinates[{Exp[(t + 2 k Pi/100)*0.5], t}], {k, 1, 100, 5}], {t, -Pi, Pi}, PlotRange -> All, PlotStyle -> Red, RegionFunction -> Function[{x, y}, (x - 3)^2 + y^2 < 9]] // Show[#, ContourPlot[(x - 3)^2 + y^2 == 9, {x, 0, 6}, {y, -3, 3}, ContourStyle -> Blue]] &
? $\endgroup$