2 つのサブプロットを持つ図を作成する.

---

Sub Test_Subplot()
    Const N = 51
    Dim X(N - 1) As Double, Y1(N - 1) As Double, Y2(N - 1) As Double
    Dim I As Integer
    Dim Fig As Figure, Ax1 As Axs, Ax2 As Axs
    '-- Make data
    For I = 0 To N - 1
        X(I) = 5 / N * I
        Y1(I) = Cos(2 * Pi() * X(I)) * Exp(-X(I))
        Y2(I) = Cos(2 * Pi() * X(I))
    Next
    '-- Plot
    Set Fig = Plt.Figure()
    Call Fig.Suptitle("Subplot")
    Set Ax1 = Fig.Add_subplot(2, 1, 1)
    Call Ax1.Plot(N, X(), Y1(), "k")
    Call Ax1.Plot(N, X(), Y1(), "bo")
    Call Ax1.Set_ylabel("Damped oscillation")
    Set Ax2 = Fig.Add_subplot(2, 1, 2)
    Call Ax2.Plot(N, X(), Y2(), "r--")
    Call Ax2.Set_xlabel("time (s)")
    Call Ax2.Set_ylabel("Undamped")
    Call Plt.Show
End Sub