下面是我做的一个尺寸方面比较贴近实际的三维移动载荷的例子,请指教
(单位为mm,移动速度为500mm/min)
/FILNAME,3dmoving3,0
/TITLE,3D moving heat
/PREP7
ET,1,SOLID70
KEYOPT,1,2,0
KEYOPT,1,4,0
KEYOPT,1,7,0
KEYOPT,1,8,0
!*
MPTEMP,1,0
MPDATA,KXX,1,,0.07!70
MPTEMP,1,0
MPDATA,C,1,,448
MPTEMP,1,0
MPDATA,DENS,1,,7.8e-6!7800
BLOCK,0,50,0,3,0,500,
/VIEW, 1 ,1,1,1
/ANG, 1
/REP,FAST
lesize,all,2
vmesh,all
/psf,hflu,,2,0
/PNUM,LINE,1
!sfa,1,,conv,50e-6,25,
!sfa,2,,conv,50e-6,25,
sfa,5,,conv,50e-6,25,
sfa,6,,conv,50e-6,25,
finish
/solu
antype,trans
trnopt,full
nropt,auto,,
eqslv,
solcontrol,on
autots,on
kbc,1 !step
outres,all,all,
!load step 1, initial conditions 25 c
time,0.001
deltim,0.001,0.001,0.001
timint,off !time integration = off
tunif,25,
solve
!load step 2..... , apply moving heat flux
timint,on !time integration = on
j=1
allsel,all
*do,i,10,50,2
time,j
deltim,0.001,0.001,0.001,
sfdele,all,hflux
nsel,s,loc,x,22,28
nsel,r,loc,y,3
nsel,r,loc,z,i,i+6
sf,all,hflux,100
ALLSEL,ALL
nsel,s,loc,x,23,27
nsel,r,loc,y,3
nsel,r,loc,z,i+1,i+5
sf,all,hflux,200
ALLSEL,ALL
nsel,s,loc,x,24,26
nsel,r,loc,y,3
nsel,r,loc,z,i+2,i+4
sf,all,hflux,400
ALLSEL,ALL
nsubst,1
outres,all,all
allsel,all
solve
j=j+0.24
*enddo
这个结果应该比较贴近实际了,你们运行一下看看
但是存在的问题是,
1、划分网格不够细,中间施加热源的地方和板厚应该划的再细一些,三维局部细化如何操作?
2、加的热源应该是一高斯分布的,我只是给近似的选成了方形区域(应该为圆的),如果选圆区域如何选?用函数的话怎么用?(这个问题我问过多遍了,可一直没人回答)
请高手指教! |