- 积分
- 0
- 注册时间
- 2006-9-9
- 仿真币
-
- 最后登录
- 1970-1-1
|
生热率体载荷施加,用循环加载求解后,无温度分布,list载荷查看只有表面一层有载荷?而我加载是整个面都加载。另外重装系统前,用ansys求解没问题,得到明显的结果温度分布,重装ansys后,但结果就不一样了(无温度分布),难道是程序本身有问题,不过都用的是同一版本,同一安装文件啊。有无达人指教下,哪里出了问题,程序本身有漏洞?。。。谢谢
finish
/clear
/filnam,tissue
/units,si
pai=3.1415926
r0=5e-4 !光斑半径
p=1200 !激光功率
fai=2*p/pai/r0**2 !表面功率密度
ua=70
us=1.8e4
ut=ua+us
ref=0.05 !反射率
tao=8
!脉冲作用时间
width=1e-3
length=1e-3
size=2e-5
/prep7
w=0.7
rou=(1.3-0.3*w)*1000
k=0.419*(0.133+1.36*w/rou)
c=4.19*(0.37+0.67*w/rou)*1000
et,1,plane55,,,1
mp,kxx,1,k !unit
mp,c,1,c
mp,dens,1,rou
rectng,0,width,-length,0
aesize,1,size
mshkey,0
mshape,0,2d
mat,1
amesh,1
allsel
finish
/solu
antype,trans
toffst,273
allsel,all
ic,all,temp,37
timint,on
autots,on
outres,all,all
t2=0
tt=tao+t2
del=1e-1
*do,t,1,tt,1
time,t
deltime,del,del,del
kbc,0
!sfl,3,,conv,10,20
!sfl,4,hflux,0
!sfa,1,1,hflux,0
*do,j,0,length/size
y=size*j
*do,i,0,width/size
x=size*i
*if,x,le,r0,and,t,le,tao,then !mod(t,tt),le,mod(tao,tt),then
bf,node(x,y,0),hgen,ua*(1-ref)*fai*exp(-0.5*x**2/r0**2*exp(-us*y)-ut*y)*exp(-4*(t-tao)**2/tao**2)
*else
!bfadele,1,hgen
bf,node(x,y,0),hgen,0
*endif
*enddo
*enddo
allsel
solve
*enddo
finish |
|