%程序L8_1.m: 像素聚類區(qū)域成長法%
%讀入一幅區(qū)域明顯的圖像，實驗像素聚合%
[X,map]=bmpread('L8_1.bmp');
seed=[250 200];                   %隨意設(shè)定一個種子點
[Y_1]=regiongrow(X,seed,0,1000);  %regiongrow程序在本實驗范例中
[Y_2]=regiongrow(X,seed,0,10000);
[Y_3]=regiongrow(X,seed,0,inf);
figure
subplot(221),imshow(X,map)
subplot(222),imshow(Y_1,map)
subplot(223),imshow(Y_2,map)
subplot(224),imshow(Y_3,map)