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

UptoLike

ВУЗ: 

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

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

Рубрика: 

97
Такие подходы позволяют, не изменяя порядок матрицы жёсткости
конструкции, реализовать условия закрепления задачи и выполнять расчё-
ты не только при заданной нагрузке, но и (или) при заданных перемеще-
ниях.
Заданная жёсткость (податливые опоры, жёсткость узловых соедине-
ний) учитываются путем их суммирования с соответствующими элемен-
тами матрицы жёсткости конструкции, расположенными на главной диа-
гонали.
Примеры подпрограмм
C ФOPMИPOBAHИE CИCTEMЫ УPABHEHИЙ PABHOBECИЯ
SUBROUTINE FMKO(FMGP)
COMMON /RAZM/ KYZO,NS,KELEM,N,LENTA
DIMENSION ISS(3)
DIMENSION FMGP(N,LENTA)
READ(5,1) NG
1 FORMAT(I5)
WRITE (8,2) NG
2 FORMAT (/3X,'Узлов с зекреплениями:',I5)
WRITE (8,3)
3 FORMAT (3X,'Условия закреплений: 0 - связь'/
124X,'1 - свобода'/
23X,'Узел',5X,'Dx',3X,'Dy',3X,'Rz')
DO 10 I1=1,NG
READ(5,4)K1,(ISS(I),I=1,NS)
4 FORMAT(I5,3I2)
WRITE (8,5) K1,(ISS(I),I=1,NS)
5 FORMAT(I6,I8,2I5)
DO 9 J=1,NS
IF(ISS(J))9,6,9
6 K2=(K1-1)*NS+J
FMGP(K2,1)=1.
DO 8 J1=2,LENTA
FMGP(K2,J1)=0.
K3=K2+1-J1
IF(K3)8,8,7
7 FMGP(K3,J1)=0.
8 CONTINUE
9 CONTINUE
10 CONTINUE
RETURN
END
C РЕАЛИЗАЦИЯ ЗAДAHHЫX УЗЛOBЫX ПEPEMEЩEHИЙ
SUBROUTINE ZPER(FMGP,P)
COMMON/RAZM/KYZO,NS,KELEM,N,LENTA
DIMENSION FMGP(N,LENTA),P(N)
READ(5,1)KPER
1 FORMAT(14I5)
WRITE (8,2) KPER
2 FORMAT (/3X,'Заданных перемещений:',I5)
IF(KPER)7,7,3
3 WRITE (8,4)

Страницы