'ZIGZAG' genera un vector columna con ordenacion zigzag en plan JPEG (Ver Data Compression Book) OJO! Solo para matrices cuadradas USO: lin=zigzag(a);
0001 function aa=zigzag(a) 0002 0003 %'ZIGZAG' genera un vector columna con ordenacion zigzag 0004 %en plan JPEG (Ver Data Compression Book) 0005 % 0006 %OJO! Solo para matrices cuadradas 0007 % 0008 %USO: lin=zigzag(a); 0009 0010 N=size(a); 0011 N=N(1); 0012 0013 b=fliplr(a); 0014 aa=diag(b,N-1); 0015 0016 for i=N-2:-1:1-N, 0017 0018 anyad=diag(b,i); 0019 if (i/2-floor(i/2))>0 0020 anyad=anyad(length(anyad):-1:1); 0021 end 0022 aa=[aa;anyad]; 0023 0024 end 0025