电子束热源ansys模型

/SOLU
!*
ANTYPE,4
!*
TRNOPT,FULL
LUMPM,0
!*
TUNIF,20,
*SET,U,60
*SET,I,3
*SET,n,0.75
*SET,pi,acos(-1)
*SET,k,12/d**2
*SET,qmax,U*I*n*sqrt(k/pi)/(2*pi*r0)
ASEL,S, , , 26
NSLA,R,1
NPLOT


!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"加载q"!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!
*DEL,_FNCNAME
*DEL,_FNCMTID
*DEL,_FNC_C1
*DEL,_FNC_C2
*DEL,_FNC_C3
*DEL,_FNCCSYS
*SET,_FNCNAME,'q'
*DIM,_FNC_C1,,1
*DIM,_FNC_C2,,1
*DIM,_FNC_C3,,1
*SET,_FNC_C1(1),qmax
*SET,_FNC_C2(1),k
*SET,_FNC_C3(1),r0
*SET,_FNCCSYS,0
! /INPUT,q.func,,,1
*DIM,%_FNCNAME%,TABLE,6,17,1,,,,%_FNCCSYS%
!
! Begin of equation: qmax*exp((-k)*(sqrt({X}^2+{Y}^2)-r0)^2)
*SET,%_FNCNAME%(0,0,1), 0.0, -999
*SET,%_FNCNAME%(2,0,1), 0.0
*SET,%_FNCNAME%(3,0,1), %_FNC_C1(1)%
*SET,%_FNCNAME%(4,0,1), %_FNC_C2(1)%
*SET,%_FNCNAME%(5,0,1), %_FNC_C3(1)%
*SET,%_FNCNAME%(6,0,1), 0.0
*SET,%_FNCNAME%(0,1,1), 1.0, -1, 0, 0, 0, 0, 0
*SET,%_FNCNAME%(0,2,1), 0.0, -2, 0, 1, 0, 0, -1
*SET,%_FNCNAME%(0,3,1), 0, -3, 0, 1, -1, 2, -2
*SET,%_FNCNAME%(0,4,1), 0.0, -1, 0, 1, -3, 3, 18
*SET,%_FNCNAME%(0,5,1), 0.0, -2, 0, 2, 0, 0, 2
*SET,%_FNCNAME%(0,6,1), 0.0, -3, 0, 1, 2, 17, -2
*SET,%_FNCNAME%(0,7,1), 0.0, -2, 0, 2, 0, 0, 3
*SET,%_FNCNAME%(0,8,1), 0.0, -4, 0, 1, 3, 17, -2
*SET,%_FNCNAME%(0,9,1), 0.0, -2, 0, 1, -3, 1, -4
*SET,%_FNCNAME%(0,10,1), 0.0, -2, 16, 1, -2, 0, 0
*SET,%_FNCNAME%(0,11,1), 0.0, -3, 0, 1, -2, 2, 19
*SET,%_FNCNAME%(0,12,1), 0.0, -2, 0, 2, 0, 0, -3
*SET,%_FNCNAME%(0,13,1), 0.0, -4, 0, 1, -3, 17, -2
*SET,%_FNCNAME%(0,14,1), 0.0, -2, 0, 1, -1, 3, -4
*SET,%_FNCNAME%(0,15,1), 0.0, -1, 7, 1, -2, 0, 0
*SET,%_FNCNAME%(0,16,1), 0.0, -2, 0, 1, 17, 3, -1
*SET,%_FNCNAME%(0,17,1), 0.0, 99, 0, 1, -2, 0, 0
! End of equation: qmax*exp((-k)*(sqrt({X}^2+{Y}^2)-r0)^2)
!-->
FLST,2,5489,1,ORDE,2
FITEM,2,6353
FITEM,2,-11841
/GO
!*
!*
SF,P51X,HFLUX, %Q%
allsel
aplot
!*



!*
OUTRES,ALL,ALL,
!*
TIME,310
AUTOTS,1
DELTIM,1, , ,1
KBC,0
!*
TSRES,ERASE
allsel
solve

FLST,2,15843,1,ORDE,2
FITEM,2,1
FITEM,2,-15843
SFDELE,P51X,HFLUX
ASEL,S, , , 26
NSLA,R,1
NPLOT

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"加载q4"!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!
*DEL,_FNCNAME
*DEL,_FNCMTID
*DEL,_FNC_C1
*DEL,_FNC_C2
*DEL,_FNC_C3
*DEL,_FNCCSYS
*SET,_FNCNAME,'q4'
*DIM,_FNC_C1,,1
*DIM,_FNC_C2,,1
*DIM,_FNC_C3,,1
*SET,_FNC_C1(1),qmax
*SET,_FNC_C2(1),k
*SET,_FNC_C3(1),r0
*SET,_FNCCSYS,0
! /INPUT,q4.func,,,1
*DIM,%_FNCNAME%,TABLE,6,22,1,,,,%_FNCCSYS%
!
! Begin of equation: 0.3*(320-{TIME})*qmax*exp((-k)*(sqrt({X}^2+{Y}^2)-r0)^2)
*SET,%_FNCNAME%(0,0,1), 0.0, -999
*SET,%_FNCNAME%(2,0,1), 0.0
*SET,%_FNCNAME%(3,0,1), %_FNC_C1(1)%
*SET,%_FNCNAME%(4,0,1), %_FNC_C2(1)%
*SET,%_FNCNAME%(5,0,1), %_FNC_C3(1)%
*SET,%_FNCNAME%(6,0,1), 0.0
*SET,%_FNCNAME%(0,1,1), 1.0, -1, 0, 320, 0, 0, 1
*SET,%_FNCN

AME%(0,2,1), 0.0, -2, 0, 1, -1, 2, 1
*SET,%_FNCNAME%(0,3,1), 0, -1, 0, 0.3, 0, 0, -2
*SET,%_FNCNAME%(0,4,1), 0.0, -3, 0, 1, -1, 3, -2
*SET,%_FNCNAME%(0,5,1), 0.0, -1, 0, 1, -3, 3, 17
*SET,%_FNCNAME%(0,6,1), 0.0, -2, 0, 0, 0, 0, 0
*SET,%_FNCNAME%(0,7,1), 0.0, -3, 0, 1, 0, 0, -2
*SET,%_FNCNAME%(0,8,1), 0.0, -4, 0, 1, -2, 2, -3
*SET,%_FNCNAME%(0,9,1), 0.0, -2, 0, 1, -4, 3, 18
*SET,%_FNCNAME%(0,10,1), 0.0, -3, 0, 2, 0, 0, 2
*SET,%_FNCNAME%(0,11,1), 0.0, -4, 0, 1, 2, 17, -3
*SET,%_FNCNAME%(0,12,1), 0.0, -3, 0, 2, 0, 0, 3
*SET,%_FNCNAME%(0,13,1), 0.0, -5, 0, 1, 3, 17, -3
*SET,%_FNCNAME%(0,14,1), 0.0, -3, 0, 1, -4, 1, -5
*SET,%_FNCNAME%(0,15,1), 0.0, -3, 16, 1, -3, 0, 0
*SET,%_FNCNAME%(0,16,1), 0.0, -4, 0, 1, -3, 2, 19
*SET,%_FNCNAME%(0,17,1), 0.0, -3, 0, 2, 0, 0, -4
*SET,%_FNCNAME%(0,18,1), 0.0, -5, 0, 1, -4, 17, -3
*SET,%_FNCNAME%(0,19,1), 0.0, -3, 0, 1, -2, 3, -5
*SET,%_FNCNAME%(0,20,1), 0.0, -2, 7, 1, -3, 0, 0
*SET,%_FNCNAME%(0,21,1), 0.0, -3, 0, 1, -1, 3, -2
*SET,%_FNCNAME%(0,22,1), 0.0, 99, 0, 1, -3, 0, 0
! End of equation: 0.3*(320-{TIME})*qmax*exp((-k)*(sqrt({X}^2+{Y}^2)-r0)^2)
!-->
FLST,2,5489,1,ORDE,2
FITEM,2,6353
FITEM,2,-11841
/GO
!*
!*
SF,P51X,HFLUX, %Q4%

!*
OUTRES,ALL,ALL,
!*
TIME,320
AUTOTS,1
DELTIM,1, , ,1
KBC,0
!*
TSRES,ERASE
allsel
solve

FLST,2,15843,1,ORDE,2
FITEM,2,1
FITEM,2,-15843
SFDELE,P51X,HFLUX
allsel

!*
OUTRES,ALL,ALL,
!*
TIME,400
AUTOTS,1
DELTIM,5, , ,1
KBC,0
!*
TSRES,ERASE
allsel
solve


!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"加载 h"!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!
*DEL,_FNCNAME
*DEL,_FNCMTID
*DEL,_FNCCSYS
*SET,_FNCNAME,'h'
*SET,_FNCCSYS,0
! /INPUT,h.func,,,1
*DIM,%_FNCNAME%,TABLE,6,14,1,,,,%_FNCCSYS%
!
! Begin of equation: 0.8*5.67*({TEMP}+273)^4/({TEMP}*10^8)
*SET,%_FNCNAME%(0,0,1), 0.0, -999
*SET,%_FNCNAME%(2,0,1), 0.0
*SET,%_FNCNAME%(3,0,1), 0.0
*SET,%_FNCNAME%(4,0,1), 0.0
*SET,%_FNCNAME%(5,0,1), 0.0
*SET,%_FNCNAME%(6,0,1), 0.0
*SET,%_FNCNAME%(0,1,1), 1.0, -1, 0, 0.8, 0, 0, 0
*SET,%_FNCNAME%(0,2,1), 0.0, -2, 0, 5.67, 0, 0, -1
*SET,%_FNCNAME%(0,3,1), 1, -3, 0, 1, -1, 3, -2
*SET,%_FNCNAME%(0,4,1), 0.0, -1, 0, 273, 0, 0, 5
*SET,%_FNCNAME%(0,5,1), 0.0, -2, 0, 1, 5, 1, -1
*SET,%_FNCNAME%(0,6,1), 0.0, -1, 0, 4, 0, 0, -2
*SET,%_FNCNAME%(0,7,1), 0.0, -4, 0, 1, -2, 17, -1
*SET,%_FNCNAME%(0,8,1), 0.0, -1, 0, 1, -3, 3, -4
*SET,%_FNCNAME%(0,9,1), 0.0, -2, 0, 10, 0, 0, 0
*SET,%_FNCNAME%(0,10,1), 0.0, -3, 0, 8, 0, 0, -2
*SET,%_FNCNAME%(0,11,1), 0.0, -4, 0, 1, -2, 17, -3
*SET,%_FNCNAME%(0,12,1), 0.0, -2, 0, 1, 5, 3, -4
*SET,%_FNCNAME%(0,13,1), 0.0, -3, 0, 1, -1, 4, -2
*SET,%_FNCNAME%(0,14,1), 0.0, 99, 0, 1, -3, 0, 0
! End of equation: 0.8*5.67*({TEMP}+273)^4/({TEMP}*10^8)
!-->
FLST,2,9,5,ORDE,9
FITEM,2,1
FITEM,2,9
FITEM,2,42
FITEM,2,46
FITEM,2,50
FITEM,2,54
FITEM,2,-55
FITEM,2,63
FITEM,2

,-64
/GO
!*
SFA,P51X, ,CONV, %H% ,0