1 // Copyright ©2015 The Gonum Authors. All rights reserved.
2 // Use of this source code is governed by a BSD-style
3 // license that can be found in the LICENSE file.
11 "golang.org/x/exp/rand"
13 "gonum.org/v1/gonum/blas"
14 "gonum.org/v1/gonum/lapack"
17 type Dlansyer interface {
19 Dlansy(norm lapack.MatrixNorm, uplo blas.Uplo, n int, a []float64, lda int, work []float64) float64
22 func DlansyTest(t *testing.T, impl Dlansyer) {
23 rnd := rand.New(rand.NewSource(1))
24 for _, norm := range []lapack.MatrixNorm{lapack.MaxAbs, lapack.MaxColumnSum, lapack.MaxRowSum, lapack.NormFrob} {
25 for _, uplo := range []blas.Uplo{blas.Lower, blas.Upper} {
26 for _, test := range []struct {
35 for trial := 0; trial < 100; trial++ {
41 a := make([]float64, lda*n)
48 a[i] = rnd.NormFloat64()
52 aDense := make([]float64, n*n)
53 if uplo == blas.Upper {
54 for i := 0; i < n; i++ {
55 for j := i; j < n; j++ {
62 for i := 0; i < n; i++ {
63 for j := 0; j <= i; j++ {
70 work := make([]float64, n)
71 got := impl.Dlansy(norm, uplo, n, a, lda, work)
72 want := impl.Dlange(norm, n, n, aDense, n, work)
73 if math.Abs(want-got) > 1e-14 {
74 t.Errorf("Norm mismatch. norm = %c, upper = %v, n = %v, lda = %v, want %v, got %v.",
75 norm, uplo == blas.Upper, n, lda, got, want)