三维高斯热源apdl命令流.txt

/filname,weldtem
/title,welding tempserature field simluation
/unit,si
/prep7
et,1,solid70
keyopt,1,2,1
et,2,surf152
r,2
keyopt,2,4,1
keyopt,2,5,0
keyopt,2,8,3
mptemp,1,0,400,600,800,1000,1500
mpdata,kxx,1,1,18.9,28.35,31.08,32.76,31.5,28.2
mpdata,c,1,1,580,756,840,882,756,797
mpdata,hf,1,1,9.66,59.43,84.32,109.2,180.6,359
mpdata,dens,1,1,7800,7550,7550,7550,7550,7550
pi=3.1415926
I=160
u=23
efficient=0.78
r=0.0045
Qm=3*i*u*efficient/(pi*r*2)
kk=0.85
Qmax=Qm*kk
ly=0.12
lx=0.4
lz=0.012
lsize=0.01
v=0.00185
tm=lx/v