Copyright (C) 2001 Michel Juillard
0001 % Copyright (C) 2001 Michel Juillard 0002 % 0003 function a=indnv(x,y) 0004 0005 a = zeros(size(x)) ; 0006 0007 for i = 1:size(x,1) 0008 j = find( x(i) == y ); 0009 if isempty(j) 0010 a(i) = NaN; 0011 else 0012 a(i) = j; 0013 end 0014 end 0015 0016 0017