produceavifrompic.m

将多个图片组成AVI

%说明顺序图片还原成avi
%function produceavifrompic(pfrom,pto,pext,navi) 
%aviobj = avifile(navi); 
%aviobj.Quality = 100; 
%aviobj.compression='None'; 
%cola=0:1/255:1; 
%cola=[cola;cola;cola];%%黑白图像 
%cola=cola'; 
%aviobj.colormap=cola; 
%for i=pfrom:pto 
%fname=strcat(num2str(i),pext) 
%adata=imread(fname); 
%aviobj = addframe(aviobj,uint8(adata)); 
%end 
%aviobj=close(aviobj); 

%以上是将一系列8位黑白图像转化成avi格式电影，如果是彩色图像，则如下 0.

function produceavifrompic(pfrom,pto,pext,navi) 
aviobj = avifile(navi); 
aviobj.Quality = 100; 
aviobj.compression='None'; 
for i=pfrom:pto 
fname=strcat(num2str(i),pext) 
adata=imread(fname); 
aviobj = addframe(aviobj,uint8(adata)); 
end 
aviobj=close(aviobj);