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

---

Sub Test_Plt_Subplot()
    Const N = 51
    Dim X(N - 1) As Double, Y1(N - 1) As Double, Y2(N - 1) As Double
    Dim I As Integer
    '-- 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
    Call Plt.Suptitle("Subplot")
    Call Plt.Subplot(2, 1, 1)
    Call Plt.Plot(N, X(), Y1(), "k")
    Call Plt.Plot(N, X(), Y1(), "bo")
    Call Plt.Ylabel("Damped oscillation")
    Call Plt.Subplot(2, 1, 2)
    Call Plt.Plot(N, X(), Y2(), "r--")
    Call Plt.Xlabel("time (s)")
    Call Plt.Ylabel("Undamped")
    Call Plt.Show
End Sub