提取质量矩阵和刚度矩阵的程序

一路远征

/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

一路远征

回复 1 # 一路远征 的帖子

谁帮我看看这个有什么问题，本人万急，谢谢啊