En primer lugar puede generar al azar unitario de la matriz y, a continuación, la plaza de los valores absolutos de todas las entradas. Aquí es Mathematica código que hace esto:
(* Random real and complex numbers with normal distribution *)
RR := RandomReal[NormalDistribution[0, 1]];
RC := RR + I*RR;
(* Random matrix from Ginibre ensemble *)
RG[n_] := Table[RC, {n}, {n}];
(* Random unitary matrix *)
RU[n_] := Orthogonalize[RG[n]];
(* Random doubly stochastic matrix *)
RDS[n_] := Abs[RU[n]]^2;
Ejecutar RDS[5]
para generar un $5 \times 5$ random doblemente estocástica de la matriz.