如何利用ANSYS建立三维简支梁模型

如何利用ANSYS建立三维简支梁模型
如何利用ANSYS建立三维简支梁模型

如何利用ANSYS建立三维简支梁模型
/FILNAME,Simply Supported Beam,1
/TITLE, Beam Analysis
/PREP7 !前处理模块.
/VIEW,1,1,1,1 !调整窗口视角.
ET,1,PLANE42 !定义单元.
KEYOPT,1,3,3
!定义材料属性.
MPTEMP, !定义触头材料属性.
MPTEMP,1,0
MPDATA,EX,1,2.06e5
MPDATA,PRXY,1,0.35
MPTEMP, !定义接触单元属性(摩擦系数).
MPTEMP,1,0
MPDATA,MU,2,0.16
R,1,30, !梁板度.
! 建立模型.
BLC4, , ,960,80 !建立梁.
CYL4,40,40,20
CYL4,920,40,20
FLST,3,2,5,ORDE,2
FITEM,3,2
FITEM,3,-3
ASBA, 1,P51X !建立梁完成.
CYL4,40,40,20 !建立轴.
CYL4,920,40,20 !建立轴完成.
! 网格划分.
FLST,5,20,4,ORDE,2 ! 定义网格密度.
FITEM,5,1
FITEM,5,-20
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,_Y
LESIZE,_Y1,4, , , , , , ,1 ! 定义网格密度完成.
FLST,5,3,5,ORDE,3 ! 网格划分.
FITEM,5,1
FITEM,5,-2
FITEM,5,4
CM,_Y,AREA
ASEL, , , ,P51X
CM,_Y1,AREA
CHKMSH,'AREA'
CMSEL,S,_Y
AMESH,_Y1
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2 ! 网格划分完成.
! 建立接触.
FLST,5,8,4,ORDE,2 ! 定义接触面.
FITEM,5,5
FITEM,5,-12
LSEL,R, , ,P51X
ALLSEL,BELOW,LINE
LPLOT
NSLL,S,1
CM,contact,NODE ! 定义接触面完成.
! 定义目标面.
FLST,5,2,5,ORDE,2
FITEM,5,1
FITEM,5,-2
ASEL,S, , ,P51X
ALLSEL,BELOW,AREA
LPLOT
NSLL,S,1
CM,target,NODE
! 定义目标面完成.
ALLSEL,ALL
! 定义接触.
/COM, CONTACT PAIR CREATION - START ! 定义接触开始.
CM,_NODECM,NODE
CM,_ELEMCM,ELEM
CM,_KPCM,KP
CM,_LINECM,LINE
CM,_AREACM,AREA
CM,_VOLUCM,VOLU
/GSAV,cwz,gsav,temp
MP,MU,2,0.16
MAT,2
MP,EMIS,2,0
R,3
REAL,3
ET,2,169
ET,3,175
R,3,1.0,0.1,0,
RMORE,1.0E20,0.0,1.0,
RMORE,0.0,0,1.0,1.0,0.5
RMORE,0,1.0,1.0,0.0,1.0
RMORE,10.0
KEYOPT,3,3,0
KEYOPT,3,4,0
KEYOPT,3,5,0
KEYOPT,3,7,0
KEYOPT,3,8,0
KEYOPT,3,9,0
KEYOPT,3,10,2
KEYOPT,3,11,0
KEYOPT,3,12,4
KEYOPT,3,2,0
! Generate the target surface
NSEL,S,TARGET
CM,_TARGET,NODE
TYPE,2
ESLN,S,0
ESURF
CMSEL,S,_ELEMCM
! Generate the contact surface
NSEL,S,CONTACT
CM,_CONTACT,NODE
TYPE,3
ESLN,S,0
ESURF
ALLSEL
ESEL,ALL
ESEL,S,TYPE,2
ESEL,A,TYPE,3
ESEL,R,REAL,3
/PSYMB,ESYS,1
/PNUM,TYPE,1
/NUM,1
EPLOT
ESEL,ALL
ESEL,S,TYPE,2
ESEL,A,TYPE,3
ESEL,R,REAL,3
CMSEL,A,_NODECM
CMDEL,_NODECM
CMSEL,A,_ELEMCM
CMDEL,_ELEMCM
CMSEL,S,_KPCM
CMDEL,_KPCM
CMSEL,S,_LINECM
CMDEL,_LINECM
CMSEL,S,_AREACM
CMDEL,_AREACM
CMSEL,S,_VOLUCM
CMDEL,_VOLUCM
/GRES,cwz,gsav
CMDEL,_TARGET
CMDEL,_CONTACT
/COM, CONTACT PAIR CREATION – END ! 定义接触完成.
!施加边界条件.
FLST,2,1,5,ORDE,1 !施加约束.
FITEM,2,1
/GO
DA,P51X,ALL,
FLST,2,1,5,ORDE,1
FITEM,2,2
/GO
DA,P51X,UY, !施加约束完成.
FLST,2,1,4,ORDE,1 !施加均布载荷.
FITEM,2,3
/GO
SFL,P51X,PRES,3, !施加均布载荷完成.
!求解.
/SOL
/STATUS,SOLU
SOLVE
QQ群：223790161