Return to noro_matrix-ja.txt CVS log | Up to [local] / OpenXM / src / asir-contrib / packages / sample |
1.1 ! takayama 1: /* noro_matrix.rr $B$NMxMQNc!!(B ! 2: $B0J2<F~NO9T$O(B tab $B$+$i;O$^$k(B. ! 3: */ ! 4: ! 5: $BNc(B1. $B9TNs(BA$B$N(BJordan $BI8=`7A$r7W;;$9$k(B. ! 6: ! 7: load("noro_matrix.rr"); ! 8: A=newmat(2,2,[[2,1],[0,2]]); ! 9: B=linalg.jordan_canonical_form(A); ! 10: ! 11: $B7k2L(B. ! 12: ! 13: $B7k2L$N@bL@(B.