代码很简单，
ranOrt := Orthogonalize[RandomInteger[4, {4, 4}]]
ranOrt // MatrixForm
P = ranOrt;
P.Transpose[P] // Simplify // MatrixForm
非整数的
ranOrt := Orthogonalize[RandomVariate[NormalDistribution[], {4, 4}]]
ranOrt // MatrixForm
P = ranOrt;
P.Transpose[P] // Simplify // MatrixForm
标签： Mathematica
顶一下
(0)
0%
踩一下
(0)
0%
