Do you have an example using multiple CMS superelements?
|
Here is an input file that shows the CMS procedure on a very small model. /prep7 rect,,10,,1 rect,10,20,,1 rect,20,30,,1 nummrg,kp et,1,42 mp,ex,1,1e7 mp,nuxy,1,.3 mp,dens,1,.00026 esize,.5 amesh,all /filnam,part1 ! Name files for part 1 /solu antype,substr ! CMS generation pass seopt,part1,2 ! Stiffness and mass matrices cmsopt,fix,5 ! 15 modes by fixed interface asel,s,,,1,,,1 nsel,s,loc,x,10 m,all,all ! Make interface DOF master DOF nsle,s ! Select nodes by selected elems solve ! Generation save ! Save part database finish /filnam,part2 ! Name files for part 2 /solu antype,substr ! CMS generation pass seopt,part2,2 ! Stiffness and mass matrices cmsopt,fix,5 ! 15 modes by fixed interface asel,s,,,2,,,1 nsel,s,loc,x,10 nsel,a,loc,x,20 m,all,all ! Make interface DOF master DOF nsle,s ! Select nodes by selected elems solve ! Generation save ! Save part database finish /filnam,part3 ! Name files for part 3 /solu antype,substr ! CMS generation pass seopt,part3,2 ! Stiffness and mass matrices cmsopt,fix,5 ! 15 modes by fixed interface asel,s,,,3,,,1 nsel,s,loc,x,20 m,all,all ! Make interface DOF master DOF nsle,s ! Select nodes by selected elems solve ! Generation save ! Save part database finish /clear,nostart ! Clear database /filname,use ! Name use pass files /prep7 ! Enter preprocessor to read superelems et,1,matrix50 ! Define superelement type se,part1 ! Read superelements (partx.sub) se,part2 se,part3 /solu ! Enter Solution module antype,modal modopt,lanb,5 ! Request 15 modes mxpand,5,,,yes ! Expand nodal solution solve ! Solution writes use.dsub finish /clear,nostart ! Clear database after use pass /filname,part1 ! Re-set file names for part1 resume ! Read part1 database /solu ! Re-enter solution module expass,on ! Request expansion pass seexp,part1,use ! Expand part1 with use.dsub file numexp,all ! Expand results for all modes solve ! Expansion solution finish ! Repeat for parts 2 through 6 /clear,nostart ! No database required! /post1 ! Enter postprocessor cmsfile,add,part1,rst ! Select parts cmsfile,add,part2,rst cmsfile,add,part3,rst !cmsfile,add,part4,rst !cmsfile,add,part5,rst !cmsfile,add,part6,rst set,first ! Postprocess as usual plnsol,u,x |
||
|