[原创]求助mathematica biancheng

[复制链接]

字体大小: 正常放大

samking630

3 主题	0 听众	23 积分

升级 18.95%

该用户从未签到

电梯直达

1^#

发表于 2006-2-28 18:45 |只看该作者 |倒序浏览

|招呼Ta 关注Ta

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，可是算不对
% J: O" ` U2 l
[此贴子已经被作者于2006-2-28 21:15:13编辑过]

zan