Mercurial > hg > octave-lyh

diff scripts/general/diff.m @ 7208:a730e47fda4d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-11-28 02:32:41 by jwe]
author jwe
date Wed, 28 Nov 2007 02:32:42 +0000
parents a1dbe9d80eee
children 83a8781b529d
line wrap: on
line diff
--- a/scripts/general/diff.m
+++ b/scripts/general/diff.m
@@ -98,13 +98,13 @@
       n = sz (dim);
       idx1 = cell ();
       for i = 1:nd
-	idx1 {i} = 1:sz(i);
+	idx1{i} = 1:sz(i);
       endfor
       idx2 = idx1;
       for i = 1 : k;
-	idx1 {dim} = 2 : (n - i + 1);	
-	idx2 {dim} = 1 : (n - i);	
-	x = x (idx1 {:}) - x (idx2 {:});
+	idx1{dim} = 2 : (n - i + 1);	
+	idx2{dim} = 1 : (n - i);	
+	x = x(idx1{:}) - x(idx2{:});
       endfor
     endif
   else
@@ -113,17 +113,17 @@
     else
       idx1 = cell ();
       for i = 1:nd
-	idx1 {i} = 1:sz(i);
+	idx1{i} = 1:sz(i);
       endfor
       idx2 = idx1;
       while (k)
 	n = sz (dim);
 	for i = 1 : min (k, n - 1)
-	  idx1 {dim} = 2 : (n - i + 1);	
-	  idx2 {dim} = 1 : (n - i);	
-	  x = x (idx1 {:}) - x (idx2 {:});
+	  idx1{dim} = 2 : (n - i + 1);	
+	  idx2{dim} = 1 : (n - i);	
+	  x = x(idx1{:}) - x(idx2{:});
 	endfor
-	idx1 {dim} = idx2 {dim} = 1;
+	idx1{dim} = idx2{dim} = 1;
 	k = k - min (k, n - 1);
 	dim = dim + 1;
       endwhile