clc;
G=imread（‘cancer.jpg‘）;%%讀圖像
I=rgb2gray（G）;
[xy]=size（I）;
BW=bwperim（I8）;
P1=0;
P2=0;
Ny=0;%記錄垂直方向連續周長像素點數
for?i=1:x
????for?j=1:y
????????if（BW（ij）>0）
????????????P2=j;
????????????if（（P2-P1）==1）%判斷是否為垂直方向連續的周長像素點數
????????????????Ny=Ny+1;
????????????end
????????????P1=P2;
????????end?
????end
end
P1=0;
P2=0;
Nx=0;%水平方向連續周長像素點數
for?j=1:y
????for?i=1:x
????????if（BW（ij）>0）
????????????P2=i;
????????????if（（P2-P1）==1）
????????????????Nx=Nx+1;
????????????end?
????????????P1=P2;
????????end
????end
e