 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 2 | 1/1 | 返回列表 |
| 查看: 616 | 回復(fù): 1 | |||
Emanonvvv新蟲 (初入文壇)
|
[交流]
我這個移動高斯柱體熱源子程序哪里出問題了，求指正 已有1人參與
|
|
SUBROUTINE DFLUX(FLUX,SOL,KSTEP,KINC,TIME,NOEL,NPT,COORDS, 1 JLTYP,TEMP,PRESS,SNAME) INCLUDE 'ABA_PARAM.INC' parameter(one=1.d0) DIMENSION COORDS(3),FLUX(2),TIME(2) CHARACTER*80 SNAME C 熱源功率（熱源瞬時給焊件的熱能）Q,熱效率n；熱源半徑Rh，單位m ;熱源穿透深度80微米，0.00008m Q=170 n=1 Rh=0.0001 PI=3.1415 h=0.00008 C 移動速度v=0.05m/s v=0.05 x=COORDS(1) y=COORDS(2) z=COORDS(3) C 定義移動熱源起始點。 x0=-0.001 y0=0 z0=0 d=v*TIME(1)C JLTYP＝1，表示為體熱源 JLTYP=1 C 計算熱源熱流密度，F(xiàn)LUX,單位J/(m^2*s) R=sqrt((x-x0-d)**2+(z-z0)**2) heat=3*Q*n/(h*PI*Rh**2) shape1=exp(-3*R**2/Rh**2) if (JSTEP.eq.one) then FLUX(1)=heat*shape1 RETURN END 發(fā)自小木蟲Android客戶端 |
回復(fù)此樓» 猜你喜歡
085600材料調(diào)劑 總分330
已經(jīng)有6人回復(fù)
-
歡迎211本科同學(xué)，過A區(qū)國家線，A區(qū)非偏遠(yuǎn)一本，交叉學(xué)科課題組
已經(jīng)有30人回復(fù)
-
高分子化學(xué)與物理調(diào)劑
已經(jīng)有17人回復(fù)
-
化學(xué)專業(yè)調(diào)劑
已經(jīng)有6人回復(fù)
-
0703 東華大學(xué) 理學(xué)化學(xué)均過 a 線，總分 281 求調(diào)劑
已經(jīng)有11人回復(fù)
-
材料工程調(diào)劑
已經(jīng)有6人回復(fù)
-
材料學(xué)碩318求調(diào)劑
已經(jīng)有13人回復(fù)
-
08工科求調(diào)劑
已經(jīng)有4人回復(fù)
-
A區(qū)一本交叉課題組，低分調(diào)劑，招收機械電子信息通信等交叉方向
已經(jīng)有40人回復(fù)
-
070300調(diào)劑一志愿南京大學(xué)化學(xué)專業(yè)，初試273分，有論文有專利有競賽，求調(diào)劑B區(qū)211
已經(jīng)有11人回復(fù)
馬明鋒
新蟲 (初入文壇)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 55.2
- 散金: 10
- 帖子: 26
- 在線: 15.7小時
- 蟲號: 14329752
- 注冊: 2019-02-23
- 專業(yè): 多相流熱物理學(xué)
2樓2020-12-10 07:57:31
相關(guān)版塊跳轉(zhuǎn)
我要訂閱樓主 Emanonvvv 的主題更新
| 2 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 招調(diào)劑 +10 | 帆船哥 2026-03-04 | 12/600 |
|
|---|---|---|---|---|
|
[考研] 268求調(diào)劑 +4 | 劉合華 2026-03-05 | 4/200 |
|
|
|
[考研] 一志愿211，0860總分286食品工程專業(yè)求調(diào)劑 +5 | 林林Winnie 2026-03-05 | 5/250 |
|
|
|
[考博] 2026申博自薦 六級440電催化方向 +4 | 櫻落成影花成雙 2026-03-05 | 4/200 |
|
|
|
[考研] 接收調(diào)劑 +19 | 津萌津萌 2026-03-02 | 29/1450 |
|
|
|
[考研] 334求調(diào)劑 +3 | Trying] 2026-03-03 | 4/200 |
|
|
|
[考研] 材料328求調(diào)劑 +10 | 一個蘿卜02 2026-03-03 | 10/500 |
|
|
|
[考研] 304分材料專碩求調(diào)劑 +11 | qiuzhigril 2026-03-03 | 14/700 |
|
|
|
[考研] 化學(xué) 0703求調(diào)劑 總分293 一志愿211 +9 | 土土小蟲 2026-03-03 | 11/550 |
|
|
|
[考研] 求調(diào)劑 +7 | 博斯特525 2026-03-04 | 7/350 |
|
|
|
[考研] 求調(diào)劑 +4 | 熬夜的貓頭鷹 2026-03-02 | 4/200 |
|
|
|
[考研] 學(xué)碩材料275調(diào)劑 +9 | 路三三 2026-03-03 | 9/450 |
|
|
|
[考研]
 一志愿中南大學(xué)理學(xué)化學(xué)
+6
|
15779376950 2026-03-01 | 8/400 |
|
|
|
[考研] 325求調(diào)劑 +5 | 學(xué)家科 2026-03-04 | 5/250 |
|
|
|
[考博] 26申博 +5 | north， 2026-02-28 | 5/250 |
|
|
|
[考研] 299求調(diào)劑 +5 | kkcoco25 2026-03-02 | 9/450 |
|
|
|
[考博] 博士自薦 +4 | kkluvs 2026-02-28 | 5/250 |
|
|
|
[考研] 一志愿山東大學(xué)材料與化工325求調(diào)劑 +5 | 半截的詩0927 2026-03-02 | 5/250 |
|
|
|
[基金申請] 此成果不能導(dǎo)入原因：元數(shù)據(jù)必填信息不完整，可 進行補充。 +4 | Kittylucky 2026-03-02 | 5/250 |
|
|
|
[考研] 材料調(diào)劑 +6 | 愛擦汗的可樂冰 2026-02-28 | 7/350 |
|