関数型プログラミング言語 F# (fsharp)の数値計算ライブラリ Math.NET Numericsを使う(5)多項式フィッティングをしてPlotly.NETで表示する。

今回は多項式フィッティング。C#での例題はこちら。

 Visual C# (C_sharp)の数学ライブラリ Math.NET Numericsを使う(4) 多項式フィッティングをして、Array.ConvertAllで一括でフィッティングデータを得る。

こういうのはF#は簡単に書ける。いつものようにNuGetで

#r "nuget: MathNet.Numerics.FSharp, 5.0.0"

#r "nuget: Plotly.NET.Interactive, 5.0.0"

としてから

open MathNet.Numerics

open Plotly.NET

let x = [| 0.0; 1.0; 2.0; 3.0; 4.0; 5.0 |]

let y = [| 0.0; 0.8; 0.9; 0.1; -0.8; -1.0 |]

let p = Fit.Polynomial(x, y , 3)

let xfit = Generate.LinearSpaced(100, -2, 6)

let yfit = xfit |> Array.map(fun x -> Polynomial.Evaluate(x, p));

[Chart.Point(x, y, ShowLegend = true, Name = "Original Points");

Chart.Line(xfit, yfit, ShowLegend = true, Name = "Polynomial Fitthing")]

|> Chart.combine |> Chart.withXAxisStyle("x") |> Chart.withYAxisStyle("y")

|> Chart.withTitle("Cubic Polynomial Fitthing")

|> Chart.withLayoutStyle(Width = 800, Height = 600)

とすればいい。

結果はこちら。