clc

close?all
I?=?imread（‘small.bmp‘）;
%?I?=?imread（‘circle.bmp‘）;

?subplot（121）
?title（‘原始圖像‘）;
?imshow（I）
J?=rgb2gray（I）;
[rc]?=?size（J）;?
BW?=?zeros（rc）;
?subplot（122）
imshow（J）;
title（‘灰度圖像‘）;
figure
imhist（J）
%?g?=?imhist（J）
%?[ai]=sort（J‘descend‘）?%給原數組降序排列
size（g）
th?=?sort（g‘descend‘）;
for?i?=?1:r
????for?j?=?1:c
????????if?J（ij）?>?70
????????????BW（ij）?=?1;
????????end
????end
end

track?=?eight（BW）;
%?hold?on
%?[xxyy]?=?find（track?==?1）;
%?plot（yyxx‘.r‘）
figure
imshow（track）

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

?????文件????????553??2012-08-28?17:17??eightneighborhood\ceshi.m

?????文件?????195896??2012-08-28?10:37??eightneighborhood\circle.bmp

?????文件???????2753??2012-08-28?17:15??eightneighborhood\eight.m

?????文件????3000054??2012-08-11?09:26??eightneighborhood\small.bmp

????..A.SH.??????6144??2012-08-28?17:20??eightneighborhood\Thumbs.db

?????目錄??????????0??2012-08-28?17:20??eightneighborhood

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

??????????????3205400????????????????????6