%nn1R, Recognition of BP network
%===============
%例3.5 訓練好的BP網絡識別加了噪聲的測試樣本
%===============

clc;
[length,width]=size(b1);
b=double(b1);
q=reshape(b,length*width,1);  %改32*32的矩陣為1024*1的矩陣

Recog=purelin(W2*tansig(W1*q,B1),B2); %網絡對測試樣本的實際輸出
Re=round(Recog); % 識別判別
set(Hbp3_recog,'String',Re,'fontsize',65)