extract.m

来自「另ㄧ筆SPIHT的寫法~~有一點複雜就是了」· M 代码 · 共 11 行

function y=extract(x)
[s1 s2]=size(x);
nb=s1*s2/4;
mm=1;
for ii=1:2:s1
    for jj=1:2:s1
        yj=x(ii:ii+1,jj:jj+1);
        y(mm,:)=yj(:)';
        mm=mm+1;
    end
end