马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?我要加入
x
利用如下命令流做模态分析,提取某个自由度上的前100阶振型,发现每次提取的振型不一致,不知道怎么回事啊。 大家有兴趣试试下面的程序,提出的振型写在modefile.mac文件里了。
谢谢
/prep7
EMATWRITE, yes
ET,1,42
BLC4,0,0,1,1
allsel
LESIZE,all,,,30,,,,,1
TYPE,1
MSHAPE,0,2D
MSHKEY,1
AMESH,all
/TRIAD,off
MP,EX,1,7e10
MP,DENS,1,2700
MP,prxy,1,0.3
NSEL,s,loc,x,1
NSEL,r,loc,y,0.5
*GET,A,node,,num,max
ALLSEL
NSEL,s,loc,x,1
NSEL,r,loc,y,0.5
*GET,C,node,,num,max
ALLSEL
NSEL,s,loc,x,1
NSEL,r,loc,y,0.5
*GET,D,node,,num,max
ALLSEL
NSEL,s,loc,x,0
NSEL,R,loc,y,0
D,all,all
ALLSEL
NSEL,s,loc,x,0
NSEL,R,loc,y,1
D,all,all
ALLSEL
!****************solve for mode**********************
modenum=100
/solu
ANTYPE,MODAL,new !设置分析类型为模态分析,new为指定一次新的分析
MODOPT,LANB,modenum,, !指定分析类型LANB为阻尼分析
MXPAND,modenum,,,yes !对于模态和屈曲分析,指定将要扩展和写入的模态数
OUTRES,ALL,ALL !控制写入到数据库中的结果数据
OUTPR,ALL,ALL !控制结果的输出
SOLVE
!SAVE
FINISH
*DIM,outmodeshp,ARRAY,modenum,1,1
!*********************modefile.mac*****************
*cfopen,modefile,mac
*VWRITE,
("outputmodeshape")
/post1
*DO,i,1,modenum,1
set,1,i,1,
*GET,outmodeshp(i,1),node,C,u,y
*ENDDO
*vwrite,outmodeshp(1,1)
(e16.8) |