ｆ１ - プログラム倉庫

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 f As Single
Dim a(0 To 10) As Single
Dim b(0 To 10) As Single
pi = 3.1415
f = 10
h = 2 * pi / 100
For n = 0 To 10
z = 0
For m = 0 To 99
x = m * h
z = z + f * 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 * 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, y
Next


End Sub