用APDL如何用循环来实现10次模态分析

1、谢谢各位，我已经实现了。下面是代码。/PREP7!*数组定义*DIM,dis,array,11 !建立一个11维的数组。*DIM,NUMBER_OF_E,10 !保存单元个数*DIM,FREQ1,10 !模态频率一阶*DIM,FREQ2,10 !模态频率二阶*DIM,FREQ3,10 !模态频率三阶*DIM,FREQ4,10 !模态频率四阶*DIM,FREQ5,10 !模态频率五阶*DIM,NUM,10*DIM,X1,10*DIM,Y1,10!*进入前处理部分WPSTYLE,1 !显示工作坐标系KEYW,PR_SET,1 KEYW,PR_STRUC,1!*参数定义ET,1,SHELL63ET,

2、2,SHELL93R,1,0.0015, , , , , ,R,2,0.0007, , , , , ,MPTEMP,1,0MPDATA,EX,1,1.93e11MPDATA,PRXY,1,.31MPDATA,DENS,1,7750!*建立模型K,1,-0.00225,0.006,K,2,-0.00225,-0.006,K,3,0,0.006,K,4,0,-0.006,K,5,0,0.00825,K,6,0,-0.00825,LSTR, 1, 2 !画线L1LARC,1,5,3,0.00225 !画线L2LARC,2,6,4,0.00225 !画线L3/PNUM,LINE,1/PNUM,AREA

3、,1NUMCMP,ALLNUMMRG,ALL, , , ,LOWALLSEL,ALLLSEL,S,LOC,Z,0LSYMM,X,ALL,2, , ,0,0 ！半边镜像k,20,k,21,0.198lstr,20,21 !建立拉伸的基准线L7ALLSEL,ALLLSEL,S,LOC,Z,0NUMCMP,ALLNUMMRG,ALL, , , ,LOW !压缩关键点ADRAG,all,7 !沿着线4拉伸由线13围城的3曲线形成面。LDELE,7, ,1! 删除拉伸线4APLOT !显示面/VIEW,1,1,2,3/ANG,1/REP,FAST!约束ALLSEL,ALLLSEL,S,LOC,Z,0DL

4、,ALL, ,ALL,ALLSEL,ALL!网格划分finish*DO,I,1,10/PREP7ACLEAR,ALLESIZE,0.001*Iamesh,allfinish/SOLU !进入求解模块SOLUTION ANTYPE, MODAL !申明求解类型是模态分析MODOPT,LANB,5 !使用Block Lanczos方法求解前5阶振型和频率SOLVE !开始求解 FINISH !退出后模块/POST1 !进入后处理模块POST1 SET, 1, 1 !读入第一阶频率和振型SET,LIST !读取模态频率*get,NUMBER_OF_E(i),elem,count !获得单元数量*get,FREQ1(I),MODE,1,FREQ,imag,*get,FREQ2(I),MODE,2,FREQ,imag,*get,FREQ3(I),MODE,3,FREQ,imag,*get,FREQ4(I),MODE,4,FREQ,imag,*get,FREQ5(I),MODE,5,FREQ,imag,finish*ENDDO/solu*CFOPEN,result_model,xls*VWRITE,FREQ1(1),FREQ2(1),FREQ3(1),F