识别.m

通过神经网络进行数字识别

p1=[-1 1 1 1 1 -1 1 -1 -1 -1 -1 1 1 -1 -1 -1 -1 1 1 -1 -1 -1 -1 1 -1 1 1 1 1 -1]'
p2=[-1 -1 -1 -1 -1 -1 1 -1 -1 -1 -1 -1 1 1 1 1 1 1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1]'
p3=[1 -1 -1 -1 -1 -1 1 -1 -1 1 1 1 1 -1 -1 1 -1 1 -1 1 1 -1 -1 1 -1 -1 -1 -1 -1 1]'
p4=[-1 -1 -1 -1 -1 -1 -1 1 -1 1 -1 1 -1 1 -1 1 -1 1 -1 1 -1 1 -1 1 -1 -1 1 1 1 -1 ]'
p5=[-1 -1 1 1 -1 -1 -1 1 -1 1 -1 -1 1 1 1 1 1 1 -1 -1 -1 1 -1 -1 -1 -1 -1 1 -1 -1 ]'
p6=[-1 -1 1 1 -1 1 -1 1 -1 1 -1 1 -1 1 -1 1 -1 1 -1 1 -1 1 -1 1 -1 1 -1 1 1 -1 ]'

p=[p1 p2 p3 p4 p5 p6]
f=1
l=0
while f>0&l<120
    w=p*p'
    s=size(w)
    s1=s(1,1)
    for i=1;s1
        for j=1:s1
            w(i,j)=w(i,j)/abs(w(i,j))
        end
    end
    disp(w)
    a=w*p
    for i=1:s1
        for j=1:6
            a(i,j)=a(i,j)/abs(a(i,j))
        end
    end
    disp(a)
    for i=1:s1
        for j=1:6
            d(i,j)=p(i,j)-a(i,j)
        end
    end
    f=0
    l=0
    for i=1:s1
        for j=1:6
            if d(i,j)<0.01
                f=f+0
                l=l+1
            else f=f+1
            end
        end
    end
    p=p-0.01*d
end    
disp(d)
p11=[-1 1 1 1 1 -1 1 -1 -1 -1 -1 1 1 -1 -1 -1 -1 1 1 -1 -1 -1 -1 1 -1 1 1 1 1 -1]'
c=w*p11
b=[c(1,1) c(2,1) c(3,1) c(4,1) c(5,1) c(6,1);c(7,1) c(8,1) c(9,1) c(10,1) c(11,1) c(12,1);c(13,1) c(14,1) c(15,1) c(16,1) c(17,1) c(18,1);c(19,1) c(20,1) c(21,1) c(22,1) c(23,1) c(24,1);c(25,1) c(26,1) c(27,1) c(28,1) c(29,1) c(30,1)]
s=size(b)
s1=s(1,1)
s2=s(1,2)
for i=1:s1
    for j=1:s2
        b(i,j)=b(i,j)/abs(b(i,j))
    end
end
b=b'
figure(1)
clf
axis([1 5 1 6])
hold
for i=1:5
    for j=1:6
        if b(j,i)==1
            plot(i,7-j,'s')
        end
    end
end