f4 - プログラム倉庫

Function f(x As Single) As Single
f = 2 * x ^ 2
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 100) As Single
Dim b(0 To 100) As Single
pi = 3.1415
h = 2 * pi / 100000
For n = 0 To 100
z = 0
For m = 0 To 99999
x = m * h
z = z + f(x) * h * Cos(n * x)
Next
a(n) = z / pi
Next
For n = 1 To 100
z = 0
For m = 0 To 99999
x = m * h
z = z + f(x) * h * Sin(n * x)
Next
b(n) = z / pi
Next
For j = 1 To 100
x = 0.05 * j
y = 0
For n = 1 To 100
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