Mercurial > hg > octave-lyh

diff scripts/polynomial/spline.m @ 6248:7fad1fad19e1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-01-22 17:28:17 by jwe]
author jwe
date Mon, 22 Jan 2007 17:29:53 +0000
parents 437f9086b967
children 2aad75fcc93a
line wrap: on
line diff
--- a/scripts/polynomial/spline.m
+++ b/scripts/polynomial/spline.m
@@ -174,7 +174,7 @@
 
     elseif (n == 4)
 
-      dg = [h(1) + 2 * h(2), 2 * h(2) + h(3)];
+      dg = [h(1) + 2 * h(2); 2 * h(2) + h(3)];
       ldg = h(2) - h(3);
       udg = h(2) - h(1);
       c(2:n-1,:) = spdiags ([[ldg(:);0], dg, [0; udg(:)]],