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

---

Sub Test_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
    Dim Fig As Figure, Ax As Axs
    '-- 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
    Set Fig = Plt.Figure()
    Set Ax = Fig.Gca()
    Call Ax.Scatter(N, X(), Y(), Sizes(), Colors())
    Call Ax.Set_xlabel("X")
    Call Ax.Set_ylabel("Y")
    Call Plt.Show
End Sub