matlab实现原始图像压缩成视频

晚上测试了一下matlab实现原始图像视频压缩，
后面需要研究一下压缩后的视频的图像质量

clear;
clc;
%% 读原始图像
w=1280 ;
l=1024;
m = memmapfile('20230112151407.dat','Format','uint16') ;%
c1= reshape(m.Data,w,l,[]);
%% 使用matlab自带的VideoWriter实现图像视频压缩，压缩格式Motion JPEG 2000（F1查看详细说明）
vidObj = VideoWriter('output','Motion JPEG 2000');
vidObj.FrameRate = 100;%帧频设置为100
open(vidObj);
for n = 1:1514
%     im1 = double(c1(:,:,5*n));
    im1 = (c1(:,:,n));
    im = (im1-min(min(im1)))/((max(max(im1)))-(min(min(im1))));
    writeVideo(vidObj,im1);             %写入视频
end
close(vidObj);
%%
reader = VideoReader('output.mj2');
reader.FrameRate
j=0;
while hasFrame(reader)
    j=j+1;
   img(:,:,j) = readFrame(reader);
%    writeVideo(writer,img);
end