Mercurial > octave-antonio
diff scripts/special-matrix/gallery.m @ 17306:09543e9c8f40
Use explicit form of end (endif, endfor, etc.) in core m-files.
* scripts/general/interp1.m, scripts/image/rgb2ind.m,
scripts/plot/__gnuplot_drawnow__.m, scripts/plot/private/__ezplot__.m,
scripts/plot/private/__go_draw_axes__.m, scripts/special-matrix/gallery.m,
scripts/strings/strjoin.m, scripts/testfun/assert.m, scripts/ui/questdlg.m:
Use explicit form of end (endif, endfor, etc.) in core m-files.
| author | Rik <rik@octave.org> |
|---|---|
| date | Wed, 21 Aug 2013 16:42:13 -0700 |
| parents | bc924baa2c4e |
| children | 088d014a7fe2 |
line wrap: on
line diff
--- a/scripts/special-matrix/gallery.m Wed Aug 21 16:32:18 2013 -0700 +++ b/scripts/special-matrix/gallery.m Wed Aug 21 16:42:13 2013 -0700 @@ -1949,7 +1949,7 @@ Q(1,2:n) = ones (1, n-1); for i = 2:n Q(i,i) = -(i-1); - end + endfor Q = diag (sqrt ([n 1:n-1] .* [1:n])) \ Q; case (5) @@ -2217,8 +2217,8 @@ if (p == 1) A = randn (m, n); A = A / norm (A); - return - end + return; + endif ## Set up vector sigma of singular values. switch (abs (mode)) @@ -2244,7 +2244,7 @@ ## Convert to diagonal matrix of singular values. if (mode < 0) sigma = sigma (p:-1:1); - end + endif sigma = diag (sigma); if (posdef) @@ -2258,7 +2258,7 @@ if (m != n) ## Expand to m-by-n diagonal matrix sigma(m, n) = 0; - end + endif if (kl == 0 && ku == 0) ## Diagonal matrix requested - nothing more to do.