*DO,i,0,14400,1
TIMINT,ON
tim=tim+0.5
TIME,tim
!===================施加移动载荷
!判断移动方向
*IF,a,EQ,0,THEN
j=j+1
*ELSE
j=j-1
*ENDIF
!===============删除螺母处对流载荷,在此上面加载热流密度
NSEL,S,LOC,x,0.010
NSEL,R,LOC,y,0,360
NSEL,R,LOC,Z,0.20+j*0.050,0.30+j*0.050
SFDELE,ALL,conv
!================施加螺母产生的热流密度
NSEL,S,LOC,x,0.010
NSEL,R,LOC,y,0,360
NSEL,R,LOC,Z,0.20+j*0.050,0.30+j*0.050
BFUNIF,HGEN,18900
!===========选择求解器
lnsrch,on !======收敛准则开
tintp,,,,1.0 !======定义瞬态积分常数
ALLS
NSUBST,1
OUTRES,ALL,ALL
EQSLV,JCG
SOLVE
!=======******删除施加在这部分的热流密度载荷,为下一循环做准备
NSEL,S,LOC,x,0.010
NSEL,R,LOC,y,0,360
NSEL,R,LOC,Z,0.20+j*0.050,0.30+j*0.050
BFDELE,ALL,HGEN
!==========施加这部分区域的对流载荷
NSEL,S,LOC,x,0.010
NSEL,R,LOC,y,0,360
NSEL,R,LOC,Z,0.20+j*0.050,0.30+j*0.050
SF,ALL,CONV,80,20
ALLS
ldread,temp,,,time,2,Ball-screw,rth !======从热分析的结果文件度温度载荷
!===========判断是否转向
*IF,0.30+j*0.050,GE,0.9,THEN
j=12
a=1
*ELSEIF,0.20+j*0.050,LE,0.2,THEN
j=0
a=0
*ENDIF
做的一个移动的 |