#Arkaitz Rodas Bilbao
#© Derechos reservados excepto normas de uso y distribución de la UPV-EHU.

#-----------------------------------------------------------------------------------------------------------------------
#En este modulo se obtienen bloques con matrices para emplearlos en calculos de nuevas matrices de forma mas sencilla.
#-----------------------------------------------------------------------------------------------------------------------

disp ('');

function blo=fb(A,n)

 for i=1:2
   for j=1:2
    for k=1:n
     a(i,j,k)=A(i+2*(k-1),j);
    endfor;
   endfor;
  endfor;

  blo=a;
  
endfunction;



disp('');