Mercurial > octave
view scripts/set/complement.m @ 904:3470f1e25a79
[project @ 1994-11-09 21:22:15 by jwe]
author | jwe |
---|---|
date | Wed, 09 Nov 1994 21:22:15 +0000 |
parents | 4e826edfbc56 |
children | 5cffc4b8de57 |
line wrap: on
line source
function y = complement (a, b) # usage: complement (a, b) # # Returns the elements of set b that are not in set a. # # See - create_set, union, intersection if (nargin != 2) usage ("complement(a,b)"); endif if (isempty (a)) y = create_set(b); elseif (isempty (b)) y = []; else a = create_set (a); b = create_set (b); yindex = 1; y = zeros (1, length (b)); for index = 1:length (b) if (all (a != b (index))) y(yindex++) = b(index); endif endfor y = y(1:(yindex-1)); endif endfunction