总是计算到1.33e-9秒就终止,根本达不到设置的限定Y向位移0.5mm
finish
/clear
/PREP7
ET,1,82,,,3
R,1,1,
!***********************单位制(N,mm,Mpa)
PCIRC,800,800+120,0,-180,
wpoff,,-756
csys,4
wprot,,90
asbw,all
wpoff,,,16
asbw,all
kwpave,12
wprot,,,90
asbw,all
kwpave,8
asbw,all
kwpave,6
asbw,all
kwpave,10
asbw,all
adele,1,,,1
adele,4,,,1
adele,6,,,1
wpoff,-3
k,
kwpave,12
wpoff,-3
k,
l,19,20
k,,13
kwpave,19
k,,13
l,21,20
l,19,22
kwpave,21
k,,,,-50
kwpave,22
k,,,,50
l,22,24
l,21,23
kwpave,23
k,,100
kwpave,24
k,,100
l,24,26
l,23,25
l,25,26
al,3,15,18,19,28,30,31,32
wpcsys,-1,0
kwpave,14
k,600,1.856358392
kwpave,23
k,700
kwpave,21
k,800
kwpave,12
k,900
a,600,700,800,900
wpcsys,-1,0
ARSYM,X,4, , , ,0,0
kwpave,14
wpoff,,-97
wprot,,90
ASBW,ALL
adele,12,,,1
adele,13,,,1
adele,17,,,1
adele,19,,,1
kwpave,600
wprot,,,90
lsbw,20
kwpave,27
lsbw,16
/prep7
mp,ex,1,1.78e5
mp,nuxy,1,0.29
MP,ALPX,1,13.58e-6
MP,DENS,1,7800/1000000000
mp,ex,2,9500e5
mp,nuxy,2,0.25
MP,ALPX,1,5.5e-6
MP,DENS,2,1550/1000000000
!!!!!!!!!!!!mesh
alls
asel,,,,4
asel,a,,,6
AATT,2, 1, 1, 0, !(MAT,REAL,TYPE,ESYS,SECN)
!!!!defining mat
alls
asel,u,,,4
asel,u,,,6
AATT,1, 1, 1, 0, !(MAT,REAL,TYPE,ESYS,SECN)
alls
AESIZE,all,8,
amesh,all
!********
MP,MU,1,0.1
MAT,1
MP,EMIS,1,7.88860905221e-031
MP,MU,2,0.1
MAT,2
MP,EMIS,2,7.88860905221e-031
R,3
REAL,3
ET,2,169
ET,3,172
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,2
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,0
KEYOPT,3,2,4
! Generate the target surface
LSEL,S,,,12
lsel,a,,,20
CM,_TARGET,LINE
TYPE,2
NSLL,S,1
ESLN,S,0
ESURF
CMSEL,S,_ELEMCM
! Generate the contact surface
LSEL,S,,,36
lsel,a,,,40
CM,_CONTACT,LINE
TYPE,3
NSLL,S,1
ESLN,S,0
ESURF
ALLSEL
!********
MP,MU,1,0.1
MAT,1
MP,EMIS,1,7.88860905221e-031
MP,MU,2,0.1
MAT,2
MP,EMIS,2,7.88860905221e-031
R,4
REAL,4
ET,4,169
ET,5,172
R,4,,,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,2.0
KEYOPT,5,3,0
KEYOPT,5,4,2
KEYOPT,5,5,0
KEYOPT,5,7,0
KEYOPT,5,8,0
KEYOPT,5,9,0
KEYOPT,5,10,2
KEYOPT,5,11,0
KEYOPT,5,12,0
KEYOPT,5,2,4
! Generate the target surface
LSEL,S,,,19
lsel,a,,,28
CM,_TARGET,LINE
TYPE,4
NSLL,S,1
ESLN,S,0
ESURF
CMSEL,S,_ELEMCM
! Generate the contact surface
LSEL,S,,,34
lsel,a,,,38
CM,_CONTACT,LINE
TYPE,5
NSLL,S,1
ESLN,S,0
ESURF
ALLSEL
FINISH
/SOL
alls
LSCLEAR,ALL
OUTRES,ALL,ALL,
SFL, 6 ,PRES,21,
SFL, 9 ,PRES,21,
SFL, 11 ,PRES,21,
SFL, 13 ,PRES,21,
SFL, 17 ,PRES,21,
SFL, 22 ,PRES,21,
SFL, 30 ,PRES,21,
SFL, 31 ,PRES,21,
SFL, 32 ,PRES,21,
SFL, 33 ,PRES,21,
SFL, 37 ,PRES,21,
DL,2, ,ALL,
DL,4, ,ALL,
DL,33, ,UX,
DL,37, ,UX,
D,217, , , , , ,UX, , , , ,
antype,0
nlgeom,0
outres,all,all
arclen,1,0
arctrm,u,0.5,56,uy
TIME,1
AUTOTS,1
nsubst,200,,,1
OUTRES,ALL,ALL,
alls
SOLVE
![求教一个ansys滑动摩擦的问题,采用弧长法,限制Y向位移。]()
assss.jpg |