Mercurial > octave-nkf
comparison src/DLD-FUNCTIONS/schur.cc @ 14854:5ae9f0f77635
maint: Use Octave coding conventions for coddling parenthis is DLD-FUNCTIONS directory
* __fltk_uigetfile__.cc, __glpk__.cc, __init_fltk__.cc, __magick_read__.cc,
besselj.cc, bsxfun.cc, ccolamd.cc, cellfun.cc, chol.cc, colamd.cc, daspk.cc,
dasrt.cc, dassl.cc, dmperm.cc, fft.cc, filter.cc, find.cc, gcd.cc, kron.cc,
lsode.cc, lu.cc, luinc.cc, quad.cc, quadcc.cc, rand.cc, regexp.cc, schur.cc,
str2double.cc, symbfact.cc, symrcm.cc, tril.cc, urlwrite.cc: Use Octave coding
conventions for coddling parenthis is DLD-FUNCTIONS directory.
| author | Rik <octave@nomad.inbox5.com> |
|---|---|
| date | Mon, 09 Jul 2012 13:01:49 -0700 |
| parents | 60e5cf354d80 |
| children |
comparison
equal
deleted
inserted
replaced
| 14853:72b8b39e12be | 14854:5ae9f0f77635 |
|---|---|
| 284 %! a = single ([1, 2, 3; 4, 5, 9; 7, 8, 6]); | 284 %! a = single ([1, 2, 3; 4, 5, 9; 7, 8, 6]); |
| 285 %! [u, s] = schur (a); | 285 %! [u, s] = schur (a); |
| 286 %! assert (u' * a * u, s, sqrt (eps ("single"))); | 286 %! assert (u' * a * u, s, sqrt (eps ("single"))); |
| 287 | 287 |
| 288 %!test | 288 %!test |
| 289 %! fail("schur ([1, 2; 3, 4], 2)", "warning"); | 289 %! fail ("schur ([1, 2; 3, 4], 2)", "warning"); |
| 290 | 290 |
| 291 %!error schur () | 291 %!error schur () |
| 292 %!error <argument must be a square matrix> schur ([1, 2, 3; 4, 5, 6]) | 292 %!error <argument must be a square matrix> schur ([1, 2, 3; 4, 5, 6]) |
| 293 */ | 293 */ |
| 294 | 294 |