%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%識別26個大寫字母%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
clc;
clear?all;
disp（‘回車鍵?...‘）
chos=input（‘請直接按回車鍵正在生成輸入向量和目標向量，請稍等…?‘）;
if?isempty（chos）?chos=0;?end?
if?chos==0
for?kk=0:256?
????p1=ones（1616）;%?初始化16×16的二值圖像像素值（全白）???
????m?=strcat（‘nums\‘int2str（kk）‘.bmp‘）;%?形成訓練樣本圖像的文件名（0～89.bmp）????
????x=imread（m‘bmp‘）;%?讀入訓練樣本圖像文件???
????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×16的二值圖像（由于縮放比例??
???????????????????????????????%?大多數情況下不為16的倍數所以可能存在轉換誤差）?
???[ij]=size（bw1）;%?轉換圖像的大小???
???i1=round（（16-i）/2）;%?計算轉換圖像與標準16×16的圖像的左邊界差????
???j1=round（（16-j）/2）;%?計算轉換圖像與標準16×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）*16kk+1）=p1（1:16m+1）;???
end????%?形成神經網絡目標向量??
switch?kk????
case{0123456789}??%?字母A???????
????t（kk+1）=0;???
case{10111213141516171819}??%?字母B????
????t（kk+1）=1;????
case{20212223242526272829}??%?字母C??????
????t（kk+1）=2;????
case{30313233343536373839}??%?字母D??????
????t（kk+1）=3;????
case{40414243444546474849}??%字母E???????????
????t（kk+1）=4;???????
case{50515253545556575859}??%字母F????????
????t（kk+1）=5;????
case{60616263646566676869}??%?字母G???????
????t（kk+1）=6;?????
case{70717273747576777879}??%?字母H????????
????t（kk+1）=7;????????????
case{80818283848586878889}??%?字母I?????
????t（kk+1）=8;???????
case{90919293949596979899}??%?字母J??????
????t（kk+1）=9;?
case{100101102103104105106107108109}??%?字母K?????
????t（kk+1）=10;
case{110111112113114115116117118119}??%?字母L?????
????t（kk+1）=11;?
case{120121122123124125126127128129}??%?字母M????
????t（kk+1）=12;?
case{130131132133134135136137138139}??%?字母N?????
????t（kk+1）=13;
case{140141142143144145146147148149}??%?字母O??????
????t（kk+1）=14;
case{150151152153154155156157158159}??%?字母P??????
????t（kk+1）=15;
case{160161162163164165166167168169}??%?字母Q??????
????t（kk+1）=16;?
case{170171172173174175176177178179}??%?字母R?????
????t（kk+1）=17;?
case{180181182183184185186187188189}??%?字母S?????
????t（kk+1）=18;?
case{190191192193194195196197198199}??%字母T?????
????t（kk+1）=19;?
case{200201202203204205206207208209}??%?字母U?????
????t（kk+1）=20;
case{210211212213214215216217218219}??%?字母V??????
????t（kk+1）=21;?
case{220221222223224225226227228229}??%?字母W??????
????t（kk+1）=22;
case{230231232233234235236237238239}??%?字母X????
????t

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

?????文件???????4376??2009-06-23?13:32??shibie.m

?????文件???????1511??2009-06-23?13:34??shibie2.m

?????文件???????1254??2009-05-10?00:09??nums\258.bmp

?????文件????????854??2009-05-10?00:09??nums\259.bmp

?????文件???????5718??2009-05-09?22:45??nums\0.bmp

?????文件???????3798??2009-05-09?22:46??nums\1.bmp

?????文件???????2358??2009-05-09?22:56??nums\2.bmp

?????文件??????12150??2009-05-07?00:38??nums\3.bmp

?????文件???????2422??2009-05-09?23:07??nums\4.bmp

?????文件???????2394??2009-05-09?23:09??nums\5.bmp

?????文件???????2550??2009-05-07?00:19??nums\6.bmp

?????文件???????1666??2009-05-09?23:18??nums\7.bmp

?????文件???????2518??2009-05-07?00:20??nums\8.bmp

?????文件???????3150??2009-05-07?00:21??nums\9.bmp

?????文件???????6190??2009-05-09?22:46??nums\10.bmp

?????文件???????3918??2009-05-09?22:47??nums\11.bmp

?????文件???????2230??2009-05-10?00:18??nums\12.bmp

?????文件??????12634??2009-05-07?00:37??nums\13.bmp

?????文件???????2874??2009-05-09?22:51??nums\14.bmp

?????文件???????2166??2009-05-10?00:17??nums\15.bmp

?????文件???????2434??2009-05-09?22:52??nums\16.bmp

?????文件???????1974??2009-05-09?22:53??nums\17.bmp

?????文件???????1398??2009-05-09?23:42??nums\18.bmp

?????文件????????954??2009-05-09?23:43??nums\19.bmp

?????文件???????6154??2009-05-09?23:43??nums\20.bmp

?????文件???????3918??2009-05-09?22:58??nums\21.bmp

?????文件???????2570??2009-05-09?23:00??nums\22.bmp

?????文件??????11478??2009-05-07?00:37??nums\23.bmp

?????文件???????1914??2009-05-09?23:02??nums\24.bmp

?????文件???????1914??2009-05-09?23:04??nums\25.bmp

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