%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%識別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×1

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

?????文件??????14502??2009-05-07?22:23??字母識別\123.bmp

?????文件??????12566??2009-05-07?22:22??字母識別\143.bmp

?????文件?????118191??2010-06-01?15:17??字母識別\E52net.mat

?????文件???????4344??2010-06-01?15:15??字母識別\E52PT.mat

?????文件???????4373??2010-05-31?13:03??字母識別\shibie.asv

?????文件???????4376??2009-06-23?13:32??字母識別\shibie.m

?????文件???????1511??2009-06-23?13:34??字母識別\shibie2.m

????..A.SH.????395292??2010-06-01?15:21??字母識別\Thumbs.db

?????文件??????48128??2010-06-01?16:22??字母識別\神經網絡.doc

?????目錄??????????0??2010-06-01?16:28??字母識別

-----------?---------??----------?-----??----

???????????????603283????????????????????10