Кирсанов М.Н. Решебник.Теоретическая механика. М.:ФИЗМАТЛИТ, 2002.
Иллюстрации и программы к книге
8.5. Задача 4
restart:read «ris.m»;
Подписи шарниров на рисунке
nam:=array(1..5,[‘O’,’A’,’C’,’B’,’D’]):
Начальные значения и размеры ( cм)
AB:=20: OB:=20: OA:=AB+OB: AC:=35: BD:=30:
Время
T:=pi/18:
Координаты опор
x[1]:=0:y[1]:=0:
y[5]:=35:x[3]:=-50:
Количество кадров K
K:=12:with(plots):with(plottools):
Создаем все кадры
for i from 0 to K do
t:=i/K*T:
phi:=sin(2*pi*t/T)*pi/30+2*pi/3:
Координаты шарнира A
x[2]:=OA*cos(phi):
y[2]:=OA*sin(phi):
centr(1,2,4):
x[5]:=x[4]+sqrt(BD^2-(y[4]-y[5])^2):
y[3]:=y[2]-sqrt(AC^2-(x[2]-x[3])^2):
P[i]:=display(seq(Cir(i,1),i=2..5),
box(3,2,6),box(5,6,2),
seq(Line(i,i+1,6+i),i=1..2),
Line(4,5,6),
seq(TEXT([x[j],y[j]+4],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),Поверхность(5,32,20,2),Стенка(-53,5,30,2));
