function T = trasposta(A)
  [n,m] = size(A)
  for i=1:n
    for j=1:m
      T(j,i) = A(i,j)
    end
  end
endfunction


// N.B.: non va messo "clear" altrimenti elimina il caricamento della funzione sopra definita
M = [3 4 7; 4 2 5]
M_Trasp = trasposta(M)
M_Old = M_Trasp'
disp(M_Old)