isequal.sci

来自「小波分解源代码」· SCI 代码 · 共 13 行

function f=waveisequal(a,b)
c1=(size(a)==size(b))
if(find(c1)~=length2(c1))
f=0;
else 
c2=(a==b);
if(find(c2)~=length2(c2))
f=0;
else f=1;
end
end
endfunction