Portable, Extensible Toolkit for Scientific Computation/PETScの実践的な応用のソースを表示

== はじめに ==
本章では、PETScを実際の科学技術計算問題に適用した具体的な事例をさらに詳しく紹介します。実践的な問題を通じて、PETScの活用方法を深く学びます。取り上げる事例は以下の通りです。
# '''[[#流体力学シミュレーション|流体力学シミュレーション]]'''
# '''[[#構造解析|構造解析]]'''
# '''[[#最適化問題|最適化問題]]'''
# '''[[#データ同化|データ同化]]'''

== 流体力学シミュレーション ==

=== 問題設定 ===
流体力学シミュレーションでは、ナビエ-ストークス方程式を解いて流体の挙動を解析します。以下の方程式を解きます。
<math>
\frac{\partial \mathbf{u}}{\partial t} + (\mathbf{u} \cdot \nabla) \mathbf{u} = -\nabla p + \nu \nabla^2 \mathbf{u}
</math>
ここで、<math> \mathbf{u} </math> は速度場、<math> p </math> は圧力、<math> \nu </math> は動粘度です。

=== PETScによる解法 ===
PETScの非線形ソルバー（<code>SNES</code>）と時間ステッピングソルバー（<code>TS</code>）を使用して、ナビエ-ストークス方程式を解きます。

==== 例: 流体力学シミュレーションのコード ====
:<syntaxhighlight lang=c copy>
#include "petsc.h"
#include "petscsnes.h"
#include "petscts.h"

PetscErrorCode FormFunction(SNES snes, Vec U, Vec F, void *ctx) {
    // 非線形関数の実装
    Mat J;
    SNESGetJacobian(snes, &J, NULL, NULL, NULL);
    MatMult(J, U, F);
    return 0;
}

int main(int argc, char **argv) {
    PetscInitialize(&argc, &argv, NULL, NULL);

    SNES snes;
    TS ts;
    Vec U, F;
    Mat J;

    // 初期化と設定
    SNESCreate(PETSC_COMM_WORLD, &snes);
    TSCreate(PETSC_COMM_WORLD, &ts);
    VecCreate(PETSC_COMM_WORLD, &U);
    VecCreate(PETSC_COMM_WORLD, &F);
    MatCreate(PETSC_COMM_WORLD, &J);

    // 行列とベクトルの設定
    // ... (省略)

    // 非線形ソルバーの設定
    SNESSetFunction(snes, F, FormFunction, NULL);
    SNESSetFromOptions(snes);

    // 時間ステッピングの設定
    TSSetProblemType(ts, TS_NONLINEAR);
    TSSetRHSFunction(ts, NULL, FormRHSFunction, NULL);
    TSSetFromOptions(ts);

    // ソルバーの実行
    SNESSolve(snes, NULL, U);
    TSSolve(ts, U);

    // 終了処理
    SNESDestroy(&snes);
    TSDestroy(&ts);
    VecDestroy(&U);
    VecDestroy(&F);
    MatDestroy(&J);
    PetscFinalize();
    return 0;
}
</syntaxhighlight>

== 構造解析 ==

=== 問題設定 ===
構造解析では、弾性方程式を解いて物体の変形や応力を解析します。以下の方程式を解きます。
<math>
\nabla \cdot \sigma = \mathbf{f}
</math>
ここで、<math> \sigma </math> は応力テンソル、<math> \mathbf{f} </math> は外力です。

=== PETScによる解法 ===
PETScの線形ソルバー（<code>KSP</code>）を使用して、弾性方程式を解きます。

==== 例: 構造解析のコード ====
:<syntaxhighlight lang=c copy>
#include "petsc.h"
#include "petscksp.h"

int main(int argc, char **argv) {
    PetscInitialize(&argc, &argv, NULL, NULL);

    KSP ksp;
    Vec U, F;
    Mat A;

    // 初期化と設定
    KSPCreate(PETSC_COMM_WORLD, &ksp);
    VecCreate(PETSC_COMM_WORLD, &U);
    VecCreate(PETSC_COMM_WORLD, &F);
    MatCreate(PETSC_COMM_WORLD, &A);

    // 行列とベクトルの設定
    // ... (省略)

    // 線形ソルバーの設定
    KSPSetOperators(ksp, A, A);
    KSPSetFromOptions(ksp);

    // ソルバーの実行
    KSPSolve(ksp, F, U);

    // 終了処理
    KSPDestroy(&ksp);
    VecDestroy(&U);
    VecDestroy(&F);
    MatDestroy(&A);
    PetscFinalize();
    return 0;
}
</syntaxhighlight>

== 最適化問題 ==

=== 問題設定 ===
最適化問題では、与えられた制約条件下で目的関数を最小化または最大化します。以下の最適化問題を解きます。
<math>
\min_{\mathbf{x}} f(\mathbf{x})
</math>
ここで、<math> f(\mathbf{x}) </math> は目的関数です。

=== PETScによる解法 ===
PETScの最適化ツール（<code>TAO</code>）を使用して、最適化問題を解きます。

==== 例: 最適化問題のコード ====
:<syntaxhighlight lang=c copy>
#include "petsc.h"
#include "petsctao.h"

PetscErrorCode FormObjective(Tao tao, Vec X, PetscReal *f, void *ctx) {
    // 目的関数の実装
    Vec g;
    VecDuplicate(X, &g);
    VecNorm(X, NORM_2, f);
    VecDestroy(&g);
    return 0;
}

int main(int argc, char **argv) {
    PetscInitialize(&argc, &argv, NULL, NULL);

    Tao tao;
    Vec X;

    // 初期化と設定
    TaoCreate(PETSC_COMM_WORLD, &tao);
    VecCreate(PETSC_COMM_WORLD, &X);

    // ベクトルの設定
    // ... (省略)

    // 最適化ソルバーの設定
    TaoSetObjective(tao, FormObjective, NULL);
    TaoSetFromOptions(tao);

    // ソルバーの実行
    TaoSolve(tao);

    // 終了処理
    TaoDestroy(&tao);
    VecDestroy(&X);
    PetscFinalize();
    return 0;
}
</syntaxhighlight>

== データ同化 ==

=== 問題設定 ===
データ同化では、観測データと数値モデルを組み合わせて、システムの状態を推定します。以下の最適化問題を解きます。
<math>
\min_{\mathbf{x}} \| \mathbf{y} - H(\mathbf{x}) \|^2
</math>
ここで、<math> \mathbf{y} </math> は観測データ、<math> H(\mathbf{x}) </math> は観測演算子です。

=== PETScによる解法 ===
PETScの最適化ツール（<code>TAO</code>）を使用して、データ同化問題を解きます。

==== 例: データ同化のコード ====
:<syntaxhighlight lang=c copy>
#include "petsc.h"
#include "petsctao.h"

PetscErrorCode FormObjective(Tao tao, Vec X, PetscReal *f, void *ctx) {
    // 目的関数の実装
    Vec g;
    VecDuplicate(X, &g);
    VecNorm(X, NORM_2, f);
    VecDestroy(&g);
    return 0;
}

int main(int argc, char **argv) {
    PetscInitialize(&argc, &argv, NULL, NULL);

    Tao tao;
    Vec X;

    // 初期化と設定
    TaoCreate(PETSC_COMM_WORLD, &tao);
    VecCreate(PETSC_COMM_WORLD, &X);

    // ベクトルの設定
    // ... (省略)

    // 最適化ソルバーの設定
    TaoSetObjective(tao, FormObjective, NULL);
    TaoSetFromOptions(tao);

    // ソルバーの実行
    TaoSolve(tao);

    // 終了処理
    TaoDestroy(&tao);
    VecDestroy(&X);
    PetscFinalize();
    return 0;
}
</syntaxhighlight>

== 練習問題 ==
# '''流体力学シミュレーション''': 簡単な流れ（例: ポアズイユ流れ）をシミュレートするプログラムを作成してください。
# '''構造解析''': 梁の変形を解析するプログラムを作成し、変形状態を可視化してください。
# '''最適化問題''': 二次関数の最小化問題を解くプログラムを作成し、最適解を表示してください。
# '''データ同化''': 簡単なデータ同化問題を解くプログラムを作成し、推定結果を評価してください。

== まとめ ==
本章では、PETScを実際の科学技術計算問題に適用した具体的な事例を詳しく紹介しました。流体力学シミュレーション、構造解析、最適化問題、データ同化を通じて、PETScの実践的な活用方法を学びました。これらの事例を参考に、自身の問題にPETScを適用してみてください。
<!--
'''次章の予告''': 第X+6章「PETScのパフォーマンスチューニング」では、PETScプログラムの性能を最適化するための手法について解説します。並列計算の効率化やメモリ使用量の最適化について学びます。
-->

{{DEFAULTSORT:PETSCのはふおまんすちゆにんく}}
[[Category:PETSc|はふおまんすちゆにんく]]