数学建模社区-数学中国

标题: [原创]求助mathematica biancheng [打印本页]

---

作者: samking630    时间: 2006-2-28 18:45
标题: [原创]求助mathematica biancheng
n = 2 m = 2 Q = IdentityMatrix[n] A2 = Table[If[i >= j, 0, Random[Integer, {0, m}]], {i, n}, {j, n}] S = A2 - Transpose[A2] T = (Q - S).Inverse[Q + S] T' = Inverse[T] A1 = Table[If[i ≥ j, 0, Random[Integer, {0, m}]], {i, n},{j, n}] S1 = A1 - Transpose[A1] A = (Q - S1).Inverse[Q + S1] V={{-1/2，（√3）/2}，{-（√3）/2，1/2}} B = A.T'.V.T （√3）表示 根号下三，在这打不了 求助，前面都对就是求B = A.T'.V.T B老是算不对，显示出的B经演算不对。Inverse.B应该=1，可是 算不对

[此贴子已经被作者于2006-2-28 21:15:13编辑过]

---

欢迎光临 数学建模社区-数学中国 (http://www.madio.net/)

Powered by Discuz! X2.5