求助!ansys接触分析时发生剥离,以下是程序

浏览:41124 回答:2
*SET,w1,200
*SET,l1,200
*SET,t1,1
*SET,w2,195
*SET,l2,195
*SET,t2,0.02
/PREP7
!*
ET,1,SOLID186
!*
ET,2,SHELL93
!*
!*
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,EX,1,,7
MPDATA,PRXY,1,,0.48
MPTEMP,,,,,,,,
MPTEMP,1,0
UIMP,1,REFT,,,300.15
MPDATA,ALPX,1,,0
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,EX,2,,78000
MPDATA,PRXY,2,,0.44
MPTEMP,,,,,,,,
MPTEMP,1,0
UIMP,2,REFT,,,300.15
MPDATA,ALPX,2,,14.2e-6
R,1,t2, , , , , ,
!*
BLC4,0,0,w1,l1,t1
BLC4,0,0,w2,l2
CM,_Y,VOLU
VSEL, , , , 1
CM,_Y1,VOLU
CMSEL,S,_Y
!*
CMSEL,S,_Y1
VATT, 1, 1, 1, 0
CMSEL,S,_Y
CMDELE,_Y
CMDELE,_Y1
!*
CM,_Y,AREA
ASEL, , , , 7
CM,_Y1,AREA
CMSEL,S,_Y
!*
CMSEL,S,_Y1
AATT, 2, 1, 2, 0,
CMSEL,S,_Y
CMDELE,_Y
CMDELE,_Y1
!*
ESIZE,2,0,
MSHAPE,0,3D
MSHKEY,1
!*
CM,_Y,VOLU
VSEL, , , , 1
CM,_Y1,VOLU
CHKMSH,'VOLU'
CMSEL,S,_Y
!*
VMESH,_Y1
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
!*
ESIZE,2,0,
MSHAPE,0,2D
!*
CM,_Y,AREA
ASEL, , , , 7
CM,_Y1,AREA
CHKMSH,'AREA'
CMSEL,S,_Y
!*
AMESH,_Y1
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
!*
SAVE
!*
!*
/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,1,
MAT,1
MP,EMIS,1,7.88860905221e-031
R,3
REAL,3
ET,3,170
ET,4,174
R,3,,,1.0,0.0001,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
KEYOPT,4,4,0
KEYOPT,4,5,0
KEYOPT,4,7,0
KEYOPT,4,8,0
KEYOPT,4,9,0
KEYOPT,4,10,2
KEYOPT,4,11,0
KEYOPT,4,12,3
KEYOPT,4,2,0
KEYOPT,3,5,0
! Generate the target surface
ASEL,S,,,1
ASEL,A,,,2
ASEL,A,,,3
ASEL,A,,,4
ASEL,A,,,5
ASEL,A,,,6
CM,_TARGET,AREA
TYPE,3
NSLA,S,1
ESLN,S,0
ESLL,U
ESEL,U,ENAME,,188,189
ESURF
CMSEL,S,_ELEMCM
! Generate the contact surface
ASEL,S,,,7
CM,_CONTACT,AREA
TYPE,4
NSLA,S,1
ESLN,S,0
ESURF
*SET,_REALID,3
ALLSEL
ESEL,ALL
ESEL,S,TYPE,,3
ESEL,A,TYPE,,4
ESEL,R,REAL,,3
/PSYMB,ESYS,1
/PNUM,TYPE,1
/NUM,1
EPLOT
! Reverse contact normals
ESEL,NONE
ESEL,A,TYPE,,4
ESEL,R,REAL,,3
ESURF,,REVERSE
ESEL,ALL
ESEL,S,TYPE,,3
ESEL,A,TYPE,,4
ESEL,R,REAL,,3
/PSYMB,ESYS,1
/PNUM,TYPE,1
/NUM,1
EPLOT
!
ESEL,ALL
ESEL,S,TYPE,,3
ESEL,A,TYPE,,4
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
/MREP,EPLOT
SAVE
FINISH
/SOL
!*
ANTYPE,0
FLST,2,2,5,ORDE,2
FITEM,2,4
FITEM,2,6
!*
/GO
DA,P51X,ALL,0
FLST,2,2,5,ORDE,2
FITEM,2,3
FITEM,2,5
DA,P51X,SYMM
FLST,2,2,4,ORDE,2
FITEM,2,13
FITEM,2,16
DL,P51X, ,SYMM
FLST,2,1,5,ORDE,1
FITEM,2,7
!*
BFA,P51X,TEMP,0.45
ALLSEL,ALL
/STATUS,SOLU
SOLVE
FINISH
邀请回答 我来回答

全部回答

(2)
默认 最新
tutmems
应该向下偏转才正确
file1.bmp
2011年8月27日
评论 点赞
tutmems
跪求高手指点:Z :Z ,万分感谢
2011年6月8日
评论 点赞

没解决?试试专家一对一服务

换一批
    App下载
    技术邻APP
    工程师必备
    • 项目客服
    • 培训客服
    • 平台客服

    TOP