%功能：圖像拼接
clc
clear

[fnpn]=uigetfile（{‘*.bmp;*.tif;*.jpg;*.png;*.pgm‘}‘請(qǐng)選擇拼接圖像1‘）;
r_image1=imread（[pn?fn]）;??

[fnpn]=uigetfile（{‘*.bmp;*.tif;*.jpg;*.png;*.pgm‘}‘請(qǐng)選擇拼接圖像2‘）;
r_image2=imread（[pn?fn]）;??

[fnpn]=uigetfile（{‘*.bmp;*.tif;*.jpg;*.png;*.pgm‘}‘請(qǐng)選擇拼接圖像3‘）;
r_image3=imread（[pn?fn]）;??

[fnpn]=uigetfile（{‘*.bmp;*.tif;*.jpg;*.png;*.pgm‘}‘請(qǐng)選擇拼接圖像4‘）;
r_image4=imread（[pn?fn]）;??

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

%?讀入文件，并調(diào)整大小、轉(zhuǎn)換格式
A?=?cell（22）;
for?i=1:4
????%?讀入圖像數(shù)據(jù)
????[X?map]?=?gray2ind（imfile{i}）;
????if?size（X3）?==?1
????????%?有些灰度圖像無map數(shù)據(jù)
????????if?isempty（map）
????????????map?=?gray;
????????end
????????%?轉(zhuǎn)換為真彩色
????????X?=?ind2rgb（Xmap）;
????end
????%?調(diào)整圖像大小，并轉(zhuǎn)換數(shù)據(jù)格式
????A{i}?=?im2double（?imresize（X?[384?512]）?）;
end
?
%?拼接圖像并顯示
A?=?[A{1}?A{2};?A{3}?A{4}];
imshow（A）

?屬性????????????大小?????日期????時(shí)間???名稱
-----------?---------??----------?-----??----
?????文件?????????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