! 程序2个小错误,改掉后,就可以提取多个振型
/post1
*get,nodenum,node,,num,max
*set,tempvar,0
*set,modenum,0
!获得模态的阶数
*do,i,1,100,1
*get,tempvar,mode,i,freq
*if,tempvar,LT,0.0001,THEN
*if,modenum,LT,0.0001,THEN
*set,modenum,(i-1)
*endif
*endif
*enddo
*dim,modefqda,array,modenum,2
*dim,modeshp,array,nodenum,3
*cfopen,modefile,txt
*do,i,1,modenum,1
*get,modefq,mode,i,freq
*get,modeda,mode,i,damp
*vwrite,modefq,modeda
(2e16.8)
set,1,i
*do,ii,1,nodenum,1
*get,modeshp(ii,1),node,ii,u,y
*enddo
*vwrite,sequ,modeshp(1,1),modeshp(1,2),modeshp(1,3)
(F8.0,3e16.8)
*vwrite,0
(F8.0)
*enddo
*cfclose |