rslower.m

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

function w=Rslower(y,a,T)
z=ind(a,T); w=[]; [p,q]=size(z);
for u=1:p
    zz=setdiff(z(u,:),0);
    if ismember(zz,y), w=cat(2,w,zz); end
end
w=sort(w,2);