如何利用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