%-------------------------------
%-------------------------------
% Esta función calcula la traspuesta
% de una matriz nxm 
%-------------------------------
%-------------------------------


function B  =  MyTranspose(A)
  
sizeA       =  size(A);  
nFilasA     =  sizeA(1); %número de filas A, o 
                         %número de columnas de B  
nColumnasA  =  sizeA(2); %número de columas de A, o
                         %número de filas de B 
  
B           =  zeros(nColumnasA,nFilasA);    
for i=1:nColumnasA 
  for j=1:nFilasA
      B(i,j)  =  A(j,i);
  end
end
  
end
