图像测量试验 试验四 面积测量

图像测量试验 试验四 面积测量

%function [labelnumber]=labelbinaryimage（image）
%   对二值图像标号
%   image    输入二值图像
%   label    输出各连通区域标记好的图像
%   number   连通区域个数
close all;
clear;
clc;
I = imread（‘areatest.bmp‘）;
imshow（I）title（‘原始图像‘）;
%[rowcol] = size（I）;
[labelnumber]=labelbinaryimage（I）;
%计算每个区域的面积
area=zeros（1number）;
%储存连通区域中心坐标
cen=zeros（2number）;
for i=1:number
    [corowcocol]=find（label==i）;%找出各连通区域包含元素
    k=length（corow）;
    % 存储目标区域面积    
    area（i）=k;    
    % 计算目标区域中心
    cen（1i）=sum（corow）/k;
    cen（2i）=sum（cocol）/k;
end
figure（‘Name‘‘显示各连通区域面积‘）
imshow（‘areatest.bmp‘）title（‘各连通区域面积‘）
for i=1:number  
    str=[‘（‘ num2str（i） ‘‘ num2str（area（i）） ‘）‘];
    text（cen（2i）cen（1i）str‘color‘‘red‘）;%标识各连通区域
end        
%显示各个连通区域面积，横坐标为连通区域标号，纵坐标为面积
figure（‘Name‘‘在坐标图中显示各连通区域面积‘）
x=1:1:number;
plot（xarea‘b‘）;
hold on
grid
for n=1:number
plot（x（n）area（n）‘ro‘）
set（gca‘XTick‘1:1:number）
str=[‘（‘ num2str（x（n）） ‘‘ num2str（area（n）） ‘）‘];
text（x（n）+0.05area（n）str）
title（‘各连通区域面积‘）
end

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     目录           0  2012-01-30 09:22  图像测量试验四 面积测量\
     文件        1202  2012-01-26 02:57  图像测量试验四 面积测量\areameasure.m
     文件        5414  2012-01-26 02:21  图像测量试验四 面积测量\areatest.bmp
     文件        2819  2012-01-26 02:54  图像测量试验四 面积测量\labelbinaryimage.m
     文件       50688  2012-01-26 03:25  图像测量试验四 面积测量\程序说明.doc