3

用 FSharp.Charting 探索 F# 我以为我会从一个简单的“hello world”开始，但它给我留下的问题比代码行多。

#load @"..\packages\FSharp.Charting.0.90.14\FSharp.Charting.fsx"
open FSharp.Charting
let chart = Chart.Line([ for x in 0 .. 10 -> x, x*x ])
chart.ShowChart()
chart.SaveChartAs(@"C:\Temp\chart.png",ChartTypes.ChartImageFormat.Png)

这适用于 VS 的交互式窗口，但我想做的是从 cmd 行执行这个脚本（使用 fsi.exe）。我将 fsx 文件与 fsi 建立了关联，但是当我执行它时，它会打开 fsi 但没有创建图表。我需要做什么？

4

1 回答 1

3

简短回答：在程序末尾添加以下行：

System.Windows.Forms.Application.Run()

长答案：

图表确实被创建了，但它立即消失了，因为您的程序在创建图表后立即退出。这不会发生在 Visual Studio 的 F# 交互窗口中，因为 F# 交互窗口不会在执行您的程序后立即关闭 - 它只是挂在那里，等待您提交更多代码以供执行。

为了让你的程序不会立即退出，你可以实现一些等待机制，比如等待一定的时间（见System.Threading.Thread.Sleep）或等待用户按下 Enter 键（通过stdin.ReadLine()）等。

但是，这实际上对您没有帮助，因为还有下一个问题：图表是通过 Windows 窗体绘制的，它依赖于消息循环的运行 - 否则窗口无法接收消息，因此无法自行绘制事件.

FSI确实有自己的内置事件循环，这就是您的程序在 VS 下的工作方式。但是，如果您实现“等待”机制（例如stdin.ReadLine()），则此事件循环将被阻塞 - 将无法泵送消息。因此，在不干扰图表窗口功能的情况下防止程序退出的唯一明智方法是启动您自己的事件循环。这正是这样Application.Run()做的。

保存到磁盘而不显示：

（回应评论）

据我了解，该库旨在作为一种在屏幕上显示FSharp.Charting图表的快捷方式，主要用例是在 F# Interactive 中探索数据集。更具体地说，对象的一些关键属性，例如和不会在图表创建时初始化，但只有当它显示在屏幕上时（参见源代码），如果没有这些属性，图表将保持为空。ChartChartAreasSeries

如果没有向库提交拉取请求，我建议下降到底层System.Windows.Forms.DataVisualization.Charting.Chart：

open System.Windows.Forms.DataVisualization.Charting

let ch = new Chart()
ch.ChartAreas.Add( new ChartArea() )
let s = new Series( ChartType = SeriesChartType.Line )
s.Points.DataBind( [for x in 1..10 -> x, x*x], "Item1", "Item2", "" )
ch.Series.Add s;

ch.SaveImage(@"C:\Temp\chart.png", System.Drawing.Imaging.ImageFormat.Png)
于 2017-05-14T20:52:24.093 回答