/CWD,'D:\(5)'
/filname,88888
/prep7
et,1,solid226
keyopt,1,1,11
keyopt,1,2,0
keyopt,1,4,0
keyopt,1,6,0
keyopt,1,9,1
keyopt,1,10,0
mptemp,1,20,500,1000,1500,2000
mpdata,ex,1,1,1.93e11,1.50e11,0.70e11,0.10e11,0.01e11
tb,bkin,1,5
tbtemp,20,1
tbdata,1,1200e6,0.193e11
tbtemp,500,2
tbdata,1, 933e6,0.150e11
tbtemp,1000,3
tbdata,1, 435e6,0.070e11
tbtemp,1500,4
tbdata,1, 70e6,0.010e11
tbtemp,2000,5
tbdata,1, 7e6,0.001e11
mp,dens,1,8030
mp,alpx,1,1.78e-5
mp,nuxy,1,0.29
mp,kxx,1,16.3
mp,c,1,502
MPTEMP,1,20
MPTEMP,2,500
MPTEMP,3,1000
MPTEMP,4,1500
MPTEMP,5,2000
MPDATA,ENTH,1,,7.88e7
MPDATA,ENTH,1,,2.131e9
MPDATA,ENTH,1,,5.347e9
MPDATA,ENTH,1,,9.445e9
MPDATA,ENTH,1,,1.272e10
AREA = 2.82735e-5
COFFCONV = 30
I = 150
LENGTH = 0.12
Q = 39900
QM = 4.233646347e9
R = 3.000000000E-03
STEPDIS = 0.0025
STEPNUM = 48
STEPTIME = 0.5
TEMP = 20
U = 380
V = 5.00000000E-03
YITA = 0.7
block,0,0.12,0,0.012,0,0.12
block,0,0.12,0.012,0.015,0.057,0.063
vglue,all
esize,0.0025
vmesh,2
esize,0.005,0,
CM,_Y,VOLU
VSEL,,,,3
CM,_Y1,VOLU
CHKMSH,'VOLU'
CMSEL,S,_Y
!*
vsweep,_y1
!*
cmdele,_y
cmdele,_y1
cmdele,_y2
/VIEW,1,1,2,3
/ANG,1
/REP,FAST
DA,3,UX
DA,3,UY
DA,3,UZ
DA,11,UZ
DA,12,UZ
NSEL,S,LOC,Y,0,0.012
NSEL,R,LOC,Z,0
NSEL,R,LOC,X,0,0.12
SF,ALL,CONV,Coffconv,temp
ALLSEL,ALL
NSEL,S,LOC,Y,0,0.012
NSEL,R,LOC,Z,0.12
NSEL,R,LOC,X,0,0.12
SF,ALL,CONV,CoffConv,Temp
ALLSEL,ALL
NSEL,S,LOC,Y,0,0.012
NSEL,R,LOC,Z,0,0.12
NSEL,R,LOC,X,0
SF,ALL,CONV,CoffConv,Temp
ALLSEL,ALL
NSEL,S,LOC,Y,0,0.012
NSEL,R,LOC,Z,0,0.12
NSEL,R,LOC,X,0.12
SF,ALL,CONV,CoffConv,Temp
ALLSEL,ALL
NSEL,S,LOC,Y,0
NSEL,R,LOC,Z,0,0.12
NSEL,R,LOC,X,0,0.12
SF,ALL,CONV,CoffConv,Temp
ALLSEL,ALL
NSEL,S,LOC,Y,0.012
NSEL,R,LOC,Z,0,0.057
NSEL,R,LOC,X,0,0.12
SF,ALL,CONV,CoffConv,Temp
ALLSEL,ALL
NSEL,S,LOC,Y,0.012
NSEL,R,LOC,Z,0.063,0.12
NSEL,R,LOC,X,0,0.12
SF,ALL,CONV,CoffConv,Temp
ALLSEL,ALL
*DEL,_FNCNAME
*DEL,_FNCMTID
*DEL,_FNC_C1
*DEL,_FNC_C2
*DEL,_FNC_C3
*DEL,_FNCCSYS
*SET,_FNCNAME,'GAOSI4'
*DIM,_FNC_C1,,1
*DIM,_FNC_C2,,1
*DIM,_FNC_C3,,1
*SET,_FNC_C1(1),QM
*SET,_FNC_C2(1),V
*SET,_FNC_C3(1),R
*SET,_FNCCSYS,0
!/INPUT,C:\USERS\ADMINISTRATOR\DESKTOP\GAOSI3.FUNC,,,1
*DIM,%_FNCNAME%,TABLE,6,25,1,,,,%_FNCCSYS%
!
!BEGIN OF EQUATIONM*EXP(-3*(({X}-V*{TIME})^2+({Z}-0.06)^2)/R^2) !(这一部分高斯热源我选择GUI操作弄的,看生成的代码太多就没用命令)
FINISH
/SOLU
ANTYPE,4
!*
TRNOPT,FULL
NLGEOM,1
NSEL,S,LOC,Y,0.012,0.015
ESLN, S, 1, ALL
EKILL,ALL
ALLSEL,ALL
ESEL,S,LIVE
EPLOT
ESEL,S,LIVE
NSLE,S,1
NSEL,R,LOC,Y,0.012
NSEL,R,LOC,Z,0.057,0.063
nsel,r,loc,x,0,0.12
SF,ALL,CONV,CoffConv,Temp
ALLSEL,ALL
*DO, k, 1,3, 1
TIME,StepTime*k
KBC, 1
LeftX=StepDis*(k-1)
RightX=StepDis*k
Nsel, s, loc, y, 0.012, 0.015
NSEL, R, LOC, Z, 0.057, 0.063
NSEL, R, LOC, X, LeftX, RightX
ESLN, S, 1
EALIVE,ALL
ALLSEL, ALL
NSEL, S, LOC, Y, 0.012, 0.015
NSEL, R, LOC, Z, 0.06-R, 0.06+R
NSEL, R, LOC, x, RightX-2*Radius, RightX
ESLN, S, 1
SFE, ALL, 4, HFLUX, ,GAOSI4, , ,
ALLSEL, ALL
ESEL,S,LIVE
NSLE,S,1
NSEL,R,LOC,X,0
NSEL,R,LOC,Y,0.012, 0.015
SF,ALL,CONV,CoffConv,Temp
ALLSEL,ALL
ESEL,S,LIVE
NSLE,S,1
NSEL,R,LOC,X,Length
NSEL,R,LOC,Y,0.012, 0.015
SF,ALL,CONV,CoffConv,Temp
ALLSEL,ALL
ESEL,S,LIVE
NSLE,S,1
NSEL,R,LOC,Z,0.063
NSEL,R,LOC,Y,0.012, 0.015
SF,ALL,CONV,CoffConv,Temp
ALLSEL,ALL
ESEL,S,LIVE
NSLE,S,1
NSEL,R,LOC,Z,0.057
NSEL,R,LOC,Y,0.012, 0.015
SF,ALL,CONV,CoffConv,Temp
ALLSEL,ALL
SOLVE
SAVE
SFEDELE,ALL,4,HFLUX
ALLSEL, ALL
ESEL,S,LIVE
NSLE,S,1
NSEL,R,LOC,Y,0.015
NSEL, R, LOC, X, LeftX-2*StepDis, RightX-2*StepDis
SF,ALL,CONV,CoffConv,Temp
ALLSEL,ALL
ESEL,S,LIVE
EPLOT
*ENDDO |