Comprobacion

> evalm(htranspose(U)&*U); U es unitaria

> evalm(htranspose(V)&*V); V es unitaria

> equal(A,U&*Sigma&*V);