ホーム / 計算結果の抽出 / CGogh / 関数 / IntegralAtBody

IntegralAtBody関数

定義

IntegralAtBody(Index() As Long, Func As Long, Result As CComplex) As Boolean

戻り値

True		成功
False		失敗

引数

Index()		積分を行うソリッドボディのインデックス配列
		インデックスは、Gogh画面のツリー又は、Bodyピック時のツールチップに表示されています。参照図
Func		積分値を計算する被積分関数のアドレス（アドレス取得法）
		アドレスとはプロシージャーを識別する整数値です。 積分Subプロシージャ例はこちら
Result		積分結果

解説

指定したソリッドボディで、被積分関数で計算される値の積分を行います。

実行例

Dim Femtet As New CFemtet
Dim BodyArray(0) As Long  
Dim Result As New CComplex

'プロジェクトを開く
If Femtet.LoadProject("C:\test\test.femprj", True) = False Then
    Femtet.ShowLastError
End If

'計算結果を開く
If Femtet.OpenPDT("C:\test\test.pdt") = False Then
    Femtet.ShowLastError
End If

'積分するBodyの設定
BodyArray(0) = 0

'積分
If Femtet.Gogh.IntegralAtBody(BodyArray, AddressOf IntegralSub, Result) = False Then
    Femtet.ShowLastError
End If

'結果表示
MsgBox Result.Real, vbInformation, "Real"
MsgBox Result.Imag, vbInformation, "Imag"