gop1.m

本程序的目的是通过变化DCT系数以及寻找可以应用的DCT系数的最小值来进行可扩展的MPEG压缩

 function [B2,B3,P4,B5,B6,P7,B8,B9,I10]=GOP1(imagedata,i,dim)
        
        %reading P4 frame
        framedata=aviread(imagedata,i+3);
        P4=frame2im(framedata);
        P4=imresize(P4,[dim dim]);
        P4=double(P4);

   
        
        %reading B2 frame
        framedata=aviread(imagedata,i+1);
        B2=frame2im(framedata);
        B2=imresize(B2,[dim dim]);
        B2=double(B2);

        %reading B3 frame
        framedata=aviread(imagedata,i+2);
        B3=frame2im(framedata);
        B3=imresize(B3,[dim dim]);
        B3=double(B3);
        
        %reading B5 frame
        framedata=aviread(imagedata,i+4);
        B5=frame2im(framedata);
        B5=imresize(B5,[dim dim]);
        B5=double(B5);
        
        %reading B6 frame
        framedata=aviread(imagedata,i+5);
        B6=frame2im(framedata);
        B6=imresize(B6,[dim dim]);
        B6=double(B6);
      
        %reading B8 frame
        framedata=aviread(imagedata,i+7);
        B8=frame2im(framedata);
        B8=imresize(B8,[dim dim]);
        B8=double(B8);
       
        %reading B9 frame
        framedata=aviread(imagedata,i+8);
        B9=frame2im(framedata);
        B9=imresize(B9,[dim dim]);
        B9=double(B9);
        
        %reading I10 frame
        framedata=aviread(imagedata,i+9);
        I10=frame2im(framedata);
        I10=imresize(I10,[dim dim]);
        I10=double(I10);

        %reading P7 frame
        framedata=aviread(imagedata,i+6);
        P7=frame2im(framedata);
        P7=imresize(P7,[dim dim]);
        P7=double(P7);