马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?我要加入
x
ansys模态分析后,提取出质量归一化固有振型,发现每次的振型不同,附上算例,求教各位。
/PREP7
ET,1,LINK1
ET,2,MASS21
KEYOPT,2,3,4
R,1,0.01
R,2,1000
MP,EX,1,3E9
N,1
N,2,5
N,3,10
N,4,15
N,5,5,5
N,6,10,5
N,7,15,5
N,8,10,10
N,9,15,10
N,10,10,15
N,11,15,15
TYPE,1
MAT,1
REAL,1
E,1,5
E,2,5
E,3,5
E,2,6
E,3,6
E,4,6
E,3,7
E,4,7
E,5,6
E,6,7
E,5,8
E,6,8
E,7,8
E,6,9
E,7,9
E,8,9
E,8,10
E,9,10
E,8,11
E,9,11
E,10,11
TYPE,2
REAL,2
E,5
E,6
E,7
E,8
E,9
E,10
E,11
NSEL,S,LOC,Y
D,ALL,ALL
ALLSEL
/SOLU
ANTYPE ,MODAL
MODOPT,LANB,10,0,0, ,ON
ALLS
SOLVE
FINISH
/post1
*get,nodenum,node,,num,max
*set,modenum,10
*dim,modeshp,array,nodenum,2
*cfopen,modefile0802,txt
*do,i,1,modenum,1
*get,modefq,mode,i,freq
*vwrite,modefq
(e16.8)
set,1,i
!获得每个节点的位移
*do,ii,1,nodenum,1
*get,modeshp(ii,1),node,ii,u,x
*get,modeshp(ii,2),node,ii,u,y
*enddo
*vwrite,sequ,modeshp(1,1),modeshp(1,2)
(F8.0,2e16.8)
*vwrite,0
(F8.0)
*enddo
*cfclos
|