Mercurial > hg > octave-max
changeset 3676:b937a6953b5e
[project @ 2000-06-08 14:45:55 by jwe]
| author | jwe |
|---|---|
| date | Thu, 08 Jun 2000 14:45:57 +0000 |
| parents | 59123cd0be83 |
| children | f22d6fd646e9 |
| files | src/ChangeLog src/sysdep.cc test/ChangeLog test/octave.test/arith/exp-1.m test/octave.test/linalg/cond-1.m test/octave.test/linalg/eig-1.m test/octave.test/linalg/eig-2.m test/octave.test/linalg/inv-1.m test/octave.test/linalg/lu-2.m test/octave.test/linalg/svd-10.m test/octave.test/linalg/svd-2.m |
| diffstat | 11 files changed, 25 insertions(+), 13 deletions(-) [+] |
line wrap: on
line diff
--- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,7 @@ +2000-06-08 John W. Eaton <jwe@bevo.che.wisc.edu> + + * sysdep.cc (Fkbhit): Also ask for input if forced_interactive. + 2000-06-07 John W. Eaton <jwe@bevo.che.wisc.edu> * Makefile.in (oct-gperf.h): Use $(GPERF) instead of gperf.
--- a/src/sysdep.cc +++ b/src/sysdep.cc @@ -430,7 +430,7 @@ // XXX FIXME XXX -- add timeout and default value args? - if (interactive) + if (interactive || forced_interactive) { int c = kbhit (args.length () == 0);
--- a/test/ChangeLog +++ b/test/ChangeLog @@ -5,6 +5,14 @@ problems like this were noticed by Przemek Klosowski <przemek@rrdjazz.nist.gov>. * octave.test/quad/quad-2.m: Likewise. + * octave.test/arith/exp-1.m: Likewise. + * octave.test/linalg/cond-1.m: Likewise. + * octave.test/linalg/eig-1.m: Likewise. + * octave.test/linalg/eig-2.m: Likewise. + * octave.test/linalg/inv-1.m: Likewise. + * octave.test/linalg/lu-2.m: Likewise. + * octave.test/linalg/svd-2.m: Likewise. + * octave.test/linalg/svd-10.m: Likewise. 1999-10-29 John W. Eaton <jwe@bevo.che.wisc.edu>
--- a/test/octave.test/arith/exp-1.m +++ b/test/octave.test/arith/exp-1.m @@ -1,1 +1,1 @@ -all (exp ([0, 1, -1, -1000]) - [1, e, 1/e, 0] < sqrt (eps)) +all (abs (exp ([0, 1, -1, -1000]) - [1, e, 1/e, 0]) < sqrt (eps))
--- a/test/octave.test/linalg/cond-1.m +++ b/test/octave.test/linalg/cond-1.m @@ -1,1 +1,1 @@ -cond ([1, 2; 2, 1]) - 3 < sqrt (eps) +abs (cond ([1, 2; 2, 1]) - 3) < sqrt (eps)
--- 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]) - [-1; 3] < sqrt (eps)) +all (abs (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 - [-1, 0; 0, 3] < 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)))
--- a/test/octave.test/linalg/inv-1.m +++ b/test/octave.test/linalg/inv-1.m @@ -1,1 +1,1 @@ -all (all (inv ([1, 2; 3, 4]) - [-2, 1; 1.5, -0.5] < sqrt (eps))) +all (all (abs (inv ([1, 2; 3, 4]) - [-2, 1; 1.5, -0.5]) < sqrt (eps)))
--- a/test/octave.test/linalg/lu-2.m +++ b/test/octave.test/linalg/lu-2.m @@ -1,3 +1,3 @@ [l, u] = lu ([1, 2; 3, 4]) -(abs (l - [1/3, 1; 1, 0] < sqrt (eps)) - && abs (u - [3, 4; 0, 2/3] < sqrt (eps))) +((abs (l - [1/3, 1; 1, 0]) < sqrt (eps)) + && abs (u - [3, 4; 0, 2/3]) < sqrt (eps))
--- a/test/octave.test/linalg/svd-10.m +++ b/test/octave.test/linalg/svd-10.m @@ -1,1 +1,1 @@ -all (svd ([eye(3), eye(3)]) - [rt2; rt2; rt2] < sqrt (eps)) +all (abs (svd ([eye(3), eye(3)]) - [rt2; rt2; rt2]) < sqrt (eps))
--- a/test/octave.test/linalg/svd-2.m +++ b/test/octave.test/linalg/svd-2.m @@ -1,5 +1,5 @@ [u, s, v] = svd ([1, 2; 2, 1]); x = 1 / sqrt (2); -(abs (u - [-x, -x; -x, x] < sqrt (eps)) - && abs (s - [3, 0; 0, 1] < sqrt (eps)) - && abs (v - [-x, x; -x, -x] < sqrt (eps))) +((abs (u - [-x, -x; -x, x]) < sqrt (eps)) + && (abs (s - [3, 0; 0, 1]) < sqrt (eps)) + && (abs (v - [-x, x; -x, -x]) < sqrt (eps)))