ws=imread（‘C:\Users\cuiqibi\Desktop\畢設\2\guang101.bmp‘）;
wsgray=rgb2gray（ws）;?%彩色圖像轉灰度圖
thresh=graythresh（wsgray）?;%自適應確實閾值
bw1=im2bw（wsgray?thresh）;?%二值化
%?find?自動剪裁
[row?cov]=find（bw1==0）;
[MN]=size（cov）?;
left_l=cov（1）;%左列
right_l=cov（M）;%右列
up_h=min（row）;%上行
down_h=max（row）;%下行
chang=right_l-left_l;%長
kuan=down_h-up_h;%寬
atuo_J=imcrop（ws[left_l?up_h?chang?kuan]）;
figure（）;imshow（ws）;title（‘原圖像‘）;impixelinfo

%//////////////////////判據及結果輸出
????if?chang>kuan
????????chang_f=chang;
????????kuan_f=kuan;
????else
????????chang_f=kuan;
????????kuan_f=chang;
????end
????f=kuan_f;
????if??f<=562.28
????????figure（）;imshow（atuo_J）;
????????text（size（atuo_J2）size（atuo_J1）+20‘3?level?red?date‘‘Color‘‘r‘...
????????????‘FontSize‘20‘horizontalalignment‘‘right‘）;??????????????????%一張圖像，左上頂點坐標