расширение fsharpchart - PullRequest
Новая
       72

расширение fsharpchart

2 голосов
/ 19 марта 2012

Я хотел бы использовать FSharpChart, но нет основной диаграммы для того, что я хотел бы отобразить: корреляционная матрица.

Поэтому я написал несколько функций для рисования на растровом изображении, как это делает Томас Петричек для построения круговой диаграммы.

Есть ли какой-нибудь простой способ использовать это для расширения 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()
...