@@ -34,9 +34,6 @@ fn test2d<A, Sa, Sb, Tol>(uplo: UPLO, a: ArrayBase<Sa, Ix2>, b: ArrayBase<Sb, Ix
34
34
println ! ( "x = {:?}" , & x) ;
35
35
let b_ = a. dot ( & x) ;
36
36
println ! ( "Ax = {:?}" , & b_) ;
37
- println ! ( "A^Tx = {:?}" , a. t( ) . dot( & x) ) ;
38
- println ! ( "Ax^T = {:?}" , a. dot( & x. t( ) ) ) ;
39
- println ! ( "(Ax^T)^T = {:?}" , a. dot( & x. t( ) ) . t( ) ) ;
40
37
assert_close_l2 ! ( & b_, & ans, tol) ;
41
38
}
42
39
@@ -74,64 +71,56 @@ fn triangular_1d_upper_t() {
74
71
75
72
#[ test]
76
73
fn triangular_2d_upper ( ) {
77
- let n = 3 ;
78
- let b: Array2 < f64 > = random_square ( n) ;
79
- let a: Array2 < f64 > = random_square ( n) . into_triangular ( UPLO :: Upper ) ;
74
+ let b: Array2 < f64 > = random_matrix ( 3 , 4 ) ;
75
+ let a: Array2 < f64 > = random_square ( 3 ) . into_triangular ( UPLO :: Upper ) ;
80
76
test2d ( UPLO :: Upper , a, b, 1e-7 ) ;
81
77
}
82
78
83
79
#[ test]
84
80
fn triangular_2d_lower ( ) {
85
- let n = 3 ;
86
- let b: Array2 < f64 > = random_square ( n) ;
87
- let a: Array2 < f64 > = random_square ( n) . into_triangular ( UPLO :: Lower ) ;
81
+ let b: Array2 < f64 > = random_matrix ( 3 , 4 ) ;
82
+ let a: Array2 < f64 > = random_square ( 3 ) . into_triangular ( UPLO :: Lower ) ;
88
83
test2d ( UPLO :: Lower , a, b, 1e-7 ) ;
89
84
}
90
85
91
86
#[ test]
92
87
fn triangular_2d_lower_t ( ) {
93
- let n = 3 ;
94
- let b: Array2 < f64 > = random_square ( n) ;
95
- let a: Array2 < f64 > = random_square ( n) . into_triangular ( UPLO :: Lower ) . reversed_axes ( ) ;
88
+ let b: Array2 < f64 > = random_matrix ( 3 , 4 ) ;
89
+ let a: Array2 < f64 > = random_square ( 3 ) . into_triangular ( UPLO :: Lower ) . reversed_axes ( ) ;
96
90
test2d ( UPLO :: Upper , a, b, 1e-7 ) ;
97
91
}
98
92
99
93
#[ test]
100
94
fn triangular_2d_upper_t ( ) {
101
- let n = 3 ;
102
- let b: Array2 < f64 > = random_square ( n) ;
103
- let a: Array2 < f64 > = random_square ( n) . into_triangular ( UPLO :: Upper ) . reversed_axes ( ) ;
95
+ let b: Array2 < f64 > = random_matrix ( 3 , 4 ) ;
96
+ let a: Array2 < f64 > = random_square ( 3 ) . into_triangular ( UPLO :: Upper ) . reversed_axes ( ) ;
104
97
test2d ( UPLO :: Lower , a, b, 1e-7 ) ;
105
98
}
106
99
107
100
#[ test]
108
101
fn triangular_2d_upper_bt ( ) {
109
- let n = 3 ;
110
- let b: Array2 < f64 > = random_square ( n) . reversed_axes ( ) ;
111
- let a: Array2 < f64 > = random_square ( n) . into_triangular ( UPLO :: Upper ) ;
102
+ let b: Array2 < f64 > = random_matrix ( 4 , 3 ) . reversed_axes ( ) ;
103
+ let a: Array2 < f64 > = random_square ( 3 ) . into_triangular ( UPLO :: Upper ) ;
112
104
test2d ( UPLO :: Upper , a, b, 1e-7 ) ;
113
105
}
114
106
115
107
#[ test]
116
108
fn triangular_2d_lower_bt ( ) {
117
- let n = 3 ;
118
- let b: Array2 < f64 > = random_square ( n) . reversed_axes ( ) ;
119
- let a: Array2 < f64 > = random_square ( n) . into_triangular ( UPLO :: Lower ) ;
109
+ let b: Array2 < f64 > = random_matrix ( 4 , 3 ) . reversed_axes ( ) ;
110
+ let a: Array2 < f64 > = random_square ( 3 ) . into_triangular ( UPLO :: Lower ) ;
120
111
test2d ( UPLO :: Lower , a, b, 1e-7 ) ;
121
112
}
122
113
123
114
#[ test]
124
115
fn triangular_2d_lower_t_bt ( ) {
125
- let n = 3 ;
126
- let b: Array2 < f64 > = random_square ( n) . reversed_axes ( ) ;
127
- let a: Array2 < f64 > = random_square ( n) . into_triangular ( UPLO :: Lower ) . reversed_axes ( ) ;
116
+ let b: Array2 < f64 > = random_matrix ( 4 , 3 ) . reversed_axes ( ) ;
117
+ let a: Array2 < f64 > = random_square ( 3 ) . into_triangular ( UPLO :: Lower ) . reversed_axes ( ) ;
128
118
test2d ( UPLO :: Upper , a, b, 1e-7 ) ;
129
119
}
130
120
131
121
#[ test]
132
122
fn triangular_2d_upper_t_bt ( ) {
133
- let n = 3 ;
134
- let b: Array2 < f64 > = random_square ( n) . reversed_axes ( ) ;
135
- let a: Array2 < f64 > = random_square ( n) . into_triangular ( UPLO :: Upper ) . reversed_axes ( ) ;
123
+ let b: Array2 < f64 > = random_matrix ( 4 , 3 ) . reversed_axes ( ) ;
124
+ let a: Array2 < f64 > = random_square ( 3 ) . into_triangular ( UPLO :: Upper ) . reversed_axes ( ) ;
136
125
test2d ( UPLO :: Lower , a, b, 1e-7 ) ;
137
126
}
0 commit comments