資料請求番号：SH43
シンプソン法は手軽に行えてかつ、精度の高い積分の計算アルゴリズムとして多くの工学系学生やエンジニアに支持されています。
本記事では、このシンプソン法をVBAマクロに実装し、積分計算を行いました。
その備忘録を、実際のソースコードと共に記します。
シンプソン法は積分したい関数を二次関数の集合体と考え、二次関数の積分をm回行うことで、任意の関数の積分ができるようになる。
という思想のもと開発されました。
シンプソン法の詳細はこちら！
基本から詳しく説明しています！
| 資料請求番号：TS31 TS38数値計算による積分計算の基本～Simpson法～積分の計算は高校生までは紙とペンを使用し、様々な積分テクニック（置換積分・部分積分など）を駆使して行っていきます。大学の初年度に上がると重積分を学習しますが、これも紙とペンを使って問... 数値計算を使って積分の計算を行う～シンプソン法の解説～ - らい・ぶらり |
今回は、ソースコードが主役なので、シンプソン法の理論に関する詳しい勉強は上のページでお願いします。
| 資料請求番号：SH45Excelマクロの始め方 まとめ本記事では、まだ一度もExcelマクロに触れたことのない人向けに、Excelマクロの始め方とExcelマクロを使用する上での最低限の知識と文法を記したいと思います。マクロを始めようなぁ、シママ、最近・・・っーつか、研... 初めてのExcelマクロVBA - らい・ぶらり |
| 資料請求番号：SH45VBAマクロで自分の関数を定義して自由に呼び出しできるようにするVBAプログラミングを行っていると、何度も同じ式を記述して計算する場面が出てきます。このとき、何度も同じ式を記述すると可読性が悪くなる（複雑な式であれば特に）ので、式の記... 【Excel マクロ VBA】Functionプロシージャの使い方を学んで関数を定義する - らい・ぶらり |
/* —-Simpson Method———- */
Public mu, sigma, pi As Double
Sub simpson()
Dim a, b As Double
Dim m As Double
Dim h As Double
Dim S As Double
Dim k As Integer
‘Calculation properties
a = Cells(1, 3)
b = Cells(2, 3)
m = Cells(3, 3)
h = (b – a) / (2 * m)
Cells(4, 3) = h
‘Constants
mu = Cells(5, 3)
sigma = Cells(6, 3)
pi = Cells(7, 3)
‘ZeroSet
S = 0
Cells(2, 5) = a
Cells(2, 6) = F1(a)
Cells(2, 7) = S * h / 3
‘*********roop*********
For k = 1 To m
‘Simpson roop
S = S + F1(a + (2 * k – 2) * h) _
+ 4 * F1(a + (2 * k – 1) * h) _
+ F1(a + 2 * k * h)
‘Graphic roop
Cells(k + 2, 5) = a + 2 * k * h
Cells(k + 2, 6) = F1(a + 2 * k * h)
Cells(k + 2, 7) = S * h / 3
‘Calculation Condition
Cells(11, 2) = k
Cells(11, 4) = m
‘Result
Cells(13, 3) = S * h / 3
Next k
‘*********roop end*********
End Sub
Function F1(ByVal x As Double) As Double
F1 = (2 * pi * sigma) ^ (-0.5) * Exp(-(x – mu) ^ 2 / (2 * sigma))
End Function
/* —————————– */
| 資料請求番号：TS35偏差値は統計に基づいた指標であるメリークリスマスでございます。世の中の人々が現を抜かしている中、受験生は勉強に勤しんでいるかと思います。センター試験も近づいてきましたね。今回は、偏差値のお話をしたいと思います。偏差値。それは受験... 偏差値の計算方法～統計学から見た偏差値の考え方～ - らい・ぶらり |
Function F1(ByVal x As Double) As Double
F1 = (2 * pi * sigma) ^ (-0.5) * Exp(-(x – mu) ^ 2 / (2 * sigma))
End Function
いやぁ～。これは助かるよ！ありがとう！
いえいえ～！！
このVBAのソースコードを使って、関数の積分が解けると思うから、ぜひコピペして色々試してみてね！
なぁなぁ。この動画知りよるん？
出典：はなおさん 「東大生の店員に理系風に注文したら、賢すぎて返り討ちにされました。東大理三恐るべし、、、」
積分サークル主催のイベントについて。3:45あたりから。
出典：はなおさん 「YouTubeバレて阪大に呼び出されました。。。」
当たり前じゃない！このワタシがちょっと関数形変わっただけで使えなくなるプログラム書くと思う？
出典：はなおさん 「積分サークルの入部テストがヤバい。」
今回はシンプソン法による積分の計算をVBAでやってみましたという内容の備忘録でした。