extra.m

it is used to find traffic

A=imread('baboon.jpg');
C=imresize(A,0.5);
figure;
imshow(C);

W=imread('mitlogo.jpg');
W=rgb2gray(W);
W1=imresize(W,[64 64]);
figure;
imshow(W1);
for i=1:64
    for j=1:64
        if(W1(i,j)<128)
            W1(i,j)=0;
        else
            W1(i,j)=1;
        end
    end
end
figure;
imshow(W1);

% T1=[];
% for i=1:128
%         L=C(i,:);
%         T=dec2bin(L,8);
%         T1=vertcat(T1,T);
% end
T1=separate_image(C);
%T2=dec2bin(T1);
k=1;
even=[];
odd=[];
even_out=[];
odd_out=[];
o=1;
for i=1:8192
    even(k)=T1(o);
    odd(k)=T1(o+1);
    even_out(k)=even(k)+31;
    odd_out(k)=odd(k)+31;
    o=o+2;
    
    k=k+1;
end

even=dec2bin(even);
odd=dec2bin(odd);
even_out=dec2bin(even_out);
odd_out=dec2bin(odd_out);


%csvwrite('image_even.txt',even);
%csvwrite('image_odd.txt',odd);

watermark=[];
for i=1:64
        L=W1(i,:);
        K=dec2bin(L,1);
        watermark=vertcat(watermark,K);
end
%csvwrite('watermark.txt',T3);

%image_watermarked=new_dwt(0.1);
%image_watermarked1=new_dwt(0.4);
% figure;
% imshow(mat2gray(image_watermarked));



M=even_out;
N=odd_out;
% M=csvread('D:\even_out.txt');
% N=csvread('D:\odd_out.txt');
image_out=[];

for i=1:8192
   image_out((i*2)-1)=bin2dec(M(i,:));
   image_out(i*2)=bin2dec(N(i,:));
   i=i+1;
end
% disp(image_out);
% X=[];
% 
% for i=1:16384
%     for j=1:8
%             X(i,(9-j))=mod(image_out(i),10);
%             image_out(i)=floor(image_out(i)/10);
%     end
% end
% size(X);
% %disp(X);
% 
% P=[];
% for i=1:16384
% P(i)=Binary_to_Decimal(X(i,:));
% end
% disp(P);
P=image_out;
A_out=[];
k=1;
for l=0:15
  for m=0:15
    for i=1:8 
       for j=1:8
        A_out(i+(l*8),j+(m*8))=P(k);
        
        k=k+1;
       end
    end
  end
end
size(A_out)
%disp(A);
for i=1:128
    for j=128
        A_out(i,j)=A_out(i,j)-128;
    end
end
figure;
imshow(uint8(A_out));