%?數(shù)字識別

%?生成輸入向量和目標向量
clear?all;
‘LOADING......‘

for?kk?=?0:99
????p1=ones（1616）;??%建立全為1的樣本矩陣?
????m=strcat（‘nums\‘int2str（kk）‘.bmp‘）;
????x=imread（m‘bmp‘）;??%循環(huán)讀入0-99個樣本數(shù)字文件?
????bw=im2bw（x0.5）;???%對輸入圖像進行二值化處理?采用全局閾值0.5
????[ij]=find（bw==0）;
????imin=min（i）;
????imax=max（i）;
????jmin=min（j）;
????jmax=max（j）;
????bw1=bw（imin:imaxjmin:jmax）;??%截取是入圖像中的數(shù)字部分
????rate=16/max（size（bw1））;
????bw1=imresize（bw1rate）;??%對輸入文件變尺寸處理
????[ij]=size（bw1）;
????i1=round（（16-i）/2）;
????j1=round（（16-j）/2）;
????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）*16kk+1）=p1（1:16m+1）;
????end????%將處理的源樣本輸入供神經(jīng)網(wǎng)絡訓練的樣本???pcolum是樣本數(shù)循環(huán)變量?
????
????switch?kk
????????case{0102030405060708090}
????????????t（kk+1）=0;???%數(shù)字0?
????????case{1112131415161718191}
????????????t（kk+1）=1;???%數(shù)字1????
????????case{2122232425262728292}
????????????t（kk+1）=2;???%數(shù)字2?
????????case{3132333435363738393}
????????????t（kk+1）=3;???%數(shù)字3?
????????case{4142434445464748494}
????????????t（kk+1）=4;???%數(shù)字4?
????????case{5152535455565758595}
????????????t（kk+1）=5;???%數(shù)字5?
????????case{6162636465666768696}
????????????t（kk+1）=6;???%數(shù)字6?
????????case{7172737475767778797}
????????????t（kk+1）=7;???%數(shù)字7?
????????case{8182838485868788898}
????????????t（kk+1）=8;???%數(shù)字8?
????????case{9192939495969798999}
????????????t（kk+1）=9;???%數(shù)字9?
????end
end?????%建立與訓練樣本對應的輸出值t?

‘LOAD?OK.‘

save?E52PT?p?t;
%?創(chuàng)建和訓練BP網(wǎng)絡

clear?all;
load?E52PT?p?t;???%加載樣本?

pr（1:2561）=0;
pr（1:2562）=1;
%創(chuàng)建BP網(wǎng)絡?
net=newff（pr[25?1]{‘logsig‘?‘purelin‘}?‘traingdx‘?‘learngdm‘）;?
net.trainParam.epochs=2500;??%設置訓練步數(shù)?
net.trainParam.goal=0.001;???%設置訓練目標?
net.trainParam.show=10;??????%設置訓練顯示格數(shù)?
net.trainParam.lr=0.05;??????%設置訓練學習率?
net=train（netpt）;??????????%訓練BP網(wǎng)絡???

‘TRAIN?OK.‘

save?E52net?net;

%?識別
for?times=0:999
????clear?all;
????p（1:2561）=1;
????p1=ones（1616）;
????load?E52net?net;
????test=input（‘FileName:‘?‘s‘）;
????x=imread（test‘bmp‘）;
????bw=im2bw（x0.5）;
????[ij]=find（bw==0）;
????imin=min（i）;
????imax=max（i）;
????jmin=min（j）;
????jmax=max（j）;
????bw1=bw（imin:imaxjmin:jmax）;
????rate=16/max（size（bw1））;
????bw1=imresize（bw1rate）;
????[ij]=size（bw1）;
????i1=round（（16-i）/2）;
????j1=round（（16-j）/2）;
????p1（i1+1:i1+ij1+1:j1+j）=bw1;
????p1=-1.*p1+ones（1616）;
????for?m=0:15
????????p（m*16+1:（m+1）*161）=p1（1:16m+1）;
????end
????[aPfAf]=sim（netp）;???%測試網(wǎng)絡?
????imshow（p1）;
????a=round（a）???????%輸出網(wǎng)絡識別結果?
end

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----

?????文件?????112853??2009-05-19?21:51??numberRecognition\E52net.mat

?????文件???????2033??2009-05-19?21:51??numberRecognition\E52PT.mat

?????文件???????2852??2009-05-19?21:52??numberRecognition\numberRecognition.m

?????文件???????3126??2005-11-13?20:43??numberRecognition\nums\0.bmp

?????文件???????3126??2005-11-13?20:43??numberRecognition\nums\1.bmp

?????文件???????3126??2005-11-13?20:50??numberRecognition\nums\10.bmp

?????文件???????3126??2005-11-13?20:50??numberRecognition\nums\11.bmp

?????文件???????3126??2005-11-13?20:50??numberRecognition\nums\12.bmp

?????文件???????3126??2005-11-13?20:50??numberRecognition\nums\13.bmp

?????文件???????3126??2005-11-13?20:50??numberRecognition\nums\14.bmp

?????文件???????3126??2005-11-13?20:50??numberRecognition\nums\15.bmp

?????文件???????3126??2005-11-13?20:50??numberRecognition\nums\16.bmp

?????文件???????3126??2005-11-13?20:50??numberRecognition\nums\17.bmp

?????文件???????3126??2005-11-13?20:50??numberRecognition\nums\18.bmp

?????文件???????3126??2005-11-13?20:50??numberRecognition\nums\19.bmp

?????文件???????3126??2005-11-13?20:43??numberRecognition\nums\2.bmp

?????文件???????3126??2005-11-13?20:51??numberRecognition\nums\20.bmp

?????文件???????3126??2005-11-13?20:51??numberRecognition\nums\21.bmp

?????文件???????3126??2005-11-13?20:51??numberRecognition\nums\22.bmp

?????文件???????3126??2005-11-13?20:51??numberRecognition\nums\23.bmp

?????文件???????3126??2005-11-13?20:51??numberRecognition\nums\24.bmp

?????文件???????3126??2005-11-13?20:51??numberRecognition\nums\25.bmp

?????文件???????3126??2005-11-13?20:51??numberRecognition\nums\26.bmp

?????文件???????3126??2005-11-13?20:51??numberRecognition\nums\27.bmp

?????文件???????3126??2005-11-13?20:51??numberRecognition\nums\28.bmp

?????文件???????3126??2005-11-13?20:51??numberRecognition\nums\29.bmp

?????文件???????3126??2005-11-13?20:43??numberRecognition\nums\3.bmp

?????文件???????3126??2005-11-13?20:55??numberRecognition\nums\30.bmp

?????文件???????3126??2005-11-13?20:55??numberRecognition\nums\31.bmp

?????文件???????3126??2005-11-13?20:55??numberRecognition\nums\32.bmp

............此處省略79個文件信息