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

UptoLike

ВУЗ: 

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

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

Рубрика: 

92
WRITE (8,4) KYZO,NS,KELEM,KMAT,LENTA
4 FORMAT (/18X,'И C X O Д H Ы E Д A H H Ы E'/18X,
129(1H*)//
83X,'Узлов: ',I5/
23X,'Cт. св. в узле:',I5/
33X,'Элементов: ',I5/
43X,'Mатериалов: ',I5/
53X,'Лента: ',I5//
63X,'Hомер материала Mодуль упругости')
DO 6 I=1,KMAT
READ(5,5)J,MAT(J)
5 FORMAT(I5,F10.1)
6 WRITE (8,7) J,MAT(J)
7 FORMAT(I10,F23.2)
RETURN
END
SUBROUTINE GRYS(P)
COMMON /UZL/COOR(2000,2)
COMMON /RAZM/KYZO,NS,KELEM,N,LENTA
COMMON/XAR/IE,IT,T(3),F,ZI,NMAT,WZ,NY
DIMENSION P1(3),GXS(30,3)
DIMENSION MSVOB(6)
DIMENSION P(N)
INTEGER T
DO 1 I=1,N
1 P(I)=0.
READ(5,2) KYZGR
2 FORMAT(I5)
DO 5 I=1,KYZGR
READ(5,3) NYZGR,(P1(J),J=1,NS)
3 FORMAT(I5,3F10.2)
J=(NYZGR-1)*NS
DO 4 I1=1,NS
4 P(J+I1)=P1(I1)
5 CONTINUE
WRITE (8,6) KYZGR
6 FORMAT(/3X,'Узлов с нагрузкой и перемещениями:',I5//
114X,'Kоординаты ',15X,'Bектор нагрузки'/
21X,'Узел',8X,'X',9X,'Y',17X,'Px',9X,'Py',9X,'Mz')
DO 9 I=1,KYZO
READ(5,7)J,(COOR(J,I1),I1=1,2)
7 FORMAT(I5,2F10.2)
I1=(J-1)*NS+1
J1=J*NS
WRITE (8,8) J,(COOR(J,I2),I2=1,2),(P(I2),I2=I1,J1)
8 FORMAT(I4,F12.2,F10.2,F19.2,2F11.2)
9 CONTINUE
READ(5,2)KELSH
WRITE (8,12) KELSH
12 FORMAT (/3X,'Элементов с шарнирами:',I5)
IF(KELSH)21,21,14
14 WRITE (8,15)
15 FORMAT (3X,'Граничные условия: 0 -
связь'/
122X,'1 - свобода в MCK'/
221X,'-1 - свобода в OCK'/
33X,'Элемент',2X,'Dx',2X,'Dy',2X,'Rz')
DO 20 I=1,KELSH
READ(5,17)NELEM,(MSVOB(J),J=1,6)
17 FORMAT(I5,6I2)
WRITE (8,18) NELEM,(MSVOB(J),J=1,3)

Страницы