"Source: Text/Basics/Mat.text";
"Line: 3049";
"Date: Thu Sep 25 14:47:46 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Basics/Mat.text, line: 3049
// Example: H27E14 ()
print "Example: H27E14";
ei := GetEchoInput();
SetEchoInput(true);
CC<i> := ComplexField(5);
r := 4;
c := 5;
A := [CC!Random([-2^10..2^10])/2^9 : i in [1..r*c]];
B := [CC!Random([-2^10..2^10])/2^9 : i in [1..r*c]];
M := Matrix(r,c,A) + i*Matrix(r,c,B);
X := NumericalBidiagonalForm(M); X;
NumericalBidiagonalForm(M); // matrix over CC
NumericalSingularValueDecomposition(M);
[Sqrt(Real(x)) : x in NumericalEigenvalues(M*ConjugateTranspose(M))];
SetEchoInput(ei);
