Mercurial > hg > octave-image

changeset 99:7ad0a694c803

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
speed improvement suggested by Paul Kienzle
author jmones
date Wed, 18 Aug 2004 14:57:42 +0000
parents de7a8d9b30d4
children 95bec31f5593
files cmpermute.m
diffstat 1 files changed, 5 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/cmpermute.m
+++ b/cmpermute.m
@@ -53,10 +53,8 @@
   newmap=map(index);
 
   ## build reverse index
-  rindex=zeros(length(index),1);
-  for i=1:length(index)
-    rindex(index(i))=i;
-  endfor
+  rindex = zeros(size(index));
+  rindex(index) = 1:length(index);
  
   ## readapt indices
   Y=rindex(X);
@@ -88,6 +86,9 @@
 
 %
 % $Log$
+% Revision 1.2  2004/08/18 14:57:42  jmones
+% speed improvement suggested by Paul Kienzle
+%
 % Revision 1.1  2004/08/17 19:18:42  jmones
 % cmpermute added: Reorders colors in a colormap
 %