Программа 2. Анимация

>

restart:

>	with(plots):with(plottools):

>	R:=10:# Радиус

>	K:=12:# Количество кадров

>	Цилиндр:=cylinder([0,0,0],R,6):

>	Стержень:=cuboid([-1,-1,6],[20,1,8]):

>	Опора:=cuboid([10,-20,-6],[14,20,4]):

>	for i to K do

>	A:=sin(2*Pi*(i-1)/K)*Pi/6:

>	P1:=rotate(display(Стержень,Цилиндр),0,0,A):

>	P[i]:=translate(P1,0,A*R,0);

>

od:

                                 Изображение механизма в движении

>	PP:=display(seq(P[i],i=1..K),insequence=true):

>	display(PP,Опора,scaling=constrained,axes=normal,orientation=[-30,-44]);