| 5 | 1/1 | 返回列表 |
| 查看: 1515 | 回復: 4 | |||
[求助]
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 !打開時間預測器 lnsrch,on !瞬態(tài)熱分析設(shè)置 CNVTOL,HEAT, ,0.01,1,0.000001, !控制收斂準則 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坐標、z坐標和時間 *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坐標進行循環(huán) *SET,LASER(i,0,k),(i-1)*DLR *enddo *DO,j,1,MAX_Z,1 !按照Z坐標進行循環(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 |

| 5 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 304求調(diào)劑(085602一志愿985) +4 | 化工人999 2026-03-09 | 4/200 |
|
|---|---|---|---|---|
|
[考研] 考研一志愿長安大學材料與化工309分請求調(diào)劑 +5 | dtdxzxx 2026-03-06 | 7/350 |
|
|
[考研] 材料工程085601調(diào)劑求老師收留 +5 | 強木木木 2026-03-07 | 5/250 |
|
|
[考研] 0703化學求調(diào)劑 +4 | 很老實人 2026-03-09 | 4/200 |
|
|
[考研] 材料與化工,291分,求調(diào)劑 +13 | 咕嚕咕嚕123123 2026-03-04 | 15/750 |
|
|
[考研] 290 材料與化工求調(diào)劑 +7 | Nebulala 2026-03-08 | 7/350 |
|
|
[考研] 醫(yī)學檢驗專業(yè)26考研求調(diào)劑 +3 | 琪ya 2026-03-03 | 5/250 |
|
|
[考研] 083000環(huán)境科學與工程調(diào)劑 +5 | 加油呀fxy 2026-03-07 | 6/300 |
|
|
[考研] 0817化學工程與技術(shù)312分求調(diào)劑 +7 | T123 tt 2026-03-04 | 7/350 |
|
|
[考研] 337一志愿華南理工材料求調(diào)劑 +4 | mysdl 2026-03-07 | 4/200 |
|
|
[考研] 求調(diào)劑推薦 +4 | 微辣不吃 2026-03-06 | 4/200 |
|
|
[考研] 求調(diào)劑 一志愿蘇州大學,0856化工323分 | 本科應(yīng)化 | 有專利/競賽/科研助手經(jīng)歷 | +5 | 橙子cyx 2026-03-06 | 6/300 |
|
|
[考研] 332材料求調(diào)劑 +6 | zjy101327 2026-03-05 | 7/350 |
|
|
[考研] 紡織、生物、化學、材料等專業(yè) +3 | Eember. 2026-03-05 | 7/350 |
|
|
[考研] 347求調(diào)劑 +6 | 啊歐歐歐 2026-03-03 | 8/400 |
|
|
[考研] 一志愿清華深研院材料專碩294分,專業(yè)課111分,本科中南大學材料,有六級,有工作經(jīng)驗 +3 | H14528 2026-03-04 | 3/150 |
|
|
[論文投稿]
100+4
|
Stray2021 2026-03-03 | 4/200 |
|
|
[考研] 331求調(diào)劑 +3 | zzZ&zZ 2026-03-03 | 3/150 |
|
|
[考研] 298求調(diào)劑一志愿中海洋 +3 | lour. 2026-03-03 | 3/150 |
|
|
[考研] 292求調(diào)劑 +3 | sgbl 2026-03-03 | 3/150 |
|