Jumat, 02 November 2012

Bermain-main dengan Matematika - (Matematika)

Dim X, Y, two, r, i, m As Single
Private Sub Command1_Click()
    Scale (3, -3)-(-3, 3)
    For s = 0 To 8 Step 0.0001
        Picture3.Visible = False
        r = Tan(7000 * s)
        X = Cos(r * r) * r * Cos(Sin((Tan(Cos(s * r)))))
        Y = Sin(Atn(Cos(s * X)))
        Kolamground.PSet (X, Y), vbRed
    Next s
    Picture4.Visible = False
    Kolamground.Cls
    Scale (2, -2)-(-2, 2)
    For s = 0 To 5 Step 0.0001
        r = Tan(Cos(2000 * s))
        m = Atn(r * s)
        X = Sin(m) * Cos(r) * Atn(m) * Cos(m * (r * m) * Atn(m * r))
        Y = m * X * Tan(Tan(Atn(Cos((s * r)))))
        Kolamground.PSet (X, Y), vbBlue
    Next s
    Kolamground.Cls
    Scale (3, -3)-(-3, 3)
    For s = 0 To 3 Step 0.0001
        r = Cos(5000 * s)
        X = r * Atn(Cos(10 * r))
        Y = r * Sin(Tan(7000 * X * r))
        Kolamground.PSet (Y, X), vbGreen
    Next s
    Kolamground.Cls
    Scale (3, -3)-(-3, 3)
    For s = 0 To 5 Step 0.0001
        r = Tan(1000 * s)
        X = r * Cos(s * r)
        Y = r * Atn(Cos(s * r * s))
        Kolamground.PSet (X, Y), vbBlue
    Next s
    Kolamground.Cls
    Scale (3, -3)-(-3, 3)
    For s = 0 To 5 Step 0.0001
        r = Tan(7000 * s)
        X = r * Cos(s * r * 100)
        Y = r * Atn(Atn(Cos(s * r)))
        Kolamground.PSet (r, Y), vbRed
    Next s
    Kolamground.Cls
    Scale (6, -6)-(-6, 6)
    For s = 0 To 4 Step 0.0001
        r = Tan(100 * s)
        X = r * Cos(s * 1000 * r * 7000)
        Y = r * Tan(Atn(Sin(Atn(Cos(s * r)))))
        Kolamground.PSet (Y, r), vbGreen
    Next s
    Kolamground.Cls
    Scale (2, -2)-(-2, 2)
    For s = 0 To 3 Step 0.0001
        r = Tan(100 * s * s)
        X = r * Cos(r) * (Cos(s * 1000 * r * 7000))
        Y = r * Tan(Atn(Sin(Atn(Sin(Cos(s * r))))))
        Kolamground.PSet (r, X), vbBlue
    Next s
    Kolamground.Cls
    Scale (8, -8)-(-1, 6)
    For s = 0 To 8 Step 0.0001
        r = Tan((Atn(s)))
        X = r * Sin(r) * Cos(r) * (Cos(s * 1000 * r * 7000))
        Y = r * Tan(X) * Tan(s) * Tan(Atn(Sin(Atn(Sin(Cos(s * r))))))
        Kolamground.PSet (r, X), vbRed
    Next s
    Kolamground.Cls
    Scale (2, -2)-(-2, 2)
    For s = 0 To 6 Step 0.0001
        r = Tan(100 * s * s)
        X = r * Cos(r) * (Cos(s * 1000 * r * 7000))
        Y = Sin(X * r * r * Tan(Atn(Sin(Atn(Sin(Cos(s * r)))))))
        Kolamground.PSet (X, Y), vbGreen
    Next s
    Kolamground.Cls
    Picture3.Visible = False
    Picture2.Visible = True
    Picture4.Visible = True
    Picture3.Visible = False
End Sub

0 komentar:

Posting Komentar

 

© 2011 e - Tutorial | by Moeh Fitrah