Mercurial > octave

view test/bug-49904.tst @ 28020:eb46a9f47164 stable release-5-2-0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Avoid color changes in MS Windows GUI terminal (bug #57658). * scripts/miscellaneous/mkoctfile.m: Add the gcc compiler flag "-fdiagnostics-color=never" in case of MS Windows and the GUI is running. For the MS Windows CLI version the output looks very nice. Update year.
author Kai T. Ohlhus <k.ohlhus@gmail.com>
date Tue, 28 Jan 2020 10:57:35 +0900
parents db2a531717b3
children 2838bbd84b87
line wrap: on
line source

%!shared A
%! A = [ ...
%!  1.00003+0.00000i, -0.68292+0.26406i, -0.57670+0.25291i,  0.34986+0.03335i;
%! -0.68292-0.26406i,  0.94539+0.00000i,  0.69006-0.03967i, -0.43847+0.38619i;
%! -0.57670-0.25291i,  0.69006+0.03967i,  0.95260+0.00000i, -0.34734+0.40728i;
%!  0.34986-0.03335i, -0.43847-0.38619i, -0.34734-0.40728i,  0.98356+0.00000i];
%!

%!test
%! [Ainv, rcond] = inv (A);
%! assert (ishermitian (Ainv));
%! assert (A * Ainv, eye (4, 'double'), eps ('double') / rcond)

%!test
%! [Ainv, rcond] = inv (single (A));
%! assert (ishermitian (Ainv));
%! assert (A * Ainv, eye (4, 'single'), eps ('single') / rcond)