文档介绍:这是一个含有n+1个未知数的、n-1个方程的线性方程组。要完全确定M的值还需要补充两个条件。
Dim X(1000) As Single, Y(1000) As Single
Dim u1(0 To 80000) As Single, v1(0 To 80000) As Single
Dim num As Long
Dim t As Integer
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dim de As Integer
Dim ToInit As Boolean
Dim DownX As Single, DownY As Single
Sub Drawposi(Index As Integer)
= 0
(0, Y(Index))-(1024, Y(Index))
(X(Index), 0)-(X(Index), 770)
End Sub
Function hypot(ByVal X As Single, ByVal Y As Single)
hypot = Sqr(X ^ 2 + Y ^ 2)
End Function
Sub MovePic(Index As Integer)
Dim i As Integer
X(Index) = Picture2(Index).Left + 4
Y(Index) = Picture2(Index).Top + 4
= "X: " + CStr(CInt(X(Index)))
= "Y: " + CStr(CInt(Y(Index)))
= QBColor(10)
For i = 0 To t - 1
= X(i) + 4
= Y(i) + 4
i
Next i
End Sub
Private mand1_Click()
Dim i As Long
' (0, 0)-(640, 550)
DrawWidth = 3
'If mand2_Click
'X(0) = 1
'Y(0) = 1
'X(t - 1) = 638
'Y(t - 1) = 548
= QBColor(10)
For i = 0 To t - 1
(X(i) - 1, Y(i) - 1)-(X(i) + 1, Y(i) + 1), QBColor(10), B
i
Next i