Mathematica 生成随机4阶矩阵

代码很简单，

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

本作品采用创作共用版权协议, 要求署名、非商业用途和保持一致. 转载本站内容必须也遵循署名-非商业用途-保持一致的创作共用协议.