Private Sub Command1_Click()
Picture1.Refresh
Picture2.Refresh
Picture3.Refresh
Mx = Text18.Text
Label8.Caption = Text18.Text
My1 = Text16.Text
My2 = Text17.Text
My3 = Text19.Text
Mx3 = Text20.Text
k1 = Text15.Text
k2 = Text8.Text
k3 = Text9.Text
k4 = Text10.Text
E1 = Text13.Text
E2 = Text14.Text
A1 = Text1.Text
A2 = Text11.Text
A3 = Text12.Text
B1 = Text2.Text
B2 = Text3.Text
C1 = Text4.Text
C2 = Text5.Text
D1 = Text6.Text
D2 = Text7.Text
F1 = 0
z = Mx / 2000
For t = 0 To Mx Step z
A4 = E2 * k1
B3 = A2 * k2
C3 = B2 * k3
D3 = C2 * k4
E2 = E2 - z * A4
A1 = (A1 * A2 + E1 * z * A4) / (A2 + z * A4)
A2 = A2 + z * A4
A1 = (A1 * A2 + F1 * z * A3) / (A2 + z * A3)
A2 = A2 + z * A3
A1 = (A1 * A2 - A1 * z * B3) / (A2 - z * B3)
A2 = A2 - z * B3
B1 = (B1 * B2 + A1 * z * B3) / (B2 + z * B3)
B2 = B2 + z * B3
B1 = (B1 * B2 - B1 * z * C3) / (B2 - z * C3)
B2 = B2 - z * C3
C1 = (C1 * C2 + B1 * z * C3) / (C2 + z * C3)
C2 = C2 + z * C3
C1 = (C1 * C2 - C1 * z * D3) / (C2 - z * D3)
C2 = C2 - z * D3
D1 = (D1 * D2 + C1 * z * D3) / (D2 + z * D3)
D2 = D2 + z * D3
X = t
Y = E1 * E2
X = (X * 2000 / Mx)
Y = 2000 - (Y * 2000 / My1)
Picture1.PSet (X, Y), QBColor(0)
Y = A1 * A2
Y = 2000 - (Y * 2000 / My1)
Picture1.PSet (X, Y), QBColor(9)
Y = B1 * B2
Y = 2000 - (Y * 2000 / My1)
Picture1.PSet (X, Y), QBColor(10)
Y = C1 * C2
Y = 2000 - (Y * 2000 / My1)
Picture1.PSet (X, Y), QBColor(12)
Y = D1 * D2
Y = 2000 - (Y * 2000 / My1)
Picture1.PSet (X, Y), QBColor(13)
Y = E2
Y = 2000 - (Y * 2000 / My2)
Picture2.PSet (X, Y), QBColor(0)
Y = A2
Y = 2000 - (Y * 2000 / My2)
Picture2.PSet (X, Y), QBColor(9)
Y = B2
Y = 2000 - (Y * 2000 / My2)
Picture2.PSet (X, Y), QBColor(10)
Y = C2
Y = 2000 - (Y * 2000 / My2)
Picture2.PSet (X, Y), QBColor(12)
Y = D2
Y = 2000 - (Y * 2000 / My2)
Picture2.PSet (X, Y), QBColor(13)
S = E2
V = A4
S = (S * 2000 / Mx3)
V = 2000 - (V * 2000 / My3)
Picture3.PSet (S, V), QBColor(9)
S = A2
V = B3
S = (S * 2000 / Mx3)
V = 2000 - (V * 2000 / My3)
Picture3.PSet (S, V), QBColor(10)
S = B2
V = C3
S = (S * 2000 / Mx3)
V = 2000 - (V * 2000 / My3)
Picture3.PSet (S, V), QBColor(12)
S = C2
V = D3
S = (S * 2000 / Mx3)
V = 2000 - (V * 2000 / My3)
Picture3.PSet (S, V), QBColor(13)
Next t
End Sub
Private Sub Command2_Click()
Unload Form1
End Sub