讨论 热结构分析命令流
本帖最后由 guotao102 于 2009-4-20 09:42 编辑高手帮忙看下我的命令是否有问题，我有个疑问，现在我设置了autots,on，但是计算过程中不会调整步长了，之前一直会，后来不知道为什么就不调整了，完全按照自己设置的子部计算，这样需要的时间比之前长很多，知道为什么吗？帮忙啊
/solu
antype,4 ! 瞬态分析
trnopt,full
NEQIT,100,
solcontrol,on
lumpm,0
nlgeom,1
sstif,on
pstres,1
toffst,273
!设置初始温度和施加对流边界条件
allsel,all
ic,all,temp,20
allsel,all
asel,s,loc,x,0
asel,a,loc,x,0.02
asel,a,loc,y,0.1
asel,a,loc,z,0
asel,a,loc,z,0.01
allsel,below,area
sfa,all,1,conv,30,20
!施加对称边界条件
nsel,s,loc,y,0
dsym,symm,y,0
allsel,all
!施加约束
nsel,s,loc,y,0
nsel,r,loc,z,0.0065/2
d,all,uz,0
nsel,r,loc,X,0
d,all,ux,0
d,all,uy,0
allsel,all
vsel,s,volu, ,4,12
allsel,below,volu
tref,1500
vsel,s,volu, ,1,3
allsel,below,volu
tref,20
!杀死大小坡口
vsel,s,volu, ,4,12
allsel,below,volu
eplot
ekill,all
esel,s,live
eplot
allsel,all
outres,all,all
timint,on
timint,1,struct
timint,1,therm
timint,0,mag
tintp,0.005,,,1,0.5,0.2
t=0
dt1=10
dt2=200
dt3=800
!焊接开始，首先焊第一道
*do,i1,1,2,1
t=t+dt1
time,t
nsubst,20
autots,on
vsel,s,volu, ,5
vsel,a,volu, ,7
allsel,below,volu
nsel,r,loc,x,0.01*(i1-1),0.01*i1
esln,s,1
ealive,all
BF,all,HGEN,7E9
allsel,all
solve
vsel,s,volu, ,5
vsel,a,volu, ,7
allsel,below,volu
nsel,r,loc,x,0.01*(i1-1),0.01*i1
esln,s,1
BFDELE,all,HGEN
*enddo
*do,i2,1,2,1
t=t+dt1
time,t
nsubst,20
autots,on
vsel,s,volu, ,8
vsel,a,volu, ,9
allsel,below,volu
nsel,r,loc,x,0.01*(i2-1),0.01*i2
esln,s,1
ealive,all
BF,all,HGEN,7E9
allsel,all
solve
vsel,s,volu, ,8
vsel,a,volu, ,9
allsel,below,volu
nsel,r,loc,x,0.01*(i2-1),0.01*i2
esln,s,1
BFDELE,all,HGEN
*enddo
*do,i3,1,2,1
t=t+dt1
time,t
nsubst,20
autots,on
vsel,s,volu, ,10
vsel,a,volu, ,6
allsel,below,volu
nsel,r,loc,x,0.01*(i3-1),0.01*i3
esln,s,1
ealive,all
BF,all,HGEN,7E9
allsel,all
solve
vsel,s,volu, ,10
vsel,a,volu, ,6
allsel,below,volu
nsel,r,loc,x,0.01*(i3-1),0.01*i3
esln,s,1
BFDELE,all,HGEN
*enddo
*do,i4,1,2,1
t=t+dt1
time,t
nsubst,20
autots,on
vsel,s,volu, ,4
allsel,below,volu
nsel,r,loc,x,0.01*(i4-1),0.01*i4
esln,s,1
ealive,all
BF,all,HGEN,7E9
allsel,all
solve
vsel,s,volu, ,4
allsel,below,volu
nsel,r,loc,x,0.01*(i4-1),0.01*i4
esln,s,1
BFDELE,all,HGEN
*enddo
*do,i5,1,2,1
t=t+dt1
time,t
nsubst,20
autots,on
vsel,s,volu, ,11
vsel,a,volu, ,12
allsel,below,volu
nsel,r,loc,x,0.01*(i5-1),0.01*i5
esln,s,1
ealive,all
BF,all,HGEN,7E9
allsel,all
solve
vsel,s,volu, ,11
vsel,a,volu, ,12
allsel,below,volu
nsel,r,loc,x,0.01*(i5-1),0.01*i5
esln,s,1
BFDELE,all,HGEN
*enddo
!焊接结束，开始冷却
t=t+dt2
time,t
nsubst,30
autots,on
allsel,all
solve
t=t+dt3
time,t
nsubst,50
autots,on
allsel,all
solve
页:
[1]