view test/bug-49904.tst @ 31080:56ee6a223c51

use QScintilla instead of QTextEdit for new terminal widget * command-widget.cc (ctor): pass qobj to console; (insert_interpreter_output): just append output message to console text; (console::console): initialize QScintilla, remove obsolete document; (console::new_command_line): append new line, add prompt, remember current cursor pos for later use, append possibly given command string; (console::accept_command_line): just get last line, and append a new line; (console::append_block): removed; (console::append_string): new function appending a string and moving cursor to the end; (console::keyPressEvent): process QsciScintilla::keyPressEvent * command-widget.h: include Qsci/qsciscintilla.h, console inherits from QsciScintilla and gets oct_qobj for later use, new function append_string, new class variable m_command_position for storing the begin of the active command line
author Torsten Lilge <ttl-octave@mailbox.org>
date Tue, 07 Jun 2022 23:03:11 +0200
parents 9080316864bf
children
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 <*49904>
%! [Ainv, rcond] = inv (A);
%! assert (ishermitian (Ainv));
%! assert (A * Ainv, eye (4, 'double'), eps ('double') / rcond)

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