声振论坛

 找回密码
 我要加入

QQ登录

只需一步,快速开始

查看: 1337|回复: 0

[结构振动] 【求助】ansys提取结构的质量归一化固有振型是一定得么

[复制链接]
发表于 2010-9-5 20:47 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?我要加入

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
回复
分享到:

使用道具 举报

您需要登录后才可以回帖 登录 | 我要加入

本版积分规则

QQ|小黑屋|Archiver|手机版|联系我们|声振论坛

GMT+8, 2024-11-16 14:33 , Processed in 0.063636 second(s), 18 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表