Кирсанов М.Н. 

Решебник.Теоретическая механика.

 М.:ФИЗМАТЛИТ, 2002.

Иллюстрации и программы к книге

13.8. Задача 6

>

restart:

>	read "ris.m":

>	nam:=["O","A","O1","A1","B"]: a:=25:d:=1:h:=70:b:=35:

                    Координаты

>	x[1]:=0:y[1]:=0:   x[3]:=0:y[3]:=h:   y[5]:=b:y[6]:=b:y[7]:=b:             Количество кадров K

>	K:=12: with(plots):with(plottools):

           Создаем все кадры

>	for i from 0 to K do

>

t:=i/K:

>	phi:=sin(2*pi*i/K)*pi/6+pi/6:   x[2]:=a*cos(phi):y[2]:=a*sin(phi):   x[4]:=x[2]:      y[4]:=y[2]+h:   x[5]:=x[2]:      x[6]:=x[5]+h:   x[7]:=x[2]+2:   P[i]:=display(Cir(2,1),Cir(4,1), Lin(1,2),Lin(3,4),Lin(7,6),Line(2,4,8),box(5,2,6), seq(TEXT([x[j]-4,y[j]],nam[j]),j=1..5) ): od:

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

>	PP:=display(seq(P[i],i=0..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,Опора(1,1),Опора(3,1),Поверхность(30,b-1,11,2), Поверхность(30,b+1,11,-2));

>