[NOI导刊2011]影像之结构化特征

问题描述

在影像比对中，有一种方法是利用影像中的边缘(edge)资讯，计算每个边缘资讯中具有代表性的结构化特征，以作为比对两张影像是否相似的判断标准。Water-filling方法是从每个边缘图的一个端点开始，绕着相连的边缘点走并依序编号。若走到某一步时，遇到一个以上不同的连接点，则分成不同路径同时继续走，直到没有任何连接点为止。如果一个点和另一个点为上下左右相邻，就称为连接。

例如，在图1的影像中包含三个边缘图，每个边缘图由一些互相连接的边缘点构成。图中以黑色的方块代表边缘点，白色的方块代表背景。在Water-filling方法中，首先，从第一列(row)开始，由左至右，由上至下，先找到第一个黑点并编号为1。接着，找1的下一个尚未编号的连接点并编号为2。依此方法继续往下一个点前进依次编号。在编号6的点之后有两个尚未编号的连接点，此时，则分为两条路线，并同时编号为7继续往下走。当走到没有任何的相连点时，则结束现有边缘图的编号，并继续对影像中的其它边缘图编号。走完图1所有边缘图后所得到的编号如图2所示。所以，走完这三个边缘图所需要的步数分别为12、7及3；所以，12、7及3可以作为代表此张影像的结构化特征。请注意：位于斜对角上的两点不能算做连接，如：

请写一个程序计算每个影像中，以Water-filling方法走完其中所有的边缘图后，将每个边缘图需走的步数依走访的顺序列出。

输入说明

输入文件包含一个正方形的影像。每组影像以图的宽度n开头(l≤n≤1000)。接下来的n行代表影像的内容：0表示背景的白点，1表示黑色的边缘点。

输出说明

对每一个输入的影像，以Water-filling方法走完所有的边缘图后，先印出此张影像中共有几个边缘图。接着，将每个边缘图需走的步数按升序列出。

样例输入

10

0000000000

0011110000

0000010000

0011111000

0010110100

0010010110

0011110010

0100010010

0100000110

0100000000

样例输出

3

3

7

12

思路

　　是一个用来练宽搜的典型好题。你可以通过它搞懂宽搜的原理，搞懂深搜于宽搜的区别。

　　记录每次宽搜有多少次入队，记录一共有多少次入队。

　　输出入队次数的降序排列即可。

type ss=record
    x,y,z:longint;
    end;

const con:array[..,..] of longint=((,-,,),(,,-,));

var a:array[..,..] of longint;
    f:array[..] of ss;
    b:array[..] of longint;
    n,i,sum,j:longint;

procedure init;
var ch:char;
begin
    fillchar(a,sizeof(a),);
    readln(n);
    for i:= to n do
        begin
            for j:= to n do
                begin
                    read(ch);
                    if ch='' then a[i,j]:=;
                end;
            readln;
        end;
end;

procedure sort(l,r:longint);
var i,j,x,y:longint;
begin
    i:=l;j:=r;x:=b[(l+r) div ];
    repeat
        while b[i]<x do inc(i);
        while b[j]>x do dec(j);
        if i<=j then
            begin
                y:=b[i];
                b[i]:=b[j];
                b[j]:=y;
                inc(i);
                dec(j);
            end;
    until i>j;
    if l<j then sort(l,j);
    if i<r then sort(i,r);
end;

procedure bfs(x,y:longint);
var i,xx,yy,head,tail:longint;
begin
    head:=;tail:=;
    f[].x:=x;f[].y:=y;f[].z:=;
    a[x,y]:=;
    while head<tail do
        begin
            inc(head);
            for i:= to  do
                begin
                    xx:=f[head].x+con[,i];
                    yy:=f[head].y+con[,i];
                    if a[xx,yy]= then
                        begin
                            inc(tail);
                            f[tail].x:=xx;
                            f[tail].y:=yy;
                            f[tail].z:=f[head].z+;
                            a[xx,yy]:=;
                        end;
                end;
        end;
    inc(sum);
    b[sum]:=f[head].z;
end;

begin
    assign(input,'graph.in');
    assign(output,'graph.out');
    reset(input);
    rewrite(output);
    init;
    for i:= to n do
        for j:= to n do
            if a[j,i]= then
                bfs(j,i);
    sort(,sum);
    writeln(sum);
    for i:= to sum do
        writeln(b[i]);
    close(input);
    close(output);
end.