clc
clear
% 移動到某個目錄下，
srcDic = uigetdir(''C:\Users\NEVERGUVEIP\Desktop\機器學習');
cd(srcDic);
%讀取所有的jpg圖片
allnames = struct2cell(dir('*.jpg'));
[k,len]=size(allnames);
aviobj = VideoWriter('driver.avi');
%設定幀率
aviobj.FrameRate = 2;
open(aviobj)
%我製作了由180張圖片構成的視訊
for i = 1:180
    name = allnames{1,i};
    frame = imread(name);
    writeVideo(aviobj,frame);
end
close(aviobj)