A1=imread('rice.tif');
A2=imread('testpat1.tif')
[B1,map]=gray2ind(A1,256);    
[B2,map]=gray2ind(A2,256);    %將兩幅灰度圖像轉換為兩幅索引圖像
A=cat(3,B1,B2,B1,B2,B1,B2,B1,B2);  %實現矩陣的合并
s=size(A);
for i=1:s(1,1)          %該循環用來求代表多幀圖像陣列的4維矩陣
     for j=1:s(1,2)
        for k=1:s(1,3)
           D(i,j,1,k)=A(i,j,k);
        end
 end
end
mov=immovie(D,map);