Getting a Good Grasp of F# (仮)

関数型言語F#をもっと楽しみたい

F#でなるべく簡単にグラフ表示をさせたい その3

名前空間:System.Windows.Forms.DataVisualization.Chartingのクラスを使って.NET標準ライブラリのみでグラフを描いてみます。

Windowsフォーム(Formオブジェクト)に下図のような階層で必要なオブジェクトを追加していきます。

Form
ChartControl
ChartArea(データのプロット領域、座標軸やグリッド線の設定)
Title(タイトル)
Series(グラフデータその1)
Series(グラフデータその2)
Legend(凡例)

sin(x)とcos(x)のグラフを描くコードの例

  1. open System.Drawing
  2. open System.Windows.Forms
  3. open System.Windows.Forms.DataVisualization.Charting
  4. open System
  5. open System.Diagnostics
  6.  
  7. [<EntryPoint; STAThread>]
  8. let main _ =
  9.     let area = new ChartArea() in // チャートエリア
  10.     do  
  11.         area.Name <- "CHART_AREA"
  12.         // グリッドは灰色で破線
  13.         area.AxisX.MajorGrid.LineColor <- Color.LightGray
  14.         area.AxisX.MajorGrid.LineDashStyle <- ChartDashStyle.Dash
  15.  
  16.         area.AxisY.MajorGrid.LineColor <- Color.LightGray
  17.         area.AxisY.MajorGrid.LineDashStyle <- ChartDashStyle.Dash
  18.  
  19.         // グリッド間隔は0.2
  20.         area.AxisX.Interval <- 0.2
  21.         area.AxisY.Interval <- 0.2
  22.         // グリッド描画開始点をずらす
  23.         area.AxisX.IntervalOffset <- - (Math.PI |> Math.Floor |> (+) 0.2)
  24.  
  25.         // 描画範囲指定
  26.         area.AxisX.Minimum <- area.AxisX.IntervalOffset
  27.         area.AxisY.Minimum <- -1.0  
  28.         area.AxisY.Maximum <- 1.0
  29.  
  30.         // X軸とY軸を原点で交差させる
  31.         area.AxisX.Crossing <- 0.0
  32.         area.AxisY.Crossing <- 0.0
  33.  
  34.     let chartCtrl = new Chart() in
  35.     do  
  36.         let title = new Title("ここにチャートコントロールに表示するタイトルが入ります",
  37.                                 Docking.Top,
  38.                                 new Font("Meiryo", 12.0f),
  39.                                 Color.Brown)
  40.         chartCtrl.Titles.Add(title)
  41.         chartCtrl.Dock <- DockStyle.Fill
  42.  
  43.     chartCtrl.ChartAreas.Add(area)  // チャートコントロールにチャートエリアを追加
  44.  
  45.     let series1 = new Series() in // グラフその1
  46.     do  series1.ChartType <- SeriesChartType.Line  // 折れ線
  47.         series1.Color <- Color.Blue
  48.         series1.BorderWidth <- 2   // 線の太さ
  49.         series1.LegendText <- "sin x"
  50.  
  51.     chartCtrl.Series.Add(series1)  // チャートコントロールにグラフその1を追加
  52.  
  53.     let series2 = new Series() in // グラフその2
  54.     do  series2.ChartType <- SeriesChartType.Line  // 折れ線
  55.         series2.Color <- Color.Red
  56.         series2.BorderWidth <- 2  // 線の太さ
  57.         series2.LegendText <- "cos x"
  58.  
  59.     chartCtrl.Series.Add(series2)  // チャートコントロールにグラフその2を追加
  60.  
  61.     let legend = new Legend() in // 凡例
  62.     do  legend.Title <- "凡例"
  63.         legend.DockedToChartArea <- area.Name  // 凡例を描画するチャートエリアの名前を指定
  64.         legend.Alignment <- StringAlignment.Near
  65.     
  66.     chartCtrl.Legends.Add(legend)  // チャートコントロールに凡例を追加
  67.  
  68.     let mainForm = new Form(Visible = true,
  69.                             Width = 1200,
  70.                             Height = 600,
  71.                             Text= "標準ライブラリを用いたグラフの例")
  72.  
  73.     mainForm.Controls.Add(chartCtrl)  // フォームにチャートコントロールを追加
  74.  
  75.     (*** プロットするデータを準備 ***)
  76.     let horizData = [ for x in -Math.PI..0.02..Math.PI -> x ]
  77.     let vertData1 = [ for x in horizData -> Math.Sin x ]  
  78.     let vertData2 = [ for x in horizData -> Math.Cos x ]
  79.  
  80.     Debug.Assert(Seq.length horizData = Seq.length vertData1)
  81.     Debug.Assert(Seq.length horizData = Seq.length vertData2)
  82.  
  83.     series1.Points.DataBindXY (horizData, vertData1)
  84.     series2.Points.DataBindXY (horizData, vertData2)
  85.  
  86.     Application.Run(mainForm)
  87.     0 // 整数の終了コードを返します

Windowsフォームアプリケーションなので、プロジェクトのビルド出力の設定を「Windowsアプリケーション」に設定。

f:id:pongitsune:20160127182941p:plain

実行結果

f:id:pongitsune:20160127160000p:plain