12-2-6.html | AcademiaXXI

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

12.2. Задача 6

restart:read «ris.m»;

Подписи шарниров на рисунке

nam:=array(0..4,[O,A,B,C,D]):

Начальные значения и размеры ( м)

OA:=1.5: AB:=OA: L:=5:BC:=7:R:=1:r:=0.1:a:=0.12:

Угловая скорость OA и период обращения

omegaOA:=2: T:=2*pi/omegaOA:

with(plots):with(plottools):

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

K:=12:

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

for i from 0 to K do

t:=sin(pi*i/K)*T/12:

Закон движения АO

phi:=pi/12+t*omegaOA:

Координаты O

x[0]:=-phi*R:y[0]:=0:

Координаты шарнира А N1
x[1]:=x[0]+OA*cos(phi): y[1]:= OA*sin(phi):

Координаты шарнира B N2

x[2]:=x[1]+OA*cos(phi): y[2]:=0:

Координаты шарнира C N3

x[3]:=BC: y[3]:=-R:

x[4]:=x[3]+2*R: y[4]:=-L-x[2]/2:

x[5]:=x[3]: y[5]:=0:

x[6]:=x[3]+R: y[6]:=-R:

x[7]:=x[6]: y[7]:=y[4]:

x[8]:=x[4]+R: y[8]:=y[4]:

x[9]:=x[8]: y[9]:=0:

P[i]:=display(box(2,3*a,2*a),
Line(0,1,6),Lin(1,2),Line(2,5,9),
              Line(6,7,9),Line(8,9,9),
              Cir(2,r),Cir(1,r),Cir(0,r),Cir(4,r),
Cir(0,R),Cir(3,R),Cir(4,R),
cir4(0,R,-x[0]/R),cir4(3,R,-x[2]/R),
cir4(4,R,x[2]/R/2),            seq(TEXT([x[j]+0.3,y[j]+0.7],nam[j]),j=0..4)):od:

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

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

display(Поверхность(-3*R,-R,4*R,0.4),
Поверхность(1.1,y[2]-2.5*a,3*R,0.3),
Поверхность(x[9]-R,y[9],2*R,-0.3),PP,Опора(3,0.1));