csharpfftfsharpintegrationinterpolationlinear-algebramathdifferentiationmatrixnumericsrandomregressionstatisticsmathnet
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
64 lines
2.6 KiB
64 lines
2.6 KiB
namespace MathNet.Numerics.Tests
|
|
|
|
open NUnit.Framework
|
|
open FsUnit
|
|
open MathNet.Numerics.LinearAlgebra
|
|
|
|
/// Unit tests for the sparse matrix type.
|
|
module SparseMatrixTests =
|
|
|
|
/// A small uniform matrix.
|
|
let smallM = DenseMatrix.init 4 6 (fun i j -> if i = 1 && j = 2 then 1.0 else 0.0)
|
|
|
|
[<Test>]
|
|
let ``SparseMatrix.zeroCreate`` () =
|
|
(SparseMatrix.zeroCreate 4 6) + smallM |> should equal smallM
|
|
|
|
[<Test>]
|
|
let ``SparseMatrix.init`` () =
|
|
SparseMatrix.init 4 6 (fun i j -> if i = 1 && j = 2 then 1.0 else 0.0) |> should equal smallM
|
|
|
|
[<Test>]
|
|
let ``SparseMatrix.ofArray2`` () =
|
|
SparseMatrix.ofArray2 (array2D [[0.;0.;0.;0.;0.;0.];[0.;0.;1.;0.;0.;0.];[0.;0.;0.;0.;0.;0.];[0.;0.;0.;0.;0.;0.]]) |> should equal smallM
|
|
SparseMatrix.ofArray2 (Array2D.init 4 6 (fun i j -> if i = 1 && j = 2 then 1.0 else 0.0)) |> should equal smallM
|
|
|
|
[<Test>]
|
|
let ``SparseMatrix.ofRowSeq`` () =
|
|
SparseMatrix.ofRowSeq (Seq.ofList [[0.;0.;0.;0.;0.;0.];[0.;0.;1.;0.;0.;0.];[0.;0.;0.;0.;0.;0.];[0.;0.;0.;0.;0.;0.]]) |> should equal smallM
|
|
|
|
[<Test>]
|
|
let ``SparseMatrix.ofRowList`` () =
|
|
SparseMatrix.ofRowList [[0.;0.;0.;0.;0.;0.];[0.;0.;1.;0.;0.;0.];[0.;0.;0.;0.;0.;0.];[0.;0.;0.;0.;0.;0.]] |> should equal smallM
|
|
|
|
[<Test>]
|
|
let ``SparseMatrix.ofColumnSeq`` () =
|
|
SparseMatrix.ofColumnSeq (Seq.ofList [[0.;0.;0.;0.];[0.;0.;0.;0.];[0.;1.;0.;0.];[0.;0.;0.;0.];[0.;0.;0.;0.];[0.;0.;0.;0.]]) |> should equal smallM
|
|
|
|
[<Test>]
|
|
let ``SparseMatrix.ofColumnList`` () =
|
|
SparseMatrix.ofColumnList [[0.;0.;0.;0.];[0.;0.;0.;0.];[0.;1.;0.;0.];[0.;0.;0.;0.];[0.;0.;0.;0.];[0.;0.;0.;0.]] |> should equal smallM
|
|
|
|
[<Test>]
|
|
let ``SparseMatrix.ofSeqi`` () =
|
|
SparseMatrix.ofSeqi 4 6 (Seq.ofList [(1,2,1.0)]) |> should equal smallM
|
|
|
|
[<Test>]
|
|
let ``SparseMatrix.ofListi`` () =
|
|
SparseMatrix.ofListi 4 6 [(1,2,1.0)] |> should equal smallM
|
|
|
|
[<Test>]
|
|
let ``SparseMatrix.constDiag`` () =
|
|
SparseMatrix.createDiag 100 100 2.0 |> should equal (2.0 * (SparseMatrix.identity 100 100))
|
|
|
|
[<Test>]
|
|
let ``SparseMatrix.ofDiag`` () =
|
|
SparseMatrix.ofDiag (DenseVector.init 100 (fun i -> 2.0)) |> should equal (2.0 * (SparseMatrix.identity 100 100))
|
|
|
|
[<Test>]
|
|
let ``SparseMatrix.init_row`` () =
|
|
SparseMatrix.initRows 4 (fun i -> if i=1 then DenseVector.raw [|0.;0.;1.;0.;0.;0.|] else DenseVector.zeroCreate 6) |> should equal smallM
|
|
|
|
[<Test>]
|
|
let ``SparseMatrix.init_col`` () =
|
|
SparseMatrix.initColumns 6 (fun j -> if j=2 then DenseVector.raw [|0.;1.;0.;0.|] else DenseVector.zeroCreate 4) |> should equal smallM
|
|
|