Главная страница сайта  Российские промышленные издания (узловые агрегаты) 

0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 [ 80 ] 81 82 83 84 85 86 87 88

Учет граничных условий

DO 500 N= ),NB NX= 10..(NDF~ 1)

I = NBC(N)

NROWB = (I - 1).NDF

Проверка каждой степени свободы

DO 490 М = I.NDF

NROWB = NROWB + 1

ICON = NFIX(N)/NX

1F(ICON)450,450,420 420 SK(NR0WB,1)= 1

DO 430 J = 2,\BAND

SK(NROWB,J) = 0

NR = NROWB+ 1 - J

IF(NR)430,430,425 425 SK(NR,J) = 0. 430 CONTINUE

450 ?3i<i=0"*-""° 490 CONTINUE 500 CONTINUE

RETURN

С С С

Программа 20-6

SyBROUTINE SOLVE Спецификация

C0MM0N/C0NTR/TITLE(12),NP,NE,NB,NDF,NCN,NLD,NMAT, NSZF,LI,NT4

COMMON cord(100,2),NOP(200,4},1MAT(200),ORT(25,2),NBC(25), NFIX(25)

1,R1(200),SK(200,40)

IB.AND = 40

Сокращение матрицы

do 300 n = i;ns2f

I = n

do 290 l = 2,nband 1 = 1 + 1 „ IF(SK(n,l)) 240,290,240 j=gSK(n,l)/SK(n,l)

do 270 K = l,nband J=J+ I

„ 1F(SK(n,K)) 260,270.260

280 SK(N,L) = C

Сокращение вектора нагрузки для каждого уравнения

RI(I) = R1(I)-C.RI(N) 290 CONTINUE 300 Rl(N) = Rl(N)/SK(N.l)

350 360

370 400

Обратный ход

N = NS2F N = N-1 1F(N) 500,500,360 L = N

DO 400 K = 2,NBAND L = L+ 1

IF(SK(N,K)) 370,400,370

R1(N) = R1(N)-SK(N,K)*R1(L)

CONTINUE

GO TO 350

RETURN END

20.6. Вычисление внутренних усилий и вывод результатов

Последним этапом решения обычных линейных задач методом конечных элементов является вычисление внутренних усилий для элемента.

Для каждого элемента необходимо выполнить следующие две операции:

а) сформировать вектор решения в координатах, связанных с рассматриваемым элементом;

б) построить матрицу напряжений для перехода от вектора решения к внутренним усилиям. Эта матрица уже упоминалась в разд. 20.4, где рассматривалась подпрограмма вычисления матрицы жесткости. Она формируется либо путем считывания с внешней памяти, либо путем дополнительного вызова подпрограммы вычисления матрицы жесткости.

Кроме внутренних усилий, часто бывает удобно вычислить некоторые другие силы. Например, в плоских задачах вычисляются значения максимального и минимального напряжений и их направления. В конце работы программы иа печать выводятся необходимые сведения о напряжениях.

При решении более сложных нелинейных задач подпро--грамма вычисления напряжений обычно становится отправной

С С С



точкой для циклического процесса вычисления уточненной матрицы жесткости (зависящей от уровня напряжений) или уточненного вектора нагрузки. Вектор нагрузки обычно строится спомощью метода начальных напряжений или деформаций (см

Блок-схема и пример подпрограммы. Подпрограмма STRESS выводит на печать перемещения, считает и печатает напряжения в элементах в задачах о плоской деформации.

Обозначения переменных в подпрограмме STRESS

Вектор перемещений Вектор сил элемента Л1атрица обратного хода Вектор перемещений элемента

Максимальное напряжение в Л-м элементе Минимальное напряжение в М-и элементе Отклонение от вертикали в направлении часовой стрелки линии действия максимального напряжения iV-ro элемента

Примечание. Предложение EQUIVALENCE позволяет использовать массив DIS (2, 100) для вектора решения R1 (200), а массир внутренних сил FORCE (200, 3) - для хранения массива SK.

Программа 20-7

SUBROUTINE STRESS 1

DIMENSION DIS(2,100),FORCE(200,3)

C0MM0N/C0NTR/TITLE(t2),NP,NE,NB,NDF,NCN,NLD.NMAT, NS2F,LI,NT4

COMMON CORD(100,2),NOP(200,4),IMAT(209),ORT(25,2)NBC(25),

NFIX(25) 1,R1(200),SK(200,40) 2,B(3,6), R(8)

EQUIVALENCE (D1S( 1),R1 (1 )),(SK( 1 ),FORCE(I))

DIS (2, 100)* (cm. примечание)

FORCE (200, 3)* (cm. примечание) В (3,6) R (8)*

SMAX

SMIN

Блок-схе.ча подпрограммы STRESS

Начало

Вывод перемещений

Начало цикла по злементам

Считывание матрицы напряжений, тлу-ченноО в результате обратного хода

вычисление вектора перемещений элеметА

Вычисление напряжений злемента

Конец иикпа по апементам

Начало иинла по злементам

ычиоление векторов главных напряжений

Печать напряжений

Кшец цикла по злементам

Возврат в основную программу



С С С

С С С

Печать перемещений write(6,i00)

write(b,110) (m,(dis(j,m),j = l.ndf) м ? Ж( 5>-зно18Р1:асемеытГ)

no f0rmat(i1u,2fi5.4)

Вычисление усилий в элементе

= I.NP)

С С С

DO 200 NC= 1,NE

READ(M4) N,((B(I,J),J = 1,6),I = 1.3)

DO 260 1 = l.NCN

M = N0P(N,1)

1F{M.EQ.0) GO TO 260

K = (I- 1).NDF

DO 240 J= l.NDF

IJ = J + К 240 R(U) = D1S(J,M) 260 CONTINUE

IA = K + NDF

DO 300 1 = 1,3

FORCE(N,1) = 0.

DOO 300 J = 1,IA 300 FORCE(N,I) = FORCE(N,I) + B(I,J).R(J) 200 CONTINUE

WR!TEC6,10l)

Вычисление главных напряжений и их направлений

ООО 600 N = l.NE 250 C = (FORCE(N,l)4-FORCE(N,2)U2.

А = SQRT(((F0RCE(N,2) - FOrCE(N,I))/2)..2 + FORCE(N,3)..2) SMAX=C + A SMIN=C-A

IF(F0RCE(N,2).EQ.SMIN)G0 to 700

ANG == 57.29578.ATAN(FOrCE(N,3)/FORCE(N,2)- SMIN))

GO TO 210 700 ANG = 90. 210 CONTINUE

I Печать всех компонент напряжений

400 WRITE(6,I11)

101 FORMAT(I07HO ELEMENT X-STRESS Y.STPP45

Ш {L-fMTT?,0,5F17,Ff2t) -"- RETURN

10 12

16 16 17 .18 19 20 21 22 23 24 26 28

29 38 39 40 41 42 43 44 45

54 55

20.7. Пример задачи

На фиг. 20.3 показана простая задача о плоской деформации треугольной области при нагружении вертикальной силой. Для расчета область разбита на 9 элементов с 10 узлами. Треугольник закреплен в точках 1 и 4.

В этой задаче используются следующие подпрограммы:

а) программа

б) подпрограмма

в) подпрограмма

г) подпрограмма

д) подпрограмма

е) подпрограмма

MAIN GDATA LOAD STIFT2 FORMK SOLVE

ж) подпрограмма STRESS

(пр. 20-1),

(пр. -20-2),

(пр. 20 3),

(пр. 20-4),

(пр. 20-5),

(пр. 20-6),

(пр. 29-7).

Ниже приведены инструкции для ввода исходных данных, а также образец данных и печати результатов для показанной на фиг. 20.3 задачи.


Фнг. 20.3. Плоская деформация треугольной области. -0,96iV=0,2. Эквивалент для плоского напряженного состояния; £=t,0, Л1=0,25.

Инструкции для ввода исходных данных

1. Перфокарта, содержащая информацию о задаче (15)

Кол. 1-5* Номер задачи (nprob) .

2. Перфокарта, содержащая заголивэк (12а6)

Кол. 1-72 Зеголовок, печатаемый при выводе (title)



0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 [ 80 ] 81 82 83 84 85 86 87 88
sharepoint designer.