Mercurial > hg > octave-lyh

diff scripts/special-matrix/gallery.m @ 17314:09543e9c8f40

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
+++ b/scripts/special-matrix/gallery.m
@@ -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.