Кирсанов М.Н. 
Решебник.Теоретическая механика.
 М.:ФИЗМАТЛИТ, 2002.
Иллюстрации и программы к книге

13.8. Задача 1

>    restart:

>    with(plots):with(plottools):

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

>    Маховик:=cylinder([0,0,0],10,6):
Стержень:=cuboid([0,0,6],[20,2,8]):
Опора:=cuboid([10,-20,-6],[14,20,4]):
for i to K do
 A:=sin(2*Pi*i/K)*Pi/6:
 P1:=display(rotate(PLOT3D(Маховик,ORIENTATION(0,-30)),0,0,A)):

>     P2:=display(rotate(PLOT3D(Стержень),0,0,A)):

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

>    od:

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

>    PP:=display(seq(P[i],i=1..K),insequence=true,
                             thickness=2,
                             scaling=constrained,
                             axes=none):

Warning, the name changecoords has been redefined

Warning, the name arrow has been redefined

>    display(PP,Опора);

[Maple Plot]

>