AcademiaXXI

Кирсанов М.Н. Решебник.Теоретическая механика. М.:ФИЗМАТЛИТ, 2002. Иллюстрации и программы к книге  Кинематика точки (Программа 3.  Скорость и ускорение точки. Радиус кривизны траектории.)   restart: Количество кадров анимации N:=50:k:=1.2:     Закон движения      x:=3*sin(t/2):y:=2*(1-3/4*sin(t))*cos(t/2):     Время движения   T:=evalf(4*Pi):   r:=vector([x,y,0]):      Вектора скорости и ускорения   v:=map(diff,r,t);W:=map(diff,r,t$2);       with(plots):      Параметры стрелок на рисунке   pv:=0.02,0.2,0.2:   with(plottools):   for i to N do …

Кирсанов М.Н. Решебник.Теоретическая механика. М.:ФИЗМАТЛИТ, 2002. Иллюстрации и программы к книге   Скорости точек плоского механизма >    restart:  with(linalg):    Угловые скорости звеньев w:=Matrix(1..10,1..10,shape=symmetric):   Подпрограмма 1 вычисления скорости средней точки   ib  двузвенника     с опорой ic  и известной скоростью конца ia   >    СХЕМА1:=proc(ia,ib,ic) local w1,w2,Wcb,Wba,eq,s:  global w,V: Wcb:=[0,0,w1]:Wba:=[0,0,w2]:  eq:=evalm(-V[ia]+crossprod(Wcb,X[ib]-X[ic])+crossprod(Wba,X[ia]-X[ib])):   s:=solve({eq[1],eq[2]},{w1,w2}); assign(s); w[ib,ic]:=w1:w[ib,ia]:=w2: …

Кирсанов М.Н. Решебник.Теоретическая механика. М.:ФИЗМАТЛИТ, 2002. Определение координат центра тяжести и моментов инерции плоской фигуры (Задача 4.6 из книги А.В.Александров, В.Д.Потапов,Б.П.Державин «Сопроивление материалов»)      restart:     Число  угловых точек   N:=12:     Размеры швеллера №27(мм)         h:=270: ts:=10.5: bs:=95: s:=6:     Размеры уголка 100х10(мм)     tu:=10: bu:=100:      Матрица координат   X:=0,-bs,-bs,-s,-s,-bs,-bs,bu,bu,tu,tu,0:   Y:=0,0,ts/2,1.55*ts,h-1.55*ts,h-ts/2,h,h,h-tu,h-tu,h-bu,h-bu:     Матрица координат      T:=matrix(2,N,[X,Y]):    with(plots):polygonplot(T,scaling=constrained); Warning, the name changecoords has been redefined      Площадь    Z:=T[2,i]*T[1,i+1]-T[1,i]*T[2,i+1]: …

Кирсанов М.Н. Решебник.Теоретическая механика.  М.:ФИЗМАТЛИТ, 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: …

Кирсанов М.Н. Решебник.Теоретическая механика.  М.:ФИЗМАТЛИТ, 2002. Иллюстрации и программы к книге 8.3. Задача 2 >    restart:   >    read «ris.m»;                Подписи шарниров на рисунке >    nam:=array(1..4,[‘O’,’A’,’B’,’C’]):                 Начальные значения и размеры ( cм) Замечание:  OC уменьшено с 87см  для того,  чтобы механизм делал полный оборот   >    OA:=29: BC:=47: AB:=41:               Угловая  скорость …

Кирсанов М.Н. Решебник.Теоретическая механика.  М.:ФИЗМАТЛИТ, 2002. Иллюстрации и программы к книге 8.2. Задача 2 >    restart:   >    read «ris.m»;                Подписи шарниров на рисунке >    nam:=array(1..5,[‘O’,’A’,’B’,’C’,’D’]):                 Начальные значения и размеры ( cм) Замечание:   DB уменьшено с 16см и угол 60 заменен на 30 для того,                       чтобы механизм делал полный оборот   > …

Кирсанов М.Н. Решебник.Теоретическая механика.  М.:ФИЗМАТЛИТ, 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см                       для того, чтобы механизм делал полный оборот   >    …

Кирсанов М.Н. Решебник.Теоретическая механика.  М.:ФИЗМАТЛИТ, 2002. Иллюстрации и программы к книге 7.2. Задача 2 >    restart:read «ris.m»;                Подписи шарниров на рисунке >    nam:=array(1..4,[A,B,C,D]):  nm:=array(1..4,[4,3,6,8]):               Pазмеры         ( cм) >    Ra:=40:ra:=30:Rb:=25:rb:=10: s:=100:a:=1.4:      скорость   >    vc:=36*t^3:                    Координаты >    x[9]:=0: y[9]:=0:   >    x[10]:=s: y[10]:=0:   >    x[4]:=Ra*cos(a): y[4]:=Ra*sin(a):   > …

Кирсанов М.Н. Решебник.Теоретическая механика.  М.:ФИЗМАТЛИТ, 2002. Иллюстрации и программы к книге 13.8. Пример 2 >    restart:   >    read «ris.m»;                Подписи шарниров на рисунке >    nam:=[O,A,B]:            Pазмеры ( cм) r1:=10: R1:=20:   >    R2:=20: OA:=60: OB:=OA-r1-R2:                 Координаты опоры O >      x[1]:=0:y[1]:=0:                Количество кадров K >    K:=12:with(plots):with(plottools):               Создаем все кадры …

Кирсанов М.Н. Решебник.Теоретическая механика. М.:ФИЗМАТЛИТ, 2002. Иллюстрации и программы к книге 13.8. Задача 5 >    restart:   >    read «ris.m»:   >    a:=30:d:=1:h:=25:b:=22:                     Координаты >      x[1]:=0:y[1]:=0:x[3]:=b:   x[4]:=-b:x[6]:=0:   x[5]:=0:             Количество кадров K   >    K:=12: with(plots):with(plottools):            Создаем все кадры >    for i from 0 to K do   > …