二值图的骨架提取matlab

这是在网上找到的，原图我用的4000*3000的，后来发现图片太大，运行效率低，

就把图片按照比例缩放，然后提取出来的骨架还不错。各位有什么意见请提出。

 

clear all;
I=imread('0d.png');
subplot(2,2,1);
imshow(I);
title('原图像');

%I=imresize(I,[120,160]);
I=imresize(I, 0.05); 
bwl=bwmorph(I,'skel',Inf);
subplot(2,2,3);
imshow(bwl);
title('骨架提取');
bw2=bwmorph(bwl,'spur',4);
subplot(2,2,4)
imshow(bw2)
title('消除毛刺后的图像');
imwrite(bw2,'1d.png');