Сглаживание / изменение формы DenseMatrix

Question

Есть ли краткий способ выровнять матрицу?

// Install-Package MathNet.Numerics
// Install-Package MathNet.Numerics.FSharp
// Compile to move the .dlls to the bin/debug area

#r @"bin/Debug/MathNet.Numerics.dll"
#r @"bin/Debug/MathNet.Numerics.FSharp.dll"

open System
open MathNet.Numerics
open MathNet.Numerics.LinearAlgebra
open MathNet.Numerics.LinearAlgebra.Double
open MathNet.Numerics.Distributions

let X = DenseMatrix.init 10 2 (fun i j -> Normal.Sample(0., 1.))

X
|> Matrix.toColSeq
|> Seq.concat
|> DenseVector.ofSeq
|> DenseMatrix.OfRowVectors

Или более предпочтительно что-то вроде команды изменения формы в Matlab?

Answer 1

Требуется дополнительное тестирование. Это решение только для ранга 2.

// http://stackru.com/questions/43903949/flattening-reshaping-a-densematrix/43904614#43904614

// Install-Package MathNet.Numerics
// Install-Package MathNet.Numerics.FSharp
// Compile to move the .dlls to the bin/debug area

#r @"bin/Debug/MathNet.Numerics.dll"
#r @"bin/Debug/MathNet.Numerics.FSharp.dll"

open MathNet.Numerics.LinearAlgebra
open MathNet.Numerics.Distributions

// let X = DenseMatrix.init 10 2 (fun i j -> Normal.Sample(0., 1.))
let X = DenseMatrix.init 10 2 (fun i j -> float <| j+(i*2))  // a simple count for testing purposes

let xmod x y = x % y
let xdiv x y = x / y

let reshape2 ci cj (M:Matrix<'m>) =
  let cm,cn = M.RowCount,M.ColumnCount
  let maxix = cm*cn
  DenseMatrix.init ci cj (fun i j->
    let k = xmod (j + (i * ci)) maxix
    let m,n = (xdiv k cn),(xmod k cn)
    M.[m,n]
    )

reshape2 3 3 X     // smaller

reshape2 10 3 X    // larger

reshape2 2 10 X    // same number of elements

NB. Это зависит от того, как вы решите обрабатывать крайние случаи. Повторение определяется для более крупных направлений. Мы добавляем дополнительные элементы для небольших направлений. Язык векторов / массивов, называемый J, обрабатывает запросы на изменение формы, как это, для ранга n, приятно - http://www.jsoftware.com/help/dictionary/d210.htm