supc.m

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

function b=supc(c,x)
[pm,pn]=size(c); b=[]; d=[0];
for i=1:pm
    [q,w]=size(intersect(c(i,:),x));
    if w~=0, b=cat(2,b,c(i,:)); end
end
bb=unique(b); b=setdiff(bb,0);