非常好用的matlab图像拼接程序

function [T1coor_shift02]=coortransf（T0fcoor_shift）
%%%%图像坐标系到柱面坐标的转换
%对输入图像序列T0按焦距f进行变换
coor_shift02=coor_shift;%%%%第一维（行值）不变，第二维（列）在映射后更新
[HWrN]=size（T0）;
w2f=W/2/f;
h2=H/2;
constant2=f*atan（W/（2*f））;
constant1=h2;

for y=1:W      %%%%%%   列
    angle=atan（y/f-w2f）;%%%%atan（（y-W/2）/f）;
     y1=uint16（f*angle+constant2）;
     if  y1==0  y1=1;  end
    for x=1:H  %%%%%%%%%%%%   行
     x1=uint16（（x-h2）*cos（angle）+constant1）;
     if  x1==0  x1=1;end
     if r==3   %%%%%%%%%%%%%彩色图像
         for n=1:N  %%%%%%%%%
             if （y==coor_shift（n2）） coor_shift02（n2）=y1; end%%%对应偏移量
             T1（x1y1:n）=T0（xy:n）;%%%%点的映射
         end
     elseif r==1
%          T1（x1y1）=T0（xy）;
     end
    end
end
[hwaN]=size（T1）;
for i=1:60%%%边缘没有映射点的地方填白色
    for j=1:w
        if （T1（ij::）==0）
            T1（ij::）=255;
        end
        if （T1（h-ij::）==0）
            T1（ij::）=255;
        end
    end
end

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

     文件       1054  2006-10-24 16:02  mosaic_1coortransf.m

     文件       1481  2006-10-24 15:59  mosaic_1cylinpano2images.m

     文件        331  2006-06-27 16:55  mosaic_1imagefusion02.m

     文件        672  2006-11-14 16:24  mosaic_1inorm.m

     文件       2128  2014-04-18 14:30  mosaic_1main.m

     文件        619  2006-11-14 16:56  mosaic_1medfilt.m

     文件       1065  2006-10-23 21:42  mosaic_1mosaic.m

     文件        660  2006-10-24 15:22  mosaic_1multi_resolution.m

     文件       1537  2006-06-30 17:48  mosaic_1phase_correlation.m

     文件       2612  2006-10-24 19:53  mosaic_1poc_2pow.m

     文件     481078  2005-08-25 20:31  mosaic_1X1.bmp

     文件      37751  2009-04-15 19:40  mosaic_1X1.jpg

     文件     481078  2005-08-25 20:33  mosaic_1X10.bmp

     文件      36692  2009-04-15 19:40  mosaic_1X10.jpg

     文件     481078  2005-08-25 20:31  mosaic_1X2.bmp

     文件      38156  2009-04-15 19:40  mosaic_1X2.jpg

     文件     481078  2005-08-25 20:31  mosaic_1X3.bmp

     文件      29637  2009-04-15 19:40  mosaic_1X3.jpg

     文件     481078  2005-08-25 20:32  mosaic_1X4.bmp

     文件      30338  2009-04-15 19:40  mosaic_1X4.jpg

     文件     481078  2005-08-25 20:32  mosaic_1X5.bmp

     文件      28867  2009-04-15 19:40  mosaic_1X5.jpg

     文件     481078  2005-08-25 20:32  mosaic_1X6.bmp

     文件      26516  2009-04-15 19:40  mosaic_1X6.jpg

     文件     481078  2005-08-25 20:32  mosaic_1X7.bmp

     文件      29522  2009-04-15 19:40  mosaic_1X7.jpg

     文件     481078  2005-08-25 20:32  mosaic_1X8.bmp

     文件      39758  2009-04-15 19:40  mosaic_1X8.jpg

     文件     481078  2005-08-25 20:32  mosaic_1X9.bmp

     文件      41630  2009-04-15 19:41  mosaic_1X9.jpg

............此处省略4个文件信息