12-2-3.html | AcademiaXXI

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

12.2. Задача 3

restart:

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

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

Считываем библиотеку стандартных программ для рисования

read «ris.m»;

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

OA:=2:AA:=7: a:=0.15: b:=3: BC:=10:R:=1.5:r:=0.1:

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

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

Координаты опоры O

x[0]:=0:y[0]:=0:

with(plots):with(plottools):

Warning, the name changecoords has been redefined

Warning, the name arrow has been redefined

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

K:=24:

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

for i from 0 to K do

t:=i/K*T:

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

phi:=pi/4+t*omegaOA:

Координаты шарнира А N1

x[1]:= OA*cos(phi): y[1]:= OA*sin(phi):

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

x[2]:=x[1]: y[2]:=4*a-b:
Координаты ползуна C N3

x[4]:=x[2]+BC: y[4]:=-b:

Координаты цилиндра D N4

x[3]:=BC/2: y[3]:=R-b:

Координаты центра N5

x[5]:=x[1]: y[5]:=-b:

Координаты N6

x[6]:=x[1]: y[6]:=-4*a-b:

x[7]:=x[1]: y[7]:=y[1]-AA:

x[8]:=x[0]: y[8]:=y[0]-AA:

P[i]:=display(box(5,2*a,4*a),box(4,3*a,2*a),
Cir(1,r),Cir(7,r),Cir(5,r),Cir(4,r),Cir(3,R),
Line(0,1,0),Line(7,8,0),
Line(1,2,7),Line(7,6,7),Lin(5,4),
cir4(3,R,x[1]/R),
PLOT(seq(TEXT([x[j]+0.2,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(Поверхность(5*R,-2.5*a-b,4*R,0.3),PP,Опора(0,0.1),
Опора(3,0.1),Опора(8,0.1));

>