%nn character recognition
clear all;
p(1:256,1)=1;
p1=ones(16,16);
load Eneth neth;
load Enetv netv;
x=imread('e:\doctordip\imgtemp\photo\character3.jpg');
bw=im2bw(x,0.5);
[i,j]=find(bw==0);
imin=min(i);
imax=max(i);
jmin=min(j);
jmax=max(j);
bw1=bw(imin:imax,jmin:jmax);
rate=16/max(size(bw1));
bw1=imresize(bw1,rate);
    
[i,j]=size(bw1);
i1=round((16-i)/2);
j1=round((16-j)/2);
p1(i1+1:i1+i,j1+1:j1+j)=bw1;
p1=-1.*p1+ones(16,16);
    
for m=0:15
       phh(m*16+1:(m+1)*16,1)=p1(m+1,1:16).';
       pvv(m*16+1:(m+1)*16,1)=p1(1:16,m+1); 
end
[ah,Pf,Af]=sim(neth,phh);
[av,Pf,Af]=sim(netv,pvv);
ah=round(ah);
av=round(av);