- 积分
- 4
- 注册时间
- 2004-3-22
- 仿真币
-
- 最后登录
- 1970-1-1
|
在热喷涂过程中,金属在基体表面沉积形成薄壳,再随后的喷涂过程中会继续受到热源的作用。由于金属和基体的热膨胀系数不同,会产生热应力。温度场的计算程序如下:
/CLEAR,NOSTART
/FILNAM,sample
/TITLE,RESIDUAL STRESS ANALYSIS
/UNITS,SI
/PREP7
ET,1,SOLID70
ET,2,SOLID70
MP,DENS,1,5250
MP,C,1,650
MP,KXX,1,5
MP,DENS,2,7800
MP,C,2,502
MP,KXX,2,16.3
/VIEW,1,1,1,1
BLOCK,0,0.041,0,0.036,0,0.004
BLOCK,0,0.041,0,0.036,0.004,0.0043
VGLUE,ALL
LESIZE,1,,,36
LESIZE,4,,,41
LESIZE,9,,,4
MSHKEY,1
VATT,1,1,1
VMESH,1
LESIZE,8,,,36
LESIZE,5,,,41
LESIZE,25,,,1
MSHKEY,1
VATT,2,1,2
VMESH,3
/PNUM,DEFA
EPLOT
SAVE
FINISH
/SOLU
LSIZE=0.001
V=0.4 !速度
TINC=LSIZE/V !单步时间长度
KK=1 !能量集中系数
Qmax=1800000
R=0.012
MAX_TIME=41
MAX_X=41
MAX_Y=36
*DIM,FLUX2,TABLE,MAX_X,MAX_Y,MAX_TIME,X,Y,TIME
*DO,K,1,MAX_TIME,1
*DO,I,1,MAX_X,1
FLUX2(I,0,K)=(I-1)*LSIZE
*ENDDO
*DO,J,1,MAX_Y,1
FLUX2(0,J,K)=(J-1)*LSIZE
*ENDDO
*DO,I,1,MAX_X,1
*DO,J,1,MAX_Y,1
XCENTER=V*(K-1)*TINC
YCENTER=0.01
DISTANCE=SQRT(((I-1)*LSIZE-XCENTER)**2+((J-1)*LSIZE-YCENTER)**2)
*IF,DISTANCE,LE,R,THEN
FLUX2(I,J,K)=Qmax/EXP(KK*DISTANCE**2/(2*0.004**2))
*ELSE
FLUX2(I,J,K)=0
*ENDIF
*ENDDO
*ENDDO
FLUX2(0,0,K)=(K-1)*TINC
*ENDDO
!开始计算
ANTYPE,TRANS
TUNIF,150 !初始温度150度
KBC,1
*SET,DELT,1
TIMINT,ON
AUTOTS,OFF
TT=0.05
*DO,TM,1E-6,TT,TINC
/VIEW,1,1,1,1
/ANG,1
/REP,FAST
FLST,2,1,5,ORDE,1
FITEM,2,8
/GO
!*
TIME,TM
AUTOTS,0
DELTIM, , , ,1
KBC,0
!*
TSRES,ERASE
FLST,2,1,5,ORDE,1
FITEM,2,8
/GO
!*
!*
SFA,P51X,1,HFLUX,%FLUX2%
/STATUS,SOLU
SOLVE
OUTRES,ALL,ALL,
/PSF,HFLUX,,2
/REPLOT
*ENDDO
OUTRES,ALL,ALL,
计算的到0.025s和0.05s的温度场如下所示: |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有账号?注册
×
评分
-
1
查看全部评分
-
|