Mercurial > octave-nkf

comparison scripts/linear-algebra/expm.m @ 17312:088d014a7fe2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use semicolon after "return" statement in core m-files. * scripts/general/accumdim.m, scripts/image/imformats.m, scripts/io/textread.m, scripts/io/textscan.m, scripts/linear-algebra/expm.m, scripts/miscellaneous/edit.m, scripts/optimization/lsqnonneg.m, scripts/optimization/pqpnonneg.m, scripts/pkg/private/dirempty.m, scripts/plot/findobj.m, scripts/plot/graphics_toolkit.m, scripts/plot/private/__errplot__.m, scripts/plot/private/__interp_cube__.m, scripts/plot/private/__marching_cube__.m, scripts/plot/subplot.m, scripts/polynomial/residue.m, scripts/sparse/sprandsym.m, scripts/special-matrix/gallery.m, scripts/strings/strjoin.m: Use semicolon after "return" statement in core m-files.
author Rik <rik@octave.org>
date Wed, 21 Aug 2013 19:53:42 -0700
parents f3d52523cde1
children d63878346099
comparison
equal deleted inserted replaced
17311:56404cdcb723 17312:088d014a7fe2
81 error ("expm: A must be a square matrix"); 81 error ("expm: A must be a square matrix");
82 endif 82 endif
83 83
84 if (isscalar (A)) 84 if (isscalar (A))
85 r = exp (A); 85 r = exp (A);
86 return 86 return;
87 elseif (strfind (typeinfo (A), "diagonal matrix")) 87 elseif (strfind (typeinfo (A), "diagonal matrix"))
88 r = diag (exp (diag (A))); 88 r = diag (exp (diag (A)));
89 return 89 return;
90 endif 90 endif
91 91
92 n = rows (A); 92 n = rows (A);
93 ## Trace reduction. 93 ## Trace reduction.
94 A(A == -Inf) = -realmax; 94 A(A == -Inf) = -realmax;