BLOCK,-0.002,-0.012,-0.008,0,0,0.12,
BLOCK,-0.012,-0.062,-0.008,0,0,0.12,
BLOCK,0.002,0.012,-0.008,0,0,0.12,
BLOCK,0.012,0.062,-0.008,0,0,0.12,
/AUTO,1
/ANG,1
FITEM,2,-5
VGLUE,P51X
FITEM,5,21
FITEM,5,24
FITEM,5,33
FITEM,5,36
FITEM,5,46
FITEM,5,-47
FITEM,5,58
FITEM,5,-59
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
!*
LESIZE,_Y1, , ,30, , , , ,1
!*
FITEM,5,-12
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
!*
LESIZE,_Y1, , ,60, , , , ,1
!*
FITEM,5,69
FITEM,5,-76
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
!*
LESIZE,_Y1, , ,12, , , , ,1
!*
FITEM,5,25
FITEM,5,32
FITEM,5,51
FITEM,5,54
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
!*
LESIZE,_Y1, , ,4, , , , ,1
!*
FITEM,5,13
FITEM,5,20
FITEM,5,39
FITEM,5,42
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
!*
LESIZE,_Y1, , ,4, , , , ,1
FITEM,5,-5
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
!*
LESIZE,_Y1, , ,2, , , , ,1
!*
FITEM,5,61
FITEM,5,-68
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
!*
LESIZE,_Y1, , ,4, , , , ,1
!*
TYPE, 1
ESYS, 0
SECNUM,
!*
CM,_Y,VOLU
CM,_Y1,VOLU
CMSEL,S,_Y
!*
VSWEEP,_Y1
!*
CMDELE,_Y1
CMDELE,_Y2
!*
TYPE, 1
ESYS, 0
SECNUM,
!*
FITEM,5,-9
CM,_Y,VOLU
VSEL, , , ,P51X
CM,_Y1,VOLU
CMSEL,S,_Y
!*
VSWEEP,_Y1
!*
CMDELE,_Y1
CMDELE,_Y2
!*
TYPE, 1
ESYS, 0
SECNUM,
!*
FITEM,5,61
FITEM,5,-68
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
!*
LESIZE,_Y1, , ,3, , , , ,1
!*
FITEM,5,-7
CM,_Y,VOLU
VSEL, , , ,P51X
CM,_Y1,VOLU
CMSEL,S,_Y
!*
VSWEEP,_Y1
!*
CMDELE,_Y1
CMDELE,_Y2
!*
/UI,MESH,OFF
/SOLU
FLST,2,14,5,ORDE,10
FITEM,2,17
FITEM,2,30
FITEM,2,-32
FITEM,2,34
FITEM,2,-36
FITEM,2,38
FITEM,2,-40
FITEM,2,42
FITEM,2,-44
SFA,P51X,1,CONV,30,20
csys,0
*SET,ef,0.85
*SET,U,14
*set,pi,3.1416
*SET,Q,ef*U*I
*SET,f1,0.6
*SET,f2,1.4
*SET,time,t
*SET,t1,0.12/v
*SET,tinc1,t1/60
*SET,XCENTER,0
*SET,YCENTER,0
*SET,b11,6e-3
*SET,b12,6e-3
*SET,a1,3e-3
*SET,c1,9e-3
*SET,Qmax11,6*3**(1/2)*f1*q/(pi*pi**(1/2)*a1*b11*c1)
*SET,Qmax12,6*3**(1/2)*f2*q/(pi*pi**(1/2)*a1*b12*c1)
!tfront1=Qmax11*exp(-3((({x}-xcenter)/a1)^2+(({y}-ycenter)/b11)^2+(({z}-zcenter)/c1)^2))
*DEL,_FNC_C1
*DEL,_FNC_C2
*DEL,_FNC_C3
*DEL,_FNC_C4
*DEL,_FNC_C5
*DEL,_FNC_C6
*DEL,_FNC_C7
*SET,_FNCNAME,'tfront1'
*DIM,_FNC_C1,,1
*DIM,_FNC_C2,,1
*DIM,_FNC_C3,,1
*DIM,_FNC_C4,,1
*DIM,_FNC_C5,,1
*DIM,_FNC_C6,,1
*DIM,_FNC_C7,,1
*SET,_FNC_C1(1),qmax11
*SET,_FNC_C2(1),xcenter
*SET,_FNC_C3(1),a1
*SET,_FNC_C4(1),ycenter
*SET,_FNC_C5(1),b11
*SET,_FNC_C6(1),zcenter
*SET,_FNC_C7(1),c1
*SET,_FNCCSYS,0
*DIM,%_FNCNAME%,TABLE,9,23,1,,,,%_FNCCSYS%
*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), %_FNC_C4(1)%
*SET,%_FNCNAME%(7,0,1), %_FNC_C5(1)%
*SET,%_FNCNAME%(8,0,1), %_FNC_C6(1)%
*SET,%_FNCNAME%(9,0,1), %_FNC_C7(1)%
*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,4,1), 0.0, -1, 0, 1, 2, 2, 18
*SET,%_FNCNAME%(0,5,1), 0.0, -2, 0, 1, -1, 4, 19
*SET,%_FNCNAME%(0,6,1), 0.0, -1, 0, 2, 0, 0, -2
*SET,%_FNCNAME%(0,8,1), 0.0, -1, 0, 1, 3, 2, 20
*SET,%_FNCNAME%(0,9,1), 0.0, -2, 0, 1, -1, 4, 21
*SET,%_FNCNAME%(0,10,1), 0.0, -1, 0, 2, 0, 0, -2
*SET,%_FNCNAME%(0,11,1), 0.0, -5, 0, 1, -2, 17, -1
*SET,%_FNCNAME%(0,13,1), 0.0, -2, 0, 1, 4, 2, 22
*SET,%_FNCNAME%(0,15,1), 0.0, -2, 0, 2, 0, 0, -4
*SET,%_FNCNAME%(0,16,1), 0.0, -5, 0, 1, -4, 17, -2
*SET,%_FNCNAME%(0,18,1), 0.0, -1, 0, 3, 0, 0, -2
*SET,%_FNCNAME%(0,21,1), 0.0, -1, 7, 1, -1, 0, 0
*SET,%_FNCNAME%(0,23,1), 0.0, 99, 0, 1, -2, 0, 0
*DEL,_FNC_C1
*DEL,_FNC_C2
*DEL,_FNC_C3
*DEL,_FNC_C4
*DEL,_FNC_C5
*DEL,_FNC_C6
*DEL,_FNC_C7
*SET,_FNCNAME,'tbehind1'
*DIM,_FNC_C1,,1
*DIM,_FNC_C2,,1
*DIM,_FNC_C3,,1
*DIM,_FNC_C4,,1
*DIM,_FNC_C5,,1
*DIM,_FNC_C6,,1
*DIM,_FNC_C7,,1
*SET,_FNC_C1(1),qmax12
*SET,_FNC_C2(1),xcenter
*SET,_FNC_C3(1),a1
*SET,_FNC_C4(1),ycenter
*SET,_FNC_C5(1),b12
*SET,_FNC_C6(1),zcenter
*SET,_FNC_C7(1),c1
*SET,_FNCCSYS,0
*DIM,%_FNCNAME%,TABLE,9,23,1,,,,%_FNCCSYS%
*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), %_FNC_C4(1)%
*SET,%_FNCNAME%(7,0,1), %_FNC_C5(1)%
*SET,%_FNCNAME%(8,0,1), %_FNC_C6(1)%
*SET,%_FNCNAME%(9,0,1), %_FNC_C7(1)%
*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,4,1), 0.0, -1, 0, 1, 2, 2, 18
*SET,%_FNCNAME%(0,5,1), 0.0, -2, 0, 1, -1, 4, 19
*SET,%_FNCNAME%(0,6,1), 0.0, -1, 0, 2, 0, 0, -2
*SET,%_FNCNAME%(0,8,1), 0.0, -1, 0, 1, 3, 2, 20
*SET,%_FNCNAME%(0,9,1), 0.0, -2, 0, 1, -1, 4, 21
*SET,%_FNCNAME%(0,10,1), 0.0, -1, 0, 2, 0, 0, -2
*SET,%_FNCNAME%(0,11,1), 0.0, -5, 0, 1, -2, 17, -1
*SET,%_FNCNAME%(0,13,1), 0.0, -2, 0, 1, 4, 2, 22
*SET,%_FNCNAME%(0,15,1), 0.0, -2, 0, 2, 0, 0, -4
*SET,%_FNCNAME%(0,16,1), 0.0, -5, 0, 1, -4, 17, -2
*SET,%_FNCNAME%(0,18,1), 0.0, -1, 0, 3, 0, 0, -2
*SET,%_FNCNAME%(0,21,1), 0.0, -1, 7, 1, -1, 0, 0
*SET,%_FNCNAME%(0,23,1), 0.0, 99, 0, 1, -2, 0, 0
*SET,i,10
t=tinc1*i
/SOLU
ANTYPE,4
TRNOPT,FULL
TUNIF,20,
OUTERS,ALL,ALL
TIME,t
NROPT,FULL,,ON
AUTOTS,1
NSUBST,5,,,1
KBC,0
LNSRCH,1
TSRES,ERASE
TIMINT,1,THERM
TINTP,,,,1,,,,,
TIMINT,0,struct
TIMINT,1,THERM
TIMINT,0,MAG
ALLSEL,ALL
*SET,XCENTER,0
*SET,YCENTER,0
*SET,ZCENTER,v*(61-t)
LOCAL,11,2,0,0,0.002*(61-t),,,,2,4,
NSEL,S,LOC,X,,0.003
NSEL,R,LOC,y,-180,0
NSEL,R,LOC,z,0,90
CM,NODEF,NODE
LOCAL,12,0,0,0,0.002*(61-t),,,,1,1,
*SET,tfront1(4,0,1),XCENTER
*SET,tfront1(6,0,1),YCENTER
*SET,tfront1(8,0,1),ZCENTER
BF,NODEF,HGEN, %TFRONT1%
CMDELE,NODEF
ALLSEL,ALL
LOCAL,13,2,0,0,0.002*(61-t),,,,2,4,
NSEL,S,LOC,X,,0.003
NSEL,R,LOC,y,-180,0
NSEL,R,LOC,z,-90,0
CM,NODEF,NODE
LOCAL,14,0,0,0,0.002*(61-t),,,,1,1,
*SET,tbehind1(4,0,1),XCENTER
*SET,tbehind1(6,0,1),YCENTER
*SET,tbehind1(8,0,1),zcenter
BF,NODEF,HGEN, %TBEHIND1%
CMDELE,NODEF
ALLSEL,ALL
SOLVE
BFDELE,all,HGEN
SAVE下载本文
