8邻域算法边缘跟踪

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  eightneighborhoodceshi.m

     文件     195896  2012-08-28 10:37  eightneighborhoodcircle.bmp

     文件       2753  2012-08-28 17:15  eightneighborhoodeight.m

     文件    3000054  2012-08-11 09:26  eightneighborhoodsmall.bmp

    ..A.SH.      6144  2012-08-28 17:20  eightneighborhoodThumbs.db

     目录          0  2012-08-28 17:20  eightneighborhood

----------- ---------  ---------- -----  ----

              3205400                    6