载荷位移曲线得不到下降段,请有心人指点
fini
/clear
finish
/config,nres,5000
/PREP7
*SET,a,50
*SET,b,30
*SET,c,30
*SET,t,5.85
*SET,pi,1500
ET,1,plane42
ET,2,TARGE169
ET,3,CONTA172
KEYOPT,1,3,2
KEYOPT,3,2,1
KEYOPT,3,4,2
!R,1,t,
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,EX,1,,2.0e5
MPDATA,PRXY,1,,0.3
TB,MISO,1,1,12,
TBTEMP,0
TBPT,,0.004,800
TBPT,,0.008967261,810
TBPT,,0.012014347,830
TBPT,,0.016681906,850
TBPT,,0.023626595,870
TBPT,,0.033700259,890
TBPT,,0.040239732,900
TBPT,,0.04798976,910
TBPT,,0.080406842,940
TBPT,,0.095012381,950
TBPT,,0.209504796,1000
TBPT,,0.3,0
K,1,c,0,0,
K,2,a,0,0,
K,3,a,0,0,
k,4,a,b,0
K,5,-a,b,0,
K,6,-a,0,0,
K,7,-a,0,0,
K,8,-c,0,0,
k,10,-a,-b,0
k,11,a,-b,0
a,1,2,4,5,6,8
a,7,10,11,3,1,8
ESIZE,2,0
AMESH,all
! Generate the target surface
LSEL,S,,,5,
CM,_TARGET,LINE
TYPE,2
MAT,1
REAL,3 !
NSLL,S,1
ESLN,S,0
ESURF
alls
! Generate the contact surface
LSEL,S,,,11
CM,_CONTACT,LINE
TYPE,3
MAT,1 !
NSLL,S,1
ESLN,S,0
ESURF
ALLSEL
ESEL,ALL
! Generate the target surface
LSEL,S,,,1
CM,_TARGET,LINE
TYPE,2
MAT,1
REAL,3 !
NSLL,S,1
ESLN,S,0
ESURF
alls
! Generate the contact surface
LSEL,S,,,10
CM,_CONTACT,LINE
TYPE,3
MAT,1 !
NSLL,S,1
ESLN,S,0
ESURF
ALLSEL
ESEL,ALL
eplot
allsel
finish
/SOLU
dl,8,,all
sfl,3,pres,-pi
ANTYPE,0
NLGEOM,on
arclen,on
outres,all,all
ntop=node(0,b,0)
SOLVE
FINISH
/POST26
nsol,2,ntop,u,y
prod,3,1,,,load,,,pi
*get,uy2,vari,2,extrem,vmin
prvar,2,3
/axlab,x,deflection(mm)
/axlab,y,total,load(MPa)
/grid,1
/xrange,0,0.3
/yrange,-500,pi
xvar,2
plvar,3 |