Für Vadim - FSharp.Data / CsvProvider

MSFT.csv

test.fsx

#r "nuget: FSharp.Data"
#r "nuget: Plotly.NET, 2.0.0-preview.9"

open System
open FSharp.Data
open Plotly.NET

fsi.AddPrinter (fun (x: DateTime) -> x.ToString("u"))
fsi.AddPrinter (fun (x: DateTimeOffset) -> x.ToString("u"))



// Literal ist wie "const" - TypeProvider brauchen Compiletime-Konstanten
let [<Literal>] workingDir = __SOURCE_DIRECTORY__

type Stocks = CsvProvider<"MSFT.csv", ResolutionFolder = workingDir>

let showChart series =
    series
    |> List.map (fun (name,series) ->
        series
        |> Chart.Line
        |> Chart.withTraceName name
    )
    |> Chart.combine
    |> Chart.withLayout(Layout.init(Width = 1500, Height = 800))
    |> Chart.show
    


let data = Stocks.Load(workingDir + "/MSFT.csv").Rows
let toSeries getProp =  data |> Seq.map (fun x -> x.Date, getProp x)


// 1. Graph
[
    "High", toSeries (fun x -> x.High)
    "Low", toSeries (fun x -> x.Low)
    "High-Low", toSeries (fun x -> x.High - x.Low)
]
|> showChart



// 2. Graph
[
    "High-Low", toSeries (fun x -> x.High - x.Low)
]
|> showChart