n = input ('Dim del espacio inicial (n > 1): ');
m = input ('Dim del espacio final (m > 1): ');
A = input ('Matriz de la aplicacin en las bases cannicas: ');
if size(A) ~= [m n]
    error ('Tamao incorrecto')
end
clear P Q;
disp (['Introduce la base nueva del espacio inicial en forma de vectores fila'])
for i = [1:n]
    disp(['Vector u(',num2str(i),')'])
    u = input('--> ');
    P(:,i) = u';
end
disp (['Introduce la base nueva del espacio final en forma de vectores fila'])
for j = [1:m]
    disp(['Vector v(',num2str(j),')'])
    v = input ('--> ');
    Q(:,j) = v';
end
disp (['La matriz de la aplicacin en las nuevas bases es: '])
B = inv(Q)*A*P