Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

книги из ГПНТБ / Опыт оценки устойчивости склонов сложного геологического строения методом конечных элементов и экспериментами на моделях

..pdf
Скачиваний:
9
Добавлен:
24.10.2023
Размер:
10.49 Mб
Скачать

 

в и д е

п р о и з в е д е н и я

 

м а т р и ц

 

 

 

 

 

№*}=[*}

 

>

 

 

 

 

 

 

 

(12)

 

 

 

 

 

 

 

 

 

 

 

 

 

 

г д е

 

а н

а й

а „ . . .

а,„

 

 

OC j

 

 

 

 

 

 

[А] =

й г і

&п

Q.n...

й г п

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Q-mi Q.R14

--Q-mi

 

 

 

 

 

 

 

 

m

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Запись системы линейных уравнений в матричном

виде ( 12) широко используется в

м е т о д е

конечных

элементов .

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

3.

Т р а н с п о н и р о в а н н а я

 

 

 

 

 

 

м а т р и ц а

 

 

 

 

 

 

 

 

 

 

 

Если в

матрице

tt,,

а , а

 

а „ .

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

W

i ­

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

_ Q . m l Q . m 2 Û . m j . . . u m n

 

 

 

р а з м е р а

Ш х П

заменить

строки

столбцами,

то

полу ­

чим

так

называемую

т р

а

н с

 

п

о

н

и р

о

в

а н ­

н у ю

матрицу

 

 

 

 

0-2,

 

Û.J,

. . .

т 1

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Q.,2 О-П

 

Q.J2• . •

Û m 2

 

 

 

 

 

 

 

 

 

 

Q-in 0-2П

Q i n

• - - Q-mnj

 

 

р а з м е р а

П x m

 

. В частности,

д л я

матрицы - столбца

транспонированной является матрица - строка .

Часто

встречающееся

в

м е т о д е конечных

элементов

в ы р а ж е ­

ние

энергии

W

 

м о ж е т

быть

т о г д а

записано

в в и д е :

 

W = (F, I V

F 2 u 2 + . .

> F n u n ) = t F } T { u } = ( U ] T { F }

( 1 3 )

 

Транспонированные

матрицы

 

обладают

с л е д у ю щ и ­

ми

свойствами:

 

,

 

 

 

,

 

 

г „ , т

 

 

 

 

 

( w

*т)

 

 

-

 

[ А ] '

*

 

[

в ]

т

 

 

 

( t A l [ 6 ] ) T . [ B ] T [ A ] T .

260

Симметричная матрица совпадает со своей тран­ спонированной матрицей. Произведение симметричной матрицы [Д] на свою транспонированную [А] т а к ж е является симметричной матрицей :

 

 

[В]

- [А]

[Л] т

= [В] т .

 

 

 

 

 

 

4. И н в е р с и я

м а т р и ц

 

 

 

 

 

О б р а т н о й

м а т р и ц е й

по о т н о ш е ­

нию

к данной называется

матрица,

которая

будучи

у м ­

ноженной справа или слева на данную

матрицу,

д а е т

единичную

матрицу,

например:

 

 

 

 

(и)

матрице [А]

. Н а[АИАГ'ЧАГ'САЗ^Е .

 

 

З д е с ь матрица

[А] является

обратной

но отношению к

 

 

 

х о ж д е н и е

обратной

матрицы

д л я

д а н ­

ной

называется

и н в е р

с и

е

й

(обращением)

 

д а н ­

ной матрицы. Поэтому, и н о г д а матрицу [А]

н а з ы в а ­

ют

инверсией

матрицы [А] .

[А]

 

 

 

 

 

 

Если

в в ы р а ж е н и и

(12)

есть

квадратная

м а ­

трица, т . е .

m = И

, то

можно

за п ис ать :

 

 

 

[А]{Х}-М ,

( Х Н А Г ' М ,

Таким образом решение системы линейных у р а в ­ нений может быть сведено к инверсии матрицы к о э ф ­ фициентов.

Следует отметить некоторые свойства обратных матриц. Обратная матрица произведения квадратных матриц равна произведению обратных матриц сомножи­ телей, взятому в обратном порядке:

( [ A ] [ B ] ) - 4 B ] " W .

Транспонированная обратная матрица равна обратной от транспонированной данной матрицы:

( [ А Г ' Н Ш У .

261

П Р И Л О Ж Е Н И Е 2

П Р О Г Р А М М А РАСЧЕТА П Е Р Е М Е Щ Е Н И Й И Н А ­ П Р Я Ж Е Н И Й В М А С С И В Е Т Р Е Щ И Н О В А Т Ы Х П О ­ Р О Д М Е Т О Д О М К О Н Е Ч Н Ы Х Э Л Е М Е Н Т О В

Программа составлена на языке Алгол-бО

и ори ­

ентирована на использование Э Ц В М с большим

о б ъ е ­

мом оперативной памяти. Объем оперативной памяти

машин типа Б Э С М - 6, М и н с к - 3 2 (32768 слов)

п о з в о ­

ляет при комбинированной системе разбивки расчетной

области

на треугольные

и

прямоугольные

 

элементы

рассматривать схемы,

с о д е р ж а щ и е д о 400

узлов

(порядка

700 э л е м е н т о в ) ,

без обращения

к

внешним

запоминающим устройствам . При использовании

т р е у ­

гольной

сетки

разбивки

максимальное

количество у з ­

лов увеличивается д о

500

( п о р я д к а 9

0 0

э л е м е н т о в ) .

Программа

является

 

универсальной

в

том

смысле,

что позволяет производить расчет перемещений и нап ­

ряжений в массивах,

имеющих блоковое

строение,при

любом

характере

неоднородности,

произвольных

грани ­

чных

условиях и

видах

нагрузок.

По

этой

ж е

п р о г р а м ­

ме могут

о с у щ е с т в л я т ь с я

расчеты

н а п р я ж е н н о - д е ф о р ­

мированного состояния

в

системах

типа

" с о о р у ж е н и е -

основание" .

 

 

 

 

 

 

 

 

 

Некоторые

непринципиальные

изменения,

которые

вводились

в приведенную

программу,

позволяли

в о т ­

дельных

случаях

обеспечить е щ е

большую

экономию

машинной памяти. Например, при расчете напряженно -

деформированного

состояния

совместно с основанием -

сооружений одного из гидроузлов на

Э Ц В М Минск - 32

(программа на Я С К )

сетка

разбивки с о д е р ж а т а

598

узлов

(1100

треугольных э л е м е н т о в )

и использовалась

только

оперативная

 

память

машины .

 

 

 

В настоящее

время автором р а з р а б а т ы в а е т с я

б о ­

лее компактная форма записи обобщенной матрицы

ж е с ­

ткости,позволяющая

реализовать на машинах Б Э С М - 6 ,

Минск-32 расчеты

с и с т е м , с о д е р ж ащих

д о 850

узлов

(около

1600

треугольных элементов)

б е з использова ­

ния внешних

запоминающих

устройств

Э Ц В М .

 

 

262

 

 

 

 

 

 

 

 

BEGIN INTEGER NM , NM, NP, NP2, NJ, MR., MUMF,U£ > NIT, NITER, NUMC ;

R.EAU REUAX, K S ; INPUT(NN,NN,N?,NR,NUMF,TJ2,N1TER(REUAX, KS,NUMC))

NP'«NM*NNj

NP2*NP«2; NU« NP2-U»-,

«>DTPUT(ЫМ,МЫ,ЫР^Р2, NJ, NR.UZ, NU,NUMF,NITER, REbAX , KS, NU MC )•,

BEGIN INTEGER, I.JjK.U.M^H.A, B,A4,A2,Aa,IA,JA,KA,IC;rC, КСДТ, Bô^B-t^TJ, K^K2,K3,K4 ,E,NC j

REAb X4,X&,XS, M,^y3,S1,SMl SN,E4S,E2S,E3S,E4S,MX,R:ES,

AR.RAV X ,У C4--NP3, ХГУ'^РгТ, OEPU'NR,4:23, KT,KNtV.NT3 ; INTEGER ARRAV NJEC^NJ,V.23, NRE

INPUT ( X, У , "DEF, KT, KN, NJ E ) ; АИЗ« 1 i

J:=NJE [4,23;

FOR Mfs4 STEP Л UNTlb NM-4 P(P FgR, NislSTEP \ UNTIb NN D0 BEGIN I-.в NN«(M-4) + ti)

I F I» 7 THEN BEGIN A'-sA+T)

I F Aa NJ THEN A:= -1 ; J==NJEtA,23,

GO Ml END)

NR.E CB3 :s I J

Mil END",

NC'« \ ;

 

OUTPUT

DEF,KT,K,N , NTE, NRE)-,

M3-. B E S I N AaRAV FtA'NP2J , CCA = NP2,1M8];

BEGIM ARR-Ay P F M - ' N O M F J , GAMMA U : N R ] ;

I N T E & E R ARRA^j N F U : M Ü M F J -

I N P U T ( P F , N F , G A M M A ) ;

F O R M « Л S T E P i U N T I L N P 2 D 0 F C M ] t = 0 ;

F O R . M-.s 4 STEP 1 UNTIL,

W M F ОФ

B E G - X N Wi5

NFtM];

 

F L N 3 : = PFLMJ

 

E N D ;

 

 

Fg>R М«Д S T E P 1 U N T I L

N R O©

FOR. H:= 0,\

DO

 

B E G I N r-= N R E L M ] ;

 

J:=I+NN-x(^-H)-4;

 

K-.sX+NM-H ;

 

X4--S X C J ] - X C I J ;

 

X2'-= X CI3- X[K3;

 

У

tt]-4ü];

 

У М

- У I I ] ;

 

S1--= A6S(Xl«y2.- Х2-У1)/6;

SM:= G A M M A { M 3 „

Fg>R. А : * І Д К Dg FCA+NPJ:= FCA+NPJ + S M END-,

O U T P U T ( P F , N F , G A M M A , F )

264

BEG-IN ARRAV &СѴ.ІИд63, 0CVV-SJ,GDM'6,1!M, RU<6H:«; INTEGER ARRAy KU[OM,VHg];

INPUT(KU);

OUTPUT(KU);

TOR M:=4 STEP A UNTIL NP2. Dg

F0R.

STEP 1 UNTIL

48 DÇ> С Г М . ^ - О ;

FgR

M := 4,2,3 O0

 

 

F0R, M<H STEP Л UNTIU

6 D0 G [ M , N 3 - 0 ;

DL< '- 33 '•= D13,-0 '= t> W,S3 >= D15,23 '= ° ;

 

M-H STEP -I UNTIL

NR. 0Ф

Fg>R, H-=Oj4

 

 

BEGIN I:s NR.E CM3)

 

J-:sH-KINx(-|-H)--t;

 

QUM •= G- t3,4] •= У С«ГJ - У CK] ;

Gt1,a].= G[3,5j'=

У СЮ - У LI3 j

G t W = G U,6J.=

У [ I ] - У &ГЗ >

GBHJ» © tVÜ™

Х1Ю - XU3 ;

GC2,5]-=G 13,23-.=

Ш З - ХЕК];

GL2,61'.=& 13,31 < =

X U 3 - X U 3 )

Si»

2»ABS (Gt2,GJ*GlH,2J-GC2<53*Gi:<l,3])j

S4-= 4/S1>

 

 

Dt3,33:s ОЕРСМИЗ/(4+Г>Е-РІМ,23); DC^23==DL2/3 •«ОСЗ.ЗЗОЕРСм^З/М-г* DEPtM,2J)>

Dt3,33-=t>t3,î3/2-,

1>И,4].-д 1>[2,23 -s D[4,23 + 2* ГЯЗ.ЗЗ}

A1:=4 STEP 1 UNTIL

G £>ÇS

FOR. А2:=ЧД,3 D0

 

BEGIN &Х>СА1,А2Д:=0)

 

17-1655

265

F O R , А-.*\г2,ѣ D ®

G-DLM,A2II-= GD[A-»,A23 + G-CVI]* DtA,A23

END-,

 

 

 

 

FOR. A1

1 S T E P

1

UMTIU б

Ов

FOR. А2:*Л S T E P

\

U N T I L , 6

DO

BEG-IN

R,[A<,A2]!*0;

 

FOR. A'.« 4,2,3

DO

 

R.CA4,A2]:= ИСАН,А23 + 6\DCA1,A] x G СА,А2Э;

«.[A1,A2]i=

x R.CA1,A2T

 

END;,

 

 

 

 

FOR. A:=q,A 00

 

 

 

BEGIN A1:'s 3*A-M)

 

A2'= A1+4;

 

 

 

A3=A1+1;

 

 

 

ІА; = І+ХРлА;

 

 

JA- = J + N P * A - ,

 

 

KA:=K+HP* A)

 

 

FOR B>M STEP

Л UNIT l b

6 DO

BEGXM B6-=B+6; 84.2.:= &t 42; 1С!« KULH,B3; JC-= KU CH,B63; KC'-=KUl>,B42J}

С LIAДСj •= С [IA,IC] * Jt ГА-1, B3 ;

ССТА,ТСЗ: = С[ТАДСЗ* R.CA2.,83; C-tKA, KC3-' = С СКА, КСЗ *• 1UAÎ,8]

END

E N D

E N D

END-,

266

B E G I N АЙЛАУ J B . СV.вИ! 83;

 

I N T E G E R .

АЯЯАЦ

PZ*'4,4--4l,£Hl4i*3,3KO№4},

NSC^eD;

I N P U T ( P , J K U , N S ) ;

 

 

O U T P T 3 T C P , J < U , N S ) )

 

 

F O R . M-.«1

S T E P

1 TJNTlu N J D O

 

B E G I N 1rs

N J E C M , 2 3 ,

 

KssI.i-NM-/»;

 

 

 

TJ:= MJELM.1];

 

 

X4:= XCIJ - X tAMj

 

 

У Ш - У С М З ;

 

 

Xa:=SaRT(x-»1«2+ У4*2),

 

У2' = X1/X2;

 

 

 

ХЗ==У2*УЗ;

 

 

 

У2»= У2т2>

 

 

 

УѴ=УЗт2і

 

 

 

E>»S-= К Т Е М Д »

У2 +

У З ;

 

E2S== (ктсмз- KN £ M])K Х З ;

 

EÎS:= K T [ M ] и уз +

K N Ü M 1 « У2;

 

Х2:=Х2/б;

 

 

 

FOR. M'M STEP 1 TWTIl. 4 De

 

FOR K2'.= 4 STEP

A UNTIL ^ D ®

 

BEGIN

КЗ'»к2+4;

 

JR[K1,K23:- E4S-E1S;

 

JR.[K4,K3]:=

E4S»E3Sj

 

267

З Я І К ^ К М - . » Ж И К ^ М Э ^ E 4 S * E I S

E N D ;

 

 

 

 

 

 

 

FOR,

A : = < V D<2>

 

 

 

 

BEGTNl

EM t1]'-= EWC53l=I"TJ* L*(* - TJ) + NP».A'>

ENtSU:=ENCej!= J x T J + I x O - T J ) *

ЫрхА-

ENCWl s EM[7]i = K>cTJ + J K ( A - T J ) +

NPX-A;,

E N [4]:= ENt8]: = L.xTCr+ Kx(-t-7J)+

MP* A ;

Kn: = 4 * A )

 

 

 

 

 

FOR. M:=4

S T E P 4

TJMTlb -4

DO

BEÇXN K 2 : - N-t- К Л )

 

 

 

li:-

JKUtNr,

 

 

 

 

K3-= E N C K - Z ] ;

 

 

 

F O R . E:=4

S T E P

4 U N T I L , 8

tx,

 

B E G I N K 4 - H + N S I E J )

 

 

 

C [ K S , K 4 j ! =

ССКГ$,К4] * 7 R . C K 2 . E J

 

EMD

 

 

 

 

 

EMD

 

 

 

 

 

 

END

 

 

 

 

 

 

 

END

 

 

 

 

 

 

 

END;

 

 

 

 

 

 

 

B E G I M I M T E G E R . A R R A S

NZM:ÜiJ,NPüC1:NU3,K3tiM83;

X W P T J T С N i ) ;

 

 

 

 

 

A-.= &•.= -!;

 

 

 

 

 

 

FOR, I»s

A

S T E P

1

UMTXU

NP2. DO

 

B E G I N

U t I J i = 0 ;

 

 

 

 

I F 1= N21BJ

ТйЕЫ

 

 

 

8 E G X M

I F 8 = TJi

THEM

B>«4 E U S E

B - - B + 4 - ,

go TO M 2.

M > )

N P U САЗ : * Г ,

END;

OUTPUT (NPU.NE)i

F0R.IT:=4 STEP 1 UNTIL, NITER DÇ» BE&IN FOR M:=1 STEP Л UNTIL NU DÇ>

BEGIN r-= J== NPULM]; JA:=5j

I f I>NP THEN SESIN JA-M4,l!=1-»4P END; FOR. К=0,<|,2 РФ

pea кг--о,\,г

pe

BEGIN

A - K1*3> + ^2+45

K J

£A3,:=I+(K2-1)*NN * Л - к 4 }

I F

WIA]<4 THEN K7LA3:»4;

I f

КЛА]

>NP THEN KJCA}:=NP;

K3CA+9ÛK0[A3+ NP

END;

 

 

 

FOR.

 

N:=4

STEP 4 UNTIL. Kb DO

BE6T.N

A.=

tCJtN^

R E S - - R E S + C [ J , N 3 * U [ A 3

END",

COR.:= RELAX* RES/cCT,TA];

•ÜCJJ'«UC33COR.; I F E « 5 0 THEN

BEGIN

CR. := ABS (COR./RELAX);

I F

CR > MX THENl NVX'.sCR

END

 

Соседние файлы в папке книги из ГПНТБ