ansys高斯热源施加行业资料能源与动力工程

,0,lenA,1,3,4,6A,1,2,5,6cyl4,0***************************all,6,thic*tan(arf/2),thic,0K,7,0a1nsla,r,1esln,r,0!!!!!!!!!!!!,0,lenA,1,3,4,6A,1,2,5,6cyl4,0***************************all,6,thic*tan(arf/2),thic,0K,7,0a1nsla,r,1esln,r,0!!!!!!!!!!!!==============================cset,,,1,,tmplnsol,temp*enddo/ot!***************************e,all,,,18,0.8lsel,s,line,,7,2==============================cset,,,1,,tmplnsol,temp*enddo/ot!***************************e,all,,,18,0.8lsel,s,line,,7,2定义高斯表面移动热有效热半径，单位为m****************度场结果图片esel,s,l0.2!求解温度场时子步时间!***************森方法，激活白适应下降****************度场结果图片esel,s,l0.2!求解温度场时子步时间!***************森方法，激活白适应下降(默认)pred,on!打开预测校正t5摄氏度!*************************热传导系数（W/（m*K考虑相变潜热的比热容类型为1vmesh,all!*******************************************allf,tm,eq,dt1+lnum/2*tinc,thense******vsel,s,,,v1类型为1vmesh,all!*******************************************allf,tm,eq,dt1+lnum/2*tinc,thense******vsel,s,,,v1选择焊缝1上表面单元esl2+(z-c)A2,每个焊缝上表面任一点距热源中心距离qma******************************aadd,24,32!2+(z-c)A2,每个焊缝上表面任一点距热源中心距离qma******************************aadd,24,32!面相加，以便生成映射网格lccat,4******************************!戊U分网格!************************************!边界条件（暂时没有考虑对流）!********,all,,,,,,14************************************!边界条件（暂时没有考虑对流）!********,all,,,,,,14沿线拖拉面Vptn,all!分割体V========!重新载入有限元模型进行加载求解!=====沿厚度y方向划分1-1.5mm沿x方向划分1mm度”系统默认是弧度）K,1,0,0,0K,2,wweld,0temp!*************************oallsesel,s,liveeplot!查看温度场度”系统默认是弧度）K,1,0,0,0K,2,wweld,0temp!*************************oallsesel,s,liveeplot!查看温度场savl,a,line,,24,26,2lsel,a,line,,划分体，生成六面体单元存档备份有限元模型================================================================!=================================================================im!热源位置!**********************ns,1,,7800,7800,7800,7800,7800（kg/m3）im!热源位置!**********************ns,1,,7800,7800,7800,7800,7800（kg/m3）mpdata,dens,1,,7800,780x=0.24*k*eta*I*u/pi!加热斑点中心热流(Wmax*get,nemin,elem,,num,min!vsl,a,line,,24,26,2lsel,a,line,,f,tm,eq,dt1+lnum/2*tinc,thensep,,1200,1250,1350,1400,1450,15max*get,nemin,elem,,num,min!vsl,a,line,,24,26,2lsel,a,line,,f,tm,eq,dt1+lnum/2*tinc,thensep,,1200,1250,1350,1400,1450,15!!ne,,6,25,19lsel,a,line,,2,18,1'nothing!定义实常数mptemp,1,0,100,2********!ne,,6,25,19lsel,a,line,,2,18,1'nothing!定义实常数mptemp,1,0,100,2********!杀死焊缝区单元I*************oallsesel,s,liveeplot!查看温度场sav定义瞬态综合参数!*****!************************i,nemin,nemax,1*if,esel(i),eq,******************构件尺寸len=100e（kg/m3）mpdata,dens,1,,7800,780*****!************************i,nemin,nemax,1*if,esel(i),eq,******************构件尺寸len=100e（kg/m3）mpdata,dens,1,,7800,780在第一类单元中加热流载荷******************************ns,1,,7800,7800,7800,7800,7800!*****************************,6,thic*tan(arf/2),thic,0K,7,0******************************ns,1,,7800,7800,7800,7800,7800!*****************************,6,thic*tan(arf/2),thic,0K,7,0选择有效半径内节点为当前节点,thic*tan(arf/2)+wweld,thic,0K/m2)percent=0.99radius=abs(sqrf,tm,eq,dt1+lnum/2*tinc,thensessave,'1.11thermalanalysismesh,thic*tan(arf/2)+wweld,thic,0K/m2)percent=0.99radius=abs(sqrf,tm,eq,dt1+lnum/2*tinc,thensessave,'1.11thermalanalysismesh如果该单元在上面的集合里，贝U亥单元中心距离热源中心该单元中心在加热半径范围内在每个单元所指定的面上施加热源载荷-c)))亥单元中心距离热源中心*if,rr,le,radi==============================,30,30,30,30,30,30mpdata,kxx,1-c)))亥单元中心距离热源中心*if,rr,le,radi==============================,30,30,30,30,30,30mpdata,kxx,1,6,thic*tan(arf/2),thic,0K,7,0的内容进行查看删除每个单元六个面上的热载荷================================================================!=================================================================显示位移时，设置放大系数******************************t,,,1,,tmplnsol,temp/image,savtemp!*************************1,0.01,0.2!时间步长以下为施加热流密度载荷*do,******************************t,,,1,,tmplnsol,temp/image,savtemp!*************************1,0.01,0.2!时间步长以下为施加热流密度载荷*do,存动