Кирсанов М.Н.
Решебник.Теоретическая механика.
М.:ФИЗМАТЛИТ, 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 [b,a,0], #B [b+d*cos(bt),a+d*sin(bt),0],#C [b-c*cos(al),a+c*sin(al),0],#D [b/2,a,0], #M [b+d/2*cos(bt),a+d/2*sin(bt),0],#N [b-c/2*cos(al),a+c/2*sin(al),0],#K [0,a/2,0]]: #L
|
Warning, the protected names norm and trace have been redefined and unprotected
Задаем угловую скорость звена OA для определения реакции Xc
| > | w[1,2]:=1: |
Скорости неподвижных шарниров О (№1) и D (№5) равны нулю
| > | V[1]:=[0,0,0]:V[5]:=[0,0,0]: |
| > | Расчет кинематики для определения Xc |
Определяем Va (№1)
| > | СХЕМА3(1,2,2): |
Определяем Vb (№3)
| > | СХЕМА1(2,3,5): |
Определяем Vm (№6) — середина AB
| > | СХЕМА3(2,3,6): |
Определяем Vk (№8) — середина DB
| > | СХЕМА3(5,3,8): |
Определяем Vc (№4) — ползун (угол 0)
| > | СХЕМА2(3,4,0): |
Определяем Vn (№7) — середина BC
| > | СХЕМА3(3,4,7): |
| > | printf(` vx vy x y `): |
| > | printf(`================================`): |
| > | for i from 1 to 8 do printf(`%1.0f) %05.2f, %05.2f, %05.3f, %05.3f, \n`,i,V[i][1],V[i][2],X[i][1],X[i][2]):od: |
vx vy x y
================================
1) 00.00, 00.00, 0.000, 0.000,
2) -0.30, 00.00, 0.000, 0.300,
3) -0.30, -0.30, 0.550, 0.300,
4) -0.82, 00.00, 0.700, 0.560,
5) 00.00, 00.00, 0.267, 0.583,
6) -0.30, -0.15, 0.275, 0.300,
7) -0.56, -0.15, 0.625, 0.430,
8) -0.15, -0.15, 0.409, 0.441,
| > | Xc:=-(add(dotprod(V[i],F[i]),i=1..8)+Mom*w[1,2])/V[4][1]; |
| > | for i to 9 do x[i]:=X[i,1]:y[i]:=X[i,2]: end: |
| > | with(plottools):with(plots): display(Lin(1,2),Lin(3,2),Lin(3,4),Lin(3,5),Опора(1,0.01), Опора(4,0.01),Опора(5,0.01),Cir(2,0.01),Cir(3,0.01),out3); |
Warning, the name arrow has been redefined
Warning, the name arrow has been redefined
