isidentity.m

多小波图像压缩处理

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