ｆ２ - プログラム倉庫

Function f(x As Single) As Single
f = 5
End Function


Private Sub Command1_Click()
Dim pi As Single
Dim m As Single
Dim h As Single
Dim z As Single
Dim x As Single
Dim a(0 To 10) As Single
Dim b(0 To 10) As Single
pi = 3.1415
h = 2 * pi / 100
For n = 0 To 10
z = 0
For m = 0 To 99
x = m * h
z = z + f(x) * h * Cos(n * x)
Next
a(n) = z / pi
Next
For n = 1 To 10
z = 0
For m = 0 To 99
x = m * h
z = z + f(x) * h * Sin(n * x)
Next
b(n) = z / pi
Next
For j = 1 To 10
x = 0.1 * j
y = 0
For n = 1 To 10
y = y + a(n) * Cos(n * x) + b(n) * Sin(n * x)
Next
y = y + a(0) / 2
Debug.Print x, f(x), y
Next


End Sub