AcademiaXXI

Кирсанов М.Н. Решебник.Теоретическая механика. М.:ФИЗМАТЛИТ, 2002. Иллюстрации и программы к книге     Определение координат центра тяжести плоской фигуры   restart: Число точек на дуге и число угловых точек N:=20:K:=4: pi:=evalf(Pi):  n:=K+N:      Матрица координат    F:=i*pi/N: X:=1,0,4,4: Y:=0,2,3,0:      Точки на дуге       Xcircl:=seq(3+cos(F),i=1..N):    Ycircl:=seq(sin(F),i=1..N):      Матрица координат       T:=matrix(2,n+1,[X,Xcircl,1,Y,Ycircl,0]):    with(plots):polygonplot(T,scaling=constrained);      Площадь    Z:=T[2,i]*T[1,i+1]-T[1,i]*T[2,i+1]:    A:=add(Z,i=1..n)/2;      Координаты центра тяжести       Xc:=add(Z*(T[1,i]+T[1,i+1]),i=1..n)/6/A;   Yc:=add(Z*(T[2,i]+T[2,i+1]),i=1..n)/6/A; …

  Кирсанов М.Н. Решебник.Теоретическая механика. М.:ФИЗМАТЛИТ, 2002. Иллюстрации и программы к книге  15.1. Расчет фермы  Программа 1   restart: with(LinearAlgebra): 1. Ввод данных      Число узлов и стержней фермы.   Нагрузки (кН), угол наклона опорного стрежня N:=7:  M:=2*N:  P:=30: Q:=15: F:=20: alpha:=evalf(Pi/3):beta:=evalf(Pi/3):     Длина опорных стержней на рисунке   d:=1.:                      Координаты узлов   x:=<0|2|6|8|1|4|7|-d|0|8-cos(beta)*d>:      y:=<0|0|0|0|2|2|2|0|-d|-sin(beta)*d>:      Номер узла начала …

  Список литературы Аладьев В.З., Богдявичус М.А. Maple 6: Решение математических, статистических и физико-технических задач. — М.: Лаборатория базовых знаний, 2001.—824с. Афанасьев В.И., Зимина О.В., Кириллов А.И., Петрушко И.М., Сальникова Т.А. Решебник. Высшая математика. Специальные разделы. — М.: ФИЗМАТЛИТ, 2001. — 400 c. Бать М.И., Джанелидзе Г.Ю., Кельзон А.С. Теоретическая механика в примерах и задачах.Т.1. …

Динамика машины с кулисным приводом >    restart: g:=9.81:      Параметры двигателя     Пусковой момент                                              M0 := -30:     Крутизна статической характеристики        k :=0.2:     Коэффициент сопротивления                    mu := 950:     Инерционный параметры           I1 := 2.5:                                                ma:=1:                                                m2 := 15:                                                m3 := 10:                                                m4 := 16:     Геометрические параметры        R1 :=0.4: r1 :=0.1: R3 :=0.3: r4 …

Кирсанов М.Н. Решебник.Теоретическая механика. М.:ФИЗМАТЛИТ, 2002. Иллюстрации и программы к книге Применение принципа возможных скоростей  для определения реакций опор составной конструкции >    restart: with(linalg):   >    read «kine.m»: read «ris.m»:    Размеры >    a:=0.3:b:=0.55:c:=0.4:d:=0.3:al:=pi/4:bt:=pi/3:    Нагрузки   >    F:=  [[0,0,0],[0,0,0],[20,0,0],[0,0,0],[0,0,0],         [0,-5.5,0],[0,-3,0],[0,-4,0],[0,-3,0]]:    Момент >    Mom:=30:    Координаты узлов >    X:=[[0,0,0],                      #O       [0,a,0],                    #A …

Кирсанов М.Н. Решебник.Теоретическая механика. М.:ФИЗМАТЛИТ, 2002. Иллюстрации и программы к книге Скорости точек механизма >    restart: with(linalg):   >    read «kine.m»:      Размеры >    AB:=30.:BC:=60.:CD:=30:DE:=20.: EF:=20.:FG:=10.:EH:=30.:F0:=20.:CK:=25.: al:=evalf(Pi/4):bt:=evalf(Pi/6):     Координаты узлов >    X:=[[AB*cos(al),-AB*sin(al),0],#A-1       [0,0,0],#B-2         [BC,0,0],# C-3       [BC+CD,0,0],# D-4       [BC+CD,-DE,0],# E-5       [BC+CD,-DE-EF,0],# F-6       [BC+CD,-DE-EF-FG,0],# G-7       [BC+CD+EH*cos(bt),-DE-EH*sin(bt),0],# H-8       [BC+CK*cos(bt),CK*sin(bt),0],# K-9       [BC+CD+FO,-DE-EF,0]]:# O-10    Задаем …

Кирсанов М.Н. Решебник.Теоретическая механика. М.:ФИЗМАТЛИТ, 2002. Иллюстрации и программы к книге Механизм с двумя степенями свободы (Программа 4, манипулятор)             Начальные значения и размеры    restart: OB1:=1.:AB:=0.9:  pi:=evalf(Pi):   OA:=0.8: AC:=0.5: phi0:=pi/6:                   Скорость ползуна В и угловая скорость  руки АС    VB:=-0.7:    omega:=3*pi/4:                   Закон движения ползуна В и  руки АС        phi:=phi0+t*omega:  OB:=OB1+t*VB:     cosp:=cos(phi):   sinp:=sin(phi):                   Определение тригонометрических функций …

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