I?=?imread（‘face.bmp‘）;
imshow（I）title（‘原始圖像‘）
%?bw?=?otsu（I）;????%原始圖像二值化
%?subplot（122）;
%?imshow（bw）title（‘二值化后的圖像‘）

f?=?I;
figure（2）
imshow（f）
[r?c]?=?size（f）;
label?=?zeros（rc）;
scan?=?zeros（r+1c+2）;????%擴充原始圖像的邊界以便檢測
scan（2:r+12:c+1）?=?f;
scan（1:）=0;????%將第一行初始化為0?
scan（:1）=0;????%將第一列初始化為0
scan（:c+2）=0;??%將第c+2列初始化為0
label_s?=?zeros（r+1c+2）;
kind?=?1;????????????????????
temp?=?1;????????????????????%第一次掃描存儲目標個數
same1?=?0;
t?=?1;
for?i?=?1:r+1
????for?j?=?1:c+1
????????if（scan（ij）?==?1）
????????????if（（label_s（ij-1）|label_s（i-1j-1）...%檢測左、左上、上、右上四鄰域是否被標記
????????????????????|label_s（i-1j）|label_s（i-1j+1））==1）
????????????????if（label_s（ij-1））?%若已有標記的像素，則依次以左、左上、上、右上四鄰域標記當前像素
????????????????????label_s（ij）=label_s（ij-1）;????????????????

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

?????文件????????154??2011-05-14?14:59??實驗四?面積測量\AreaMeasure.txt

?????文件???????4470??2011-05-12?22:01??實驗四?面積測量\Area_label.m

?????文件???????7454??2009-10-03?00:49??實驗四?面積測量\face.bmp

?????文件??????27136??2011-05-12?22:05??實驗四?面積測量\程序說明.doc

?????目錄??????????0??2011-05-14?15:04??實驗四?面積測量

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

????????????????39214????????????????????5