Mercurial > hg > octave-nkf
changeset 9096:5235caf89e12
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