function[]=Extracting_image（）??%提取數字和字母區域（包括短橫線）
cd?（‘F:\testpictures‘）;
I1=imread（‘TEST.tif‘）;
figure（1）imshow（I1）;title（‘原始圖像‘）;
I2=medfilt2（I1?[8??4]）;?%中值濾波??
I3?=?imfill（I2‘holes‘）;?%孔洞填充，填掉數字、字母區域
figure（2）imshow（I3）;title（‘孔洞填充后‘）;
I4=imsubtract（I3I2）;%填充前與填充后相減得到數字、字母區域
figure（3）imshow（I4）;title（‘相減得到數字、字母‘）;
%二值化處理
g_max=double（max（max（I4）））;?
g_min=double（min（min（I4）））;?
T=round（g_max-（g_max-g_min）/3）;?%?T?為二值化的閾值?
[mn]=size（I4）;
I5=im2bw（I4T/256）;?
figure（4）imshow（I5）;title（‘二值化圖像‘）;
se=strel（‘rectangle‘[1610]）;
I6=imclose（I5se）;
figure（6）imshow（I6）;title（‘閉運算后‘）;
I7?=?bwareaopen（I63008）;?%刪除面積小于300的對象（短橫杠和下方小字母），使用8鄰域
figure（7）imshow（I7）;title（‘去掉短橫杠和下方小字母‘）;
I8=imsubtract（I6I7）;
figure（8）;imshow（I8）;title（‘圖像相減得到短橫杠和下方小字母‘）;
I9?=?bwareaopen（I65008）;?%刪除面積小于500的對象（短橫杠和下方小字母、左上角大的孤立點）只剩下數字和字母
figure（9）imshow（I9）;title（‘只剩下數字和字母‘）;
I10=I8|I9;
figure（10）imshow（I10）;title（‘加上短橫杠和下方小字母‘）;
I11?=?bwareaopen（I101008）;%刪除面積小于100的對象（下方小字母），得到最終結果
figure（11）imshow（I11）;title（‘提取結果‘）;

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----
?????文件????????1274??2018-04-04?02:52??車牌識別\Extracting_image.m
?????文件????????1195??2018-04-03?22:44??車牌識別\Image_improving.m
?????文件??????143132??2018-03-23?14:09??車牌識別\TEST.tif
?????目錄???????????0??2018-04-15?13:53??車牌識別\