８．２ 数値積分 （１）どんなときに数値積分を行うのか？

Presentation on theme: "８．２ 数値積分 （１）どんなときに数値積分を行うのか？"— Presentation transcript:

1 ８．２ 数値積分 （１）どんなときに数値積分を行うのか？
関数の形が分かっていないとき 　　　（実際の測定データや観測データ） 解析的に不定積分を求めることが 　 不可能／困難なとき 工学的には， 不定積分の関数形が分からなくても， 多少の誤差があっても 数値的な定積分を求めれば良いことが多い。

2 （２）定積分の定義 または のとき いま， や を求めることができないケースであるから， 次のような定義を使う。 ここで，
等間隔で分割することにすれば，

3 定積分の定義の図 y ξi ・・・ x a b Δxi

4 ただし，ｎを無限大にできない。 したがって，以下の式で我慢する 　　　　（多少の誤差は無視する） ただし，

5 例題 次の定積分の近似値を求めよ。 ただし，近似式は以下のとおりとする。 ここで

6 1行目に見出し，「ΔＸ」，「Ｘ」，「Ｙ」，「単純積分」を設定 Ａ２にΔＸの値（ここでは0.05）， Ｂ２にＸの初期値（ここでは0）を設定
操作方法（１） 1行目に見出し，「ΔＸ」，「Ｘ」，「Ｙ」，「単純積分」を設定 Ａ２にΔＸの値（ここでは0.05）， 　 Ｂ２にＸの初期値（ここでは0）を設定 Ｂ３に“=”をキーインし，Ｂ２を選択 ついで“＋”をキーインし，Ａ２を選択 最後に[ENTER]キーを押す ② ① ③，④，⑤

7 すなわち「Ａ＄２」に変更して，[ＥＮＴＥＲ]キーを押す
操作方法（２） Ｂ３の「＝Ｂ２＋Ａ２」の「Ａ２」を絶対指定， 　 すなわち「Ａ＄２」に変更して，[ＥＮＴＥＲ]キーを押す ＄入力 [ENTER]キー

8 操作方法（３） Ｂ３を選択して，右ボタンクリック 「コピー」を選択する。

9 操作方法（４） コピー先を選択して，右ボタンクリック 「貼付け」を選択する。

10 操作方法（５） Ｂ列の小数点以下桁数を合わせ， 無駄な行を削除（0.00から0.35までを有効）

11 操作方法（６） Ｃ２を選択し，「=sin(B2)/exp(B2)」を入力し， 最後に[ENTER]キーを押す

12 操作方法（７） Ｃ２を，Ｃ３からＣ９にコピー Ｃ２で右ボタンクリック コピー先を選択して 右ボタンクリック

13 操作方法（８） Ｄ２を「＝Ｃ２」とする

14 操作方法（９） Ｄ３を「＝Ｄ２＋Ｃ３＊Ａ＄２」とする

15 操作方法（１０） Ｄ３をＤ４からＤ９にコピー

16 操作方法（１１） 小数点以下桁数を揃える。 以下の結果から約0.05であることが分かる。

17 ｎを大きく（ΔＸを小さく）すると 精度が良くなる

18 （３）台形の公式 ｎを変えないで精度を良くするひとつの方法

19 次のように定義しよう

20 結果例

21 トーマス・シンプソンってどんな人？ (Thomas Simpson, 1710.8.20-1761.5.14)
イギリスのライチェスターシャー、マーケット・ボスワース生まれ ウーリッジ陸軍大学校教授。 ロンドン王立協会会員(1746)。 ［業績］ 数値積分のシンプソン則 ド・モアヴル流の確率論 πの計算．　

22 （４）シンプソンの公式：放物線で近似する方法（１）
点 に対して，次の式で近似する。 とすると これらを解いて

23 放物線で近似する方法（２） したがって

24 放物線で近似する方法（３） 区間１ 区間2 f(x) 放物線近似 放物線近似 y0 y1 y2 y3 y4 S1 S2 x x0 x1 x2
区間1のt －h h 区間2のt －h h

25 比較するための式定義

26 VBAによる表現①ボタンのClickイベントハンドラ，関数値設定
Private Const B_max = 1 Private Const B_min = 0 Sub ボタン2_Click() MsgBox "単純積分 = " & 単純積分() MsgBox "台形の公式 = " & 台形の公式() MsgBox "シンプソンの公式 = " & シンプソンの公式() End Sub Function Fx(X) As Double Fx = 1 / (1 + X) End Function

27 VBAによる表現③単純数値積分，台形の公式
Function 単純積分() As Double DX = (B_max - B_min) / 20 S = 0: X = B_min For i = 1 To 20 S = S + DX * Fx(X) X = X + DX Next 単純積分 = S End Function Function 台形の公式() As Double DX = (B_max - Bmin) / 20 S = 0: X1 = B_min For i = 1 To 19 X2 = X1 + DX S = S + DX * (Fx(X1) + Fx(X2)) / 2 X1 = X2 台形の公式 = S

28 VBAによる表現④シンプソンの公式 Function シンプソンの公式() As Double
DX = (B_max - B_min) / 20 S1 = Fx(B_min) + Fx(B_max) X1 = B_min + DX S2 = 0 For i = 1 To 10 S2 = S2 + Fx(X1) X1 = X1 + DX * 2 Next S3 = 0 X1 = B_min For i = 1 To 9 S3 = S3 + Fx(X1) S = DX * (S1 + 4 * S2 + 2 * S3) / 3 シンプソンの公式 = S End Function

29 （５）ガウスの数値積分法 ルジャンドルの多項式
ルジャンドル（Legendre）の多項式は次の漸化式で定義される

30 ガウス・ルジャンドル多項式の性質 ①次数が異なる２つのルジャンドル関数は相関がない。したがって，次の式が成立する。
②n 次のルジャンドル多項式 は，n -１次の一般的な と相関がない。したがって，次の式が成立する。 多項式 ③ルジャンドル方程式の根は，すべて実数である。

31 ちょっと横道にそれて ルジャンドルってどんな人？
フランスの数学者。 主な功績：統計学，数論，代数学，解析学 ルジャンドルの仕事が元になって， アーベルの楕円関数論， ガウスによる統計学や数論の研究に 受け継がれている。 1752/9/ /1/10 Adrien-Marie Legendre

32 ガウス・ルジャンドルの公式 数式が分かっている場合， 分割点は最適な結果が得られるように決定すればよい。
この分割点を積分点またはガウス点という。 基本式（ガウス・ルジャンドルの公式）

33 積分区間の拡張 積分区間は だが，次の変換を行うことで， 任意の積分区間に拡張できる。

34 ガウス・ルジャンドルの公式による数値積分
積分点としてルジャンドル多項式が 0（根）となるような点を選択し， 右表の係数を用いて計算する。 １ １ ２ 2 １ １ 5/9 ３ 2 8/9 3 5/9 １ 2 ４ 3 4 １ 2 ５ 3 4 5

35 ＶＢＡによる記述① Private Const M = 5 Private Const B_max = 1
Private Const B_min = 0 Private Ci(M) As Double Private ti(M) As Double Sub 積分係数設定() ti(1) = : Ci(1) = ti(2) = : Ci(2) = ti(3) = 0: Ci(3) = ti(4) = -ti(2): Ci(4) = Ci(2) ti(5) = -ti(1): Ci(5) = Ci(1) End Sub Function Fx(X) As Double Fx = 1 / (1 + X) End Function

36 ＶＢＡによる記述② Function ガウス積分() As Double M1 = (B_max - B_min) / 2
M2 = (B_min + B_max) / 2 S = 0 For i = 1 To M X = M1 * ti(i) + M2 S = S + Ci(i) * Fx(X) Next ガウス積分 = S * M1 End Function Sub ボタン1_Click() 積分係数設定 MsgBox ガウス積分() End Sub

37 二重積分への拡張（１） 積分領域が長方形や直方体であるような二重積分や三重積分に拡張することができる。 二重積分の式 二重積分 を考える。
積分区間が になるように変換する

38 二重積分への拡張（２） 以上から次のように変換できる。 以下，三重積分も同様に変換できる。

39 演習 （１）次の積分について台形の公式で数値積分を行うプログラムを作成せよ。ただし，分割数は２０とする。
（２）上記（１）の積分についてシンプソンの公式で数値積分を行うプログラムを作成せよ。同様に分割数は２０とする。 （３）上記（１）の積分についてガウスルジャンドルの公式を用いて数値積分を行うプログラムを作成せよ。ただし，Ｎ＝３とする。

40 演習 （４）翼の長さに沿って均一に浮力が加わっている時の 翼の変位は，次の式で表現される。 ：浮力 ：翼の弾性係数 ：翼の慣性モーメント
が次の式で多項式で与えられるものとして，翼の変位を求めよ。 ただし とする。