extra.asv

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)+3;
    odd_out(k)=odd(k)+3;
    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)=(M(i,:));;
   image_out(i*2)=(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);
% 
% 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));
%