| 1 | 1/1 | 返回列表 |
| 查看: 2133 | 回復: 0 | ||
| 【懸賞金幣】回答本帖問題,作者xinxin998899將贈送您 30 個金幣 | ||
xinxin998899新蟲 (初入文壇)
|
[求助]
abqus的二道激光淬火代碼
|
|
|
求助大佬幫忙。軟件:abqus,激光淬火數值模擬,撰寫激光淬火代碼,一道激光淬火代碼已經寫好了,現在差按照原路返回的二道激光淬火代碼,只需要增加按照原路徑返回的代碼,現有代碼: SUBROUTINE DFLUX(FLUX,SOL,KSTEP,KINC,TIME,NOEL,NPT,COORDS,JLTYP, 1 TEMP,PRESS,SNAME) C INCLUDE 'ABA_PARAM.INC' parameter(one=1.d0) DIMENSION COORDS(3),FLUX(2),TIME(2) CHARACTER*80 SNAME C Q,激光有效熱功率W C v,激光移動速度m/s C Rh,加熱斑點半徑,95%的熱量落在以Rh為半徑的面積內 C d,當前時刻焊接斑點中心跟焊接初始位置的距離 Q=1000 v=0.01 Rh=0.003 d=v*TIME(2) x=COORDS(1) y=COORDS(2) z=COORDS(3) C 焊接板厚度為0.01m,焊槍移動從坐標-0.1,0,0.01開始,沿著x方向移動 x0=-0.1 y0=0 z0=0.003 C PI=3.1415 C R=sqrt((x-x0-d)**2+(y-y0)**2) C JLTYP=0,表示為面熱源 JLTYP=0 IF (KSTEP. eq. one) THEN FLUX(1)=3*Q/(PI*Rh**2)*exp(-3*R**2/Rh**2) ENDIF RETURN END |
| 1 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研]
085600 英一數二272求調劑
5+6
|
vida_a 2026-03-01 | 44/2200 |
|
|---|---|---|---|---|
|
[考研] 290求調劑 +9 | ErMiao1020 2026-03-02 | 9/450 |
|
|
[考研] 289求調劑 +7 | BrightLL 2026-03-02 | 9/450 |
|
|
[考研] 283求調劑 +9 | 鹿沫笙 2026-03-02 | 9/450 |
|
|
[考研] 一志愿華中科技大學,化學專業(yè)344分,求調劑 +6 | 邢xing1 2026-03-02 | 6/300 |
|
|
[考研] 材料學碩318求調劑 +15 | February_Feb 2026-03-01 | 17/850 |
|
|
[考研]
|
glwshine 2026-03-02 | 5/250 |
|
|
[考研] 281電子信息求調劑 +3 | jhtfeybgj 2026-03-02 | 6/300 |
|
|
[考博] 26申博 +4 | north, 2026-02-28 | 4/200 |
|
|
[考研] 清華大學 材料與化工 353分求調劑 +5 | awaystay 2026-03-02 | 6/300 |
|
|
[考研] 338求調劑 +5 | 18162027187 2026-03-02 | 6/300 |
|
|
[考研] 321求調劑一志愿東北林業(yè)大學材料與化工英二數二 +5 | 蟲蟲蟲蟲蟲7 2026-03-01 | 9/450 |
|
|
[考研] 285求調劑 +9 | 滿頭大汗的學生 2026-02-28 | 9/450 |
|
|
[考研] 材料復試調劑 +5 | 學材料的點 2026-03-01 | 6/300 |
|
|
[考研] 265分求調劑不調專業(yè)和學校有行學上就 +6 | 禮堂丁真258 2026-02-28 | 9/450 |
|
|
[考研] 295求調劑 +8 | 19171856320 2026-02-28 | 8/400 |
|
|
[考研] 284求調劑 +10 | 天下熯 2026-02-28 | 11/550 |
|
|
[考研] 264求調劑 +4 | 巴拉巴拉根556 2026-02-28 | 4/200 |
|
|
[考研] 279求調劑 +3 | dua1 2026-03-01 | 4/200 |
|
|
[考研] 328求調劑 +3 | aaadim 2026-03-01 | 5/250 |
|