提取质量矩阵和刚度矩阵的程序
/PREP7!*
ET,1,LINK1
!*
R,1,0.01,0,
!*
!*
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,EX,1,,2e11
MPDATA,PRXY,1,,0.3
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,DENS,1,,7850
N,1,0,0,0,,,,
N,2,1,0,0,,,,
N,3,2,0,0,,,,
N,4,0.5,0.866,0,,,,
N,5,1.5,0.866,0,,,,
N,6,1,1.732,0,,,,
TYPE, 1
MAT, 1
REAL, 1
ESYS, 0
SECNUM,
TSHAP,LINE
!*
FLST,2,2,1
FITEM,2,1
FITEM,2,2
E,P51X
FLST,2,2,1
FITEM,2,2
FITEM,2,3
E,P51X
FLST,2,2,1
FITEM,2,3
FITEM,2,5
E,P51X
FLST,2,2,1
FITEM,2,5
FITEM,2,6
E,P51X
FLST,2,2,1
FITEM,2,6
FITEM,2,4
E,P51X
FLST,2,2,1
FITEM,2,4
FITEM,2,1
E,P51X
FLST,2,2,1
FITEM,2,4
FITEM,2,2
E,P51X
FLST,2,2,1
FITEM,2,2
FITEM,2,5
E,P51X
FINISH
/SOL
!*
D，1，ALL
D，3，UY
FINISH
/OUTPUT，CP，OUT，，
/DEBUG，-1，，，1
/SOLU
SOLVE
finish
/OUTPUT, TERM
RE: 提取质量矩阵和刚度矩阵的程序
回复 1 # 一路远征 的帖子谁帮我看看这个有什么问题，本人万急，谢谢啊
页:
[1]