移動體熱源ANSYS命令流

1、優(yōu)選文檔優(yōu)選文檔PAGEPAGE30優(yōu)選文檔PAGE精心整理!非線性資料求解成功GAUSS分布Z向掃描!考慮了和基板對流情況下加載熱流密度的熱解析rb=0.15mm粉床，燒結(jié)地域6X1.5mm考慮粉床表面的輻射、對流考慮粉末狀、消融狀（液態(tài)）、凝固態(tài)的界線條件變化考慮金屬蒸發(fā)會帶走一部分能量，故效率減半eff0.7!r=0.2mmFINISH/CLEAR,START/BATCH!設(shè)置程序模式為“批辦理”/CWD,d:AnsysworkEBMFEMSimulationforMetals3DTemperturedistribution!更正當前工作目錄/FILNAME,EBM_db,0/TITLE

2、,3DTemperturedistrbution選擇解析問題的種類：熱/NOPR/PMETH,OFF,0KEYW,PR_SET,1KEYW,PR_STRUC,0KEYW,PR_THERM,1KEYW,PR_FLUID,0精心整理KEYW,PR_ELMAG,0KEYW,MAGNOD,0KEYW,MAGEDG,0KEYW,MAGHFE,0KEYW,MAGELC,0KEYW,PR_MULTI,0KEYW,PR_CFD,0/GO/UNITS,SI!StandardUnits!*!開始，進入前辦理器，定義以部下性!0參數(shù)定義!1定義單元種類!2實常數(shù)!3資料性能!4幾何模型!5網(wǎng)格劃分控制!6其他!*!

3、/PREP7精心整理!0參數(shù)定義模型參數(shù)幾何模型尺寸me-3=mm*SET,Block_x,7.8e-3*SET,Block_x1,0.9e-3*SET,Block_x2,6.9e-3*SET,Block_y,3.3e-3*SET,Block_y1,0.9e-3*SET,Block_y2,2.4e-3*SET,Block_z,0.3e-3*SET,Block_z1,0.9e-3劃分網(wǎng)格的大小*SET,LMeshx,3e-4!line1*SET,LMeshy,3e-4!line4*SET,LMeshz,3e-4!line9界線條件參數(shù)*SET,Tinit,30!初始溫度!1定義單元種類ET,1,

4、SOLID70ET,2,surf152!表面效應(yīng)單元r,2KEYOPT,2,4,1!表面效應(yīng)單元設(shè)置精心整理KEYOPT,2,8,4ET,3,SOLID87!2實常數(shù)!Nothing!3資料性能MPTEMPMPTEMP,1,25,400,1200,1600,2000,2500MPDATA,DENS,1,1,3983,4688.4,5406.8,5948.8,6908,6331!密度MPDATA,KXX,1,1,1.6278,2.3812,3.6396,29.8,30.6,32!熱導率MPDATA,c,1,1,472,535,679,859,945,1034!比熱MPTEMP,MPTEMP,1,

5、0,200,400,800,1200MPTEMP,6,1400,1454,1800,2000MPDATA,ENTH,1,1,0,7.9729e+8,1.6400e+9,3.4621e+9,5.3897e+9MPDATA,ENTH,1,6,6.3415e+9,8.2595e+9,9.8798e+9,1.0816e+10!熱焓MPTEMP,MPTEMP,1,20,300,600,900,1200,1500,1800,2000,3000,4000MPDATA,HF,1,1,6,50,120,200,250,378,700,850,1746,3799!對流系數(shù)MPTEMP,MPTEMP,1,20,20

6、0,400,600,800,900,1000,1100,1200,1420,1460精心整理MPDATA,DENS,2,1,7966,7893,7814,7724,7630,7583,7535,7486,7436,7320,7320MPDATA,KXX,2,1,13.31,16.33,19.47,22.38,25.07,26.33,27.53,28.67,29.76,31.95,32!熱導率mpdata,c,2,1,470,508,550,592,634,655,676,698,719,765,765MPTEMP,MPTEMP,1,0,200,400,800,1200MPTEMP,6,1400

7、,1454,1800,2000MPDATA,ENTH,2,1,0,7.9729e+8,1.6400e+9,3.4621e+9,5.3897e+9MPDATA,ENTH,2,6,6.3415e+9,8.2595e+9,9.8798e+9,1.0816e+10!4幾何模型BLOCK,0,Block_x,0,Block_y,0,Block_z,BLOCK,Block_x1,Block_x2,Block_y1,Block_y2,0,Block_z,vsel,allVOVLAP,allBLOCK,0,Block_x,0,Block_y,0,-Block_z1,vglue,allnumcmp,all劃分網(wǎng)

8、格lesize,8,LMeshxlesize,5,LMeshylesize,13,LMeshz精心整理vsel,s,1type,1mat,1mshkey,1vmesh,allallselesize,0.3e-3mshkey,0mshape,1,3dvsel,s,2type,3mat,2vmesh,allallselesize,0.3e-3mshkey,0mshape,1,3dvsel,s,3type,3mat,1vmesh,allallsel精心整理成形件軌跡單元質(zhì)心排序width=Block_y2-Block_y1!wpoffs,Block_x1,Block_y1,0!local,11,1,

9、Block_x1,Block_y1,0ALLSEL,ALL*GET,EMAX,ELEM,COUNT,MAXVSEL,S,1ESLV,S*GET,AEMAX,ELEM,COUNT1,MAX*DIM,ANE,ARRAY,AEMAX,*DIM,ANE1,ARRAY,AEMAX,*DIM,ANE2,ARRAY,AEMAX,*DIM,ANE3,ARRAY,AEMAX,*DIM,ANE4,ARRAY,AEMAX,*DIM,ANE5,ARRAY,AEMAX,*DIM,ANEX,ARRAY,AEMAX*DIM,ANEY,ARRAY,AEMAX*DIM,ANEZ,ARRAY,AEMAX*DIM,ANEORDER

10、,ARRAY,AEMAX,1形心排序VSEL,S,1ESLV,S精心整理*GET,ANSEL,ELEM,COUNT1II=0*DO,I,1,AEMAX*IF,ESEL(I),EQ,1,THENII=II+1ANE(II)=I*ENDIF*ENDDO*DO,I,1,ANSEL*GET,ANEZ(I),ELEM,ANE(I),CENT,Z*GET,ANEY(I),ELEM,ANE(I),CENT,Y*GET,ANEX(I),ELEM,ANE(I),CENT,X*ENDDOe=0*do,i,1,AEMAX*if,ANEY(I),ge,4*width/5+Block_y1,thene=e+1ANE5(

11、e)=ANE(i)*endif*enddod=0*do,i,1,AEMAX精心整理*if,ANEY(I),ge,3*width/5+Block_y1,then*if,ANEY(I),lt,4*width/5+Block_y1,thend=d+1ANE4(d)=ANE(i)*endif*endif*enddoc=0*do,i,1,AEMAX*if,ANEY(I),ge,2*width/5+Block_y1,then*if,ANEY(I),lt,3*width/5+Block_y1,thenc=c+1ANE3(c)=ANE(i)*endif*endif*enddob=0*do,i,1,AEMAX*

12、if,ANEY(I),ge,width/5+Block_y1,then*if,ANEY(I),lt,2*width/5+Block_y1,thenb=b+1ANE2(b)=ANE(i)精心整理*endif*endif*enddoa=0*do,i,1,AEMAX*if,ANEY(I),lt,width/5+Block_y1,thena=a+1ANE1(a)=ANE(i)*endif*enddo!*對1道焊縫區(qū)的單元按質(zhì)心X坐標進行從低到高排序esel,none*do,i,1,a*if,ANE1(i),NE,0,thenesel,a,elem,ANE1(i)*endif*enddoMINE=0*D

13、IM,ANEX1,ARRAY,a*DIM,ANEY1,ARRAY,a*DIM,ANEZ1,ARRAY,a精心整理*DO,I1,1,aesel,u,elem,mine*GET,ANSEL1,ELEM,COUNT1II=0*DO,I,1,AEMAX*IF,ESEL(I),EQ,1,THENII=II+1ANE1(II)=I*ENDIF*ENDDO*DO,I,1,ANSEL1*GET,ANEZ1(I),ELEM,ANE1(I),CENT,Z*GET,ANEY1(I),ELEM,ANE1(I),CENT,Y*GET,ANEX1(I),ELEM,ANE1(I),CENT,X*ENDDOMINZ=1E20

14、MINY=1E20MINX=1E20*DO,I,1,ANSEL1*IF,ANEZ1(I),LT,MINZ,THENMINZ=ANEZ1(I)MINY=ANEY1(I)精心整理MINX=ANEX1(I)MINE=ANE1(I)*ELSE*IF,ANEZ1(I),EQ,MINZ,THEN*IF,ANEY1(I),LT,MINY,THENMINZ=ANEZ1(I)MINY=ANEY1(I)MINX=ANEX1(I)MINE=ANE1(I)*ELSE*IF,ANEY1(I),EQ,MINY,THEN*IF,ANEX1(I),LT,MINX,THENMINZ=ANEZ1(I)MINY=ANEY1(I)M

15、INX=ANEX1(I)MINE=ANE1(I)*ENDIF*ENDIF*ENDIF*ENDIF*ENDIF*ENDDO精心整理ANEORDER(I1)=MINE*ENDDO!*對2道焊縫區(qū)的單元按質(zhì)心X坐標進行從高到低排序MAXE=1esel,none*do,j,1,b*if,ANE2(j),NE,0,thenesel,a,elem,ANE2(j)*endif*enddo*DIM,ANEX2,ARRAY,b*DIM,ANEY2,ARRAY,b*DIM,ANEZ2,ARRAY,b*DO,J1,1,besel,u,elem,MAXE*GET,ANSEL2,ELEM,COUNT1JJ=0*DO,J

16、,1,AEMAX*IF,ESEL(I),EQ,1,THENJJ=JJ+1ANE2(JJ)=J精心整理*ENDIF*ENDDO*DO,J,1,ANSEL2*GET,ANEZ2(J),ELEM,ANE2(J),CENT,Z*GET,ANEY2(J),ELEM,ANE2(J),CENT,Y*GET,ANEX2(J),ELEM,ANE2(J),CENT,X*ENDDOMAXZ=1E20MAXY=1E20MAXX=-1E20*DO,J,1,ANSEL2*IF,ANEZ2(J),LT,MAXZ,THENMAXZ=ANEZ2(J)MAXY=ANEY2(J)MAXX=ANEX2(J)MAXE=ANE2(J)*

17、ELSE*IF,ANEZ2(J),EQ,MAXZ,THEN*IF,ANEY2(J),LT,MAXY,THENMAXZ=ANEZ2(J)MAXY=ANEY2(J)MAXX=ANEX2(J)精心整理MAXE=ANE2(J)*ELSE*IF,ANEY2(J),EQ,MAXY,THEN*IF,ANEX2(J),GT,MAXX,THENMAXZ=ANEZ2(J)MAXY=ANEY2(J)MAXX=ANEX2(J)MAXE=ANE2(J)*ENDIF*ENDIF*ENDIF*ENDIF*ENDIF*ENDDOANEORDER(J1+a)=MAXE*ENDDO!*對3道焊縫區(qū)的單元按質(zhì)心X坐標進行從低到高排

18、序MINE=1esel,none*do,k,1,c*if,ANE3(k),NE,0,then精心整理esel,a,elem,ANE3(k)*endif*enddo*DIM,ANEX3,ARRAY,c*DIM,ANEY3,ARRAY,c*DIM,ANEZ3,ARRAY,c*DO,K1,1,cesel,u,elem,mine*GET,ANSEL3,ELEM,COUNT1KK=0*DO,K,1,AEMAX*IF,ESEL(K),EQ,1,THENKK=KK+1ANE3(KK)=K*ENDIF*ENDDO*DO,K,1,ANSEL3*GET,ANEZ3(K),ELEM,ANE3(K),CENT,Z*G

19、ET,ANEY3(K),ELEM,ANE3(K),CENT,Y*GET,ANEX3(K),ELEM,ANE3(K),CENT,X*ENDDOMINZ=1E20精心整理MINY=1E20MINX=1E20*DO,K,1,ANSEL3*IF,ANEZ3(K),LT,MINZ,THENMINZ=ANEZ3(K)MINY=ANEY3(K)MINX=ANEX3(K)MINE=ANE3(K)*ELSE*IF,ANEZ3(K),EQ,MINZ,THEN*IF,ANEY3(K),LT,MINY,THENMINZ=ANEZ3(K)MINY=ANEY3(K)MINX=ANEX3(K)MINE=ANE3(K)*EL

20、SE*IF,ANEY3(K),EQ,MINY,THEN*IF,ANEX3(K),LT,MINX,THENMINZ=ANEZ3(K)MINY=ANEY3(K)MINX=ANEX3(K)MINE=ANE3(K)精心整理*ENDIF*ENDIF*ENDIF*ENDIF*ENDIF*ENDDOANEORDER(K1+a+b)=MINE*ENDDO!*對4道焊縫區(qū)的單元按質(zhì)心X坐標進行從高到低排序MAXE=1esel,none*do,j,1,d*if,ANE4(j),NE,0,thenesel,a,elem,ANE4(j)*endif*enddo*DIM,ANEX4,ARRAY,d*DIM,ANEY4,

21、ARRAY,d*DIM,ANEZ4,ARRAY,d*DO,J1,1,desel,u,elem,MAXE精心整理*GET,ANSEL4,ELEM,COUNT1JJ=0*DO,J,1,AEMAX*IF,ESEL(I),EQ,1,THENJJ=JJ+1ANE2(JJ)=J*ENDIF*ENDDO*DO,J,1,ANSEL4*GET,ANEZ4(J),ELEM,ANE4(J),CENT,Z*GET,ANEY4(J),ELEM,ANE4(J),CENT,Y*GET,ANEX4(J),ELEM,ANE4(J),CENT,X*ENDDOMAXZ=1E20MAXY=1E20MAXX=-1E20*DO,J,1,

22、ANSEL4*IF,ANEZ4(J),LT,MAXZ,THENMAXZ=ANEZ4(J)MAXY=ANEY4(J)MAXX=ANEX4(J)MAXE=ANE4(J)精心整理*ELSE*IF,ANEZ4(J),EQ,MAXZ,THEN*IF,ANEY4(J),LT,MAXY,THENMAXZ=ANEZ4(J)MAXY=ANEY4(J)MAXX=ANEX4(J)MAXE=ANE4(J)*ELSE*IF,ANEY4(J),EQ,MAXY,THEN*IF,ANEX4(J),GT,MAXX,THENMAXZ=ANEZ4(J)MAXY=ANEY4(J)MAXX=ANEX4(J)MAXE=ANE4(J)*E

23、NDIF*ENDIF*ENDIF*ENDIF*ENDIF*ENDDOANEORDER(J1+a+b+c)=MAXE*ENDDO精心整理!*對5道焊縫區(qū)的單元按質(zhì)心X坐標進行從低到高排序esel,none*do,i,1,e*if,ANE5(i),NE,0,thenesel,a,elem,ANE5(i)*endif*enddoMINE=1*DIM,ANEX5,ARRAY,e*DIM,ANEY5,ARRAY,e*DIM,ANEZ5,ARRAY,e*DO,I1,1,eesel,u,elem,mine*GET,ANSEL5,ELEM,COUNT1II=0*DO,I,1,AEMAX*IF,ESEL(I),

24、EQ,1,THENII=II+1ANE5(II)=I*ENDIF*ENDDO精心整理*DO,I,1,ANSEL5*GET,ANEZ5(I),ELEM,ANE5(I),CENT,Z*GET,ANEY5(I),ELEM,ANE5(I),CENT,Y*GET,ANEX5(I),ELEM,ANE5(I),CENT,X*ENDDOMINZ=1E20MINY=1E20MINX=1E20*DO,I,1,ANSEL1*IF,ANEZ5(I),LT,MINZ,THENMINZ=ANEZ5(I)MINY=ANEY5(I)MINX=ANEX5(I)MINE=ANE5(I)*ELSE*IF,ANEZ5(I),EQ,M

25、INZ,THEN*IF,ANEY5(I),LT,MINY,THENMINZ=ANEZ5(I)MINY=ANEY5(I)MINX=ANEX5(I)MINE=ANE5(I)*ELSE精心整理*IF,ANEY5(I),EQ,MINY,THEN*IF,ANEX5(I),LT,MINX,THENMINZ=ANEZ5(I)MINY=ANEY5(I)MINX=ANEX5(I)MINE=ANE5(I)*ENDIF*ENDIF*ENDIF*ENDIF*ENDIF*ENDDOANEORDER(I1+a+b+c+d)=MINE*ENDDO成形件軌跡單元質(zhì)心排序FINISH!*體熱源加載求解/SOLANTYPE,4!

26、瞬態(tài)解析TRNOPT,FULL!指定瞬態(tài)解析選項eqslv!指定求解器精心整理solcontrol,on!求解控制(用優(yōu)化求解器)ESEL,ALLEPLOT/AUTO,1/REPLOTallsel,alloutres,all,allTOFFST,273tunif,24kbc,1timint,onnsub1=2nsub2=20asel,s,loc,z,Block_z!加對流條件asel,a,loc,x,0asel,a,loc,x,Block_xasel,a,loc,y,0asel,a,loc,y,Block_ynslasf,all,conv,-1,24allseldt=3e-2!定義每次成形所需

27、要的時間精心整理tim=0生死單元控制!*DO,I1,1,AEMAX!ESEL,S,ANEORDER(I1)!EKILL,ALL!ESEL,S,LIVE!EPLOT!*enddoj=aemax!j小于AEmax*DO,I1,1,jnsubst,1esel,s,ANEORDER(I1)!EALIVE,ANEORDER(I1-1)!ESEL,S,LIVEEPLOT!*ENDIFesel,allEPLOT!*體載荷加載*tim=tim+dttime,tim!bfe,ANEORDER(I1),hgen,1,3.91e12精心整理bfe,ANEORDER(I1),hgen,1,4.63e12*0.7!0

28、.6T_end=300!*SOLVEbfedele,ANEORDER(I1),hgen*ENDDO/soluANTYPE,restbfedele,all,hgentime,4!step101開始完好冷卻NSUBST,15,30,5solvesavetime,5!step102開始完好冷卻NSUBST,15,30,5solvesavetime,6!step103開始完好冷卻NSUBST,15,30,5solvesavetime,7!step104開始完好冷卻NSUBST,15,30,5精心整理solvesavetime,8!step105開始完好冷卻NSUBST,15,30,5solvesavetime,9!step106開始完好冷卻NSUBST,15,30,5solvesavet