Question: Easy: how to plot multiple procedure balls on one axis?

Bear with, I'm a noob. This is my code so far:

    > ball := proc (x, y) plots[pointplot]([[x, y]], color = blue, symbol = solidcircle, symbolsize = 20) end proc;

    > animate(ball, [1+sin(t), 1-sin(t)], t = 0 .. 2*Pi, scaling = constrained, frames = 100);

I like the output I have but my aim is to have, say, 8 of these balls, all with their own trajectories, and animated on the same axis. All the trajectories would depend only on one parameter, t.

 

This was my attempt at getting another ball, but it failed.

    > ball := proc (x, y) plots[pointplot]([[x, y]], color = blue, symbol = solidcircle, symbolsize = 20) end proc;

    > animate(ball, [[1+sin(t), 1-sin(t)], [sin(t), sin(t)]], t = 0 .. 2*Pi, scaling = constrained, frames = 100);

 

Many thanks.

Please Wait...