matlab最大内切圆程序---图像处理(共2页).docx

精选优质文档-倾情为你奉上I=imread(D:/xx.bmp);threshold=graythresh(I); %计算将灰度图像转化为二值图像所需的门限I1=im2bw(I,threshold);%将灰度图像转化为二值图像I2=I1;dim=size(I1);col=round(dim(2)/2)-90;%计算起始点列坐标row=find(I1(:,col),1);%计算起始点行坐标?connectivity=8;num_points=1390;contour=bwtraceboundary(I1,row,col,N,connectivity,num_points);%提取边界b= edge(I2,sobel);%finding edges height,width=size(b);R=60;for i=60:1:width-60 for j=60:1:height-60 for r=60:1:120 for a=0:1:360