基本形は dielectrics01a.pde と変わりません。
TITLE
'Parallel Plate Capacitor' {
dielectrics01b.pde }
SELECT
Errlim = 3e-4
VARIABLES
U
{ Electric potential }
偏微分方程式の定義に先立ち、パラメータ類をSI単位系で定義します。この段階ではデフォルト値の意味で ε = ε0 と設定していますが、誘電体のリージョン内においては ε = 7.0ε0 という形でパラメータ値の変更を行います。なお、結果の検証用に平行板コンデンサの容量を計算する数式 cap_ex を定義しておきます。この数式はElevationプロット中で使用されます。
DEFINITIONS
{ SI units }
L = 1 xx = 0.25 d0 = 0.1 dd0 = 0.4*d0
U0 = 1.0e4 { Voltage }
eps0 = 8.854e-12 { Permittivity of vacuum }
eps = eps0 { Permittivity, default }
Ex = -dx(U) Ey = -dy(U) E = -grad(U) Em = magnitude(E)
D_x = eps*Ex D_y = eps*Ey D = eps*E Dm = magnitude(D)
{ Dielectric displacement }
cap_ex = 7.0*eps0*(2*xx)/(2*d0) { Theoretical capacitance }
次に方程式を定義します。
解析対象のドメインからは上下の金属板はexcludeされている点に注意してください。このドメイン内において真電荷は存在しないので右辺は0となります。
EQUATIONS
div(D) = 0
{ No total charge }
境界の形状と境界条件を設定します。上下の金属板は解析対象ドメインから除外されます。
一方、誘電体部分は別個のリージョンとして定義し、固有の誘電率を設定します。
BOUNDARIES
Region 1
Start 'outer' (-L, -L) Natural(U) = 0
{ Outer boundary }
Line to (L, -L) to (L, L) to (-L, L)
to Close
Start 'upper' (-xx, d0) Value(U) = U0
{ Upper plate }
Line to (xx, d0) to (xx, d0 + dd0) to
(-xx, d0 + dd0) to Close
Start 'lower' (-xx, -d0 - dd0) Value(U) =
0.0
{ Lower plate, ground }
Line to (xx, -d0 - dd0) to (xx, -d0)
to (-xx, -d0) to Close
Region 'glass' eps = 7.0*eps0 { Dielectric
}
Start (-xx, -d0) Line to (xx, -d0) to (xx,
d0)
to (-xx, d0) to Close
最後に出力すべき情報を規定します。
PLOTS
Grid(x, y)
Contour(U)
Vector(D) norm
Contour(Dm) Surface(Dm)
Contour(Dm) log
Contour(Dm) painted on 'glass'
Elevation(D_y) from (-L, 0) to (L, 0)
Report(cap_ex) as 'Theoretical capacitance'
END |