Руководство к решению задач по механике твердого деформируемого тела матричными методами. Бундаев В.В. - 85 стр.

UptoLike

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

169
Учет граничных условий:
qtd
14
0.5
P
:=
j1 1 neq..:=
qtd
18
P
:=
qtd
20
P
:=
qtd
22
P
:=
qtd
24
0.5
P
:=
qtd
26
0.5
P
:=
qtd
28
P
:=
qtd
30
P
:=
qtd
32
P
:=
qtd
34
P
:=
qtd
36
0.5
P
:=
qtd
38
0.5
P
:=
qtd
40
P
:=
qtd
42
P
:=
qtd
44
0.75
P
:=
qtd
46
0.5
P
:=
qtd
48
0.25
P
:=
qtd
50
0.5
P
:=
qtd
52
P
:=
qtd
54
P
:=
qtd
56
0.5
P
:=
qtd
58
0.25
P
:=
qtd
60
0.5
P
:=
qtd
62
0.5
P
:=
qtd
64
0.25
P
:=
j 1 neq..:=
i 1 rows nsd()
.
.:=
qtd
j
qtd
j
qtd
j
sgl
j nsd
i
,
dis
i
i 1 rows nsd()
.
.for:=
qtd
nsd
i
()
sgl
nsd
i
nsd
i
,
()
dis
i
:=
sgl
nsd
i
j,
sgl
nsd
i
j,
()
nsd
i
jif
0 otherwise
:=
sgl
j nsd
i
,
sgl
j nsd
i
,
nsd
i
jif
0 otherwise
:=
qtd
j1
0
:= qtd
16
P
:=
170
Нахождение узловых перемещений:
Построение линии прогибов верхней кромки панели:
i1
6
.
.:=
ue
ik,
ud
MI
ki,
()
:=
rz i1 0
i1 i1 1+
rz
j1 k1,
ud
i1
j1 1 nsu..for
k1 1 nuz..for
rz
:=
rz
229,
32.238
=
rz
225,
29.789
=
rz
219,
24.556
=
rz
213,
17.509
=
rz
27,
8.945
=
rz
21,
0
=
w
1
rz
22
,
:=
w
2
rz
22
,
:=
w
3
rz
21
,
:=
w
4
rz
213,
:=
w
5
rz
2
7
,
:=
w
6
rz
21,
:=
                                                                 169                                                                                                                            170

                                                                                                                                                 Нахождение узловых перемещений:

j1 := 1 .. neq                      qtd         := 0              qtd           := 0.5⋅ P               qtd        := P
                                           j1                             14                                  16                         i := 1 .. 6                     ue          := ud
                                                                                                                                                                              i, k            ( MI k , i)
qtd        := P             qtd            := P                       qtd        := P                 qtd        := 0.5⋅ P
      18                            20                                      22                              24
                                                                                                                                         rz :=      i1 ← 0
qtd        := 0.5⋅ P             qtd        := P                 qtd           := P                   qtd        := P                               for k1 ∈ 1 .. nuz
      26                               28                                 30                                32
                                                                                                                                                         for j1 ∈ 1 .. nsu
qtd        := P                  qtd        := 0.5⋅ P                 qtd        := 0.5⋅ P             qtd        := P                                      i1 ← i1 + 1
      34                               36                                   38                               40
                                                                                                                                                            rz          ← ud
                                                                                                                                                              j1 , k1          i1
qtd        := P                    qtd          := 0.75⋅ P            qtd        := 0.5⋅ P             qtd        := 0.25⋅ P                        rz
      42                                   44                               46                               48

                                                                                                                                                 Построение линии прогибов верхней кромки панели:
qtd        := 0.5⋅ P                   qtd         := P                   qtd         := P             qtd        := 0.5⋅ P
      50                                      52                                54                           56
                                                                                                                                         rz         = 32.238                     rz            = 29.789     rz        = 24.556
                                                                                                                                           2 , 29                                    2 , 25                  2 , 19
qtd        := 0.25⋅ P            qtd        := 0.5⋅ P                 qtd        := 0.5⋅ P             qtd        := 0.25⋅ P
      58                               60                                   62                               64                          rz         = 17.509                     rz         = 8.945         rz       =0
                                                                                                                                           2 , 13                                    2, 7                    2, 1

                                                                                                                                         w := rz                                 w := rz                    w := rz
          Учет граничных условий:                                                                                                          1         2 , 29                          2          2 , 25       3        2 , 19
j := 1 .. neq                              i := 1 .. rows ( nsd )
                                                                                                                                         w := rz                                 w := rz                     w := rz
                                                                                                                                           4         2 , 13                          5          2, 7             6        2, 1
qtd := for i ∈ 1 .. rows ( nsd )
      j
                                                                                 qtd
                                                                                        ( nsdi) := sgl ( nsdi , nsdi) ⋅ dis i
                 qtd ← qtd − sgl                              ⋅ dis
                      j                j           j , nsdi           i



sgl              :=       sgl                   if nsd            j             sgl              :=   sgl               if nsd       j
      nsdi , j                  ( nsdi , j)               i                           j , nsdi              j , nsdi             i
                          0 otherwise                                                                 0 otherwise