Mercurial > hg > octave-nkf

diff scripts/set/create_set.m @ 3727:e6d0041aedf3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2000-10-31 02:08:49 by jwe]
author jwe
date Tue, 31 Oct 2000 02:08:50 +0000
parents 26662775f4e9
children a0997c4d1d54
line wrap: on
line diff
--- a/scripts/set/create_set.m
+++ b/scripts/set/create_set.m
@@ -45,7 +45,12 @@
     [nrx, ncx] = size (x);
     nelx = nrx * ncx;
     y = sort (reshape (x, 1, nelx));
-    y = y ([1, (find (y(1:nelx-1) != y(2:nelx)) + 1)]);
+    els = find (y(1:nelx-1) != y(2:nelx));
+    if (isempty (els));
+      y = y(1);
+    else
+      y = y([1, els+1]);
+    endif
   endif
 
 endfunction