MaplePrimes - answers and comments on Question, Easy: how to plot multiple procedure balls on one axis?

This works

Markiyan Hirnyk — Tue, 08 Jan 2013 20:29:51 Z

> ball := proc (x, y) plots[pointplot]([[x, y]], color = blue, symbol = solidcircle,
symbolsize = 20) end proc;
>with(plots): p := [animate(ball, [1+sin(t), 1-sin(t)], t = 0 .. 2*Pi, scaling = constrained,
frames = 100), animate(ball, [sin(t), sin(t)], t = 0 .. 2*Pi, scaling = constrained,
frames = 100)];
> display(p);
Download two_balls.mw

Built by frames

Carl Love — Wed, 09 Jan 2013 00:22:43 Z

Markiyan's answer is fine, but here is another way. I prefer to build each frame of an animation, and then animate it, rather than merging animations. I think this gives more flexibility for changes, and avoids some repetition of arguments.

ball:= Pt-> plots:-pointplot([Pt], color= blue, symbol= solidcircle, symbolsize= 20):
balls:= ()-> plots:-display(ball ~ ([args])): # One frame
BallData:= [[1+sin, 1-sin], [sin,sin]]: # All data in one place.
plots:-animate(balls, BallData(t), t= 0..2*Pi, scaling= constrained, frames= 100);

Indeed it does!

User7843 — Tue, 08 Jan 2013 21:16:28 Z

Thanks! If I had more rep i'd upvote your answer.

Improvement

Markiyan Hirnyk — Wed, 09 Jan 2013 01:03:12 Z

> with(plots): ball := proc (x, y) pointplot([[x, y]], color = blue, symbol = solidcircle, symbolsize = 20) end proc:
> BallData := [[1+sin(t), 1-sin(t)], [sin(t), sin(t)]]:
> display([seq(animate(ball, BallData[j], t = 0 .. 2*Pi, scaling = constrained, frames = 100), j = 1 .. nops(BallData))]);