F#でなるべく簡単にグラフ表示をさせたい その3
名前空間:System.Windows.Forms.DataVisualization.Chartingのクラスを使って.NET標準ライブラリのみでグラフを描いてみます。
Windowsフォーム(Formオブジェクト)に下図のような階層で必要なオブジェクトを追加していきます。
Form
ChartControl
ChartArea(データのプロット領域、座標軸やグリッド線の設定)
Title(タイトル)
Series(グラフデータその1)
Series(グラフデータその2)
Legend(凡例)
sin(x)とcos(x)のグラフを描くコードの例
- open System.Drawing
- open System.Windows.Forms
- open System.Windows.Forms.DataVisualization.Charting
- open System
- open System.Diagnostics
- [<EntryPoint; STAThread>]
- let main _ =
- let area = new ChartArea() in // チャートエリア
- do
- area.Name <- "CHART_AREA"
- // グリッドは灰色で破線
- area.AxisX.MajorGrid.LineColor <- Color.LightGray
- area.AxisX.MajorGrid.LineDashStyle <- ChartDashStyle.Dash
- area.AxisY.MajorGrid.LineColor <- Color.LightGray
- area.AxisY.MajorGrid.LineDashStyle <- ChartDashStyle.Dash
- // グリッド間隔は0.2
- area.AxisX.Interval <- 0.2
- area.AxisY.Interval <- 0.2
- // グリッド描画開始点をずらす
- area.AxisX.IntervalOffset <- - (Math.PI |> Math.Floor |> (+) 0.2)
- // 描画範囲指定
- area.AxisX.Minimum <- area.AxisX.IntervalOffset
- area.AxisY.Minimum <- -1.0
- area.AxisY.Maximum <- 1.0
- // X軸とY軸を原点で交差させる
- area.AxisX.Crossing <- 0.0
- area.AxisY.Crossing <- 0.0
- let chartCtrl = new Chart() in
- do
- let title = new Title("ここにチャートコントロールに表示するタイトルが入ります",
- Docking.Top,
- new Font("Meiryo", 12.0f),
- Color.Brown)
- chartCtrl.Titles.Add(title)
- chartCtrl.Dock <- DockStyle.Fill
- chartCtrl.ChartAreas.Add(area) // チャートコントロールにチャートエリアを追加
- let series1 = new Series() in // グラフその1
- do series1.ChartType <- SeriesChartType.Line // 折れ線
- series1.Color <- Color.Blue
- series1.BorderWidth <- 2 // 線の太さ
- series1.LegendText <- "sin x"
- chartCtrl.Series.Add(series1) // チャートコントロールにグラフその1を追加
- let series2 = new Series() in // グラフその2
- do series2.ChartType <- SeriesChartType.Line // 折れ線
- series2.Color <- Color.Red
- series2.BorderWidth <- 2 // 線の太さ
- series2.LegendText <- "cos x"
- chartCtrl.Series.Add(series2) // チャートコントロールにグラフその2を追加
- let legend = new Legend() in // 凡例
- do legend.Title <- "凡例"
- legend.DockedToChartArea <- area.Name // 凡例を描画するチャートエリアの名前を指定
- legend.Alignment <- StringAlignment.Near
- chartCtrl.Legends.Add(legend) // チャートコントロールに凡例を追加
- let mainForm = new Form(Visible = true,
- Width = 1200,
- Height = 600,
- Text= "標準ライブラリを用いたグラフの例")
- mainForm.Controls.Add(chartCtrl) // フォームにチャートコントロールを追加
- (*** プロットするデータを準備 ***)
- let horizData = [ for x in -Math.PI..0.02..Math.PI -> x ]
- let vertData1 = [ for x in horizData -> Math.Sin x ]
- let vertData2 = [ for x in horizData -> Math.Cos x ]
- Debug.Assert(Seq.length horizData = Seq.length vertData1)
- Debug.Assert(Seq.length horizData = Seq.length vertData2)
- series1.Points.DataBindXY (horizData, vertData1)
- series2.Points.DataBindXY (horizData, vertData2)
- Application.Run(mainForm)
- 0 // 整数の終了コードを返します
Windowsフォームアプリケーションなので、プロジェクトのビルド出力の設定を「Windowsアプリケーション」に設定。
実行結果