ATLAST 2.1; 9 ȯ(Commutator) ϱ.

A = {{7,6},{2,3}}
[Graphics:../Images/index_gr_61.gif]
Clear[x,y,u,v]
B = {{x,y},{u,v}}
[Graphics:../Images/index_gr_62.gif]
A.B
[Graphics:../Images/index_gr_63.gif]
B.A
[Graphics:../Images/index_gr_64.gif]
Solve[{A.B==B.A},{x,y,u,v}]
[Graphics:../Images/index_gr_65.gif]
[Graphics:../Images/index_gr_66.gif]
[Graphics:../Images/index_gr_67.gif]
[Graphics:../Images/index_gr_68.gif]
R = {{0,-2,6,0},{-6,4,0,6},{2,0,-4,-2},{0,2,-6,0}}
[Graphics:../Images/index_gr_69.gif]
RowReduce[R]
[Graphics:../Images/index_gr_70.gif]

׷Ƿ ´ :

Clear[a,b]
CM = {{2a+b,3a},{a,b}}
[Graphics:../Images/index_gr_71.gif]
Simplify[A.CM]
[Graphics:../Images/index_gr_72.gif]
Simplify[CM.A]
[Graphics:../Images/index_gr_73.gif]
C1 = {{4,9},{3,-2}}
[Graphics:../Images/index_gr_74.gif]
C1.A
[Graphics:../Images/index_gr_75.gif]
A.C1
[Graphics:../Images/index_gr_76.gif]


Converted by Mathematica      January 18, 2000