用cantactwizard产生的接触,为什么无解?请达人指点

浏览:153318
用cantactwizard产生的接触,为什么无解?请达人指点 ,多谢了
/BATCH
/FILNAME,CH20,1
/TITLE,Analysis of a Axis Contacting a hole in a Disc
KEYW,PR_STRUC,1
/PREP7
!*
ET,1,SOLID185
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,EX,1,,2.1e5
MPDATA,PRXY,1,,0.3
CYL4,0,0,34,0,100,90,25
CYL4,0,0,25,0,35,90,150
/PNUM,VOLU,1
VGEN, ,2, , , , ,-10, , ,1
LESIZE,17,,,15,,,,,1 !定义线的网格尺寸
LESIZE,19,,,15,,,,,1
!*
LESIZE,18,,,2,,,,,1
LESIZE,20,,,2,,,,,1
!*
LESIZE,22,,,20,,,,,1
!*
LESIZE,5,,,10,,,,,1
LESIZE,7,,,10,,,,,1
!*
LESIZE,6,,,8,,,,,1
LESIZE,8,,,8,,,,,1
!*
LESIZE,10,,,3,,,,,1
!*
VSWEEP,1 !用扫掠的方式对创建的体进行网格划分
/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,0.2
MAT,1
MP,EMIS,1,7.88860905221e-031
R,3
REAL,3
ET,2,170
ET,3,174
R,3,,,0.1,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
KEYOPT,3,4,0
KEYOPT,3,5,0
NROPT,UNSYM
KEYOPT,3,7,0
KEYOPT,3,8,0
KEYOPT,3,9,0
KEYOPT,3,10,2
KEYOPT,3,11,0
KEYOPT,3,12,0
KEYOPT,3,2,0
KEYOPT,2,1,0
KEYOPT,2,2,0
KEYOPT,2,3,0
KEYOPT,2,5,0
! Generate the target surface
ASEL,S,,,9
CM,_TARGET,AREA
AATT,-1,3,2,-1
TYPE,2
AMESH,ALL
! Generate the contact surface
ASEL,S,,,4
CM,_CONTACT,AREA
TYPE,3
NSLA,S,1
ESLN,S,0
ESURF
*SET,_REALID,3
ALLSEL
ESEL,ALL
ESEL,S,TYPE,,2
ESEL,A,TYPE,,3
ESEL,R,REAL,,3
ASEL,S,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
ASEL,S,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
CM,_Y,VOLU
VSEL, , , , 2
CM,_Y1,VOLU
CHKMSH,'VOLU'
CMSEL,S,_Y
!*
VSWEEP,_Y1
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
!*
FINISH
/SOL
DA,5,SYMM !*定义面的对称位移边条
DA,6,SYMM
DA,11,SYMM
DA,12,SYMM
DA,3,ALL, !*定义面的对称位移约束条件
ANTYPE,0
NLGEOM,1 !large displacement static
AUTOTS,0 !automatic time stepping off
TIME,100
allsel,all
/STATUS,SOLU
SOLVE
邀请回答 我来回答

当前暂无回答

回答可获赠 200金币

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

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

    TOP