该事例对一个圆柱体进行模态求解,分别以建立整个模型和只建立1/4模型进行求解,然后进行比较。
/PREP7
ET,1,SOLID95
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,EX,1,,2.5E5
MPDATA,PRXY,1,,0.3
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,DENS,1,,7.85E-9
CYLIND,1,0.5,0,0.5,0,360,
FLST,5,12,4,ORDE,4
FITEM,5,1
FITEM,5,-4
FITEM,5,9
FITEM,5,-16
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,12, , , , ,1
FLST,5,4,4,ORDE,2
FITEM,5,17
FITEM,5,-20
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,6, , , , ,1
CM,_Y,VOLU
VSEL, , , , 1
CM,_Y1,VOLU
CHKMSH,'VOLU'
CMSEL,S,_Y
VSWEEP,_Y1
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
ALLSEL
CSYS,1
NROTAT,ALL
FINISH
/SOL
ANTYPE,2
MSAVE,0
MODOPT,LANB,12
EQSLV,SPAR
MXPAND,12, , ,0
LUMPM,0
PSTRES,0
MODOPT,LANB,12,0,0, ,OFF
FLST,2,2,5,ORDE,2
FITEM,2,5
FITEM,2,-6
/GO
DA,P51X,UX,
FLST,2,1,5,ORDE,1
FITEM,2,1
/GO
DA,P51X,UZ,
ALLSEL
SOLVE
FINISH
/POST1
SET,LIST
FINISH
!!!!!!!!以下为建立1/4模型,用轴对称方法求解
/PREP7
VCLEAR, 1
wpro,,-90.000000,
VSBW, 1
wpro,,,-90.000000
FLST,2,2,6,ORDE,2
FITEM,2,2
FITEM,2,-3
VSBW,P51X
FLST,2,3,6,ORDE,3
FITEM,2,1
FITEM,2,4
FITEM,2,-5
VDELE,P51X, , ,1
ET,2,MESH200
KEYOPT,2,1,7
KEYOPT,2,2,0
MSHAPE,0,2D
MSHKEY,0
CM,_Y,AREA
ASEL, , , , 8
CM,_Y1,AREA
CHKMSH,'AREA'
CMSEL,S,_Y
AMESH,_Y1
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
FLST,5,4,4,ORDE,4
FITEM,5,18
FITEM,5,20
FITEM,5,23
FITEM,5,-24
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
LESIZE,_Y1, , ,6, , , , ,1
CM,_Y,AREA
ASEL, , , , 8
CM,_Y1,AREA
CHKMSH,'AREA'
CMSEL,S,_Y
ACLEAR,_Y1
AMESH,_Y1
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
FLST,3,1,5,ORDE,1
FITEM,3,8
AGEN,2,P51X, , , ,90, , ,0
NUMMRG,ALL, , , ,LOW
CM,_Y,VOLU
VSEL, , , , 6
CM,_Y1,VOLU
CHKMSH,'VOLU'
CMSEL,S,_Y
VSWEEP,_Y1
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
NROTAT,ALL
CYCLIC
FINISH
/SOL
ANTYPE,2
MSAVE,0
MODOPT,LANB,8
EQSLV,SPAR
MXPAND,8, , ,0
LUMPM,0
PSTRES,0
MODOPT,LANB,8,0,0, ,OFF
FLST,2,1,5,ORDE,1
FITEM,2,27
/GO
DA,P51X,UX,
FLST,2,1,5,ORDE,1
FITEM,2,25
/GO
DA,P51X,UZ,
ALLSEL
SOLVE
FINISH
/PREP7
FINISH
/SOL
FINISH
/POST1
SET,LIST, , , , , , ,ORDE |