简单图片拼接（Matlab）

采用matlab实现图片拼接，程序为m文件，输入图像为：r_image1、r_image2、r_image3、r_image4，把输入图像为：r_image1、r_image2、r_image3、r_image4，图像拼接为图像A。

%功能：图像拼接
clc
clear

[fnpn]=uigetfile（{‘*.bmp;*.tif;*.jpg;*.png;*.pgm‘}‘请选择拼接图像1‘）;
r_image1=imread（[pn fn]）;  

[fnpn]=uigetfile（{‘*.bmp;*.tif;*.jpg;*.png;*.pgm‘}‘请选择拼接图像2‘）;
r_image2=imread（[pn fn]）;  

[fnpn]=uigetfile（{‘*.bmp;*.tif;*.jpg;*.png;*.pgm‘}‘请选择拼接图像3‘）;
r_image3=imread（[pn fn]）;  

[fnpn]=uigetfile（{‘*.bmp;*.tif;*.jpg;*.png;*.pgm‘}‘请选择拼接图像4‘）;
r_image4=imread（[pn fn]）;  

% 待拼接文件
imfile = {r_image1 r_image2 r_image3 r_image4};

% 读入文件，并调整大小、转换格式
A = cell（22）;
for i=1:4
    % 读入图像数据
    [X map] = gray2ind（imfile{i}）;
    if size（X3） == 1
        % 有些灰度图像无map数据
        if isempty（map）
            map = gray;
        end
        % 转换为真彩色
        X = ind2rgb（Xmap）;
    end
    % 调整图像大小，并转换数据格式
    A{i} = im2double（ imresize（X [384 512]） ）;
end
 
% 拼接图像并显示
A = [A{1} A{2}; A{3} A{4}];
imshow（A）

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     文件         965  2014-11-17 15:29  txpj.m
     目录           0  2015-04-15 19:09  TestImag\
     文件      720054  2014-11-17 15:57  TestImag\1.bmp
     文件      720054  2014-11-17 15:56  TestImag\2.bmp
     文件      720054  2014-11-17 15:56  TestImag\3.bmp
     文件      720054  2014-11-17 15:57  TestImag\4.bmp
     文件          43  2014-11-17 15:44  ReadMe.txt