Antique Book Classifier

function [R,text,sym1,sym2]=Core(im1,im2,n)
text='';
az='ABCDEFGHIJKLMNOPQRSTUVWXYZ';
sym1=Let(im1,0,n);
sym2=Let(im2,0,n);
R=zeros(length(sym1),length(sym2));
for i=1:length(sym1)
    for j=1:length(sym2)
        R(i,j)=sym1{i}'*sym2{j}/(norm(sym1{i})*norm(sym2{j}));
    end
end
for i=1:length(sym1)
    sym1{i}=sym1{i}/norm(sym1{i});
end
for j=1:length(sym2)
    [M,I]=max(R(:,j));
    text=[text az(I)];
end
end

function sym=Let(im,bol,nu)
i=imread(im);
if size(i,3)==3
    i=rgb2gray(i);
end
t=0.5;
i=~im2bw(i,t);
if bol
    figure
    imshow(i);
end
u=1;
i=bwareaopen(i,u);
siz=size(i);
b=true;
c=false;
d=true;
x=[];
y=x;
for j=1:siz(1);
    for k=1:siz(2);
        if b && ~c && i(j,k)==1
            b=false;
            break;
        end
        if c
            d=d&~i(j,k);
            if ~d
                break;
            end
        end
        b=true;
    end
    if c&&d
        y=[y j];
        b=true;
        c=false;
    end
    if ~b
        c=true;
        x=[x j];
    end
    d=true;
end
rows={};
for k=1:length(x);
    rows{end+1}=i(x(k):y(k),:);
    %figure
    %imshow(rows{end});
end
k=0;
symbols={};
for n=1:length(x);
    siz=size(rows{n});
    b=true;
    c=false;
    d=true;
    x=[];
    y=x;
    for q=1:siz(2);
        for p=1:siz(1);
            if b && ~c && rows{n}(p,q)==1
                b=false;
                break;
            end
            if c
                d=d&~rows{n}(p,q);
                if ~d
                    break;
                end
            end
            b=true;
        end
        if c&&d
            y=[y q];
            b=true;
            c=false;
        end
        if d&&~b
            c=true;
            x=[x q];
        end
        d=true;
    end
    for p=1:length(x);
        a=(rows{n}(:,x(p):y(p)));
        alp=a(any(a,2),:);
        symbols{end+1}=alp;
    end
    k=k+length(x);
end
al=nu-1;
sym={};
m=200;
for k=1:length(symbols)
    u=svd(double(symbols{k}));
    %u=u(u>1);
    len=length(u);
    if len>al
        u=u(end-al:end);
    else
        u=[zeros(al+1-len,1);u];
    end
    u=u/norm(u);
    u=[zeros(m-length(u),1)' u']';
    sym{end+1}=u;
end
end

function s=archetype

s1=svder('Bohemia.jpg');
s2=svder('Uru.jpg');

s=(s1+s2)/2;

end

function s=svder(image)
i=imread(image);
if size(i,3)==3
    i=rgb2gray(i);
end
t=0.5;
i=~im2bw(i,t);
u=1;
i=bwareaopen(i,u);
siz=size(i);
b=true;
c=false;
d=true;
x=[];
y=x;
for j=1:siz(1);
    for k=1:siz(2);
        if b && ~c && i(j,k)==1
            b=false;
            break;
        end
        if c
            d=d&~i(j,k);
            if ~d
                break;
            end
        end
        b=true;
    end
    if c&&d
        y=[y j];
        b=true;
        c=false;
    end
    if ~b
        c=true;
        x=[x j];
    end
    d=true;
end
rows={};
for k=1:length(x);
    rows{end+1}=i(x(k):y(k),:);
end
k=0;
symbols={};
for n=1:length(x);
    siz=size(rows{n});
    b=true;
    c=false;
    d=true;
    x=[];
    y=x;
    for q=1:siz(2);
        for p=1:siz(1);
            if b && ~c && rows{n}(p,q)==1
                b=false;
                break;
            end
            if c
                d=d&~rows{n}(p,q);
                if ~d
                    break;
                end
            end
            b=true;
        end
        if c&&d
            y=[y q];
            b=true;
            c=false;
        end
        if d&&~b
            c=true;
            x=[x q];
        end
        d=true;
    end
    for p=1:length(x);
        a=(rows{n}(:,x(p):y(p)));
        alp=a(any(a,2),:);
        symbols{end+1}=alp;
    end
    k=k+length(x);
end
al=5;
sym={};
for k=1:length(symbols)
    u=svd(double(symbols{k}));
    if length(u)>=al
        u=u(1:al);
    else
        u=[u;zeros(al-length(u),1)];
    end
    u=u/norm(u);
    sym{end+1}=u;
end
s=[];
for n=1:length(sym)
    s=[s sym{n}];
end

end

function t=tester(i,s)

im=imread(i);
v=vectorer(im);
t=extracter(v,s);

end

function v=vectorer(im)

n=80;

v=[];
for i=1:n
    v=[v im(i,:)];
end

end

function t=extracter(v,s)

I=matrixer(v);
M=finder(I);
R=correlater(M,s);
t=texter(R);

end

function I=matrixer(v)

n=80;

I=zeros(n);

for i=1:n
    I(i,:)=v(n*(i-1)+1:n*i);
end

end

function M=finder(I)

nu=5;
u=svd(I);
u=u(1:nu);
M=u/norm(u);
plot(M)

end

function R=correlater(M,s)

n=65;

R=zeros(n,1);
m=mean(s')';

for i=1:n
        R(i)=dot(s(:,i)-m,M-m);
end

end

function t=texter(R)

n=65;

az='AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz.,0123456789-';
[aa,indices]=sort(R,'descend');
for i=1:n
    if R(indices(i))>0.04
        t(i)=az(indices(i));
    end
end

end

function r=arethey(i1,i2)

im1=imread(i1);
if size(im1,3)==3
    im1=rgb2gray(im1);
end
t1=0.5;
im1=~im2bw(im1,t1);
v1=double(rectorer(im1));
im2=imread(i2);
if size(im2,3)==3
    im2=rgb2gray(im2);
end
t2=0.5;
im2=~im2bw(im2,t2);
v2=double(rectorer(im2));
r=dot(v1,v2)/(norm(v1)*norm(v2));

end

function v=rectorer(im)

n=275;

v=[];
for i=1:n
    v=[v im(i,:)];
end

end

module abc(i,p,z);
input i;
output p,z;
wire o,e,q,s,y;
camera camera(i,o);
extraction extraction(o,e);
search search(e,q,s,y);
ethernet ethernet(s,p,q);
display display(y,z);
endmodule

module camera(i,o);
input i;
output o;
endmodule

module extraction(o,e);
input o;
output e;
endmodule

module search(e,q,s,y);
input e,q;
output s,y;
endmodule

module ethernet(s,p,q);
input s;
output p,q;
endmodule

module display(y,z);
input y;
output z;
endmodule

module vcabc(i,o);
input [6:0] i;
output [2:0] o;
parameter [6:0] p=7'b1010101;
corr ccc(i,p,o);
endmodule

module corr(x,y,o);
input [6:0] x,y;
output [2:0] o;
wire [6:0] w;
assign w=x^y;
sum6 sss(w,o);
endmodule

module sum6(i,o);
input [6:0] i;
output [2:0] o;
assign o=i[0]+i[1]+i[2]+i[3]+i[4]+i[5]+i[6];
endmodule