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

---

Function Rand(L As Double, U As Double) As Double
    Rand = (U - L) * Rnd() + L
End Function

Sub Test_Axs3d_Scatter()
    Const N = 100
    Dim X(N - 1) As Double, Y(N - 1) As Double, Z(N - 1) As Double
    Dim S(N - 1) As Double, C(N - 1) As Long
    Dim I As Long
    Dim Fig As Figure, Ax3 As Axs3d
    '-- Make data
    For I = 0 To N - 1
        X(I) = Rand(23, 32)
        Y(I) = Rand(0, 100)
        Z(I) = Rand(-50, -25)
        S(I) = Rand(0, 50)
        C(I) = Rand(0, 100)
    Next
    '-- Plot
    Set Fig = Plt.Figure()
    Set Ax3 = Fig.Add_subplot_3d()
    Call Ax3.Scatter(N, X(), Y(), Z(), S(), C())
    Call Plt.Show
End Sub