all.sci

小波分解源代码

function r=all(a)
//  Copyright Aldo I Maalouf
if type(a)==4 then a=bool2s(a);end
if size(a,1)==1|size(a,2)==1 then
  r=and(a)
else
  r=and(a,1)
end

endfunction