prou - プログラム倉庫

Private Sub Command1_Click()
Dim m As Single
Dim n1 As Single
Dim n2 As Single
Dim n3 As Single
Dim f1 As Single
Dim v1 As Single
Dim vs As Single
Dim h As Single
Dim f(1 To 10, -1 To 1, -1 To 1, -1 To 1) As Single
Dim v(1 To 10, -1 To 1, -1 To 1) As Single
Dim gotop(1 To 10, -1 To 1, -1 To 1) As Single
Dim op(1 To 10) As Single
Dim price(0 To 10) As Single
Dim pr(1 To 100) As Single
t1 = 0
Do Until t1 > 100
For m = 2 To 10
For n1 = -1 To 1
For n2 = -1 To 1
vs = -999
For nx = -1 To 1
f1 = f(m, nx, n1, n2)
v1 = f1 + v(m - 1, nx, n1)
If v1 > vs Then nxs = nx
If v1 > vs Then vs = v1
Next
gotop(m, n1, n2) = nxs
v(m, n1, n2) = vs
Next
Next
Next
vs = -999
For n1 = -1 To 1
For n2 = -1 To 1
If v(10, n1, n2) > vs Then nx1 = n1
If v(10, n1, n2) > vs Then nx2 = n2
If v(10, n1, n2) > vs Then vs = v(10, n1, n2)
Next
Next
op(9) = nx1
op(10) = nx2
For j = 1 To 8
m = 9 - j
op(m) = gotop(m + 1, op(s + 1), op(s + 2))
Next
For m = 1 To 10
price(m) = price(m) + op(m) * h
Next
e = 0
For s = 1 To 100
e = e + (pr(s) - p1) ^ 2
Next
For s = 1 To 100
pr(s) = p1
Next
If e < 1 Then t1 = 1000
Debug.Print t1, e
t1 = t1 + 1
Loop