2

我想使用 FSharpChart,但没有我想显示的基本图表:相关矩阵。

因此,我编写了一些函数来绘制位图,就像 Tomas Petricek 绘制饼图一样。

我有什么简单的方法可以使用它来扩展 FSharpChart 吗?

let drawCorrelation (udls:seq<'T>) (mapcorrel:Map<('T*'T), float>)  = 
      let mainForm = new Form(Width = 1250, Height = 1050, Text = "Correlation matrix")
      let boxChart = new PictureBox(BackColor = Color.White, Dock = DockStyle.Fill,SizeMode = PictureBoxSizeMode.CenterImage)

      let matrixbm  = new Bitmap(1200, 1000)
      let gr = Graphics.FromImage(matrixbm)

      gr.Clear(Color.White)
      draw2D  gr (drawCorrelationInner mapcorrel) 1200 1000 udls mapcorrel (mapcorrel |> Seq.map (fun kv -> kv.Value ) |> Seq.average)

      boxChart.Image <- matrixbm
      mainForm.Controls.Add(boxChart)
      mainForm.Show()
4

0 回答 0