熱源子程序的案例
abaqus焊接雙熱源同步焊接子程序
熱源子程序
Abaqus移動加載高斯熱源子程序，適于焊接、3D打印領域 ￥2.5
Abaqus移動加載高斯熱源子程序，適于焊接、3D打印領域，fortran編制的子程序見“付費后”的附件中。
ABAQUS焊接模擬-Python編寫移動高斯熱源子程序-不帶生死單元
Python編寫移動高斯熱源子程序（包括高斯面熱源、雙橢球熱源）
模型作如下假設：材料為各向同性材料，不考慮熔池流動及相變影響。
考慮到過來學習的大多都是和我一樣的學生黨，因此設置了一個大家都能接受的價格。
如果視頻中有什么錯誤或沒講清的大家可以留言！！
ABAQUS任意路徑移動熱源Dflux子程序編寫 ￥20
ABAQUS復雜路徑雙橢球體熱源Dflux子程序，直線-圓弧-斜線，平面坐標變換
ABAQUS增材制造操作案例(適用于3D打印、激光熔覆、焊接等領域)_第二期 ￥85
聲明:本cae文件為abaqus2016版本，所以僅適用于2016及以上的版本，但是在最后的壓縮包中添加了inp文件，inp文件不受版本限制，同時python腳本文件及for熱源子程序文件不受版本限制。
案例分為四種掃描方式:
1.單向掃描 2.雙向掃描 3.基于單向掃描的優化 4.基于雙向掃描的優化
模型簡介:
1.涉及'生死單元控制’、'熱源子程序控制’兩項關鍵技術,
2.每個模型至少有三列四層(更容易看出仿真效果)。
3.案例可分析溫度場分布(案例不涉及應力場，因為都差不多，這個案例學會之后，應力場按照我之前的視頻自己改就行了)
4.模型中可以修改的參數有掃描速度、步進寬度、層高、熱源功率等，可以在后續的調試中對參數進行調整。
壓縮包內容包括:
1.案例的cae、inp文件。
2.生死單元控制的.py腳本文件,熱源子程序文件.for。
3.結果文件的gif圖展示。
(咨詢QQ:773611784)
展開 abaqus關聯Fortran子程序教程（包含安裝包） ￥3
對于abaqus玩家來說，有時候需要用到一些子程序，常見的如焊接模擬的熱源子程序、荷載子程序、材料子程序和單元子程序等等，但是調用子程序需要將abaqus和Fortran關聯起來，雖然網上有不少教程，但卻將安裝包和關聯教程分離開，這就影響我們安裝/關聯的效率，有時候甚至會浪費時間和金錢去xxx尋求幫助（約30元），這是不值得的。為了廣大學生的方便，本人分享一下經驗和安裝包，若有不當之處，請指正，謝謝。意思意思收到辛苦費，但是若關注微信公眾號：土木學子，即可免費獲得（往期文章）。
首先，安裝Visual Studio2012，安裝過程中直接點點點就行，唯一需要注意的是建議安裝在非系統盤，并無破解license/文件。安裝包鏈接在后方。
接著，安裝IVF2013，安裝過程中，激活方式選擇使用license，其余安裝過程也只是點點點，無特別之處。我分享的鏈接中包含許可證文件，這一點請放心。安裝包鏈接在后方。
然后，右鍵點擊abaqus圖標，屬性，打開文件所在的位置，點擊找到launcher.bat文件，操作下圖。
最后，以文本打開方式打開launcher.bat文件，在最上方添加兩行內容，即將Visual Studio 2012及Fortran與abaqus關聯起來。
展開 ABAQUS增材制造操作案例(適用于3D打印、激光熔覆、焊接等領域）_第一期 ￥65
聲明:本cae文件為abagus2016版本，所以僅適用于2016及以上的版本，但是在最后的壓縮包中添加了inp文件，inp文件、for熱源子程序不受版本限制。
這只是一個demo，所有的技術是都有展示的，只是模型精度比較差。型中的生死單元控制是利用GUI界面設置的，對于簡單的增材制造模擬可能會滿足要求，但是針對需要進行多次生死單元轉換的模型，依舊建議利用python腳本進行設置。
模型簡介:
1.技術涉及“生死單元的控制(GUI控制)"、“熱源子程序控制”兩項關鍵技術。
2.壓縮包包含案例文件兩個，子程序一個，第一個案例(laser NT)是純溫度場仿真，第二個案例(laser NTS)是熱力耦合的仿真，利用的是直接耦合的方法。
3.模型為單軌道熔覆案例，對于需要控制多軌道的仿真，技術都是一樣的。
4.包含laser NT案例的操作幫助視頻。
(咨詢QQ:773611784)
展開 Abaqus模擬焊接（雙橢球熱源）的方法與步驟詳解（內含完整雙橢球熱源子程序） ￥1.7
Abaqus模擬焊接（雙橢球熱源）的方法與步驟詳解（內含完整雙橢球熱源子程序）
三角形熱源 磨削子程序 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
如果只是單純的溫度場分析,將分析步類型設定為熱傳遞，分析步時間按照熱源移動速度，模型大小計算得出。
邊界條件：根據需求設定輻射、散熱系數。荷載選擇表面熱流，作用區域定位在熱源照射面。預定義場設定初始溫度。
網格類型為DC3D8。
提交計算：
提交作業，在通用模塊用戶子程序一欄鍵入.for子程序路徑。
嗯，大概就這樣。
付費內容包括子程序文件，CAE模型，聯系方式。
帶內熱源的UMATHT子程序入門小例子 ￥5
結合傳熱學的理論，介紹在UMATHT實現內熱源生熱，并與用abaqus的HETVAL子程序的結果做對比，驗證正確性。（注：這個例子很簡單，大家可以根據需要進一步開發）</p><h2>1.導熱微分方程</h2><p> 為了更好得理解UMATHT需要定義變量，先介紹一下一維導熱微分方程（三維可類似推廣）。
ABAQUS焊接分析
Abaqus中提供豐富的用戶子程序接口，包括：非均布載荷子程序（DLOAD），熱源子程序（DFLUX），接觸面摩擦行為子程序（FRIC）等。用戶可以根據熱源的具體參數采用FORTRAN建立熱源子程序，在計算過程中直接通過子程序接口（DFLUX）調用。對于焊接過程中的熱傳導問題，Abaqus還提供了強大的散熱（Film Condition）和熱輻射(Radiation)功能。
熔焊
選用隱式求解器Abaqus/Standard進行順序耦合熱固分析，先進行溫度場的計算，再根據溫度歷史來計算被工件的殘余應力和變形。
壓焊
壓焊過程通常是一個涉及到接觸，熱傳導，大塑性應變的復雜過程。在用Abaqus進行仿真計算時選用顯式求解器Abaqus/Explicit來進行分析，采用熱力耦合的動態分析步（DynamicTemperature-displacement Explicit），進行完全熱力耦合分析。
攪拌摩擦焊
對溫度場和流場進行模擬。仿真過程中將攪拌工具設為剛體，并采用ALE的方法用材料的運動來代替，攪拌工具的移動，以避免過大的網格畸變。
釬焊
釬焊過程在焊縫處極易產生應力集中，焊縫周圍的殘余應力成為釬焊的一個重要關注對象。Abaqus提供豐富熱載荷形式，有面形熱流（Surface heat flux）,體型熱流(Body heat flux)，和集中熱流(Concentrated heat flux)，同時還可以要根據焊接過程中的實際加熱情況建立場變量（DiscreteFields和 Analytical Fields）和熱載荷構建恰當的熱源模型。
多層多道焊接
多層多道焊的模擬涉及到金屬的逐步填充問題。
展開 Abaqus子程序系列：UMDFLUX（定義多個非均勻分布熱源）
子程序UMDFLUX
· 可用于描述是位置、時間、溫度等函數的多個移動或靜止熱通量；
· 可以使用和更新單元解相關的變量；
· 每個單元可以調用一次，來描述單元內容開始點和結束點之間的移動熱源；
· 施加熱通量為點移動熱源，單位是能量單位（JT-1）;
· 在用戶子程序外，不需要體積積分；
1. 與子程序DFLUX的區別
子程序DFLUX
· 可以用來在熱傳導或質量擴散分析中，定義一個非均勻分布的熱通量，可以是位置，時間，溫度，單元號，積分點號等的函數；
· 對于分析中定義了基于單元或基于表面（僅僅熱傳導）的非均勻分布熱通量，每個熱通量積分點調用；
· 忽略任何可能出現的與非均勻分布通量定義相關的幅值參考;
· 將節點作為一階傳熱單元、一階溫度-位移耦合單元、一階熱-電-結構耦合單元和質量擴散單元的通量積分點。
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傳統攪拌摩擦焊接熱源Fortran子程序和模型inp文件 ￥19.89
abaqus傳統攪拌摩擦焊接熱源Fortran子程序和模型inp文件
利用Abaqus用戶子程序實現制動盤熱分析中的熱源移動
在進行制動器熱分析時，若要分析整個制動過程或多次制動后的結果，直接采用接觸摩擦生熱的方式受到制動時間以及大位移接觸的影響，計算較困難，若采用結構靜態傳熱又無法實現隨制動盤的轉動熱源的移動。Abaqus中可通過對結構設置質量流率（MASS FLOW），采用熱傳導分析實現熱源移動。需要注意的是，MASS FLOW不支持CAE，需要通過關鍵字設置。下面以汽車制動盤熱分析說明整個過程及MASS FLOW的使用方法。
首先僅建立制動盤的模型即可，不需要制動片模型。如下圖所示：
分別設置制動盤的材料屬性，設置熱傳導分析步（Heat transfer）。邊界為初始溫度場，對流換熱、熱輻射等。載荷為表面熱流密度，施加在初始制動片與制動盤接觸的面積內。其中需要考慮熱流密度隨制動盤速度的變化，對流換熱系數隨速度的變化，以及對流換熱系數沿制動盤徑向的變化等。如下圖所示為熱流密度施加的區域。
接著設置質量流率（MASS FLOW），首先需要指定質量流率施加的區域，此模型中選擇制動盤的所有節點，將其設置為一個set，給定相應的name（后續將用到此set）。確認材料、分析步、邊界、載荷等設置正確后可輸出inp文件添加質量流率關鍵字或直接在CAE中添加關鍵字。
在step后添加關鍵字，如下圖所示。添加完成后保存inp文件。
接著是最關鍵的部分，質量流率需要使用用戶子程序實現，子程序中需要給出由制動盤速度變化引起的質量流率的變化，以及沿制動盤徑向的質量流率的變化，同時若為多次制動，需要區分制動、停止的過程，僅在制動過程施加質量流率。具體的用戶子程序如下所示:
用戶子程序
求解時調用此子程序計算即可。整個分析過程可看到熱源在制動盤上移動，計算后的溫度場結果如下圖所示。
來源：有限元在線的博客，版權歸作者所有。
展開 