图像的倾斜矫正

这里是图像的倾斜矫正，尤其是针对图像文字倾斜的矫正

clear all;
A=imread（‘fig5_1.bmp‘）;%读取图像
se=strel（‘ball‘120）;%定义结构元素
BW=imdilate（Ase）;%使用腐蚀
BW2 = bwmorph（BW ‘thin‘Inf）;%细化
[HTR] = hough（BW2）;%哈弗变换



P  = houghpeaks（H5）; %提取Hough变换后参数平面上的峰值点   
lines = houghlines（BW2TRP）;%提取直线
for k = 1:length（lines）
   xy = [lines（k）.point1; lines（k）.point2];%提取坐标
end
m=（xy（22）- xy（12））/（xy（21）-xy（11））;%求斜率
M=atan（m）;%求角度
M=M*180/3.14;%转化成角度
C=imrotate（AM）; %图像校正
subplot（121）;imshow（A）;title（‘原图像‘）;
subplot（122）;imshow（C）;title（‘校正之后‘）;

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     文件       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\