Page 189 - Algorithm Collections for Digital Signal Processing Applications using MATLAB

178 Chapter 4

end
res{1}=approx;
res{2}=det;
________________________________________________________________________

gethiddenimage.m

% size of the Binary hidden image is 45x45
A= wavread ('C:\WINDOWS\Media\Microsoft Office 2000\glass.wav');
A=repmat(A,100,1);
A=A';
len=fix(length(A)/256);
for k=1:1:len-1
temp=A((k-1)*256+1:1:(k-1)*256+256);
col1{k}=daub4water(temp);
end

load signal
A=signal;
len=fix(length(A)/256);
for k=1:1:len
temp=A((k-1)*256+1:1:(k-1)*256+256);
col2{k}=daub4water(temp);
end

temp=[];
for k=1:1:45*45
m1=mean(col1{k}{2}{3});
m2=mean(col2{k}{2}{3});
if(m1>m2)
temp=[temp 0];
else
temp=[temp 1];
end
end
temp1=reshape(temp,45,45);
figure
imshow(temp1);
______________________________________________________________________