Copyright (C) 2001 Michel Juillard
0001 % Copyright (C) 2001 Michel Juillard 0002 % 0003 function x = selif(a,b) 0004 0005 if size(b,2) ~= 1 0006 error ('The second argument in SELIF must be column vector') ; 0007 end 0008 0009 x = a(find(b == 1),:) ; 0010 0011 return ; 0012