基本的な 3 次元プロット (らせん).

---

Sub Test_Axs3d_Plot()
    Const N = 101
    Dim Th(N - 1) As Double, Dth As Double, R As Double
    Dim X(N - 1) As Double, Y(N - 1) As Double, Z(N - 1) As Double
    Dim I As Long
    Dim Fig As Figure, Ax3 As Axs3d
    '-- Make data
    Dth = 8 * Pi() / (N - 1)
    For I = 0 To N - 1
        Th(I) = Dth * I
        Z(I) = 4 / (N - 1) * I - 2
        R = Z(I) ^ 2 + 1
        X(I) = R * Sin(Th(I))
        Y(I) = R * Cos(Th(I))
    Next
    '-- Plot
    Set Fig = Plt.Figure()
    Set Ax3 = Fig.Add_subplot_3d()
    Call Ax3.Plot(N, X(), Y(), Z())
    Call Plt.Show
End Sub