view test/bug-49904.tst @ 30893:e1788b1a315f

maint: Use "fcn" as preferred abbreviation for "function" in m-files. * accumarray.m, accumdim.m, quadl.m, quadv.m, randi.m, structfun.m, __is_function__.m, uigetfile.m, uimenu.m, uiputfile.m, doc_cache_create.m, colorspace_conversion_input_check.m, imageIO.m, argnames.m, vectorize.m, vectorize.m, normest1.m, inputname.m, nthargout.m, display_info_file.m, decic.m, ode15i.m, ode15s.m, ode23.m, ode23s.m, ode45.m, odeset.m, check_default_input.m, integrate_adaptive.m, ode_event_handler.m, runge_kutta_23.m, runge_kutta_23s.m, runge_kutta_45_dorpri.m, runge_kutta_interpolate.m, starting_stepsize.m, __all_opts__.m, fminbnd.m, fminsearch.m, fminunc.m, fsolve.m, fzero.m, sqp.m, fplot.m, plotyy.m, __bar__.m, __ezplot__.m, flat_entry.html, profexport.m, movfun.m, bicg.m, bicgstab.m, cgs.m, eigs.m, gmres.m, pcg.m, __alltohandles__.m, __sprand__.m, qmr.m, tfqmr.m, dump_demos.m: Replace "func", "fun", "fn" in documentation and variable names with "fcn".
author Rik <rik@octave.org>
date Mon, 04 Apr 2022 18:14:56 -0700
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)