ABAQUS熱源子程序的案例
Abaqus移動(dòng)加載高斯熱源子程序，適于焊接、3D打印領(lǐng)域 ￥2.5
Abaqus移動(dòng)加載高斯熱源子程序，適于焊接、3D打印領(lǐng)域，fortran編制的子程序見“付費(fèi)后”的附件中。
Abaqus模擬焊接（雙橢球熱源）的方法與步驟詳解（內(nèi)含完整雙橢球熱源子程序） ￥1.7
Abaqus模擬焊接（雙橢球熱源）的方法與步驟詳解（內(nèi)含完整雙橢球熱源子程序）
三角形熱源 磨削子程序 abaqus
SUBROUTINE DFLUX(FLUX,SOL,KSTEP,KINC,TIME,NOEL,NPT,COORDS,
1 JLTYP,TEMP,PRESS,SNAME)
C
INCLUDE 'ABA_PARAM.INC'
C
DIMENSION FLUX(2), TIME(2), COORDS(3)
CHARACTER*80 SNAME
qm = 3.2321*10000
lc = 2
dx = (4000/60)*time(1)
distance=coords(1)-dx
if(distance>=0.0.and.distance<=2)then
Flux(1) = 2*qm*distance/2
else
Flux(1)=0
end if
RETURN
END
展開 abaqus_子程序_高斯熱源 ￥15
前期準(zhǔn)備(這個(gè)可以百度，有更詳細(xì)的安裝教程)：
首先需要安裝兩個(gè)軟件（InterFortran和vs studio，注意ABAQUS與軟件版本號(hào)的兼容性，不然會(huì)出現(xiàn)配置不成功的情況）。鑒于題主用的是abauqs2016，此處以abauqs2016為例子簡述步驟。
Abaqus2016的兼容版本為VS2012，InterFortran2013（需要lic許可證，要不然只能用一年_maybe）.
安裝過程中需要記錄各自的安裝地址，軟件安裝完成后，在abaqus中的一個(gè)launcher.bat文件中將上述兩個(gè)文件的路徑寫入該文件（注意路徑要正確，同時(shí)嚴(yán)格按照格式書寫，禁止使用中文字符，禁止多莫名其妙的空格）。
顯示上圖所示即配置成功。
建模（建模過程僅敘述關(guān)鍵點(diǎn)）：
材料屬性：必須輸入用于溫度場計(jì)算的熱物性參數(shù)。將絕對零度設(shè)定為-273.15，此時(shí)計(jì)算出來的溫度單位為℃。
如果只是單純的溫度場分析,將分析步類型設(shè)定為熱傳遞，分析步時(shí)間按照熱源移動(dòng)速度，模型大小計(jì)算得出。
邊界條件：根據(jù)需求設(shè)定輻射、散熱系數(shù)。荷載選擇表面熱流，作用區(qū)域定位在熱源照射面。預(yù)定義場設(shè)定初始溫度。
網(wǎng)格類型為DC3D8。
提交計(jì)算：
提交作業(yè)，在通用模塊用戶子程序一欄鍵入.for子程序路徑。
嗯，大概就這樣。
付費(fèi)內(nèi)容包括子程序文件，CAE模型，聯(lián)系方式。
展開 
abaqus焊接雙熱源同步焊接子程序
熱源子程序
ABAQUS任意路徑移動(dòng)熱源Dflux子程序編寫 ￥20
ABAQUS復(fù)雜路徑雙橢球體熱源Dflux子程序，直線-圓弧-斜線，平面坐標(biāo)變換
Abaqus子程序系列：UMDFLUX（定義多個(gè)非均勻分布熱源）
子程序UMDFLUX
· 可用于描述是位置、時(shí)間、溫度等函數(shù)的多個(gè)移動(dòng)或靜止熱通量；
· 可以使用和更新單元解相關(guān)的變量；
· 每個(gè)單元可以調(diào)用一次，來描述單元內(nèi)容開始點(diǎn)和結(jié)束點(diǎn)之間的移動(dòng)熱源；
· 施加熱通量為點(diǎn)移動(dòng)熱源，單位是能量單位（JT-1）;
· 在用戶子程序外，不需要體積積分；
1. 與子程序DFLUX的區(qū)別
子程序DFLUX
· 可以用來在熱傳導(dǎo)或質(zhì)量擴(kuò)散分析中，定義一個(gè)非均勻分布的熱通量，可以是位置，時(shí)間，溫度，單元號(hào)，積分點(diǎn)號(hào)等的函數(shù)；
· 對于分析中定義了基于單元或基于表面（僅僅熱傳導(dǎo)）的非均勻分布熱通量，每個(gè)熱通量積分點(diǎn)調(diào)用；
· 忽略任何可能出現(xiàn)的與非均勻分布通量定義相關(guān)的幅值參考;
· 將節(jié)點(diǎn)作為一階傳熱單元、一階溫度-位移耦合單元、一階熱-電-結(jié)構(gòu)耦合單元和質(zhì)量擴(kuò)散單元的通量積分點(diǎn)。
SUBROUTINE DFLUX(FLUX,SOL,KSTEP,KINC,TIME,NOEL,NPT,COORDS,JLTYP,TEMP,PRESS,SNAME)
C
INCLUDE 'ABA_PARAM.INC'
C
DIMENSION FLUX(2), TIME(2), COORDS(3)
CHARACTER*80 SNAME
user coding to define FLUX(1) and FLUX(2)
RETURN
END
2.
展開 abaqus傳統(tǒng)攪拌摩擦焊接熱源Fortran子程序和模型inp文件 ￥19.89
abaqus傳統(tǒng)攪拌摩擦焊接熱源Fortran子程序和模型inp文件
利用Abaqus用戶子程序實(shí)現(xiàn)制動(dòng)盤熱分析中的熱源移動(dòng)
在進(jìn)行制動(dòng)器熱分析時(shí)，若要分析整個(gè)制動(dòng)過程或多次制動(dòng)后的結(jié)果，直接采用接觸摩擦生熱的方式受到制動(dòng)時(shí)間以及大位移接觸的影響，計(jì)算較困難，若采用結(jié)構(gòu)靜態(tài)傳熱又無法實(shí)現(xiàn)隨制動(dòng)盤的轉(zhuǎn)動(dòng)熱源的移動(dòng)。Abaqus中可通過對結(jié)構(gòu)設(shè)置質(zhì)量流率（MASS FLOW），采用熱傳導(dǎo)分析實(shí)現(xiàn)熱源移動(dòng)。需要注意的是，MASS FLOW不支持CAE，需要通過關(guān)鍵字設(shè)置。下面以汽車制動(dòng)盤熱分析說明整個(gè)過程及MASS FLOW的使用方法。
首先僅建立制動(dòng)盤的模型即可，不需要制動(dòng)片模型。如下圖所示：
分別設(shè)置制動(dòng)盤的材料屬性，設(shè)置熱傳導(dǎo)分析步（Heat transfer）。邊界為初始溫度場，對流換熱、熱輻射等。載荷為表面熱流密度，施加在初始制動(dòng)片與制動(dòng)盤接觸的面積內(nèi)。其中需要考慮熱流密度隨制動(dòng)盤速度的變化，對流換熱系數(shù)隨速度的變化，以及對流換熱系數(shù)沿制動(dòng)盤徑向的變化等。如下圖所示為熱流密度施加的區(qū)域。
接著設(shè)置質(zhì)量流率（MASS FLOW），首先需要指定質(zhì)量流率施加的區(qū)域，此模型中選擇制動(dòng)盤的所有節(jié)點(diǎn)，將其設(shè)置為一個(gè)set，給定相應(yīng)的name（后續(xù)將用到此set）。確認(rèn)材料、分析步、邊界、載荷等設(shè)置正確后可輸出inp文件添加質(zhì)量流率關(guān)鍵字或直接在CAE中添加關(guān)鍵字。
在step后添加關(guān)鍵字，如下圖所示。添加完成后保存inp文件。
接著是最關(guān)鍵的部分，質(zhì)量流率需要使用用戶子程序實(shí)現(xiàn)，子程序中需要給出由制動(dòng)盤速度變化引起的質(zhì)量流率的變化，以及沿制動(dòng)盤徑向的質(zhì)量流率的變化，同時(shí)若為多次制動(dòng)，需要區(qū)分制動(dòng)、停止的過程，僅在制動(dòng)過程施加質(zhì)量流率。具體的用戶子程序如下所示:
用戶子程序
求解時(shí)調(diào)用此子程序計(jì)算即可。整個(gè)分析過程可看到熱源在制動(dòng)盤上移動(dòng)，計(jì)算后的溫度場結(jié)果如下圖所示。
來源：有限元在線的博客，版權(quán)歸作者所有。
展開 ABAQUS焊接模擬-Python編寫移動(dòng)高斯熱源子程序-不帶生死單元
ABAQUS平板對接-不帶生死單元。Python編寫移動(dòng)高斯熱源子程序（包括高斯面熱源、雙橢球熱源）
模型作如下假設(shè)：材料為各向同性材料，不考慮熔池流動(dòng)及相變影響。
考慮到過來學(xué)習(xí)的大多都是和我一樣的學(xué)生黨，因此設(shè)置了一個(gè)大家都能接受的價(jià)格。
如果視頻中有什么錯(cuò)誤或沒講清的大家可以留言??！
眾多受害者實(shí)錘爆料——手撕Victor系列（二）
投訴步驟如下：
1.微信點(diǎn)擊以下文章鏈接，可以點(diǎn)一個(gè)，也可以每篇都投訴，如果跳轉(zhuǎn)不了，可以微信搜索這些標(biāo)題，找到Victor公眾號(hào)的文章：
Victor經(jīng)典案例集第九十四篇：Abaqus仿真水滴（兩滴）自由下落到水池的過程（圖文+CAE+視頻教程）
Victor經(jīng)典案例集第八十七篇：Abaqus熱源子程序DFLUX在移動(dòng)熱源（焊接/激光切割/3D打?。┲械膽?yīng)用一：傳熱分析
Abaqus仿真纖維增強(qiáng)類復(fù)合材料進(jìn)階Level3：復(fù)合材料材料層合板上加強(qiáng)筋的建模方法（圖文+CAE+視頻教程）
Abaqus仿真纖維增強(qiáng)類復(fù)合材料進(jìn)階Level1：建模入門（圖文+CAE+視頻教程）
Abaqus仿真纖維增強(qiáng)類復(fù)合材料進(jìn)階Level2：利用圓柱（離散）坐標(biāo)系描述復(fù)雜復(fù)材構(gòu)件的建模方法（圖文+CAE+視頻教程）
2.在文章的右上方點(diǎn)擊三個(gè)點(diǎn)的按鈕“...”，然后點(diǎn)擊底部的“投訴”
3.手機(jī)端投訴可以選擇“其他”
4.輸入投訴內(nèi)容，可以自行編輯，證據(jù)可以用本文中的圖片或文字。最后點(diǎn)擊提交即可。感謝支持！
展開 
帶內(nèi)熱源的UMATHT子程序入門小例子 ￥5
自己探索了一段時(shí)間，下面將在abaqus幫助文檔里的例子基礎(chǔ)上。結(jié)合傳熱學(xué)的理論，介紹在UMATHT實(shí)現(xiàn)內(nèi)熱源生熱，并與用abaqus的HETVAL子程序的結(jié)果做對比，驗(yàn)證正確性。（注：這個(gè)例子很簡單，大家可以根據(jù)需要進(jìn)一步開發(fā)）</p><h2>1.導(dǎo)熱微分方程</h2><p> 為了更好得理解UMATHT需要定義變量，先介紹一下一維導(dǎo)熱微分方程（三維可類似推廣）。
展開 abaqus中焊接高斯面熱源和高斯體熱源程序 ￥19.89
abaqus中焊接中高斯面熱源和高斯體熱源程序
一個(gè)abaqus用戶材料子程序（UMAT）問題解決說明 附Abaqus用戶子程序專題下載
在開展abaqus用戶子程序的項(xiàng)目時(shí)，容易出現(xiàn)很多bug問題，下面是一個(gè)比較典型的容易遇到的報(bào)錯(cuò)。
The job input file "Job-1.inp" has been submitted for analysis.
Job Job-1: Analysis Input File Processor aborted due to errors.
Error in job Job-1: Analysis Input File Processor exited with an error.
檢查工作路徑下的log文件（Job-1.log），提示無法識(shí)別“ifort”，這就意味著這個(gè)命令在系統(tǒng)路徑中無法被識(shí)別。實(shí)際上，“ifort”適用于編譯Fortran文件的，如果無法使用則無法完成編譯。
log文件內(nèi)容
為了解決這個(gè)問題，在系統(tǒng)文件中找到“ifort.exe”，并將其添加到環(huán)境變量path中，然后重啟軟件即可解決。
添加路徑
下載地址：Abaqus用戶子程序專題
展開 Abaqus子程序混凝土和鋼筋材料子程序
用戶子程序(Vumat及Umat)咨詢，率本構(gòu)
