trace 8邻域边缘连接

8邻域边缘连接，实现闭合边界跟踪，简单实用

clc;
clear;
H=zeros（33）;
Hx（1:）=-1:1;

Hy=Hx;
tux=0;
tuy=0;
ax=15%95%106;%15;
ay=146%47%113;%19;
Xaxis=[1 1 1 2 3 3 3 2 1 1 1 2 3 3 3 2];
Yaxis=[1 2 3 3 3 2 1 1 1 2 3 3 3 2 1 1];
 II=imread（‘trace.bmp‘）;
 figure（1）
  imshow（II）
 tux=[tux ax];
 tuy=[tuy ay];
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 Hhx=Hx+ax;
 Hhy=Hy+ay;
 H=II（HhxHhy）;
 H（22）=8;%%%%%%%
 
[OxOy]=find（H==0）
Kj=0;
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
if length（Ox）>0
    Oxx=Ox（length（Ox））;
    Oyy=Oy（length（Ox））;
else
    disp（‘It is only dot‘）;
    break;
end

bx=（-（Oxx-2））+2;
by=（-（Oyy-2））+2;%%%%%%%%%

Cx=（Oxx-2）+ax;
Cy=（Oyy-2）+ay;

timter=0;

%%%%%%%%%%%%%%%%%%%%%%%
 for i=1:137*207
     Hhx=Hx+Cx;
     Hhy=Hy+Cy;
     H=II（HhxHhy）;
     

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件       1520  2007-12-16 21:46  trace.m

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

                 1520                    1