Bump version numbers to 6.2.0
[scilab.git] / scilab / modules / linear_algebra / tests / nonreg_tests / bug_13810.dia.ref
1 // ============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2015 - Samuel GOUGEON
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // ============================================================================
7 //
8 // <-- CLI SHELL MODE -->
9 //
10 // <-- Non-regression test for bug 13810 -->
11 //
12 // <-- Bugzilla URL -->
13 //     http://bugzilla.scilab.org/13810
14 //
15 // <-- Short Description -->
16 // householder(v, k*v) returned [%nan %nan %nan]'
17 assert_checkequal(householder([%e ; 0 ; 0]), [0 ; 1 ; 0]);
18 v = [ 2 3 1]';
19 ref = [ 0.8320503  -0.5547002  0 ]';
20 assert_checkalmostequal(householder(v,v), ref, 1e-6);
21 assert_checkalmostequal(householder(v,2*v), ref, 1e-6);
22 ref = [  0.5345225  0.8017837  0.2672612 ]';
23 assert_checkalmostequal(householder(v,-2*v), ref, 1e-6);
24 v = [ 2 -%i 1+%i].';
25 ref = [0.7559289 -0.3779645*%i  0.3779645 + 0.3779645*%i].';
26 assert_checkalmostequal(householder(v,v), ref, 1e-6);