0

使用 .fs 程序中的 FSharp.Charting，当显示绘图时，它会阻止程序其余部分的执行。有没有办法生成非阻塞图表？例如，我希望以下内容都显示在单独的窗口中，并让程序的其余部分执行。

Chart.Line(Series1) |> Chart.Show // Chart 1
// do some work
Chart.Line(Series2) |> Chart.Show // display this in a second window
// continue executing the rest while the above windows are still open.
4

1 回答 1

0

你能提供更多关于你如何打电话的细节Chart.Line吗？例如，在 REPL 中，通过 FSLab，在 winforms 中，在 wpf 中？

在 fsx 文件中工作时，以下内容不会阻止我。另一种方法是将它包装在一个异步块中，这在您进行一些长时间运行的计算或访问数据库时很有用。

#load @"..\..\FSLAB\packages\FsLab\FsLab.fsx"
open Deedle
open FSharp.Charting
open System

let rnd = System.Random()
let xs = List.init 100 (fun _ -> rnd.NextDouble() - 0.5)
let xs' =  List.init 100 (fun _ -> rnd.NextDouble() - 0.5)

Chart.Line(xs) // |> Chart.Show 
Chart.Line(xs') //|> Chart.Show

添加：

async {Chart.Line(xs)  |> Chart.Show } |> Async.Start 
async {Chart.Line(xs') |> Chart.Show } |> Async.Start

MS Docs和F# Fun&Profit

编译示例：

open System
open FSharp.Charting
open System.Threading
open System.Threading.Tasks
open System.Drawing
open FSharp.Charting
open FSharp.Charting.ChartTypes



[<STAThread>]
[<EntryPoint>]
let main argv = 
    let rnd = System.Random()
    let xs = List.init 100 (fun _ -> rnd.NextDouble() - 0.5)
    let xs' =  List.init 100 (fun _ -> rnd.NextDouble() - 0.5)


    Chart.Line(xs)  |> Chart.Show 
    printfn "%A" "Chart 1"
    Chart.Line(xs') |> Chart.Show
    printfn "%A" "Chart 2"

    async {Chart.Line(xs)  |> Chart.Show } |> Async.Start 
    printfn "%A" "Chart 3"
    async {Chart.Line(xs') |> Chart.Show } |> Async.Start
    printfn "%A" "Chart 4"
    Console.Read() |> ignore
    printfn "%A" argv
    0 // return an integer exit code
于 2016-09-04T23:36:03.773 回答