Метод конечных элементов в расчетах стержневых систем. Дьяков И.Ф - 109 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

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

Рубрика: 

109
Пример подпрограммы
- Переменные во фрагменте управляющей программы и в DFORM:
DFMG Размер рабочего массива оперативной памяти двойной точности
(матрица системы уравнений двойной точности)
FMG Размер рабочего массива оперативной памяти обычной точности
(матрица системы уравнений обычной точности)
P Вектор узловой нагрузки конструкции в общей системе координат
NF Номер файла прямого доступа
ISTR Число строк в матрице FMG
NS Число степеней свободы в узле КЭ
KNY Число узлов в конструкции.
COMMON DFMG (100000), FMG (200000), P (10000)
DOUBLE PRECISION DFMG, P
EQUIVALENCE (FMG (1), DFMG (1))
. . . . . . . . . . . . . . . .
CALL DFORM (NF, FMG, ISTR, NS, KNY)
CALL SOL (DFMG, P)
. . . . . . . . . . . . . . . .
STOP
END
C Преобразование матрицы из обычной в двойную точность
SUBROUTINE DFORM (NF, FMG, ISTR, NS, KNY)
DIMENSION FMG (1)
K = ISTR*NS
K1 = K+1
K2 = K+K
DO 1 I = 2, K2, 2
1 FMG (I) = 0.
DO 2 I = 1, KNY
NW = KNY+1–I
READ (NF, REC=NW) (FMG(J), J = 1, K2, 2)
NW = NW+NW–1
WRITE (NF, REC=NW) (FMG(J), J = 1, K)
NW = NW+1
WRITE (NF, REC=NW) (FMG(J), J = K1, K2)
2 CONTINUE
RETURN
END
4.3. Примеры расчётов стержневых систем
Приведен пример расчёта фермы с использованием программы Exell,
а также табуляграммы расчётов примеров стержневых систем, которые
содержат печать всех исходных данных: общую информацию о расчётной

Страницы