| 5 | 1/1 | 返回列表 |
| 查看: 1517 | 回復(fù): 4 | |||
| 當(dāng)前只顯示滿足指定條件的回帖,點擊這里查看本話題的所有回帖 | |||
[求助]
APDL編寫生死單元格+移動光源加載問題 已有3人參與
|
|||
|
/SOLU AUTOTS, ON !是否使用時間步長 OUTPR, NSOL, ALL !控制輸出文件記錄全部內(nèi)容 OUTRES, NSOL, ALL ! 輸出設(shè)置 KBC, 1 !漸變載荷 ANTYPE, TRANS !瞬態(tài)分析 TIMINT,1,therm !打開瞬分析 tunif,20 !初始溫度 pred,on !打開時間預(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 !載荷步時間大小 *SET,R,0.36 !掃描間距 *SET,v,0.03 !掃描速度 *SET,qmax,1.31e8 *DIM,LASER,TABLE,MAX_X,MAX_Z,MAX_TIME,X,Z,TIME !定義一個三維表格,三個變量依次為x坐標(biāo)、z坐標(biāo)和時間 *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)進行循環(huán) *SET,LASER(i,0,k),(i-1)*DLR *enddo *DO,j,1,MAX_Z,1 !按照Z坐標(biāo)進行循環(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軸移動的距離 (計算焊接方向上各點到熱源中心的距離) *SET,COORD_Z,(j-1)*DLR-ZCEN !Z軸移動的距離 *SET,DISTANCE,SQRT(COORD_X**2+COORD_Z**2) !!第i步移動到的位置點相對于光束中心距離 *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 !定義每個時間步的值 *ENDDO TUNIF,20 定義所有節(jié)點的溫度20 !瞬態(tài)計算整個表格的熱流密度值 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è)置求解時間 AUTOS,1 KBC,1 DELTIM,0.2,0.2,0.2,1 !使用前一載荷步的終止時間為下一個載荷步的起始時間 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 為啥激活的時候沒啥反應(yīng)。 。 @wuming524 |

金蟲 (正式寫手)

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

| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 化學(xué)學(xué)碩求調(diào)劑 +3 | 努力奮斗112 2026-03-12 | 3/150 |
|
|---|---|---|---|---|
|
[考研] 085701環(huán)境工程專碩求調(diào)劑 +8 | 幼稚園大班打手 2026-03-08 | 8/400 |
|
|
[文學(xué)芳草園] 伙伴們,祝我生日快樂吧 +8 | myrtle 2026-03-10 | 10/500 |
|
|
[考研] 材料與化工085600調(diào)劑求老師收留 +7 | jiaanl 2026-03-11 | 7/350 |
|
|
[考博] 售SCI一區(qū)T0P文章,我:8.O.5.5.1.O.5.4,科目齊全,可+急 +3 | 7x4iz20zqa 2026-03-11 | 8/400 |
|
|
[考研] 材料工程330分求調(diào)劑,一志愿985 +5 | 小材化本科 2026-03-07 | 5/250 |
|
|
[考研] 化工0817調(diào)劑 +8 | 燦若星晨 2026-03-10 | 8/400 |
|
|
[考研] 086000生物與醫(yī)藥319分求調(diào)劑 +4 | Tolkien 2026-03-07 | 8/400 |
|
|
[考研] 308求調(diào)劑 +4 | 是Lupa啊 2026-03-08 | 7/350 |
|
|
[考研] 337一志愿華南理工材料求調(diào)劑 +5 | mysdl 2026-03-07 | 5/250 |
|
|
[考研] 材料專碩調(diào)劑 +7 | 慕辰123 2026-03-05 | 10/500 |
|
|
[考研] 家人們 調(diào)劑不迷路 看這里 +8 | likeihood 2026-03-09 | 13/650 |
|
|
[考研]
|
Sixuan wang 2026-03-06 | 7/350 |
|
|
[考研] 085701環(huán)境工程317分求調(diào)劑 +9 | 6汆尼9 2026-03-07 | 9/450 |
|
|
[考研] 322分 085600求調(diào)劑,有互聯(lián)網(wǎng)+國金及主持省級大創(chuàng)經(jīng)歷 +4 | 熊境喆 2026-03-05 | 4/200 |
|
|
[考研] 化學(xué)290求調(diào)劑 +3 | 兩顆 西柚 2026-03-07 | 4/200 |
|
|
[考研] 0307化學(xué)求調(diào)劑 +6 | 0ok0k 2026-03-07 | 6/300 |
|
|
[考研] 276求調(diào)劑 本科天津工業(yè)大學(xué) 一志愿北京化工大學(xué)0855 +4 | 路lyh123 2026-03-06 | 6/300 |
|
|
[考研] 求調(diào)劑 +4 | 呼呼?~+123456 2026-03-06 | 4/200 |
|
|
[考研] 08工科求調(diào)劑 +3 | 隆LLL 2026-03-06 | 4/200 |
|