i1 : R = QQ o1 = QQ o1 : Ring |
i2 : A = random(R^2, R^5) o2 = | 9/8 7 3 3 4/9 | | 1/4 10/7 7/3 3/2 5/9 | 2 5 o2 : Matrix QQ <--- QQ |
i3 : B = random(R^2, R^5) o3 = | 7/5 1/2 3/7 10/3 6/5 | | 4/9 5/3 1/6 5/9 2/3 | 2 5 o3 : Matrix QQ <--- QQ |
i4 : (A',B',P,Q) = kroneckerNormalForm(A,B) o4 = (| 0 1 0 0 0 |, | 0 0 1 0 0 |, | -1/750446 0 |, | 274724112 | 0 0 0 1 0 | | 0 0 0 0 1 | | 0 -1/1500892 | | -24680068 | 63037464 | -100559766 | -53408799 ------------------------------------------------------------------------ -243600 -544560 3685920 -786384 |) -81928 106680 -64568 -221004 | 0 0 0 0 | -25140 -67290 -1016988 1123254 | 388170 152415 -1448370 -2110617 | o4 : Sequence |
i5 : P*A*Q - A' == 0 o5 = true |
i6 : P*B*Q - B' == 0 o6 = true |