求助 热源加载不上

abcmn0233

高手指点
出现以下警告
*** WARNING ***                         CP =     173.083   TIME= 20:29:12
The calculated reference HT FLOW CONVERGENCE VALUE= 7.256192345E-17 is  
less than the default minimum of 1E-6 (which can be modified using the  
MINREF field of the CNVTOL command).  Check results carefully.
程序         

/CLEAR
/BATCH
/FILNAME,Thermal,1
/TITLE,Laser weldding
LENGTH=0.02
WIDTH=0.005
Rlaser=0.00025
PI=3.1415926
Vlaser=0.005
Plaser=45
Absor=0.5
LSIZE=0.00025
TM=LENGTH/Vlaser
TINC=LSIZE/Vlaser
NUM_TIME=81
NUM_X=81
NUM_Y=5
qmax=3*Plaser*Absor/(PI*Rlaser**2)
*DIM,FLUX2,TABLE,NUM_X,NUM_Y,NUM_TIME,X,Y,TIME  
  *DO,K,1,NUM_TIME,1  
  *DO,I,1,NUM_X,1  
FLUX2(I,0,K)=(I-1)*LSIZE  
*ENDDO  
*DO,J,1,NUM_Y,1  
FLUX2(0,J,K)=(J-1)*LSIZE  
*ENDDO  
*DO,I,1,NUM_X,1
*DO,J,1,NUM_Y,1
XCENTER=Vlaser*(K-1)*TINC
YCENTER=0
DISTANCE=SQRT(((I-1)*LSIZE-XCENTER)**2+((J-1)*LSIZE-YCENTER)**2)
*IF,DISTANCE,LE,Rlaser,THEN
FLUX2(I,J,K)=qmax/EXP(3*DISTANCE**2/(Rlaser**2))
*ELSE
FLUX2(I,J,K)=0
*ENDIF
*ENDDO
*ENDDO
FLUX2(0,0,K)=(K-1)*TINC
*ENDDO
/prep7  
/UNITS,si
et,1,shell57
R,1,0.0005
mptemp,1,20,100,200,300,400,500,600,700,800,900,1000
mpdate,kxx,1,1,10.6,12.0,13.7,15.4,17.1,18.7,20.7,22.6,24.3,26.2,28.0
mpdate,c,1,1,407,430,454,474,492,503,517,527,536,545,551
! 定义si的材料属性
mp,dens,1,8.9e3
RECTNG,0,0.02,0,0.001
RECTNG,0,0.02,0.001,0.002
RECTNG,0,0.02,0.002,0.005
aglue,all
numcmp,all
lesize,1,LSIZE
lesize,2,LSIZE
lesize,3,LSIZE
lesize,4,LSIZE
lesize,5,2*LSIZE
lesize,6,2*LSIZE
lesize,7,2*LSIZE
lesize,8,2*LSIZE
lesize,9,2*LSIZE
lesize,10,2*LSIZE
mshkey,1
amesh,1
amesh,3
mshkey,0
mshape,1
amesh,2
/SOLU
ANTYPE,TRANS
TUNIF,27
KBC,1
*SET,DELT,1
TIMINT,ON
AUTOTS,OFF
*DO,T,1E-6,TM,TINC
/VIEW,1,1,1,1
/ANG,1
/REP,FAST
!FLST,2,1,5,ORDER,1
!FITEM,2,2
!/GO
!*
TIME,T
AUTOTS,0
DELTIM, , , ,1
KBC,0
!*
TSRES,ERASE
FLST,2,1,5,ORDER,1
FITEM,2,2
/GO
!*
!*
SFA,P51X,1,HFLUX,%FLUX2%
SOLVE
OUTRES,ALL,ALL,
/PSF,HFLUX,,2
/REPLOT
*ENDDO
OUTRES,ALL,ALL,
FINISH

sd9366

热源控制有问题,将最小值增大点儿看看.

abcmn0233

已解决 谢了