移动高斯热源＋热辐射命令流（自己编的不敢保证一定对）
/PREP7/UNIT,SI
ET,1,SOLID70
ET,2,SURF152
KEYOPT,2,4,1
KEYOPT,2,5,1
KEYOPT,2,6,0
KEYOPT,2,7,1
KEYOPT,2,8,2
KEYOPT,2,9,1
R,2,1,5.67E-8
MP,C,1,480
MP,KXX,1,45
MP,DENS,1,7820
MP,DENS,2,7820
MP,EMIS,2,1
MP,KXX,2,45
BLOCK,0,0.01,0,0.0025,0,0.01
/VIEW,1,1,1,1
/REPLOT
LPLOT
/PNUM,LINE,1
/REPLOT
LESIZE,1,,,5
LESIZE,3,,,5
LESIZE,6,,,5
LESIZE,8,,,5
LESIZE,2,,,20,5
LESIZE,4,,,20,0.2
LESIZE,5,,,20,0.2
LESIZE,7,,,20,5
LSEL,S,,,9,12
LESIZE,ALL,,,20
VATT,1
MSHKEY,1
VMESH,1
ALLSEL
TYPE,2
REAL,2
MAT,2
*GET,NN,NODE,,num,max
N,NN+1,0,0,0.015
ASEL,S,,,1,5
NSLA,S,1
NPLOT
ESURF,NN+1
EPLOT
ALLSEL
/SOLU
ANTYPE,4
TRNOPT,FULL
TOFFST,273
D,NN+1,TEMP,27
dsym,symm,x
TUNIF,27
TREF,27
KBC,1
V1=0.001
TINC=0.0005/V1
Qm=1.68E8
R=0.002
LD2=0.0002
MAX_TIME=0.04/0.0001
MAX_R=R/LD2
*DO,K,1,3,1
CLOCAL,11,CYLIN,0.01,0.0025,V1*K*TINC,0,-90,0
wprota,,-90
*DO,I,1,MAX_R,1
asel,s,,,4
NSla,s,1
NSEL,R,LOC,X,(I-1)*LD2-0.0001,(I-1)*LD2+0.0001
BF,ALL,HGEN,Qm/EXP(2*((I-1)*LD2)**2/R**2)
*ENDDO
ESEL,S,MAT,,2
SFE,ALL,,CONV,,110
ALLSEL
TIME,K*TINC
NSUBST,5
AUTOTS,ON
OUTRES,,ALL
SOLVE
CSDELE,ALL
*ENDDO
/post1
set,last
/plopts,info,on
plnsol,temp
可能有点小错误：）以前编的 不错不错 回复 1 # kisfire 的帖子
知道封闭路径上的怎么加载吗？谢谢！
页:
[1]