Mercurial > hg > octave-nkf

changeset 13904:1c06f3713e0a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* pascal.m: Style fixes.
author John W. Eaton <jwe@octave.org>
date Mon, 21 Nov 2011 16:36:20 -0500
parents 7b5da9754554
children e98cd21d63ea
files scripts/special-matrix/pascal.m
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/scripts/special-matrix/pascal.m
+++ b/scripts/special-matrix/pascal.m
@@ -53,11 +53,11 @@
 
   if (t == -1)
     for j = 2:n
-      retval(j:n,j) = cumsum ( retval(j-1:n-1,j-1) );
+      retval(j:n,j) = cumsum (retval(j-1:n-1,j-1));
     endfor
   else
     for j = 2:n
-      retval(j:n,j) = -cumsum ( retval(j-1:n-1,j-1) );
+      retval(j:n,j) = -cumsum (retval(j-1:n-1,j-1));
     endfor
   endif
 
@@ -66,7 +66,7 @@
   elseif (t == 2)
     retval = rot90 (retval, 3);
     if (rem (n,2) != 1)
-      retval *= -1;
+      retval = -retval;
     endif
   endif