Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Manipulate[
- Graphics[
- Table[
- Disk[
- {Cos[3 (.1*t + n)*2 Pi/100 + .1], Cos[4 (.1*t + n)*2 Pi/100 + .7]},
- .03*Cos[7 (.1*t + n)*2 Pi/100] + .05],
- {n, 1, 100}],
- PlotRange -> 1.1, ImageSize -> 500],
- {t,1,10,1}]
Add Comment
Please, Sign In to add comment