>

restart:

 

>	with(plots):with(plottools):

 

>	u1 := t -> 14/5*(cos(t) - cos(sqrt(6)*t));

 

>	u2 := t-> 28/5*cos(t) - 7/5*cos(sqrt(6)*t);

 

>	M1 := line([-1, -u1(a)], [1, -u1(a)], thickness = 30, color = green):

 

>	M2 := line([-1, -u1(a)-u2(a)-13], [1, -u1(a)-u2(a)-13], thickness = 30, color = blue):

 

>	S1 := line([0,10],[0,-u1(a)], thickness=2,color=black):

 

>	S2 := line([0,-u1(a)],[0,-u1(a)-u2(a)-13], thickness=2,color=black):

 

>	A2:=animate(plot, [-u1(t), t=0..a, color = red], a=0..30, view=[-2..30,-30..10],frames=300):

 

>	A3:=animate(plot, [-u1(t)-u2(t)-13, t=0..a, color = red], a=0..30, view=[-2..30,-30..10],frames=300):

 

>	A1:=animate(display, [S1,S2,M1,M2], a=0..30, view=[-2..30,-30..10],frames=300):

 

>	display(A1,A2,A3);

 

>