找回密码
 注册
Simdroid-非首页
查看: 98|回复: 0

do 循环加载问题?anys有bug?

[复制链接]
发表于 2007-9-17 16:18:27 | 显示全部楼层 |阅读模式 来自 浙江杭州
生热率体载荷施加,用循环加载求解后,无温度分布,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
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Simapps系列直播

Archiver|小黑屋|联系我们|仿真互动网 ( 京ICP备15048925号-7 )

GMT+8, 2024-9-21 14:54 , Processed in 0.029503 second(s), 10 queries , Gzip On, MemCache On.

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表