Egison のテンソル添字記法で書いた偏微分方程式から、 Formura(村主崇行氏らによるステンシル計算 DSL)のソースを生成し、 MPI + temporal blocking つきの高速な C コードに落とすための実験リポジトリ。
表層言語は Formurae(フォーミュレ、拡張子 .fe)と名づけた。Formura のラテン語風複数形で、
formulae(数式)への掛詞 — 数式(formulae)をそのまま書けば Formura が走る。
Formura を設計した村主崇行氏への敬意を込め、氏の言語の名前を継いでいる。
.fe : Formurae — 表層言語(field 宣言+添字記法・微分形式・計量の方程式) ← 19例(全例)
↓ fec(薄い変換層、Haskell; cabal build)
Egison : 埋め込み形(テンソル添字記法、物理は2〜3行)
↓ 差分化コンビネータ(substitute による座標シフト)
↓ mathValue マッチャによる .fmr プリンタ
Formura : .fmr → C ライブラリ(MPI 通信・temporal blocking を自動生成)
↓
C コンパイラ + ドライバ → 実行
Formurae の Maxwell(全28行のうち物理部分)— 方程式は添字も成分もないベクトル方程式:
dimension 3
axes x, y, z
field E : vector
field B : vector
init:
E = [| 0, gauss1(i*dx), 0 |]
B = [| 0, 0, gauss1(i*dx) |]
step:
E' = E + dt * ∇ × B
B' = B - dt * ∇ × E' -- E' は更新済み配列への参照(symplectic・袖幅1)
微分形式版(maxwell_dec.fe)なら:
field E : 1-form
field B : 2-form
step:
E' = E + dt * delta B -- δ = ⋆d⋆(余微分)
B' = B - dt * d E'
assert-dd-zero E' -- d∘d=0 を CAS が確認しない限り生成しない
Unicode でもそのまま書ける(fec が Formura 向けに ASCII へ字訳する)。 トーラス上の熱方程式の幾何と物理は3行:
axes θ, φ, z
embedding [ `(2 + cos θ) * cos φ, `(2 + cos θ) * sin φ, sin θ, z ]
u' = u + dt * Δ u
Δ はモデルの幾何のラプラシアン(計量下では Laplace–Beltrami)。
基本演算子だけでも書ける: ∂x (∂x u) は compact な2階差分に融合し、
u' = u - dt * δ (d u) は −δd 形の熱方程式 — いずれも生成コードは
名前つき演算子版とバイト一致。
Maxwell 方程式の場合、Egison 側の物理記述はこれだけ:
def E_i := generateTensor (\[i] -> function (x, y, z)) [3] -- E はベクトル場(1行)
def B_i := generateTensor (\[i] -> function (x, y, z)) [3]
def En_i := withSymbols [i] E_i + dt * (curl B_#)_i -- E' = E + dt ∇×B
def Bn_i := withSymbols [i] B_i - dt * (curl En_#)_i -- B' = B − dt ∇×E'
curl はライブラリ内の1行定義(Levi-Civita テンソルとの Einstein 縮約):
def curl (X: Vector MathValue) : Vector MathValue :=
withSymbols [i, j, k] (ε 3)~i~j~k . (dGrad X)_j_k
ここから6本の更新式が全自動で展開される(生成物の1本):
Ey' = Ey[i,j,k] + Bz[i-1,j,k]*dt/(2*dx) + (-1)*Bz[i+1,j,k]*dt/(2*dx)
+ (-1)*Bx[i,j,k-1]*dt/(2*dz) + Bx[i,j,k+1]*dt/(2*dz)
前提: GHC 9.6 系 + stack(Formura 用)、../egison に Egison 開発ツリー
(インストール済みの egison バイナリは同梱数学ライブラリが古いため不可)。
MPI は不要(1ランク用スタブ mpistub/mpi.h を同梱。実 MPI があればそちらでも可)。
make setup # Formura 2.3.2 を clone + GHC 9.6 パッチ適用 + ビルド → bin/formura
cabal build # Formurae コンパイラ fec をビルド(base のみ; make が cabal run 経由で使う)
make diffusion3d # .fe → fec → Egison → Formura → cc → 実行(質量保存を検査)
make maxwell3d # 同上(エネルギー保存・伝播を検査)| パス | 内容 |
|---|---|
fec/ + fec.cabal |
Formurae コンパイラ: 表層言語 Formurae(.fe;field E : vector・E' = E + dt * curl B・B' = B - dt * d E')を埋め込み形 .egi に変換。Haskell(base のみ)、リポジトリ直下で cabal build / cabal run -v0 fec -- model.fe。意味論は Egison 側に一本化した薄い変換層 |
lib/fmrdsl.egi |
DSL v0: 宣言的モデル記述層(emitModel が preamble・宣言・init/step 雛形・出力タプルを場リストから自動生成) |
lib/fmrgen.egi |
生成ライブラリ: shift/dC/dC2/lap/dGrad/curl/divg + taylorStencil/dTaylor(Taylor 条件を厳密有理ガウス消去で解いて任意次数の差分係数を導出) + .fmr プリンタ |
examples/diffusion3d/ |
3D 拡散方程式(物理は u' = u + dt * κ * Δ u の1行) |
examples/maxwell3d/ |
Maxwell 方程式(E・B がベクトル場の添字方程式2本+宣言的 emitModel — DSL v0 様式。ε 縮約 curl、collocated 格子) |
examples/maxwell3d_yee/ |
Yee-FDTD(E=辺・B=面のスタガード格子+leapfrog。場ごとの配置オフセット宣言から教科書どおりの FDTD を生成) |
examples/maxwell_dec/ |
Maxwell(微分形式/DEC)(E=1-form・B=2-form の次数宣言だけで Yee 配置を導出。d∘d=0 を CAS が生成時に検査し、.fmr は手書きスタガー版 maxwell3d_yee とバイト一致) |
examples/pearson3d/ |
Formura 論文の看板シミュレーション再現(菌根菌 mycorrhiza の Pearson 反応拡散系。FHPC'16 と同じ方程式・パラメタ。自己複製スポットパターンが創発) |
examples/burgers3d/ |
Burgers 方程式(Cole–Hopf 厳密解と直接比較 — 非線形項生成の機械検証) |
examples/cahnhilliard3d/ |
Cahn–Hilliard(4階微分を中間場 μ の2段構成で。質量は reduces 経由で監視) |
examples/tdgl3d/ |
TDGL 超伝導(|ψ|⁴ 理論。量子化渦の自発形成) |
examples/mhd_ot/ |
理想 MHD: Orszag–Tang 渦(保存形+Rusanov 流束を中間流束場19本で生成。8保存量を reduces で監視) |
examples/elastic3d/ |
弾性波(Virieux)(.fe の Einstein 添字記法2行: v'~i = v~i + (dt/ρ0) * ∂_j s~i_j と s'~i_j = … λ * δ~i_j … ∂_i v'~j …。繰り返し添字は自動総和(上付き ~i と下付き _i は併用可)、@ staggered 宣言で ∂_a が対象配置アンカーの半セル差分に = Virieux 格子を導出。P/S 両波速を1回で実測) |
examples/metric_torus/ |
計量つき拡散(トーラス上の Laplace–Beltrami)(.fe の embedding [...](座標系の埋め込み)だけから CAS が計量 g_ab=∂X·∂X を導出・直交性を記号検査・h_a=√g_aa → hodge 因子の係数場・半セル評価・保存流束まで自動。物理は u' = u + dt * Δ u の1行(Δ は計量下で自動的に Laplace–Beltrami; u - dt * δ (d u) とも書ける)。metric scale 直接指定も可) |
examples/kleingordon/ |
非線形 Klein–Gordon(φ⁴ キンク)(leapfrog 2場。ブーストした kink–antikink 対で速度と相対論的エネルギーを実測) |
examples/shallowwater/ |
浅水方程式(保存形+人工粘性。重力波速 √(gh) を実測、質量は流束形式で厳密保存) |
examples/lbm_d3q19/ |
格子ボルツマン D3Q19(19方向の衝突・ストリーミング・平衡分布 init を全部 Egison の map で生成。BGK 粘性を解析値と照合) |
examples/acoustic3d/ |
線形音響(p–v スタガード)(Virieux のスカラー縮約。インピーダンス整合パルスで音速を実測) |
examples/euler_sod/ |
圧縮性 Euler: Sod 衝撃管(保存形+LF 粘性。周期格子用の二重ダイアフラム構成で厳密 Riemann 解と L1 比較) |
examples/ks3d/ |
Kuramoto–Sivashinsky(時空カオス)(4階微分は中間場 w=∂²u の2段構成。参照実装との一致とアトラクタ統計で検証) |
examples/highorder4/ |
4次精度スキーム自動導出(係数はソースに書かず taylorStencil が導出。離散シンボルと機械精度一致+h⁴ 残差則を検証) |
examples/dirichlet_diffusion/ |
Dirichlet 壁の拡散(fork の boundary: [fixed 0.0, …] を使う最初の例。壁つき離散固有モードの厳密減衰 (1+λdt)ⁿ を機械精度で再現) |
examples/polar2d/ |
極座標の円環(平坦)(embedding から教科書の極座標 Laplacian を導出 — 曲率 0 でも座標は曲がっている対照例。参照 5.6e-16・保存 1.1e-15) |
examples/spherical3d/ |
球座標の球殻(3D)(全3軸非自明: g=diag(1,(1+r)²,(1+r)²sin²θ) を embedding から導出、r・θ の2軸 mirror 壁。3D 参照実装と 4.4e-16・保存 4.2e-15) |
examples/metric_sphere/ |
球面の帯(正曲率)(.fe の embedding から g=diag(1, sin²θ) を CAS 導出、θ 壁は mirror。参照実装と 5.6e-16・Σ√g·u 保存 3.6e-15) |
examples/hyperbolic/ |
双曲平面 Poincaré 半平面(負曲率 −1)(ℝ³ 埋め込み不可なので metric scale [1/(1+y), 1/(1+y), 1] 直接指定。参照実装と 6.7e-16・保存 9.8e-16) |
formura-patch/ |
Formura 2.3.2 → GHC 9.6.7 移植パッチ(6ファイル) |
mpistub/mpi.h |
1ランク実行用 MPI スタブ(自己メッセージを FIFO マッチング) |
setup.sh / Makefile |
ビルドとエンドツーエンド実行の自動化 |
figures/ |
論文図版のデータ生成(gen.sh → out/*.dat: Yee パルス断面・エネルギー時系列4種) |
gallery/ |
全応用例の可視化ギャラリー(gen.sh → tools/render.py → index.html。外部ライブラリ不要 — PNG/SVG を標準ライブラリだけで生成。ブラウザで gallery/index.html を開く。各カードの Egison/Formura 全文は tools/embed_src.py が再埋め込み) |
gallery/usage.html |
使い方ガイド(セットアップ → チュートリアル → .fe/yaml リファレンス → 検証ドライバの書き方 → 3層構造の考え方。ブラウザで開く) |
gallery/dsl/ |
Formurae ギャラリー(.fe 全19例。各カードは .fe → 中間 .egi → 生成 .fmr の3段表示。移行は .fmr 比較(バイト一致 or 整形差のみ)+全チェックで検証) |
DSL-DESIGN.md |
Formurae 設計メモ(痛点 → v0 埋め込み層 → v1 表層構文のロードマップと実装記録、命名の経緯) |
APPLICATIONS.md |
応用カタログ(16 テーマ: MHD・弾性波・LBM・Cahn–Hilliard 等、検証方法つき) |
UPSTREAM.md |
Formura 本体への拡張計画(GHC 移植 PR・TB バグ修正・境界条件・大域リダクション) |
DEVELOPMENT.md |
開発ノート(修正済みバグの事後解説) |
各 example の *.fmr は生成物だが、出力例として追跡対象にしている(make で再生成される)。
- 場の表現:
def u := function (x, y, z)(抽象関数)。格子参照はsubstitute [(x, x + hx)] uが生む未解釈適用u (x + hx) y zとして現れる。 - プリンタ: 正規化された数式を
mathValueマッチャ(poly/term/func/symbol)で分解し、 適用引数から(引数 − 座標)/hでオフセットを有理数として逆算してu[i+1,j,k]に写す。 半整数オフセット(1/2)も扱える。 - スタガード格子: 場を「(抽象関数, 配置オフセット σ∈{0,½}³)」の組で表し、参照時に
「変位 + 対象の σ − 参照場の σ」で配列オフセットを解決する(
yeeRef/dYee/curlYee)。 Yee 配置なら curl の全項が整数オフセット(袖幅1)に落ちる。 - 離散微分形式(DEC): 形式は「(複体, 次数, 成分)」の3つ組で、格子配置は複体と次数だけ
から決まる(primal: 0-形式=格子点、1-形式=辺、2-形式=面、3-形式=セル中心;dual は
(½,½,½) ずれた補複体)。演算は Egison 本体の連続版サンプル
(
sample/math/geometry/yang-mills-…: d・hodge・δ)と同じ構造・同じ名前:dForm(離散外微分 = grad/curl/div)、hodge(単位立方格子では成分不変の複体スワップ)、 そして余微分codiff(別名δ)は教科書どおりの合成 δ = (−1)^{n(k+1)+1} ⋆d⋆ で定義(2-形式では符号 +1 = Ampère の curl)。 d∘d=0 は CAS が文字どおり 0 に簡約することで成立が確認でき、これが生成された Yee スキームの div B 厳密保存の構造的理由になる。 - テンソル:
Vector MathValue等の型注釈でテンソルごと受け取り(λ⊗ のスカラー/テンソルパラメタ)、ε・generateTensor・添字縮約は Egison 標準ライブラリをそのまま使う。
- 拡散 3D(100³ 格子 × 100 step、temporal blocking 5): 実行 0.19 秒。 質量保存の相対誤差 6.4×10⁻¹³(機械精度)、ピーク 1.0 → 0.2385(正しい拡散減衰)。
- Maxwell(128×16×16、dt = 0.1dx、100 step、修正版コンパイラ): エネルギードリフト 4.8e-5・パルス伝播 +9.9 セル(理想 +10)。2ランク実 MPI ではパルスがランク境界を 完全に通過(送り側ランクは 1e-23 まで排出)し大域エネルギー保存 4.8e-5。 生成式は手計算の curl と符号・係数一致。
- Yee-FDTD(128×16×16、dt = 0.5dx、100 step、TB4): 実行 0.13 秒。 エネルギードリフト 0.10%、パルス伝播 +49.9 セル(理想 +50)、 div B ≡ 0(機械精度で恒等)。20行の 1D リファレンス実装とパルス位置が 全桁一致(113.68)。temporal blocking あり/なしがビット一致。
- Pearson 反応拡散(Formura 論文 Listing 1 の再現)(64³、dt = 200s、40,000 step、TB4):
実行 78 秒。FHPC'16 と同一の方程式・パラメタ(Fu=1/86400 等)。値は範囲内・NaN なし・
V コロニーが自己複製し、論文 Figure 7 と同じ Gray-Scott スポットパターンが創発。
物理の記述は2行で、
lapは拡散例と同一コンビネータ。 - Burgers(128×8×8、ν=0.05、5000 step、TB4): Cole–Hopf 厳密解と max 誤差 3.5e-5 (離散化誤差オーダー)。非線形積項 u·∂u の生成を解析解で機械検証。0.4 秒。
- Cahn–Hilliard(64×64×32、25,000 step): 質量(reduces 経由)12桁保存、 自由エネルギー単調減少、スピノーダル分解で c ∈ [−0.95, 0.96] まで相分離。128 秒。
- TDGL(128×128×4、4,000 step): バルク |ψ|² = 0.978 に飽和、渦芯 48 セル (min |ψ|² = 0.004)= 量子化渦の自発形成。3.6 秒。
- MHD Orszag–Tang(128×128×4、t=0.5、1250 step): 8 保存量の総和ドリフト ~1e-12(望遠鏡和により厳密)、divB = 1.2e-14(中心差分 induction が厳密保存)、 正値性維持(ρ_min=0.15、p_min=0.11)。物理記述 = 流束19行+更新8行。6 秒。
- 弾性波 Virieux(256×8×8、600 step、TB4): P/S パルスを同時発射し 測定 vp=1.990(厳密 2)・vs=0.995(厳密 1)、弾性エネルギードリフト 3.4e-4。 副産物: gpb < 2·s·nt の TB 構成が無警告で全零化する検証穴を発見 → 本体に検証追加。1.5 秒。
- 計量つき拡散(トーラス)(128×128、3,000 step): 計量 g = diag((2+cos θ)², …) から
√g・g^{ij} を CAS が記号導出し、係数場 ca/cb/sg の init 式(
cos((i*dx)+dx/(2))+2等) まで自動生成。独立に手書きした C リファレンスと max 差 3.3e-16(全桁一致)、 計量重みつき熱量 Σ√g·u のドリフト 2.5e-15(流束形式により厳密)、 最大値原理(reduces の umax↓・umin↑)成立。1.2 秒。 - Klein–Gordon φ⁴ キンク(256×8×8、800 step、TB4): v=±0.2 にブーストした kink–antikink 対を伝播。実測速度 ±0.1993(規定 ±0.2)、全エネルギーは相対論値 2γE_kink=1.92450 に対し 1.92242(偏差 0.11%)、leapfrog(kick–drift、更新済み w' を drift が参照するシンプレクティック形)によりエネルギードリフト 3.3e-7。0.7 秒。
- 浅水方程式(256×8×8、400 step): 静水面上の 1% バンプが左右の重力波に分裂。 実測波速 0.9989(厳密 √(gh₀)=1)、質量ドリフト 3.7e-14(流束形式)、 y 運動量は対称性によりビット厳密に 0 のまま。0.1 秒。
- 格子ボルツマン D3Q19(64×4×4、1,000 step): 19 方向の平衡分布・BGK 衝突・ ストリーミングの計 57 本の式を 速度集合リストへの map だけで生成(方向表と重み表が モデル定義の全て)。剪断波減衰から 実測 ν=0.10010(BGK 厳密値 (τ−½)/3=0.1、偏差 0.1%)、 質量ドリフト 4.8e-14、横方向速度 ≤4.5e-16。19 出力が全て異なるステンシルオフセットを持つため、 fork で修正した混在オフセット誤コンパイルの回帰テストにもなっている。0.2 秒。
- 線形音響(256×8×8、600 step、TB4): インピーダンス整合(p = Z·vx)の右進パルス。 実測音速 0.9957(厳密 √(K/ρ)=1)、音響エネルギードリフト 1.6e-4、 横速度 vy,vz はビット厳密に 0。0.1 秒。
- Euler: Sod 衝撃管(512×4×4、t=1.2): 保存形 3 変数+LF 粘性(全て流束形式)。 厳密 Riemann 解(p=0.30313, 衝撃波速 1.75215)と L1(ρ)=0.0255* で 衝撃波・接触不連続・膨張扇の3波構造を再現、質量/運動量/エネルギーの ドリフト ~1e-14、正値性維持。0.1 秒。
- 極座標の円環(64×128、2,000 step): 平坦な幾何を曲がった座標で。教科書の極座標 Laplacian が embedding から導出され、参照実装と 5.6e-16・Σr·u 保存 1.1e-15。
- 球座標の球殻(3D)(32×32×64、1,000 step): 全3軸が非自明な球座標。 r・θ の2軸に mirror 壁+φ 周期。独立 3D 参照実装と 4.4e-16・ Σr²sinθ·u 保存 4.2e-15・最大値原理成立。
- 球面の帯(64×128、2,000 step): 埋め込みだけから CAS が導出した Laplace–Beltrami、 mirror 壁(Neumann)+周期 φ。独立参照実装と 5.6e-16・Σ√g·u 保存 3.6e-15・ 最大値原理成立 — 計量と境界条件の合わせ技の最初の例。
- 双曲平面(Poincaré 半平面)(128×64、5,000 step): 曲率 −1 の真の非ユークリッド幾何。
Δ_H² = y²(∂xx+∂yy) を
metric scaleから導出。参照実装と 6.7e-16・保存 9.8e-16。 - Kuramoto–Sivashinsky(L=22、64 格子、600,000 step = t=90): Lyapunov 時間内 (t=5)は独立参照実装と max 差 3.6e-14、その後は時空カオスへ — アトラクタ統計(rms=0.916 ∈ [0.8,2.2]、|u|max=1.81 有界)で検証。 保存形の非線形項+望遠鏡和により Σu ドリフト 5.4e-12(60万 step 後)。7 秒。
- 4次精度スキーム自動導出(64×8×8、100 step): 5点係数 (−1/12, 4/3, −5/2, 4/3, −1/12)
はソースのどこにも書かれておらず、
taylorStencil 2 [-2..2]が Taylor 条件の連立を 厳密有理数のガウス消去で解いて導出(.fmr ヘッダに導出値をコメント出力)。単一 Fourier モードの振幅比が導出ステンシルの厳密離散シンボル (1+λ₄dt)ⁿ と 4.4e-16 で一致、 残差 |λ₄+k²| = 4.17e-3 は4次理論値 k⁶h⁴/90 = 4.23e-3 の 98.6%(2次の 1/49)。0.1 秒。 - Maxwell 微分形式版(DEC): E を 1-form、B を 2-form として d と ⋆d⋆ で記述。 配置情報は一切書かず、形式の次数から Yee 格子が出る。生成 .fmr は手書きスタガー版と バイト一致、生成は d(dE')=0 の CAS 検査に合格した場合のみ実行される。
- Dirichlet 壁の拡散(64×8×8、5,000 step): yaml の
boundary: [fixed 0.0, periodic, periodic]だけで冷壁つき拡散に(物理は周期版と同じ1行)。ゴースト壁つき離散固有モード sin(π(i+1)/65) の厳密減衰 (1+λdt)ⁿ を 6.8e-14 で再現、モード純度 1.2e-15 (アンカー経路はドリフトなし=生添字がそのまま物理座標)。0.1 秒。
- 境界条件: Formura 2.x は実質周期境界のみ。物理境界は方程式内のマスクかドライバ側で扱う。
- 大域リダクションなし: CFL による動的 dt などは書けない(固定 dt)。
- プリンタの対応範囲は「多項式 + 格子参照 + 記号」。extern 関数適用や if 式は未対応 (現状 init はテンプレート文字列で記述)。
- ドライバの注意: Formura は
Formura_Forwardのたびに配列内でデータを平行移動させる ことがある(仕様。特に非対称ステンシルで毎ステップずれる)。座標が要る計測・出力は 必ずto_pos_x/y/zを使うこと。生の配列添字で位置を測ると伝播速度を誤る (maxwell_yee_check.c で実際に踏んだ罠)。
brew install open-mpi で mpicc/mpirun が入る。生成 C は
mpicc -O2 -std=c11 -o check main_check.c diffusion3d.c -lm でそのままコンパイルでき、
1ランクなら ./check の直接起動(シングルトンモード、mpirun 不要)で動く。
複数ランクは Homebrew の Open MPI 5.0.9 + 新しめの macOS だと mpirun(PRRTE)が
hwloc のトポロジ検出で segfault するため、合成トポロジで回避する:
HWLOC_SYNTHETIC="core:8 pu:1" mpirun --map-by slot --oversubscribe -n 2 ./check(2ランクにするときは yaml の mpi_shape を [2,1,1] 等にして formura から再生成する。)
2019 年の v2.3.2(GHC 8.4.3 / lts-12.13)からの変更は3点だけ:
- lattices-2:
MeetSemiLattice廃止 →Latticeインスタンス化(3箇所、\/はスタブ) - GHC 9.x の TH スプライス可視性規則:
mmInstTailsをmakeLenses ''Nodeの後方へ移動 CompilerMonadにMonadFailを deriving 追加
ほかに resolver を lts-22.44 へ、未使用の sbv 依存を削除。Formura は MIT ライセンス。
- Formura 本体への境界条件(mirror/fixed)と大域リダクションの実装(UPSTREAM.md ④⑤)
- その後 APPLICATIONS.md の推奨順で応用拡充(まず MHD Orszag–Tang)
- λ⊗ 型システムによる生成前の添字整合性検査(「連続の数式からの検証つきコード生成」)
- HPC 環境での複数ノード計測
- 上流への PR(GHC 9.6 移植・誤コンパイル修正)は全タスク完了後に一括提出予定
MIT ライセンス(LICENSE)。土台とする Egison も Formura も MIT。
vendor/ 以下の Formura(© 2015 Takayuki Muranushi)は各自のライセンスに従う。