响应版主号召,下面是我做的命令流,在ANSYS10中已调试成功。
/filname,modalpractice
/prep7
!element
et,1,42
et,2,45
!material
mp,ex,1,38000
mp,prxy,1,0.3
mp,dens,1,8.3e-5
!geometry
K,1,0,0,0,
K,2,2,0,0,
K,3,2.3,0.2,0,
K,4,1.9,0.45,0,
K,5,1,0.25,0,
LSTR, 1, 2
LSTR, 5, 1
FLST,3,4,3
FITEM,3,2
FITEM,3,3
FITEM,3,4
FITEM,3,5
BSPLIN, ,P51X, , , , ,-1,0,0,-1,-0.25,0,
FLST,2,3,4
FITEM,2,1
FITEM,2,3
FITEM,2,2
AL,P51X
!meshing
esize,0.25
type,1
amesh,1
type,2
extopt,esize,10
vext,1,,,,,10
eplot
!apply load
esel,s,type,,1
nsle
d,all,all,0
!solve
/SOLU
ANTYPE,MODAL
MODOPT,SUBS,5
MXPAND,5,,,YES,0.005
esel,s,type,,2
solve
finish
!postprocessing
/POST1
SET,FIRST
PLDISP,0
ANMODE,10,0.5E-1
SET,NEXT
PLDISP,0
ANMODE,10,0.5E-1
SET,NEXT
PLDISP,0
ANMODE,10,0.5E-1
SET,NEXT
PLDISP,0
ANMODE,10,0.5E-1
SET,NEXT
PLDISP,0
ANMODE,10,0.5E-1
finish |