drawingref.txt

上传个模糊聚类代码

Private Sub Form_Load()
    Me.Show
    
    Dim i As Single
    
    Dim x0 As Integer
    Dim y0 As Integer
    
    pic.ScaleMode = 0   'user definitation
    
    pic.ScaleHeight = 20
    pic.ScaleWidth = 20
    
    pic.Height = pic.Width
    
    x0 = pic.ScaleWidth / 2
    y0 = pic.ScaleHeight / 2
    
    pic.Line (pic.ScaleLeft, y0)-(pic.ScaleWidth, y0), RGB(0, 0, 255)
    pic.Line (x0, pic.ScaleTop)-(x0, pic.ScaleHeight), RGB(0, 0, 255)
    
    For i = -pic.ScaleWidth / 2 To pic.ScaleWidth / 2 Step 0.005
            pic.PSet (x0 + i, y0 - f_x2(i)), RGB(0, 0, 255)
    Next
End Sub

Private Function f_x2(x As Single) As Single
    f_x2 = 0.5 * x ^ 3 - 3 * x ^ 2 + 3 * x
End Function