| 5 | 1/1 | 返回列表 |
| 查看: 1514 | 回復(fù): 4 | |||
[求助]
APDL編寫生死單元格+移動光源加載問題 已有3人參與
|
|
/SOLU AUTOTS, ON !是否使用時(shí)間步長 OUTPR, NSOL, ALL !控制輸出文件記錄全部內(nèi)容 OUTRES, NSOL, ALL ! 輸出設(shè)置 KBC, 1 !漸變載荷 ANTYPE, TRANS !瞬態(tài)分析 TIMINT,1,therm !打開瞬分析 tunif,20 !初始溫度 pred,on !打開時(shí)間預(yù)測器 lnsrch,on !瞬態(tài)熱分析設(shè)置 CNVTOL,HEAT, ,0.01,1,0.000001, !控制收斂準(zhǔn)則 LUMPM,0 !不使用集中質(zhì)量矩陣 D, ALL, TEMP, 20 !對所有施加溫度20 NROPT, FULL !使用完全牛頓拉普拉斯函數(shù) asel,s,loc,x,0 !添加對流載荷 sfa,all,,conv,30,25 asel,s,loc,x,7,z sfa,all,,conv,30,25 asel,s,area,,15 !選擇面15 sfa,all,,conv,30,25 asel,s,area,,13 sfa,all,,conv,30,25 asel,s,area,,12 sfa,all,,conv,30,25 asel,s,area,,9 sfa,all,,conv,30,25 asel,s,area,,6 sfa,all,,conv,30,25 asel,s,area,,17 sfa,all,,conv,30,25 *SET,MAX_X,20 *SET,MAX_Z,40 *SET,MAX_TIME,40 *SET,DLR,1 !掃描的步長 *SET,TINC,DLR/V !載荷步時(shí)間大小 *SET,R,0.36 !掃描間距 *SET,v,0.03 !掃描速度 *SET,qmax,1.31e8 *DIM,LASER,TABLE,MAX_X,MAX_Z,MAX_TIME,X,Z,TIME !定義一個(gè)三維表格,三個(gè)變量依次為x坐標(biāo)、z坐標(biāo)和時(shí)間 *DO,k,1,MAX_TIME,1 *SET,XCEN,0 !設(shè)定每步光束中心X、Z *SET,ZCEN,(k-1)*DLR !DLR為每步需要移動步長 *DO,i,1,MAX_X,1 !定義第0列的值,按x坐標(biāo)進(jìn)行循環(huán) *SET,LASER(i,0,k),(i-1)*DLR *enddo *DO,j,1,MAX_Z,1 !按照Z坐標(biāo)進(jìn)行循環(huán) *SET,LASER(0,j,k),(j-1)*DLR *ENDDO *DO,i,1,MAX_X,1 ! 第i步相對于光束中心 *DO,j,1,MAX_Z,1 !第 j步相對于光束中心 *SET,COORD_X,(i-1)*DLR-XCEN !x軸移動的距離 (計(jì)算焊接方向上各點(diǎn)到熱源中心的距離) *SET,COORD_Z,(j-1)*DLR-ZCEN !Z軸移動的距離 *SET,DISTANCE,SQRT(COORD_X**2+COORD_Z**2) 。〉趇步移動到的位置點(diǎn)相對于光束中心距離 *IF,DISTANCE,LE,R,THEN !!如果距離小于光束半徑 *SET,LASER(i,j,k),QMAX/exp(3*(distance**2)/(r**2)) !輸出生熱率 *ELSE *SET,LASER(i,j,k),0 !否則生熱率為0 *ENDIF *ENDDO *ENDDO *SET,LASER(0,0,k),(k-1)*TINC !定義每個(gè)時(shí)間步的值 *ENDDO TUNIF,20 定義所有節(jié)點(diǎn)的溫度20 !瞬態(tài)計(jì)算整個(gè)表格的熱流密度值 TREF,20 定義參考溫度20 asel,s,loc,x,0 !添加對流載荷 sfa,all,,conv,30,25 asel,s,loc,x,7,z sfa,all,,conv,30,25 asel,s,area,,15 !選擇面15 sfa,all,,conv,30,25 asel,s,area,,13 sfa,all,,conv,30,25 asel,s,area,,12 sfa,all,,conv,30,25 asel,s,area,,9 sfa,all,,conv,30,25 asel,s,area,,6 sfa,all,,conv,30,25 asel,s,area,,17 sfa,all,,conv,30,25 /solu TIME,40 !設(shè)置求解時(shí)間 AUTOS,1 KBC,1 DELTIM,0.2,0.2,0.2,1 !使用前一載荷步的終止時(shí)間為下一個(gè)載荷步的起始時(shí)間 TSRES,ERASE !消除上一載荷鎖甲的熱流載荷密度 SFA,11,1,HFLUX, %LASER% !給選定的面9施加熱流密度 TSRES,ERASE OUTRES,ALL,ALL, !將所有的求解信息寫入數(shù)據(jù)庫 solve SFADELE,15,,HFLUX TIME,20 AUTOTS,1 NSUBST,20,20,20 !指定載荷子步數(shù) KBC,1 !指定載荷為階躍式 TSRES,ERASE solve TIME,40 AUTOTS,1 NSUBST,30,30,30 KBC,1 TSRES,ERASE solve 為啥激活的時(shí)候沒啥反應(yīng)。 。 @wuming524 |

金蟲 (正式寫手)

專家顧問 (職業(yè)作家)
![]() |
專家經(jīng)驗(yàn): +809 |

| 5 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 中科大材料299求調(diào)劑 +10 | DAIjiayo 2026-03-05 | 16/800 |
|
|---|---|---|---|---|
|
[考研] 0703求調(diào)劑 +8 | c297914 2026-03-06 | 9/450 |
|
|
[考研] 347求調(diào)劑 +4 | 浮云滿足 2026-03-07 | 4/200 |
|
|
[考研] 303求調(diào)劑 +8 | forgman95 2026-03-05 | 10/500 |
|
|
[考研] 一志愿211 化學(xué)305分求調(diào)劑 +3 | 0703楊悅305分 2026-03-05 | 3/150 |
|
|
[考研] 一志愿南京大學(xué)資源與環(huán)境專業(yè)283分求調(diào)劑 +8 | 追云?? 2026-03-04 | 8/400 |
|
|
[考研] 085600材料與化工(高分子)290分求調(diào)劑 +9 | wengyujian 2026-03-04 | 9/450 |
|
|
[考研] 085600材料調(diào)劑 總分330 +6 | 池池丶 2026-03-03 | 6/300 |
|
|
[考研] 材料調(diào)劑 +5 | ws 上岸鴨 2026-03-05 | 5/250 |
|
|
[考研] 334求調(diào)劑 +3 | Trying] 2026-03-03 | 4/200 |
|
|
[考研] 304求調(diào)劑 +3 | 曼殊2266 2026-03-04 | 3/150 |
|
|
[考研] 一志愿清華深研院材料專碩294分,專業(yè)課111分,本科中南大學(xué)材料,有六級,有工作經(jīng)驗(yàn) +3 | H14528 2026-03-04 | 3/150 |
|
|
[考研] 一志愿天津大學(xué)085600 319分 材料與化工 金屬方向 求調(diào)劑 +6 | 青科11 2026-03-02 | 6/300 |
|
|
[考研] 一志愿武漢理工大學(xué)-085602-總分296分-求調(diào)劑 +7 | 紫川葡柚 2026-03-04 | 7/350 |
|
|
[考研] 一志愿鄭州大學(xué),學(xué)碩,物理化學(xué), 333求調(diào)劑 +5 | 李魔女斗篷 2026-03-04 | 5/250 |
|
|
[考研] 0703化學(xué) 一志愿東北大學(xué) 279分求調(diào)劑 +4 | 聶樂平 2026-03-03 | 4/200 |
|
|
[考研] 環(huán)境工程學(xué)碩288求助調(diào)劑 +7 | 多吃億口芝士 2026-03-02 | 7/350 |
|
|
[考研] 環(huán)境調(diào)劑 +8 | chenhanheng 2026-03-02 | 8/400 |
|
|
[考研] 298求調(diào)劑一志愿中海洋 +3 | lour. 2026-03-03 | 3/150 |
|
|
[考研] 材料工程求調(diào)劑 +3 | 1431251 2026-03-03 | 3/150 |
|