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

UptoLike

ВУЗ: 

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

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

Рубрика: 

87
Пример подпрограммы
- Переменные, помещенные в общую область COMMON:
FMGP (1000000) Массив матрицы жёсткости конструкции
P (10000) Массив вектора узловой нагрузки конструкции
- Файлы последовательного доступа:
5 Файл ввода: для чтения исходных данных из файла в память
8 Файл вывода: для записи данных из памяти в файл
2, 3, 4 Рабочие файлы
C Управляющая программа MAIN
COMMON FMGP(1000000),P(10000)
open(5,file='ramaplos.inp',status='old',form='formatted')
open(8,file='ramaplos.out',status='unknown',form='formatted')
open(2,status='scratch',form='unformatted')
open(3,status='scratch',form='unformatted')
open(4,status='scratch',form='unformatted')
REWIND 2
REWIND 3
REWIND 4
100 WRITE (8,1)
1 FORMAT (///5X,'Статика плоской стержневой системы')
CALL DAN
CALL GRYS(P)
CALL SUMMA(FMGP)
CALL FMKO(FMGP)
CALL ZPER(FMGP,P)
CALL PODAT (FMGP)
CALL SOLKO(FMGP,P)
CALL VSFST(P)
REWIND 2
REWIND 3
REWIND 4
GO TO 100
END
Оператор управления GO TO позволяет выполнять последовательно
решение нескольких задач одновременно.
Основные вспомогательные подпрограммы выполняют следующие
функции:
CLST – вычисляет матрицу направляющих косинусов осей местной и
общей систем координат КЭ.
FMT – формирует матрицу ортогонального преобразования коорди-
нат КЭ.

Страницы