基本形は transient01a.pde と変わりません。
TITLE
'Transient Conduction in Cu/Fe' {
transient01c.pde }
SELECT
Errlim = 1e-4
VARIABLES
temp
{ Temperature }
DEFINITIONS
Lx = 1.0 Ly = 0.1
heat = 0
{ Heat source }
k rcp
{ Iron parameters }
fluxd_x = -k*dx(temp) fluxd_y = -k*dy(temp)
fluxd = vector(fluxd_x, fluxd_y) fluxd_m =
magnitude(fluxd)
tempi = 300 temp0 = 500
INITIAL VALUES
temp = tempi
EQUATIONS
div(fluxd) + rcp*dt(temp) = heat
以下のBOUNDARIESセクションにおいて、Region
1ではドメイン全体としての形状とデフォルトの材質特性を設定、Region
'copper'では銅の部分の範囲と固有パラメータの設定を行います。
BOUNDARIES
Region 1 k = 82 rcp = 7.87e3*449
{ Fe, default }
Start(0,0)
Natural(temp) = 0 Line to (Lx,
0) to (Lx, Ly) to (0, Ly)
Value(temp) = temp0 Line to
Close
Region 'copper' k = 400 rcp = 8.96e3*385
{ Cu }
Start(0,0)
Line to (0.2*Lx, 0) to (0.2*Lx, Ly)
to (0, Ly) to Close
TIME
from 0 to 10000
プロットを出力するタイミングは対数スケールを意識して設定します。
金属棒軸上における温度分布、及び熱流束密度ベクトルのx成分の値を各時点ごとにプロットします。
PLOTS
for t = 10, 30, 100, 300, 1000, 3000, 10000
Elevation(temp) from (0, Ly/2) to (Lx, Ly/2)
Elevation(fluxd_x) from (0, Ly/2) to (Lx, Ly/2)
次の指定は金属棒軸上の5点において温度が時間的にどう変化して行くかをHistoryプロットの形で出力させるものです。
HISTORIES
History(temp) at (0.1*Lx, Ly/2) at (0.2*Lx, Ly/2)
at (0.3*Lx, Ly/2) at (0.4*Lx, Ly/2)
at (0.5*Lx, Ly/2)
END |