@@ -137,23 +137,22 @@ mod tests {
137
137
use crate :: { assert:: * , generate:: * } ;
138
138
139
139
#[ test]
140
- fn aq_qh ( ) {
141
- let a = array ! [ [ 1.0 , 2.0 ] , [ 3.0 , 5.0 ] ] ;
142
- let mut v = Array :: zeros ( 2 ) ;
143
- v[ 0 ] = 1.0 ;
140
+ fn aq_qh_mgs ( ) {
141
+ let a: Array2 < f64 > = random ( ( 5 , 5 ) ) ;
142
+ let v: Array1 < f64 > = random ( 5 ) ;
144
143
let ( q, h) = arnoldi_mgs ( a. clone ( ) , v, 1e-9 ) ;
145
144
println ! ( "A = \n {:?}" , & a) ;
146
145
println ! ( "Q = \n {:?}" , & q) ;
147
146
println ! ( "H = \n {:?}" , & h) ;
148
147
let aq = a. dot ( & q) ;
149
148
let qh = q. dot ( & h) ;
150
- println ! ( "AQ = \n {:?}" , a . dot ( & q ) ) ;
151
- println ! ( "QH = \n {:?}" , q . dot ( & h ) ) ;
149
+ println ! ( "AQ = \n {:?}" , & aq ) ;
150
+ println ! ( "QH = \n {:?}" , & qh ) ;
152
151
close_l2 ( & aq, & qh, 1e-9 ) ;
153
152
}
154
153
155
154
#[ test]
156
- fn aq_qh_random ( ) {
155
+ fn aq_qh_householder ( ) {
157
156
let a: Array2 < f64 > = random ( ( 5 , 5 ) ) ;
158
157
let v: Array1 < f64 > = random ( 5 ) ;
159
158
let ( q, h) = arnoldi_mgs ( a. clone ( ) , v, 1e-9 ) ;
@@ -166,5 +165,4 @@ mod tests {
166
165
println ! ( "QH = \n {:?}" , & qh) ;
167
166
close_l2 ( & aq, & qh, 1e-9 ) ;
168
167
}
169
-
170
168
}
0 commit comments