Mercurial > hg > octave-nkf
changeset 2820:eb2222c7f4cf
[project @ 1997-03-18 06:38:37 by jwe]
author | jwe |
---|---|
date | Tue, 18 Mar 1997 06:38:52 +0000 |
parents | ae3cce876a8e |
children | 044d25a60ea1 |
files | test/octave.test/linalg/eig-1.m test/octave.test/linalg/eig-2.m |
diffstat | 2 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/test/octave.test/linalg/eig-1.m +++ b/test/octave.test/linalg/eig-1.m @@ -1,1 +1,1 @@ -all (eig ([1, 2; 2, 1]) - [3; -1] < sqrt (eps)) +all (eig ([1, 2; 2, 1]) - [-1; 3] < sqrt (eps))
--- a/test/octave.test/linalg/eig-2.m +++ b/test/octave.test/linalg/eig-2.m @@ -1,4 +1,4 @@ [v, d] = eig ([1, 2; 2, 1]); x = 1 / sqrt (2); -(abs (d - [3, 0; 0, -1] < sqrt (eps)) - && abs (v - [x, -x; x, x] < sqrt (eps))) +(abs (d - [-1, 0; 0, 3] < sqrt (eps)) + && abs (v - [-x, x; x, x] < sqrt (eps)))