| 2 | 1/1 | 返回列表 |
| 查看: 733 | 回復(fù): 1 | |||
材料種子新蟲 (初入文壇)
|
[交流]
激光熔覆溫度場模擬
|
| 各位,最近做ansys激光熔覆模擬時(shí),發(fā)現(xiàn)做出來的溫度忽高忽低,比如說第一載荷步后節(jié)點(diǎn)溫度1600,第二個(gè)就降到600多,第三個(gè)又升到1600多,第四個(gè)又降回600多,一直反復(fù),也不知道什么情況?有哪位遇到過嗎? |
新蟲 (初入文壇)
|
!***********建立熱源數(shù)組***************** QMAX=P/(3.1415*R**2) MAX_TIME=len/LSIZE+1 MAX_X=wid/LSIZE+1 MAX_Y=len/ LSIZE+1 !**********施加對流載荷************* ESEL,S,LIVE ASEL,S,AREA,,9,12,1 sfa,all,1,conv,150,20 ESEL,S,LIVE ASEL,S,AREA,,7,7,1 sfa,all,1,conv,150,20 *do,h,1,road,1 m=mod(h,2) *if,m,eq,1,then !h=1 !熱源數(shù)組 *DIM,FLUX1,TABLE,MAX_X,MAX_Y,MAX_TIME,X,Y,TIME *DO,K,1,MAX_TIME,1 !循環(huán)時(shí)間 *DO,I,1,MAX_X,1 FLUX1(I,0,K)=(I-1)*LSIZE *ENDDO *DO,J,1,MAX_Y,1 FLUX1(0,J,K)=(J-1)*LSIZE *ENDDO *DO,I,1,MAX_X,1 *DO,J,1,MAX_Y,1 XCENTER=(h-1)*weld+weld/2 YCENTER=V*(K-1)*TINC DISTANCE=SQRT(((I-1)*LSIZE-XCENTER)**2+((J-1)*LSIZE-YCENTER)**2) *IF,DISTANCE,LE,R,THEN FLUX1(I,J,K)=2*A*QMAX*EXP(-2*DISTANCE**2/R**2) *ELSE FLUX1(I,J,K)=0 *ENDIF *ENDDO *ENDDO FLUX1(0,0,K)=(K-1)*TINC !激活單元 esel,s,live nsel,s,loc,x,XCENTER-weld/2 ,XCENTER+weld/2 nsel,r,loc,z,0,hth nsel,r,loc,y,YCENTER,YCENTER+LSIZE esln,s,0 ealive,all allsel,all !施加熱流載荷 ESEL,S,LIVE NSEL,S,LOC,Z,hth,hth!選擇上邊界 SF,all,HFLUX,%FLUX1% !熱流加載 ALLSEL,ALL time,(h-1)*(TI+tinc)+(k)*TINC NSUBST,2 SOLVE NSEL,S,LOC,Z,hth,hth!選擇上邊界 SFDELE,ALL,HFLUX !刪除上一步加載的熱源 /REPLOT *ENDDO *else *DIM,FLUX2,TABLE,MAX_X,MAX_Y,MAX_TIME,X,Y,TIME *DO,K,1,MAX_TIME,1 !循環(huán)時(shí)間 *DO,I,1,MAX_X,1 FLUX2(I,0,K)=(I-1)*LSIZE *ENDDO *DO,J,1,MAX_Y,1 FLUX2(0,J,K)=(J-1)*LSIZE *ENDDO *DO,I,1,MAX_X,1 *DO,J,1,MAX_Y,1 XCENTER=(h-1)*weld+weld/2 YCENTER=len-V*(K-1)*TINC DISTANCE=SQRT(((I-1)*LSIZE-XCENTER)**2+((J-1)*LSIZE-YCENTER)**2) *IF,DISTANCE,LE,R,THEN FLUX2(I,J,K)=2*A*QMAX*EXP(-2*DISTANCE**2/R**2) *ELSE FLUX2(I,J,K)=0 *ENDIF *ENDDO *ENDDO FLUX2(0,0,K)=(K-1)*TINC !激活單元 esel,s,live nsel,s,loc,x,XCENTER-weld/2 ,XCENTER+weld/2 nsel,r,loc,z,0,hth nsel,r,loc,y,YCENTER,YCENTER+LSIZE esln,s,0 ealive,all allsel,all !施加熱流載荷 ESEL,S,LIVE NSEL,S,LOC,Z,hth,hth!選擇上邊界 SF,all,HFLUX,%FLUX2% !熱流加載 ALLSEL,ALL time,(K)*TINC+(h-1)*(TI+tinc) NSUBST,2 SOLVE NSEL,S,LOC,Z,hth,hth!選擇上邊界 SFDELE,ALL,HFLUX !刪除上一步加載的熱源 /REPLOT *ENDDO *endif *enddo FINISH 這是求解的部分程序,希望大佬幫我看看哪錯(cuò)了? |
| 2 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 316求調(diào)劑 +3 | 林小星發(fā)大財(cái) 2026-03-05 | 5/250 |
|
|---|---|---|---|---|
|
[考研] 083000,總分284,求調(diào)劑 +3 | 徐yr 2026-03-04 | 3/150 |
|
|
[考研] 材料與化工,291,求調(diào)劑 +7 | 咕嚕咕嚕123123 2026-03-05 | 8/400 |
|
|
[考研] 085701環(huán)境工程 求調(diào)劑 +7 | xiiiia 2026-03-04 | 7/350 |
|
|
[考研] 0817化學(xué)工程與技術(shù)312分求調(diào)劑 +3 | T123 tt 2026-03-04 | 3/150 |
|
|
[考研] 320材料一志愿西工大專碩英二數(shù)二 有兩年光伏工作經(jīng)驗(yàn) +5 | 錘某人 2026-03-04 | 8/400 |
|
|
[考研] 304求調(diào)劑 +7 | 曼殊2266 2026-02-28 | 8/400 |
|
|
[考研] 材料學(xué)碩080500復(fù)試調(diào)劑294 +3 | 四葉zjz 2026-03-04 | 3/150 |
|
|
[考研] 一志愿鄭州大學(xué),學(xué)碩,物理化學(xué), 333求調(diào)劑 +5 | 李魔女斗篷 2026-03-04 | 5/250 |
|
|
[考研] 一志愿中石油,化學(xué)工程,301求調(diào)劑 +3 | 豚饅枳枳 2026-03-04 | 3/150 |
|
|
[考研] 求調(diào)劑 +4 | 熬夜的貓頭鷹 2026-03-02 | 4/200 |
|
|
[考研] 295求調(diào)劑 +6 | 等春來, 2026-03-04 | 6/300 |
|
|
[考研] 0703化學(xué)306調(diào)劑 +4 | 26要上岸 2026-03-03 | 4/200 |
|
|
[考研] 266材料化工求調(diào)劑 +3 | 哇塞王帥 2026-03-03 | 3/150 |
|
|
[考研] 289求調(diào)劑 +7 | BrightLL 2026-03-02 | 9/450 |
|
|
[考研] 一志愿中科大能動(dòng)297求調(diào)劑,本科川大 +3 | 邵11 2026-03-03 | 3/150 |
|
|
[考研] 271求調(diào)劑 +4 | Ricardo1113 2026-03-02 | 4/200 |
|
|
[考研] 288求調(diào)劑 +3 | 少71.8 2026-03-02 | 5/250 |
|
|
[考研] 272求調(diào)劑 +9 | 材紫有化 2026-02-28 | 9/450 |
|
|
[考研] 0856材料求調(diào)劑 +4 | 麻辣魷魚 2026-02-28 | 4/200 |
|