![]() |
XLPack for Matplotlib Experimental Version 0.1
例題集
|
基本的な線プロット (サインカーブ) を表示する.
Sub Test_Plot()
Const N = 201
Dim T(N - 1) As Double, S(N - 1) As Double
Dim I As Long
Dim Fig As Figure, Ax As Axs
'-- Make data
Call Linspace(0, 2, N, T())
For I = 0 To N - 1
S(I) = 1 + Sin(2 * Pi() * T(I))
Next
'-- Plot
Set Fig = Plt.Figure()
Set Ax = Fig.Gca()
Call Ax.Plot(N, T(), S(), "-b")
Call Ax.Set_xlabel("time (s)")
Call Ax.Set_ylabel("voltage (mV)")
Call Ax.Set_title("About as simple as it gets, folks")
Call Ax.Grid
Call Plt.Show
End Sub