マーカーのサイズや色を変えた x 対 y の散布図を表示する.

---

Sub Test_Plt_Scatter()
    Const N = 50
    Dim X(N - 1) As Double, Y(N - 1) As Double, Sizes(N - 1) As Double, Colors(N - 1) As Long
    Dim I As Integer
    '-- Make data
    For I = 0 To N - 1
        X(I) = I
        Y(I) = X(I) + 20 * (Rnd() - 0.5)
        Sizes(I) = 100 * Rnd()
        Colors(I) = 100 * Abs(Rnd())
    Next
    '-- Plot
    Call Plt.Scatter(N, X(), Y(), Sizes(), Colors())
    Call Plt.Xlabel("X")
    Call Plt.Ylabel("Y")
    Call Plt.Show
End Sub