技術標籤：PIV實驗相關檔案讀取

將圖片輸出為視訊及GIF

clear;clc
Path = 'I:Path\';
Folder = 'Foldername\';
Data = imageDatastore([Path,Folder]);
V = VideoWriter([Path,Folder,'Movie.avi']); % 輸出AVI檔名字
V.FrameRate = 50; % 幀率，40fps
V.Quality = 90;   % 質量，百分比，90%
GIF = [Path,Folder,'GIF.gif'];
open(V);
for bnumber = 1:length(Data.
 
Files)
    set(0,'DefaultFigureVisible', 'off');
    img = readimage(Data,bnumber);
    writeVideo(V, img); %%% 輸出視訊檔案
    % 輸出GIF檔案
    imshow(img(1:5:end,1:5:end));
    CurrFrame = getframe;   % 獲取畫素，否則無法顯示動畫
    im = frame2im(CurrFrame);  
    [A,map] = rgb2ind(im,256);  % 將RGB影象轉換為索引影象
	if bnumber ==
 
 1
		imwrite(A,map,GIF,'gif','LoopCount',Inf,'DelayTime',0.005);  % DelayTime表示寫入的時間間隔
	else
		imwrite(A,map,GIF,'gif','WriteMode','append','DelayTime',0.005);
    end
    close
end
close(V); %%% 關閉視訊輸出