Mercurial > hg > octave-nkf

diff scripts/special-matrix/pascal.m @ 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 2e35cfcf6a6a
children 923c7cb7f13f
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