clear?all;
A=imread（‘fig5_1.bmp‘）;%讀取圖像
se=strel（‘ball‘120）;%定義結(jié)構(gòu)元素
BW=imdilate（Ase）;%使用腐蝕
BW2?=?bwmorph（BW?‘thin‘Inf）;%細(xì)化
[HTR]?=?hough（BW2）;%哈弗變換



P??=?houghpeaks（H5）;?%提取Hough變換后參數(shù)平面上的峰值點(diǎn)???
lines?=?houghlines（BW2TRP）;%提取直線
for?k?=?1:length（lines）
???xy?=?[lines（k）.point1;?lines（k）.point2];%提取坐標(biāo)
end
m=（xy（22）-?xy（12））/（xy（21）-xy（11））;%求斜率
M=atan（m）;%求角度
M=M*180/3.14;%轉(zhuǎn)化成角度
C=imrotate（AM）;?%圖像校正
subplot（121）;imshow（A）;title（‘原圖像‘）;
subplot（122）;imshow（C）;title（‘校正之后‘）;

?屬性????????????大小?????日期????時(shí)間???名稱
-----------?---------??----------?-----??----
?????文件???????12549??2016-01-05?13:03??1\90.jpg
?????文件?????????580??2016-01-05?13:02??1\rec1.m
?????目錄???????????0??2016-01-05?13:03??1\