002-5.mws

> restart;

> A:=Matrix([[a,b],[c,d]]);

A := _rtable[16261456]

> B:=Matrix([[1,0],[1,1]]);

B := _rtable[16263632]

> A^(-1).B.A;

_rtable[16267672]

> solve({((d/(a*d-b*c)-b/(a*d-b*c))*b-b*d/(a*d-b*c))=0});

{b = 0, a = a, d = d, c = c}

取b=0,a=1,d=2,c=3, 即得A^(-1).B.A 是三角矩陣

> A:=Matrix([[a,b],[c,d]]);B:=Matrix([[1,0],[1,1]]);b:=0;a:=1;d:=2;c:=3;

A := _rtable[16269768]

B := _rtable[16271872]

b := 0

a := 1

d := 2

c := 3

> A^(-1).B.A;

_rtable[16276056]

>