Message Boards Message Boards

[?] Create an animation of the Nephroid of Freeth?

Posted 7 years ago

Trying to create an animation of the Nephroid of Freeth with Mathematica

Clear[z];
a = 1;
Do[z[j] = PolarPlot[a*(1 + 2*Sin[t/2]), {t, 0, j}, Ticks -> False,
    PlotRange -> {{-3, 1.5}, {-2.5, 2.5}}], {j, 4 Pi/50, 4 Pi, 4 Pi/50}];
POSTED BY: Mary Ann

Try Manipulate:

a = 1; Manipulate[
 PolarPlot[a (1 + 2 Sin[t/2]), {t, 0, j}, Ticks -> False, 
  PlotRange -> {{-3, 1.5}, {-2.5, 2.5}}], {j, 4 Pi/50, 4 Pi, 4 Pi/50}]

Sure, you can export animation as a gif file:

enter image description here

Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract