| 2 | 1/1 | 返回列表 |
| 查看: 618 | 回復: 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客戶端 |
新蟲 (初入文壇)
| 2 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考博] 售瀆SCI文章,我:8⊙ 55 1⊙ 54。備注【⊙=0】 +4 | ipys00zm58 2026-03-06 | 6/300 |
|
|---|---|---|---|---|
|
[考研] 求調劑推薦 +4 | 微辣不吃 2026-03-06 | 4/200 |
|
|
[考研] 新疆大學地質與礦業(yè)工程學院招生 +8 | another12 2026-03-04 | 13/650 |
|
|
[考研] 085602高分子方向求調劑 +7 | tlgudy 2026-03-04 | 7/350 |
|
|
[考研] 一志愿山東大學105500藥學專碩,總分302求調劑 +4 | 五維天空 2026-03-04 | 8/400 |
|
|
[考研] 275求調劑 +4 | 大爆炸難民 2026-03-06 | 5/250 |
|
|
[考研] 085600,一志愿鄭州大學,280分求調劑 +7 | Wuqi725 2026-03-05 | 7/350 |
|
|
[考研] 復試調劑 +5 | 呼呼?~+123456 2026-03-05 | 5/250 |
|
|
[考研] 材料類考研調劑 +7 | gemmgemm 2026-03-01 | 8/400 |
|
|
[考研] 0703化學 學碩 理工科均可 不區(qū)分研究方向 總分279求調劑 +7 | 1一11 2026-03-03 | 7/350 |
|
|
[考研] 環(huán)境調劑 +7 | 柒槿levana 2026-03-01 | 7/350 |
|
|
[考研] 085600 材料與化工 298 +14 | 小西笑嘻嘻 2026-03-03 | 14/700 |
|
|
[考研] 281求調劑 +3 | Y?l?h 2026-03-04 | 3/150 |
|
|
[考研] 293求調劑 +4 | 是樂渝哇 2026-03-03 | 4/200 |
|
|
[考研] 298求調劑一志愿中海洋 +3 | lour. 2026-03-03 | 3/150 |
|
|
[考研] 298求調劑 +3 | 人間唯你是清歡 2026-03-03 | 4/200 |
|
|
[考研] 288求調劑 +3 | 少71.8 2026-03-02 | 5/250 |
|
|
[考研] 0856材料調劑 +5 | 沿岸有貝殼OUC 2026-03-02 | 5/250 |
|
|
[考研] 306分材料調劑 +5 | chuanzhu川燭 2026-03-01 | 6/300 |
|
|
[考研] 317一志愿華南理工電氣工程求調劑 +6 | Soliloquy_Q 2026-02-28 | 11/550 |
|