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