畸变图形矫正matlab 源码

畸变图形矫正matlab 源码，贝叶斯。。。。。。。。

function  basedLineINDrictC100（）  %校正c100图像（358，235，500）x0y0R
%  rgb=imread（‘D:\0.bmp‘）;
 rgb = imread（‘D:\dzf\fisheye image\C100\testImage0337.bmp‘）;
[ height width v ] = size（rgb）;
[X0Y0R] = Yuan（rgb）; %返回圆形区域的圆心坐标及半径

%%%%%%求得畸变平面中心在校正平面的对应中心%%%%%%%%%%
x0 = 360;
y0 = 240-100;
r = round（ R）;%500;
u0 = x0;
v0 = y0;
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Image = zeros （ heightwidthv ）;
Image = uint8 （ Image ）;
%Image（v0 u0 1:3）=rgb（y0x01:3）;
%figureimshow（Image）

%取成像平面图像上任意一点p（xy）xy皆为整数
for y = 1 : height
    Delta = floor（ sqrt（ r ^ 2 - （ y - y0 ） ^ 2 ） ）;
    for x = x0 - Delta : x0 + Delta
         rd = round（ sqrt（ （ y - y0 ） ^ 2 + （ x - x0 ） ^ 2） ）; %畸变点p距原点的距离为r
%  rd = 603;
%         if rd >= r
%             continue
%        

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

     文件       2111  2008-07-18 13:31  jiaozheng\basedLineINDrictC100.m

     文件       1974  2008-07-16 08:47  jiaozheng\Yuan.m

     目录          0  2008-07-24 16:14  jiaozheng

     文件        218  2007-06-05 03:14  www.pudn.com.txt

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

                 4303                    4