菜鸟求助:运行之后温度没有变化,请求指点一下出错的地方?
/PREP7ET,1,SOLID70
!*
!*
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,EX,1,,2.1e11
MPDATA,PRXY,1,,0.3
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,KXX,1,,48
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,C,1,,480
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,DENS,1,,7810
K,1,-0.005,-0.005,0,
K,2,-0.005,0,0,
K,3,-0.0004,0,0,
K,4,-0.0004,-0.0011,0,
K,5,0.0004,-0.0011,0,
K,6,0.0004,0,0,
K,7,0.0001,0,0,
K,8,0.0001,-0.0008,0,
K,9,-0.0001,-0.0008,0,
K,10,-0.0001,0,0,
K,11,0.005,0,0,
K,12,0.005,-0.005,0,
LSTR, 1, 2
LSTR, 2, 3
LSTR, 3, 4
LSTR, 4, 5
LSTR, 5, 6
LSTR, 6, 11
LSTR, 11, 12
LSTR, 12, 1
LSTR, 3, 10
LSTR, 10, 9
LSTR, 8, 9
LSTR, 8, 7
LSTR, 7, 6
LSTR, 10, 7
FLST,2,8,3
FITEM,2,1
FITEM,2,2
FITEM,2,3
FITEM,2,4
FITEM,2,5
FITEM,2,6
FITEM,2,11
FITEM,2,12
A,P51X
FLST,2,8,3
FITEM,2,3
FITEM,2,10
FITEM,2,9
FITEM,2,8
FITEM,2,7
FITEM,2,6
FITEM,2,5
FITEM,2,4
A,P51X
FLST,2,4,3
FITEM,2,10
FITEM,2,7
FITEM,2,8
FITEM,2,9
A,P51X
APLOT
!*
VOFFST,1,0.01, ,
APLOT
!*
VOFFST,2,0.01,
VOFFST,3,0.01, , 建实体模型结束
/VIEW,1,1,2,3
/ANG,1
/REP,FAST
/VIEW,1,,,1
/ANG,1
/REP,FAST
FLST,2,2,6,ORDE,2
FITEM,2,2
FITEM,2,-3
VGLUE,P51X
FLST,2,2,6,ORDE,2
FITEM,2,1
FITEM,2,-2
VGLUE,P51X 粘结
ESIZE,0.05e-3,0,
MSHAPE,0,3D
MSHKEY,1
!*
CM,_Y,VOLU
VSEL, , , , 4
CM,_Y1,VOLU
CHKMSH,'VOLU'
CMSEL,S,_Y 划分体3网格
ESIZE,0.2E-03
SMRTSIZE, ,1,1,2,15,28,1.5,1,1,4,0
!*
CM,_Y,VOLU
VSEL, , , , 3
CM,_Y1,VOLU
CHKMSH,'VOLU'
CMSEL,S,_Y
!*
VMESH,_Y1
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
!*
MSHAPE,1,3D
MSHKEY,0
!*
CM,_Y,VOLU
VSEL, , , , 3
CM,_Y1,VOLU
CHKMSH,'VOLU'
CMSEL,S,_Y
!*
VMESH,_Y1
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
!* 划分第二部分网格
ESIZE,0.6E-03
SMRTSIZE, ,1,1,2,15,28,1.5,1,1,4,0
!*
CM,_Y,VOLU
VSEL, , , , 1
CM,_Y1,VOLU
CHKMSH,'VOLU'
CMSEL,S,_Y
!*
VMESH,_Y1
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2 划分第三部分网格
!*
以上为菜单操作
*set,z0,0
*set,x0,0
*set,rb,0.00005
*set,Q,600
*set,PI,3.1415926
*set,v,0.017
*set,tim,0
*SET,QC,Q/(PI* rb*rb)
*SET,z_center,z0-rb
*SET,x_center,x0
/PREP7
*DEL,_FNCNAME
*DEL,_FNCMTID
*DEL,_FNC_C1
*DEL,_FNC_C2
*DEL,_FNC_C3
*DEL,_FNC_C4
*DEL,_FNCCSYS
*SET,_FNCNAME,'laser'
*DIM,_FNC_C1,,1
*DIM,_FNC_C2,,1
*DIM,_FNC_C3,,1
*DIM,_FNC_C4,,1
*SET,_FNC_C1(1),QC
*SET,_FNC_C2(1),z_center
*SET,_FNC_C3(1),x_center
*SET,_FNC_C4(1),rb
*SET,_FNCCSYS,0
! /INPUT,..\..\ansys working\laser_notch\laser.func
*DIM,%_FNCNAME%,TABLE,6,19,1,,,,%_FNCCSYS%
!
! Begin of equation: QC*exp(-2*(({z}-z_center)^2+({x}-x_center)
^2)/(rb^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), %_FNC_C4(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,3,1), 0, -3, 0, 1, -1, 2, -2
*SET,%_FNCNAME%(0,4,1), 0.0, -1, 0, 2, 0, 0, -3
*SET,%_FNCNAME%(0,5,1), 0.0, -2, 0, 1, -3, 3, -1
*SET,%_FNCNAME%(0,6,1), 0.0, -1, 0, 1, 4, 2, 18
*SET,%_FNCNAME%(0,7,1), 0.0, -3, 0, 2, 0, 0, -1
*SET,%_FNCNAME%(0,8,1), 0.0, -4, 0, 1, -1, 17, -3
*SET,%_FNCNAME%(0,9,1), 0.0, -1, 0, 1, 2, 2, 19
*SET,%_FNCNAME%(0,10,1), 0.0, -3, 0, 2, 0, 0, -1
*SET,%_FNCNAME%(0,11,1), 0.0, -5, 0, 1, -1, 17, -3
*SET,%_FNCNAME%(0,12,1), 0.0, -1, 0, 1, -4, 1, -5
*SET,%_FNCNAME%(0,13,1), 0.0, -3, 0, 1, -2, 3, -1
*SET,%_FNCNAME%(0,14,1), 0.0, -1, 0, 2, 0, 0, 20
*SET,%_FNCNAME%(0,15,1), 0.0, -2, 0, 1, 20, 17, -1
*SET,%_FNCNAME%(0,16,1), 0.0, -1, 0, 1, -3, 4, -2
*SET,%_FNCNAME%(0,17,1), 0.0, -1, 7, 1, -1, 0, 0
*SET,%_FNCNAME%(0,18,1), 0.0, -2, 0, 1, 17, 3, -1
*SET,%_FNCNAME%(0,19,1), 0.0, 99, 0, 1, -2, 0, 0
! End of equation: QC*exp(-2*(({z}-z_center)^2+({x}-x_center)
^2)/(rb^2))
!-->
FINISH
/SOLU
!*
ANTYPE,4
!*
TRNOPT,FULL
LUMPM,0
!*
TUNIF,25,
*do,i,1,100
outres,nsol,all
nropt,auto
solcontrol,on
*SET,tim,tim+2*rb/v
time,tim
autots,1
nsubst,5,10,5
kbc,1
tsres,erase
*SET,z_center,-rb-(i-1)*2*rb
*SET,x_center,x0
*set,laser(4,0,1),z_center
nsel,s,loc,z,z_center-rb,z_center+rb
nsel,r,loc,x,x_center,x_center-rb
nsel,r,loc,y,0
sf,all,hflux,%laser%
allsel,all
solve
sfdele,all,hflux
*enddo 是不是我初始温度设的有问题,TUNIF,25, 顶了！期待高手！
页:
[1]