在ABAQUS中采用dflux子程序如何加载面热源
浏览：73977 回答：5
本人采用ABAQUS软件做焊接有限元模拟，想在试板上表面加载一个高斯面热源，可是当加载在z=0.005 的面上时，可以实现，当加载当z=5的面上时，似乎加载不上，求帮助！C JLTYP＝0，表示为面热源
JLTYP=0
if(COORDS(3).eq.0.005) then
heat=3*q/(PI*r0**2)
shape=exp(-3*((x-x0)**2+(y-y0-d)**2)/r0**2)
FLUX(1)=heat*shape
endif
JLTYP=0
if(COORDS(3).eq.0.005) then
heat=3*q/(PI*r0**2)
shape=exp(-3*((x-x0)**2+(y-y0-d)**2)/r0**2)
FLUX(1)=heat*shape
endif
您好，请问可以请教加载高斯热源的问题吗？