%利用matlab制作AVI视频（已有图片）

%前提要求：将图像放在一个文件夹下，所有图像要大小一致，类型相同

%当为彩色图像时，。。

clear all

close all

clc

srcDir=uigetdir('F:课程文件Zemax培训-总教材（厂商）');%获得选择的文件夹

cd(srcDir);

allnames=struct2cell(dir('*.jpg'));

[k,len]=size(allnames);%获得jpg文件的个数

aviobj=avifile('Zemax_培训厂商','compression','none');

aviobj.fps=0.2;%每秒的帧数

for i=1:len

   %依次取出文件

   name=allnames{1,i}

   I=imread(name);%读取文件

   aviobj=addframe(aviobj,I);

end

aviobj=close(aviobj);

%当图像为灰度时，修改如下

%I1(:,:,1)=I;

%I1(:,:,2)=I;

%I1(:,:,3)=I;