Private Sub Command1_Click()
Picture1.Refresh
Picture2.Refresh
Mx = 1
My1 = 100
My2 = 1000
A1 = Text1.Text
B1 = Text2.Text
B2 = Text3.Text
C1 = Text4.Text
C2 = Text5.Text
D1 = Text6.Text
D2 = Text7.Text
B3 = Text8.Text
C3 = Text9.Text
D3 = Text10.Text
B4 = Text11.Text
C4 = Text12.Text
D4 = Text13.Text
B5 = Text14.Text
B6 = Text15.Text
C5 = Text16.Text
C6 = Text17.Text
D5 = Text18.Text
D6 = Text19.Text
B7 = Text20.Text
C7 = Text21.Text
D7 = Text22.Text
z = Mx / 2000
For t = 0 To Mx Step z
B1 = (B1 * B2 + A1 * z * B3) / (B2 + z * B3)
B2 = B2 + z * B3
B1 = (B1 * B2 - B1 * z * B4) / (B2 - z * B4)
B2 = B2 - z * B4
B5 = (B5 * B6 + B1 * z * B7) / (B6 + z * B7)
B6 = B6 + z * B7
C1 = (C1 * C2 + B1 * z * C3) / (C2 + z * C3)
C2 = C2 + z * C3
C1 = (C1 * C2 - C1 * z * C4) / (C2 - z * C4)
C2 = C2 - z * C4
C5 = (C5 * C6 + C1 * z * C7) / (C6 + z * C7)
C6 = C6 + z * C7
D1 = (D1 * D2 + C1 * z * D3) / (D2 + z * D3)
D2 = D2 + z * D3
D1 = (D1 * D2 - D1 * z * D4) / (D2 - z * D4)
D2 = D2 - z * D4
D5 = (D5 * D6 + D1 * z * D7) / (D6 + z * D7)
D6 = D6 + z * D7
X = t
Y = A1
X = (X * 2000 / Mx)
Y = 2000 - (Y * 2000 / My1)
Picture1.PSet (X, Y), QBColor(0)
Y = ((B1 * B2) + (B5 * B6)) / (B2 + B6)
Y = 2000 - (Y * 2000 / My1)
Picture1.PSet (X, Y), QBColor(10)
Y = ((C1 * C2) + (C5 * C6)) / (C2 + C6)
Y = 2000 - (Y * 2000 / My1)
Picture1.PSet (X, Y), QBColor(9)
Y = ((D1 * D2) + (D5 * D6)) / (D2 + D6)
Y = 2000 - (Y * 2000 / My1)
Picture1.PSet (X, Y), QBColor(12)
Y = B2 + B6
Y = 2000 - (Y * 2000 / My2)
Picture2.PSet (X, Y), QBColor(10)
Y = C2 + C6
Y = 2000 - (Y * 2000 / My2)
Picture2.PSet (X, Y), QBColor(9)
Y = D2 + D6
Y = 2000 - (Y * 2000 / My2)
Picture2.PSet (X, Y), QBColor(12)
Next t
End Sub
Private Sub Command2_Click()
Unload Form1
End Sub