第2章 平面桁架4.ppt

2.8 程序设计 · 平面桁架静力计算程序 TRUSS.FOR的设计 · 平面桁架静力计算程序 TRUSS.FOR的设计 ⒈ 程序结构图 关于作业 041班 33/3 042班 36/39 043班 33/37 答案基本正确 · 准备输入数据（TRUSS.DAT）(1/3) READ(11,*) NJ,NE,MAT,NLOAD (主程序10行) 4,5,2,2 READ(11,*) (I,X(I),Y(I),ID(1,I),ID(2,I),I=1,NJ) 1,0,0,1,0 2,0,5,1,1 3,5,5,1,1 4,5,0,0,0 (INPUT程序5行) · 准备输入数据（TRUSS.DAT）(2/3) READ(11,*) (I,E(I),A(I),I=1,MAT) (INPUT程序17行) 1,2E8,0.2 2,2E8,0.1 READ(11,*) N,I,J,MATP(N) (INPUT程序25行) 1,1,2,1 2,2,3,1 3,3,4,1 4,1,3,2 5,2,4,2 · 准备输入数据（TRUSS.DAT）(3/3) READ(11,*) N,L,F (LOAD程序9行) 2,1,10 3,2,-20 · FORTRAN 编程语言环境介绍 COMPAQ VISUAL FORTRAN6.5 人机对话界面非常友好 源文件：TRUSS.FOR 编译： TRUSS.OBJ 集成： TRUSS.EXE 准备数据文件:TRUSS.DAT 执行：生成计算结果文件TRUSS.OUT ·分析计算结果（TRUSS.OUT）(1/7) ***** CONTROL DATA ***** NUMBER OF NODAL POINTS (NJ) = 4 NUMBER OF ELEMENTS (NE) = 5 NUMBER OF MATERIAL SETS (MAT) = 2 NUMBER OF NODAL POINTS (NLOAD)= 2 (TRUSS程序12行) ·分析计算结果（TRUSS.OUT）(2/7) ***** NODAL INFORMATION ***** NODE X Y U V 1 0.000000 0.000000 1 0 2 0.000000 5.000000 2 3 3 5.000000 5.000000 4 5 4 5.000000 0.000000 0 0 (INPUT程序15行) ·分析计算结果（TRUSS.OUT）(3/7) ***** MATERIAL INFORMATION ***** SET E A 1 0.20000E+09 0.20000 2 0.20000E+09 0.10000 (INPUT程序19行) ·分析计算结果（TRUSS.OUT）(4/7) ***** ELEMENT INFORMATION ***** ELEMENT I J MATERIAL SET 1 1 2 1 2 2 3 1 3 3 4 1 4 1 3 2 5 2 4 2 (INPUT程序27行) 分析计算结果（TRUSS.OUT）(5/7) NUMBER OF EQUATIONS (NEQ)= 5 MAXIMUM HALF BANDWIDTH ( MK)= 5 ***** NODAL LOAD INFORMATION *