! ! Modal analysis ! ! Determine maximum natrual frequency. ! finish /clear /prep7 et,1,plane42 mp,ex,1,2.07e11 mp,nuxy,1,0.3 mp,dens,1,7.83e3 type,1 real,1 mat,1 w=1 l=10 h=0.5 k,1,0,0 k,2,l,0 k,3,l,-w k,4,0,-w a,1,2,3,4 lesize,1,h lesize,2,h lesize,3,h lesize,4,h amesh,all,all nsel,s,loc,x,0 d,all,all allsel,all *get,nn,node,,num,maxd finish /sol antype,2 modopt,lanb,(nn*2) eqslv,spar mxpand,(nn*2), , ,0 lumpm,0 pstres,0 solve finish /post1 set,list ! ! Output results ! ! ! ***** INDEX OF DATA SETS ON RESULTS FILE ***** ! ! ! ! SET TIME/FREQ LOAD STEP SUBSTEP CUMULATIVE ! H dt < 2/w ! ! ! 120 6259.3 1 120 120 ! 0.5 3e-4 ! ! ! Transient analysis ! ! Implicit Explicit ! ! dt = 3e-4 dt = 3e-4 ! beta = 0.25 beta = 0.0 ! gamma = 0.5 gamma = 0.5 ! ! finish /clear /prep7 et,1,plane42 mp,ex,1,2.07e11 mp,nuxy,1,0.3 mp,dens,1,7.83e3 dt = 3e-4 beta = 0.0 gamma = 0.5 type,1 real,1 mat,1 w=1 l=10 h=0.5 k,1,0,0 k,2,l,0 k,3,l,-w k,4,0,-w a,1,2,3,4 lesize,1,h lesize,2,h lesize,3,h lesize,4,h amesh,all,all nsel,s,loc,x,0 d,all,all allsel,all nsel,s,loc,x,10.0 f,all,fy,-(1e8/3) allsel,all finish /solu antype,4 trnopt,full lumpm,0 deltim,dt,0,0 outres,erase outres,all,1 autots,0 time,0.2 tintp,'',beta,gamma lswrite,1, fdele,all,all time,0.3 lswrite,2, lssolve,1,2,1, finish /post26 file,'file','rst','.' /ui,coll,1 numvar,200 solu,191,ncmit store,merge filldata,191,,,,1,1 realvar,191,191 nsol,2,23,u,y,uy_2, store,merge xvar,1 plvar,2,