プログラム５ - プログラム倉庫

Function countb(bx As Single, bs As Single, h As Single) As Single
Dim zs As Single
Dim z1 As Single
Dim z2 As Single
Dim ct As Single
zs = (bx - bs) / h
z1 = Int(zs)
z2 = z1 + 1
ct = z1
If (zs - z2) ^ 2 < (zs - z1) ^ 2 Then ct = z2
countb = ct
End Function

Private Sub Command1_Click()
Dim m As Single
Dim n1 As Single
Dim n2 As Single
Dim n3 As Single
Dim q As Single
Dim qx As Single
Dim pp As Single
Dim h As Single
Dim u(2 To 9, -1 To 1, -1 To 1, -1 To 1) As Single
Dim b(2 To 9, -1 To 1, -1 To 1, -1 To 1) As Single
Dim fastu(-1 To 1, -1 To 1) As Single
Dim fastb(-1 To 1, -1 To 1) As Single
Dim fastv(-1 To 1, -1 To 1, -50 To 50) As Single
Dim endu(-1 To 1, -1 To 1) As Single
Dim endb(-1 To 1, -1 To 1) As Single
Dim endv(-1 To 1, -1 To 1) As Single
Dim v(2 To 9, -1 To 1, -1 To 1, -1 To 1, -100 To 100) As Single
Dim bx As Single
Dim bs As Single
Open "c:/m3.txt" For Input As #1
Do Until EOF(1)
Input #1, a1, a2, a3, a4
n1 = a1
n2 = a2
fastu(n1, n2) = a3
fastb(n1, n2) = a4
Loop
Close #1
For n1 = -1 To 1
For n2 = -1 To 1
For q = -50 To 50
fastv(n1, n2, q) = -999
Next
Next
Next
h = 0.01
For n1 = -1 To 1
For n2 = -1 To 1
bx = fastb(n1, n2)
bs = fastb(0, 0)
q = countb(bx, bs, h)
fastv(n1, n2, q) = fastu(n1, n2)
Debug.Print n1, n2, q
Next
Next

End Sub