您的位置： 无忧文档所有分类高等教育工学 有限元程序分析与算例

有限元程序分析与算例

详细

平面四结点等参数单元分析程序

一、 源程序：

! PROGRAM NODE4.FOR

! IMPLICIT DOUBLE PRECISION(A-H,O-Z) DIMENSION A(115000) INTEGER IA(115000) EQUIVALENCE(IA,A) CHARACTER*12 AR,BR;

COMMON /C1/ NP,NE,NM,NR,NW,NF,NI,NDP COMMON /C2/ N,MX,NH

COMMON /C3/ SKE(8,8),NN(8),RF(8),B(3,8),XY(2,4) WRITE(0,250)

250 FORMAT(///'PLEASE INPUT FILE NAME OF DATA=') READ(*,400)AR 400 FORMAT(A12)

OPEN(15,FILE=AR,STATUS='OLD') WRITE(*,350)

350 FORMAT(///'PLEASE OUTPUT FILE NAME OF DATA=') READ(*,400)BR

OPEN(16,FILE=BR,STATUS='UNKNOWN')

CALL CONTROL NBY=1

N1=1

N2=N1+NP*2 N3=N2+NP*2 N4=N3+NP*3

N5=N4+NP*2*NBY N6=N5+NP*NBY*2 N7=N6+4*NM*NBY N8=N7+2*NW*NBY N9=N8+NP N10=N9+NDP

N11=N10+6*NDP*NBY NSPACE=115000-N11

!C --N1=MA N2=JR N3=NRR N4=COOR N5=R N6=AE !C --N7=WG N8=IV N9=NDP N10=DV N11=SK WRITE(16,800)NSPACE

第1页

你可能喜欢

  • 有限元程序设计
  • 计算有限元法
  • ansys有限元分析
  • matlab教程
  • ANSYS教程
  • 有限元分析基础教程

有限元程序分析与算例的相关文档搜索

有限元程序分析与算例相关文档

最新文档

返回顶部