Руководство к решению задач по механике материалов и конструкций. Егодуров Г.С - 244 стр.

UptoLike

ВУЗ: 

ВСГУТУ | Улан-Удэ

Составители: 

Рубрика: 

244
Writeln (`Обратная матрица D`);
For I:=1 to K do
Begin For J:=1 to K do Write(D[i,j]:12:3);
Writeln;
End;
GMPRD(D11,D,E,K,K,K);
Writeln (`Единичная матрица E`);
For I:=1 to K do
Begin
For J:=1 to K do Write(E[i,j]:12:3);
Writeln;
End;
Stop;
LL:=1;
GMPRD(C,BP,D10,K,M,LL);
Writeln(`матрица D10`);
For I:=1 to K do Writeln(D10[i,j]:12:3);
Writeln;
GMPRD(D,D10,X,K,K,LL);
X[1,1]:=-X[1,1];
X[2,1]:=-X[2,1];
Writeln(`Вектор неизвестных реакций системы`);
Writeln(`X1=`,X[1,1]:7:3,`X2=`,X[2,1]:7:3);
GMPRD(B1,X,S2,M,K,LL);
For I:=1 to M do S[i,1]:=BP[i,1]+S2[i,1];
Writeln;
Writeln(`матрица изгибающих моментов в сечениях рамы`);
For I:=1 to M do Write(S[i,1]:12:3);
Writeln; Writeln(`Проверка проведенных операций`);
GMPRD(C,S,A,K,M,LL);
Writeln(`Проверочная матрицы`);
Writeln(`A1=`,A[1,1]:7;4,`A2=`,A[2,1]:7:4);
Readln;
END.
13.3. Пример расчета рамы
Пример. На рис.13.2,а показана рама, для которой надо построить эпюру изгибающих
моментов.
Решение. Эквивалентная система изображена на рис.13.2,б. От внешних нагрузок,
приложенных к основной системе, строится эпюра
f
M (рис.13.2,в,г). Затем строится эпюра
1
M от 1
1
=X (рис.13.2,д,е) и
2
M от 1
2
=
X (рис.13.3,а,б).
Правило знаков для изгибающих моментов: на рис.13.2,в штриховой линией показано,
с какой стороны должны находиться эпюры положительных изгибающих моментов. Здесь
же цифрами определена последовательность поперечных сечений (и, соответственно,
участков), в которой далее записываются изгибающие моменты в матрицах
f
b
и
1
b .
Матрица – столбец
f
b , записанная по значениям изгибающих моментов на эпюре
f
M
(рис.13.2,г), имеет вид 
       Writeln (`Обратная матрица D`);
       For I:=1 to K do
              Begin For J:=1 to K do Write(D[i,j]:12:3);
              Writeln;
              End;
              GMPRD(D11,D,E,K,K,K);
              Writeln (`Единичная матрица E`);
       For I:=1 to K do
              Begin
              For J:=1 to K do Write(E[i,j]:12:3);
              Writeln;
              End;
       Stop;
       LL:=1;
       GMPRD(C,BP,D10,K,M,LL);
       Writeln(`матрица D10`);
              For I:=1 to K do Writeln(D10[i,j]:12:3);
       Writeln;
       GMPRD(D,D10,X,K,K,LL);
       X[1,1]:=-X[1,1];
       X[2,1]:=-X[2,1];
       Writeln(`Вектор неизвестных реакций системы`);
       Writeln(`X1=`,X[1,1]:7:3,`X2=`,X[2,1]:7:3);
       GMPRD(B1,X,S2,M,K,LL);
       For I:=1 to M do S[i,1]:=BP[i,1]+S2[i,1];
       Writeln;
       Writeln(`матрица изгибающих моментов в сечениях рамы`);
       For I:=1 to M do Write(S[i,1]:12:3);
       Writeln; Writeln(`Проверка проведенных операций`);
       GMPRD(C,S,A,K,M,LL);
       Writeln(`Проверочная матрицы`);
       Writeln(`A1=`,A[1,1]:7;4,`A2=`,A[2,1]:7:4);
       Readln;
       END.
                                      13.3. Пример расчета рамы

      Пример. На рис.13.2,а показана рама, для которой надо построить эпюру изгибающих
моментов.
      Решение. Эквивалентная система изображена на рис.13.2,б. От внешних нагрузок,
приложенных к основной системе, строится эпюра M f (рис.13.2,в,г). Затем строится эпюра
M 1 от X 1 = 1 (рис.13.2,д,е) и M 2 от X 2 = 1 (рис.13.3,а,б).
      Правило знаков для изгибающих моментов: на рис.13.2,в штриховой линией показано,
с какой стороны должны находиться эпюры положительных изгибающих моментов. Здесь
же цифрами определена последовательность поперечных сечений (и, соответственно,
участков), в которой далее записываются изгибающие моменты в матрицах b f и b1 .
Матрица – столбец b f , записанная по значениям изгибающих моментов на эпюре M f
(рис.13.2,г), имеет вид




                                                244

Страницы