Кирсанов М.Н. Решебник.Теоретическая механика. М.:ФИЗМАТЛИТ, 2002.
Иллюстрации и программы к книге
8.1. Задача 8
| > | restart: |
| > | read «ris.m»; |
Подписи шарниров на рисунке
| > | nam:=array(1..11,[‘O’,’A’,’C’,’D’,’B’,’N’,’F’,’E’,»G»,»K»,’H’]): Начальные значения и размеры ( cм) Замечание: OA уменьшено с 20см и CD увеличено с 15см для того, чтобы механизм делал полный оборот |
| > | AB:=20: BC:=10: |
| > | BF:=80: NF:=20:CD:=40:EH:=30:FG:=25: GE:=10: OA:=12:KG:=25: |
Угловая скорость OA и период обращения
| > | omegaOA:=2: T:=2*pi/omegaOA: |
Координаты опоры O
| > | x[1]:=0:y[1]:=0: |
Координаты опоры N
| > | x[6]:=-OA*cos(pi/6)+BF+NF: |
| > | y[6]:= OA*sin(pi/6)+AB: y[4]:=AB+BC+OA*sin(pi/6): x[10]:=x[6]-NF-KG*cos(pi/6): y[10]:=y[6]-FG-KG*sin(pi/6): y[11]:=y[6]-FG-GE-EH*sin(pi/6): |
Количество кадров K
| > | K:=12:with(plots):with(plottools): |
Создаем все кадры
| > | for i from 0 to K do |
| > | t:=i/K*T: |
Закон движения АO
| > | phi:=5*pi/6+t*omegaOA: Координаты шарнира А N1 |
| > | x[2]:= OA*cos(phi): y[2]:= OA*sin(phi): koord(6,2,5,BF+NF,AB): koord2(6,5,7,NF,BF): koord2(2,5,3,AB+BC,-BC): koord(10,7,9,KG,FG): koord2(7,9,8,FG,-GE): x[4]:=x[3]-sqrt(CD^2-(y[3]-y[4])^2): x[11]:=x[8]+sqrt(EH^2-(y[11]-y[8])^2): P[i]:=display(seq(Cir(i,1),i=2..11), box(4,5,2),box(11,5,2), seq(Line(i,i+1,4+i/4),i=1..3), seq(Line(2*i-1,2*i,8+i/3),i=3..5), Line(8,11,8), seq(TEXT([x[j]-2,y[j]+6],nam[j]),j=1..11) ): 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,seq(Опора(i,1),i=[1,6,10]),Поверхность(-65,33,25,3), Поверхность(90,-27,20,3)); |
| > |
| > |
| > |
| > |
