Mercurial > hg > octave-max

changeset 9096:5235caf89e12

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix typo in pascal
author Jaroslav Hajek <highegg@gmail.com>
date Mon, 06 Apr 2009 20:50:54 +0200
parents b5a1a2d0be7e
children 705c24e3db58
files scripts/special-matrix/pascal.m
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/scripts/special-matrix/pascal.m
+++ b/scripts/special-matrix/pascal.m
@@ -55,11 +55,11 @@
   retval(:,1) = 1;
 
   if (t == -1)
-    for j = 2:n-1
+    for j = 2:n
       retval(j:n,j) = cumsum (retval (j-1:n-1,j-1));
     endfor
   else
-    for j = 2:n-1
+    for j = 2:n
       retval(j:n,j) = -cumsum (retval (j-1:n-1,j-1));
     endfor
   endif