[求助]编程 感觉有错，不知那错了mathematica

samking630

<P><FONT face=幼圆><br>n = 2<br>m = 2<br>Q = IdentityMatrix[n]<br>A2 = Table[If[i &gt;= j, 0, Random[Integer, {0, m}]], {i, n}, {j, n}]<br>S = A2 - Transpose[A2]<br>T = (Q - S).Inverse[Q + S]<br>T' = Inverse[T]<br>A1 = Table[If[i ≥ j, 0, Random[Integer, {0, m}]], {i, n}, {j, n}]<br>S1 = A1 - Transpose[A1]<br>A = (Q - S1).Inverse[Q + S1]<br>V={{-1/2，（√3）/2}，{-（√3）/2，1/2}}<br>B = A.T'.V.T<br><br>（√3）表示 根号下三，在这打不了<br><br>求助，<br>前面都对<br>就是求B = A.T'.V.T<br>B老是算不对，显示出的B经演算不对。Inverse[B].B应该=1，可是 算不对  <br><br><br></FONT></P>

[此贴子已经被作者于2006-2-28 20:08:17编辑过]

NASA

请说明你用的是什么工具？

samking630

<STRONG>mathematica mathematica</STRONG>