,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,存動