Wolfram中向量的精确正交化

发布于 2025-01-26 17:54:22 字数 301 浏览 3 评论 0原文

我拥有的是一个矩阵，我需要将其本征向量正交化。

这基本上就是我所需要的，但要精确。

因此，这是我的Wolfram输入

(orthogonolize(eigenvectors({{146, 112, 78, 17, 122}, {112, 86, 60, 13, 94}, {78, 60, 42 , 9, 66}, {17, 13, 9, 2, 14}, {122, 94, 66, 14, 104}})))

，可以使我浮动数字，而我需要确切的表格。

有什么方法可以解决这个问题吗？

原文

What I have is a matrix, I need to orthogonolize its eigen vectors.

That is basically all I need, but in exact form.

So here is my wolfram input

(orthogonolize(eigenvectors({{146, 112, 78, 17, 122}, {112, 86, 60, 13, 94}, {78, 60, 42 , 9, 66}, {17, 13, 9, 2, 14}, {122, 94, 66, 14, 104}})))

That gives me float numbers, while I need the exact forms.

Any ways to fix this?

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

悸初 2025-02-02 17:54:22

Wolfram Mathematica，而不是Wolframalpha，它是一个完全不同的产品，具有不同的规则，并给出了不同的结果，鉴于此

FullSimplify[Orthogonalize[Eigenvectors[{
  {146, 112, 78, 17, 122}, {112, 86, 60, 13, 94}, {78, 60, 42 , 9, 66}, 
  {17, 13, 9, 2, 14}, {122, 94, 66, 14, 104}}]]]

返回此确切形式

{{Sqrt[121/342 + 52/(9*Sqrt[35587])], Sqrt[5/38 + 18/Sqrt[35587]], 
  Sqrt[25/342 + 64/(9*Sqrt[35587])], Sqrt[7/38 - 26/Sqrt[35587]]/3, 
  2*Sqrt[2/19 - 7/Sqrt[35587]]},
 {-1/3*Sqrt[121/38 - 52/Sqrt[35587]], -Sqrt[5/38 - 18/Sqrt[35587]],
  Sqrt[25/38 - 64/Sqrt[35587]]/3, -1/3*Sqrt[7/38 + 26/Sqrt[35587]],
  Sqrt[8/19 + 28/Sqrt[35587]]}, 
 {3/Sqrt[35], -Sqrt[5/7], 0, 0, 1/Sqrt[35]},
 {-11/Sqrt[5110], -Sqrt[5/1022], 0, Sqrt[70/73], 4*Sqrt[2/2555]},
 {-17/(3*Sqrt[2774]), -7/Sqrt[2774], Sqrt[146/19]/3, Sqrt[2/1387]/3, -9*Sqrt[2/1387]}}

至少想到两种不同的方式，您可以在依赖此之前检查正确性。

其中的最后三个可以在某种程度上简化

1/Sqrt[35]*{3,-5,0,0,1},
1/Sqrt[5110]*{-11,-5,0,70,8},
1/(3*Sqrt[2774])*{-17,-21,146,2,-54}

，但我还看不到将前两个简化为当前大小的三分之一的方法。还有其他人可以看到一种方法吗？请仔细检查这些结果。

Wolfram Mathematica, not WolframAlpha which is a completely different product with different rules and gives different results, given this

FullSimplify[Orthogonalize[Eigenvectors[{
  {146, 112, 78, 17, 122}, {112, 86, 60, 13, 94}, {78, 60, 42 , 9, 66}, 
  {17, 13, 9, 2, 14}, {122, 94, 66, 14, 104}}]]]

returns this exact form

{{Sqrt[121/342 + 52/(9*Sqrt[35587])], Sqrt[5/38 + 18/Sqrt[35587]], 
  Sqrt[25/342 + 64/(9*Sqrt[35587])], Sqrt[7/38 - 26/Sqrt[35587]]/3, 
  2*Sqrt[2/19 - 7/Sqrt[35587]]},
 {-1/3*Sqrt[121/38 - 52/Sqrt[35587]], -Sqrt[5/38 - 18/Sqrt[35587]],
  Sqrt[25/38 - 64/Sqrt[35587]]/3, -1/3*Sqrt[7/38 + 26/Sqrt[35587]],
  Sqrt[8/19 + 28/Sqrt[35587]]}, 
 {3/Sqrt[35], -Sqrt[5/7], 0, 0, 1/Sqrt[35]},
 {-11/Sqrt[5110], -Sqrt[5/1022], 0, Sqrt[70/73], 4*Sqrt[2/2555]},
 {-17/(3*Sqrt[2774]), -7/Sqrt[2774], Sqrt[146/19]/3, Sqrt[2/1387]/3, -9*Sqrt[2/1387]}}

Think of at least two different ways you can check that for correctness before you depend on that.

The last three of those can be simplified somewhat

1/Sqrt[35]*{3,-5,0,0,1},
1/Sqrt[5110]*{-11,-5,0,70,8},
1/(3*Sqrt[2774])*{-17,-21,146,2,-54}

but I cannot yet see a way to simplify the first two to a third of their current size. Can anyone else see a way to do that? Please check these results very carefully.

回复收藏 0 原文

~没有更多了~