高斯热源加载命令流:
remain1=r/10 !定义余量以便选择节点
remain2=r/16
n=length/(r/7)
*DO,I,1,30 !循环开始
step1=2*(length/n) ! 定义步长
x1=x1+step1
LOCAL,11,1,x1,0.03,Z1, , , ,1,1,
NSEL,S,LOC,X,0,r/7+remain1
NSEL,R,LOC,Z,0
NPLOT
SF,ALL,HFLUX,75588184*0.6 !施加热流密度
NSEL,S,LOC,X,r/7-remain1,2*r/7+remain1
NSEL,R,LOC,Z,0
NPLOT
SF,ALL,HFLUX,59745521*0.6
NSEL,S,LOC,X,2*r/7-remain1,3*r/7+remain1
NSEL,R,LOC,Z,0
NPLOT
SF,ALL,HFLUX,37324698*0.6
NSEL,S,LOC,X,3*r/7-remain1,4*r/7+remain1
NSEL,R,LOC,Z,0
NPLOT
SF,ALL,HFLUX,18429064*0.6
NSEL,S,LOC,X,4*r/7-remain1,5*r/7+remain2
NSEL,R,LOC,Z,0
NPLOT
SF,ALL,HFLUX,7191042*0.6
也就是对它先离散,然后表面加载,进行循环即可
希望多多交流 |