!从ANSYS中导出模态频率及振型数据

!从ANSYS中导出模态频率及振型数据/Post1*get,nodenum,node,,num,max!读取节点数*set,modenum,20!指定模态的阶数*Cfopen,modefile_ansys,fre!打开文件*Vwrite('SYSNOISEMODESSTRUCTUREFILE')!头文件*Vwrite('Rev5.5WindowsNT30NOV2000')*Vwrite('SYSNOISEDefaultModel')*Vwrite('23-JUN-200810:22:59')*Do,i,1,modenum,1*Vwrite('REALMODEFREQUENCYEIGENVALUE')*Get,modefq,mode,i,freqbb='%i%'modeanglefq=modefq*modefq*2*2*3.141593*3.141593*Vwrite,bb,modefq,modeanglefq(A10,2e20.8)*Vwrite('DISPLACEMENTVALUES')set,1,i*Do,ii,1,nodenum,1*Get,modeshpx,node,ii,u,x*Get,modeshpy,node,ii,u,y*Get,modeshpz,node,ii,u,z*Get,modeshprx,node,ii,rot,x*Get,modeshpry,node,ii,rot,y*Get,modeshprz,node,ii,rot,zbb1='%ii%'bb2=''*vwrite,bb1,bb1,modeshpx,modeshpy,modeshpz(2A10,3e20.8)*vwrite,bb2,modeshprx,modeshpry,modeshprz(A20,3e20.8)*Enddo*Enddo*cfclosFINISH*VWRITE,LABEL(1),VALUE(1,1),VALUE(1,2),VALUE(1,3)(1X,A8,3X,F10.3,5X,F8.3,5X,F8.3)其中1X表示一个空格数，A8是输出字符型LABEL，占8位（列），F10.3表示浮点型数值，占据10列，小数3位，F8.3表示浮点型数值，占据8列，小数3位