other.m

来自「线性代数实验及MATLAB入门,电子工业出版社出版 陈怀琛 龚杰民合著」· M 代码 · 共 7 行

function kp = other(jp,n)
% OTHER(jp,n) contains the indices remaining in 1,2,...,n
% when the indices in jp are removed.
x = 1:n;
x(jp) = zeros(1,length(jp));
kp = x(find(x));