Расчет статически определимых ферм в среде MathCAD. Бундаев В.В. - 4 стр.

UptoLike

ВУЗ: 

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

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

Рубрика: 

7
i =1,nel
j = nuz
ST[i,j]
≠
0
А
pr[i,1]:=pr[i,1]-ST[i,j]*C[j,1];
pr[i,2]:=pr[i,2]-ST[i,j]*C[j,2]
i:=1,nel
22
])2,[(])1,[(:][ ipripril +=
i:=1,nel
j:=1,2
][
],[
:],[
il
jipr
ji
=
α
B
да
нет
Вычисление значений
компонентов вектора про-
екций стержней
П
ρ
Определение значений
длин стержней l
i
Вычисление значений ком-
понентов вектора направ-
ляющих косинусов
α
ρ
8
Рис.2
да
B1
j
:=1
,
nel
i:=1
,
nuz
SC[i,j]=1
нет
SZ[2*i-1,j]:=
α
[j,1];
SZ[2*i-1,j]:=α[j,2];
SC[i,j]=-1
SZ[2*i-1,j]:=-
α
[j,1];
SZ[2*i-1,j]:=-α[j,2];
да
нет
Вво
Р
Получение матрицы
P
S и
векто
р
а
Q
ρ
Решение СЛАУ методом Гаус-
са с выделением главного
элемента
Печать вектора
N
ρ
конец
В
i:=1,nuz2
j
:=1,nel
SZ[i,j]:=0.0
В1
Составление матрицы
*
S
                                       7                                                           8


                                                                                 В                                 B1

                     А
                                                                             i:=1,nuz2                          j:=1,nel

                i =1,nel                                                                                        i:=1,nuz
                                                                             j:=1,nel

                j = nuz                                                                                                              нет
                                                                            SZ[i,j]:=0.0                       SC[i,j]=1

 нет                                                                                                          да
                ST[i,j] ≠ 0
                                                                                                         SZ[2*i-1,j]:=α[j,1];
                          да                                                                             SZ[2*i-1,j]:=α[j,2];
                                           Вычисление значений                  В1
    pr[i,1]:=pr[i,1]-ST[i,j]*C[j,1];       компонентов вектора про-
    pr[i,2]:=pr[i,2]-ST[i,j]*C[j,2]                         ρ
                                           екций стержней   П         Составление матрицы
                                                                                                   нет
                                                                               S*                              SC[i,j]=-1

                                                                                                              да

                                                                                                         SZ[2*i-1,j]:=-α[j,1];
                i:=1,nel
                                                                                                         SZ[2*i-1,j]:=-α[j,2];

                                             Определение значений
l[i ] := ( pr[i,1]) 2 + ( pr[i,2]) 2         длин стержней li

                                                                                                                Ввод Р


                i:=1,nel                                                                           Получение матрицы        SP   и
                                                                                                           ρ
                j:=1,2                                                                             вектора Q

                                                                                                   Решение СЛАУ методом Гаус-
                                           Вычисление значений ком-
                    pr[i, j ]                                                                      са с выделением главного
       α [i, j ] :=                        понентов вектора направ-
                                                                ρ                                  элемента
                     l[i ]                 ляющих косинусов   α
                                                                                                                            ρ
                                                                                           конец         Печать вектора     N

                     B                                                                             Рис.2

Страницы