matlab_倾斜校正算法代码

本代码采用matlab语言编写了关于倾斜校正的实现，实现效果良好

%%去边界
function  Im = DelSurround（Im）
% Im = imread（Im）;
%去标头
sumUpSmall = sum（Im（1:450:）2）;
idxRowBlack = find（sumUpSmall < size（Im2）-10）;%找出所有黑点的行
idxEdge = find（diff（idxRowBlack） > 40）;
Edge = round（（idxRowBlack（idxEdge+1） - idxRowBlack（idxEdge））/2） + idxRowBlack（idxEdge）;
Im（1:Edge（1）:） = 1;
%去页码
Im（3241:end200:end） = 1;
% imshow（Im）;

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

    .CA....    138084  2008-06-27 21:05  带旋转的字分割07.01\bpp1套1.tif

    .CA....       372  2008-07-01 11:17  带旋转的字分割07.01\DelSurround.m

    .CA....       612  2008-07-09 10:44  带旋转的字分割07.01\FindPeak.asv

    .CA....       612  2008-07-09 11:37  带旋转的字分割07.01\FindPeak.m

    .CA....       499  2008-07-11 15:46  带旋转的字分割07.01\MoveAllF.m

    .CA....       588  2008-07-11 16:00  带旋转的字分割07.01\moveMeanF.asv

    .CA....       636  2008-07-11 16:02  带旋转的字分割07.01\moveMeanF.m

    .CA....      3230  2008-03-12 11:53  带旋转的字分割07.01\NewWordSplitWholeDirectoryForTrain.m

    .CA....      1539  2008-07-09 12:34  带旋转的字分割07.01\readtxt.asv

    .CA....      1573  2008-07-09 15:10  带旋转的字分割07.01\readtxt.m

    .CA....       558  2008-07-08 20:40  带旋转的字分割07.01\RotateWithGrid.asv

    .CA....       530  2008-07-09 11:38  带旋转的字分割07.01\RotateWithGrid.m

    .CA....      6529  2008-07-09 15:12  带旋转的字分割07.01\WordSplitWholeDirectory.m

    .CA....      6484  2008-07-11 10:54  带旋转的字分割07.01\WordSplitWholeDirectoryForSee.m

    .C.D...         0  2008-07-16 10:33  带旋转的字分割07.01

----------- ---------  ---------- -----  ----

               162064                    16