《计算连通域的面积、周长、圆形度、矩形度以及长宽比》由会员分享，可在线阅读，更多相关《计算连通域的面积、周长、圆形度、矩形度以及长宽比（4页珍藏版）》请在金锄头文库上搜索。
1、计算连通域的面积、周长、圆形度、矩形度以及长宽比1计算连通域的面积、周长、圆形度、矩形度以及长宽比2二值化最小矩结果：Ar =8220 924 17191 930 5020 3133perimeter =162 54 262 54 118 112metric =3.9360 3.9819 3.1471 4.0078 4.5305 3.1386Pwl =1.0816 1.0303 1.2720 1.0303 1.1467 1.2500Pr =计算连通域的面积、周长、圆形度、矩形度以及长宽比30.7913 0.8235 0.8650 0.8289 0.7783 0.5420代码clear,clcR
2、GB = imread(pillsetc.png);figure,imshow(RGB);I = rgb2gray(RGB);threshold = graythresh(I);bw = im2bw(I,threshold);figure,imshow(bw)% remove all object containing fewer than 30 pixelsbw = bwareaopen(bw,30);% fill a gap in the pens capse = strel(disk,2);bw = imclose(bw,se);% fill any holes, so that reg
3、ionprops can be used to estimate% the area enclosed by each of the boundariesbw = imfill(bw,holes);figure,imshow(bw)ed=edge(bw);figure,imshow(ed)%以上是图像二值化 上面制作二值化图像L = bwlabel(bw);L1 = bwlabel(ed);Ar=zeros(1,max(L(:);perimeter=zeros(1,max(L1(:);metric=zeros(1,max(L1(:);Pwl=zeros(1,max(L1(:);Pr=zeros
4、(1,max(L1(:);for i=1:max(L(:)Ar(i)=sum(bw(L=i);perimeter(i)=sum(ed(L=i);metric(i) = 4*pi*Ar(i)/perimeter(i)2;y,x=find(L=i);x0=min(x(:);计算连通域的面积、周长、圆形度、矩形度以及长宽比4x1=max(x(:);y0=min(y(:);y1=max(y(:);hold onrectangle(Position,x0,y0,x1-x0,y1-y0,edgeColor,g,LineWidth,1)if x1-x0=y1-y0Pwl(i)=(x1-x0)/(y1-y0);elsePwl(i)=(y1-y0)/(x1-x0);endPr(i)=Ar(i)/(y1-y0)*(x1-x0);endArperimetermetricPwlPr
