関数型プログラミング言語 F# (fsharp)の数値計算ライブラリ Math.NET Numericsを使う(6) OptimizationのNelder-Mead SimplexでRosenbrock関数（５パラメータ）を最小になる点を探す。

今回はこの例題。

 Visual C# (C_sharp)の数値計算ライブラリ MathNET Numericsを使う(6)　OptimizationのNelder-Mead SimplexでRosenbrock関数（５パラメータ）を最小になる点を探す。

いつものように

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

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

してからこれ。

open MathNet.Numerics.LinearAlgebra

open MathNet.Numerics.Optimization

let  Rosenbrock (x : Vector<float>) =

    List.sum [for i in 0..x.Count - 2 -> 100.0 * (x[i+1] - x[i] * x[i]) * (x[i+1] - x[i] * x[i]) + (x[i] - 1.0) * (x[i] - 1.0)]

let objFunc = ObjectiveFunction.Value(Rosenbrock)

let solver = NelderMeadSimplex(1.0E-9, 1000)

let initialGuess =  vector [1.3; 0.7; 0.8; 1.9; 1.2]

let results = solver.FindMinimum(objFunc, initialGuess)

results

とにかく短く書けるのがいい。