infc.m

来自「薛定宇高等应用数学问题的MATLAB求解例子源码」· M 代码 · 共 12 行

function b=infc(c,x)
[pm,pn]=size(c);
x=cat(2,x,0);
b=[];
for i=1:pm
    if ismember(c(i,:),x)
        b=cat(2,b,c(i,:));
      end
end
%num
bb=unique(b);
b=setdiff(bb,0);