15 lines
213 B
Scilab
15 lines
213 B
Scilab
|
function [x]=selif(a,b)
|
|||
|
|
x=[];
|
|||
|
|
// Copyright (C) 2001 Michel Juillard
|
|||
|
|
//
|
|||
|
|
|
|||
|
|
if size(b,2)~=1 then
|
|||
|
|
error('The second argument in SELIF must be <20> column vector');
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
x = a(matrix(find(b==1),1,-1),:);
|
|||
|
|
|
|||
|
|
return
|
|||
|
|
|
|||
|
|
|