鱼眼图像几何模型校正实验Matlab

http://blog.csdn.net/photonfly/article/details/52507320

function [CLUTo]=fisheyecorbil（ARratio）%
%----------------------双线性插值法缩放矩阵或图像---------------------------
% Input：
%       A：图像变量
%       R:图像半径
%       ratio:校正图像与原图像比率：取3，控制隐射范围
% Output：
%       C：校正后的图像
%       LUTo：算得的校正图像对应鱼眼图像像素位置的表格：用于后期在硬件上实验
%reference：《基于几何成像模型的鱼眼镜头图像校正算法和技术研究》 机电工程学报
        
%-------------------------------------------------------------------
    %%%%    Authors:   Tan xiang bin
    %%%%    Guilin University of Electronic Technology Student
    %%%%    EMAIL:     125366663@qq.com
    %%%%    DATE:      16-12-2013
%%
[whd]=size（A）;
% xo=w/2;%中心原点
% yo=h/2;
xo=638.4;%鱼眼图像中心原点（这个不变）
yo=640.2;
xc=ratio*w/2;%校正图中心原点
yc=ratio*h/2;
f=2*R/pi;%焦距计算
C=zeros（whd）;
LUTo=zeros（w*h2）;
 index=1;%用作填LUT的参数
for u=1:3:ratio*h
    for v=1:3:ratio*w
        ho=sqrt（（u-xc）^2+（v-yc）^2）;%校正图像距离中心距离
        if（ho==0）                 %若距离中心距离为0则直接填充鱼眼图像中心像素
            C（（u-1）/3+1（v-1）/3+11） =A（6346341）;%填充鱼眼图像像素
            C（（u-1）/3+1（v-1）/3+12） =A（6346342）;
           C（（u-1）/3+1（v-1）/3+13） =A（6346343）;
        else
            h1=f*atan2（hof）;%鱼眼图像上的像高
            x=h1*（u-xc）/ho+xo;%对应鱼眼图像点坐标
            y=h1*（v-yc）/ho+yo;
%             x=abs（round（x））;%最邻近插值
%             y=abs（round（y））;
            x1=floor（x）;y1=floor（y）;%双线性插值
            u1=x-x1;
            v1=y-y1;
            C（（u-1）/3+1（v-1）/3+11） = （1-u1）*（1-v1）*A（x1y11） +（1-u1）*v1*A（x1y1+11）...
                    + u1*（1-v1）*A（x1+1y11） +u1*v1*A（x1+1y1+11）;
             C（（u-1）/3+1（v-1）/3+12） = （1-u1）*（1-v1）*A（x1y12） +（1-u1）*v1*A（x1y1+12）...
                    + u1*（1-v1）*A（x1+1y12） +u1*v1*A（x1+1y1+12）;
             C（（u-1）/3+1（v-1）/3+13） = （1-u1）*（1-v1）*A（x1y13） +（1-u1）*v1*A（x1y1+13）...
                    + u1*（1-v1）*A（x1+1y13） +u1*v1*A（x1+1y1+13）;     
            LUTo（index:）=[xy];%将计算得到的
            index=index+1;
        end
    end
end
C=uint8（C）;

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

     文件       2186  2016-12-06 17:42  几何模型校正入门实验\fisheyecorbil.m

     文件        294  2016-12-06 17:43  几何模型校正入门实验\readme.txt

     文件        126  2016-12-06 17:26  几何模型校正入门实验\testscript.m

     文件    6553654  2016-09-07 11:45  几何模型校正入门实验\wanglinrong.bmp

     文件    1106917  2016-09-07 10:07  几何模型校正入门实验\参考论文\基于几何成像模型的鱼眼镜头图像校正算法和技术研究_李根.pdf

     目录          0  2016-12-06 17:44  几何模型校正入门实验\参考论文

     目录          0  2016-12-06 17:43  几何模型校正入门实验

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

              7663177                    7