clear?all
p（1:2561）=1;???%P為256行1列，全部為1
p1=ones（1616）;%初始化16*16的二值圖像?????像素值全部為1（全白）
load?E52net?net;????????????%加載訓練后的BP網絡
test=input（‘請輸入測試的圖像:‘‘s‘）;???????%提示輸入測試樣本圖像文件名
if?isempty（test）test=0;end
if?test==0
????disp（‘錯誤，請重新輸入‘）;
????test=input（‘請輸入測試的圖像:‘‘s‘）;%提示輸入測試樣本圖像文件名
end
figure（2）
x=imread（test‘bmp‘）;?????????%讀入測試樣本圖像
subplot?121imshow（x）;title（‘輸入樣本圖‘）;hold?on;
bw=im2bw（x0.5）;?????????????%將讀入的訓練樣本圖像轉換為二值圖像
[ij]=find（bw==0）;??????????????%尋找二值圖像中像素值為0的行號和列號
imin=min（i）;????????????????????%尋找二值圖像中像素值為0的最小行號
imax=max（i）;????????????%尋找二值圖像中像素值為0的最大行號
jmin=min（j）;??????????????%尋找二值圖像中像素值為0的最小列號
jmax=max（j）;??????????????%尋找二值圖像中像素值為0的最大列號
bw1=bw（imin:imaxjmin:jmax）;???????????%截取圖像像素值為0的最大矩形區域
rate=16/max（size（bw1））;?????????%計算轉換為16*16的二值圖像的縮放比例
bw1=imresize（bw1rate）;?????????%將截取圖像轉換為16?x?16的二值圖像
[ij]=size（bw1）;???????????????????%轉換圖像的大小
i1=round（（16-i）/2）;?????????%計算轉換圖像的寬度與16的差距
j1=round（（16-j）/2）;?????????%計算轉換圖像的高度與16的差距
p1（i1+1:i1+ij1+1:j1+j）=bw1;??????%將截取圖像轉換為標準的16*16的圖像
p1=-1.*p1+ones（1616）;?????????????%反色處理
?for?m?=0:15
????????p（m*16+1:（m+1）*161）=p1（1:16m+1）;??????%形成測試樣本輸入向量
?end
????
?[aPfAf]=sim（netp）;????????????????????%網絡仿真
????subplot?122imshow（p1）;title（‘測試的樣本圖‘）;????????%顯示測試樣本圖像
????
???

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----
?????目錄???????????0??2018-01-06?21:35??1.字母識別項目（BP網絡）\
?????文件??????343734??2015-08-31?16:34??1.字母識別項目（BP網絡）\1.bmp
?????文件??????132793??2017-11-07?18:15??1.字母識別項目（BP網絡）\1.jpg
?????文件???????14502??2009-05-07?22:23??1.字母識別項目（BP網絡）\123.bmp
?????文件???????12566??2009-05-07?22:22??1.字母識別項目（BP網絡）\143.bmp
?????文件???????43516??2017-11-07?18:16??1.字母識別項目（BP網絡）\2.jpg
?????文件????????4344??2010-06-01?15:15??1.字母識別項目（BP網絡）\E52PT.mat
?????文件??????118191??2010-06-01?15:17??1.字母識別項目（BP網絡）\E52net.mat
?????文件??????395292??2010-06-01?15:21??1.字母識別項目（BP網絡）\Thumbs.db
?????文件???????27618??2017-12-04?18:02??1.字母識別項目（BP網絡）\qrcode_for_gh_ee7f0fa7ec4a_258.jpg
?????文件????????1620??2017-09-08?20:24??1.字母識別項目（BP網絡）\shibie2.m
?????文件???????17262??2017-11-07?18:15??1.字母識別項目（BP網絡）\shiyan1.jpg
?????文件??????381440??2018-01-06?21:35??1.字母識別項目（BP網絡）\學習前必讀.ppt
?????文件???????39424??2017-09-08?20:16??1.字母識別項目（BP網絡）\神經網絡.doc
?????文件??????????42??2017-09-08?20:17??1.字母識別項目（BP網絡）\說明文檔.txt