1、给出一个长度为1的5阶向量：n=5;a = Subscript[x, #] & /@ Range[n];a = {a/Sqrt[a.a]}
3、计算：c=IdentityMatrix[n]-b;
5、要证明a是正交矩阵，只需要证明：Transpose[c].c是对角矩阵。实际上，这是一个单位矩阵。
正交矩阵例题一则（Mathematica）
时间：2024-10-13 03:02:071、给出一个长度为1的5阶向量：n=5;a = Subscript[x, #] & /@ Range[n];a = {a/Sqrt[a.a]}
3、计算：c=IdentityMatrix[n]-b;
5、要证明a是正交矩阵，只需要证明：Transpose[c].c是对角矩阵。实际上，这是一个单位矩阵。