错误信息为Solution not converged at time 3.333333333E-07 (load step 1 substep 1). Run terminated.
请教版主什么原因,个人认为是压强过大,导致的网格变形过大,不知如何解决。
附上命令流
/filename,force
/prep7
/units,si
/view,1,,,1
et,1,plane182
keyopt,1,1,0
keyopt,1,3,2
keyopt,1,6,0
mptemp,,,,,,,,
mptemp,1,0
mpdata,ex,1,,2.19e+011
mpdata,prxy,1,,0.3
mptemp,,,,,,,,
mptemp,1,0
mpdata,dens,1,,7830
sigma=1617e+6
tb,bkin,1,1,2,1
tbtemp,0
tbdata,, sigma,0.03*2.19e+11,,,,
lc=3/1000 !磨削弧长是3mm
stepsize=lc
inlc=54 !lc分成inlc份
n=20 !工件长度是n*lc
esize=stepsize/ inlc
k,1, 0,10/1000,0,
k,2, 0,0,0,
k,3, n*lc,10/1000,0,
k,4, n*lc,0,0,
a,1,2,4,3
lesize, 1, , , 30,10 , , , ,1
lesize, 3 , , ,30,0.1 , , , ,1
lesize, 4 , , , inlc*n, , , , ,1
mshape,0,2d
mshkey,1
amesh, 1
vw=1000/1000/60 !磨削速度
tinc=esize/vw
tm=n*stepsize/vw
xi=0 !热源起点
/solu
antype,trans
trnopt,full
lsel,s, , , 2
nsll,s,1
d,all,all
i=1
*do,t, tinc,tm,tinc
!NLGEOM,1
NSUBST,50,10000,20
AUTOTS,1
TIME,t
!CNVTOL,F, ,0.005,2, ,
outres,all,all
tsres,erase
xi=(i-1)*esize
allsel
lsel,s,,,4
nsll,s,1
nsel,r,loc,x, xi-1e-6, xi+lc/9+1e-6
sf,all,pres,-1e+10/3
allsel
lsel,s,,,4
nsll,s,1
nsel,r,loc,x, xi+2*lc/9-1e-6, xi+3*lc/9+1e-6
sf,all,pres,-1e+10/3
allsel
lsel,s,,,4
nsll,s,1
nsel,r,loc,x, xi+4*lc/9-1e-6, xi+5*lc/9+1e-6
sf,all,pres,-1e+10/3
allsel
lsel,s,,,4
nsll,s,1
nsel,r,loc,x, xi+6*lc/9-1e-6, xi+7*lc/9+1e-6
sf,all,pres,-1e+10/3
allsel
lsel,s,,,4
nsll,s,1
nsel,r,loc,x, xi+8*lc/9-1e-6, xi+9*lc/9+1e-6
sf,all,pres,-1e+10/3
! sfgrad,pres, ,y,xi,-60* sigma,
!sfgrad,pres, ,x,xi,17/(3/1000*10/1000),
!sf,all, pres,1e-6
allsel
solve
allsel
lsel,s,,,4
nsll,s,1
sfdele,all, pres
i=i+1
*enddo
|