isidentity.m

来自「多小波图像压缩处理」· M 代码 · 共 13 行

function yesno = isidentity(S)

n = size(S);
S = simplify(S(:));
try 
    D = reshape(double(S),n);
    yesno = isidentity(D);
catch
% if S contains symbolic variables without numerical values,
% the conversion to "double" will fail. Then we end up here.
    yesno = 0;
end