 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 1 | 1/1 | 返回列表 |
| 查看: 1475 | 回復(fù): 0 | |||
| 【有獎交流】積極回復(fù)本帖子，參與交流，就有機會分得作者 ZJ970617 的 5 個金幣 | |||
ZJ970617新蟲 (初入文壇)
|
[交流]
Abaqus高斯熱源子程序
|
||
|
小弟最近在研究激光仿真，對旋轉(zhuǎn)高斯體熱源子程序方面有些小問題，希望能和大家多多交流。 SUBROUTINE DFLUX(FLUX,SOL,JSTEP,JINC,TIME,NOEL,NPT,COORDS,JLTYP, 1 TEMP,PRESS,SNAME) C c use GlobalVar INCLUDE 'ABA_PARAM.INC' C parameter(one=1.d0) DIMENSION COORDS(3),FLUX(2),TIME(2) CHARACTER*80 SNAME C 高斯旋轉(zhuǎn)體熱源參數(shù)，H為熱源高度，R0為熱源作用有效半徑 Q=2000 effi=0.8 P=Q*effi R0=0.004 H=0.005 v=0.01 pi=3.1415 x=COORDS(1) y=COORDS(2) z=COORDS(3) C 初始熱源中心坐標(biāo) x0=0 y0=0 z0=0 C 熱源形狀及熱源公式，d當(dāng)前時刻焊接斑點中心跟焊接初始位置的距離 d=v*TIME(2) Cs=3/R0**2 K=3*Cs*P/(pi*H*(1-1/(EXP(3)))*EXP(-3*Cs/LOG(H/Z)*((X-d)**2+Y**2) C JLTYP=1，體熱源 JLTYP=1 FLUX(1)=3*Cs*P/(pi*H*(1-1/(EXP(3)))*EXP(-3*Cs/LOG(H/Z)*((X-d)**2+Y**2) RETURN end subroutine DFLUX |
回復(fù)此樓» 猜你喜歡
求調(diào)劑，不管什么專業(yè)，我是可塑造的人才一枚，希望遇到知己老師撈撈我
已經(jīng)有5人回復(fù)
-
0703求調(diào)劑
已經(jīng)有6人回復(fù)
-
一志愿211 化學(xué)305分求調(diào)劑
已經(jīng)有3人回復(fù)
-
085701環(huán)境工程317分求調(diào)劑
已經(jīng)有6人回復(fù)
-
化學(xué)290求調(diào)劑
已經(jīng)有4人回復(fù)
-
298求調(diào)劑
已經(jīng)有5人回復(fù)
-
新疆大學(xué)地質(zhì)與礦業(yè)工程學(xué)院招生
已經(jīng)有18人回復(fù)
-
材料325求調(diào)劑
已經(jīng)有12人回復(fù)
-
0307化學(xué)求調(diào)劑
已經(jīng)有6人回復(fù)
-
070300化學(xué)求調(diào)劑292分
已經(jīng)有3人回復(fù)
相關(guān)版塊跳轉(zhuǎn)
我要訂閱樓主 ZJ970617 的主題更新
| 1 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 267化工調(diào)劑求助 +7 | 聰少OZ 2026-03-04 | 7/350 |
|
|---|---|---|---|---|
|
|
[考研] 278求調(diào)劑 +5 | Gale1314 2026-03-06 | 5/250 |
|
|
[考研] 材料調(diào)劑 +10 | ounce. 2026-03-04 | 12/600 |
|
|
|
[基金申請] 進入個人成果庫好難，一下午都沒進去 +5 | mi_dilee 2026-03-05 | 5/250 |
|
|
|
[考研]
 化學(xué)工程與技術(shù)316求調(diào)劑
+5
|
Sixuan wang 2026-03-06 | 5/250 |
|
|
|
[考研] 材料調(diào)劑 +5 | ounce. 2026-03-05 | 13/650 |
|
|
|
[考研] 266材料化工求調(diào)劑 +5 | 哇塞王帥 2026-03-03 | 5/250 |
|
|
|
[考研] 332材料求調(diào)劑 +6 | zjy101327 2026-03-05 | 7/350 |
|
|
|
[考研]
材料學(xué)學(xué)碩308分/本科東北大學(xué)/一志愿西北工業(yè)大學(xué)/
 5+3
|
蘇堯幺幺 2026-03-03 | 8/400 |
|
|
|
[考研] 一志愿東北大學(xué)080500，英一數(shù)二343分求調(diào)劑 +5 | Seele_v5 2026-03-04 | 5/250 |
|
|
|
[考研] 267調(diào)劑求助 +5 | 聰少OZ 2026-03-04 | 5/250 |
|
|
|
[考研] 學(xué)碩材料275調(diào)劑 +9 | 路三三 2026-03-03 | 9/450 |
|
|
|
[考研] 0703化學(xué)求調(diào)劑 +3 | 將未有期 2026-03-04 | 3/150 |
|
|
|
[考研] 一志愿314求調(diào)劑 +7 | 202111120625 2026-03-03 | 7/350 |
|
|
|
[考研] 一志愿西交大材料學(xué)碩 346 求調(diào)劑 +3 | zju51 2026-03-04 | 3/150 |
|
|
|
[考研] 化工335求調(diào)劑 +5 | 摸摸貓貓頭 2026-03-02 | 5/250 |
|
|
|
[考研] 11408，學(xué)碩276求調(diào)劑 +3 | 崔wj 2026-03-02 | 5/250 |
|
|
|
[考研] 求調(diào)劑 +11 | yunziaaaaa 2026-03-01 | 13/650 |
|
|
|
[考研] 哈工大計算機劉劼團隊招生 +4 | hit_aiot 2026-03-01 | 6/300 |
|
|
|
[考研] 1 +5 | 2026計算機_誠心 2026-03-01 | 8/400 |
|