`newmat'
--------

newmat(ROW,COL [,[[A,B,...],[C,D,...],...]])
     :: ROW $B9T(B COL $BNs$N9TNs$r@8@.$9$k(B.

RETURN
     $B9TNs(B

ROW,COL
     $B<+A3?t(B

A,B,C,D
     $BG$0U(B

   * ROW $B9T(B COL $BNs$N9TNs$r@8@.$9$k(B. $BBh(B 3 $B0z?t$,$J$$>l9g(B, $B3F@.J,$O(B 0
     $B$K=i4|2=$5$l$k(B. $BBh(B 3 $B0z?t$,$"$k>l9g(B, $B%$%s%G%C%/%9$N>.$5$$@.J,$+$i(B,
     $B3F9T$,(B, $B%j%9%H$N(B $B3FMWAG(B ($B$3$l$O$^$?%j%9%H$G$"$k(B)
     $B$K$h$j=i4|2=$5$l$k(B. $B3FMWAG$O(B, $B@hF,$+$i=g$K(B $B;H$o$l(B, $BB-$j$J$$J,$O(B 0
     $B$,Kd$a$i$l$k(B.

   * $B9TNs$N%5%$%:$O(B `size()' $B$GF@$i$l$k(B.

   * `M' $B$,9TNs$N$H$-(B, `M[I]' $B$K$h$jBh(B `I' $B9T$r%Y%/%H%k$H$7$F(B
     $B<h$j=P$9$3$H$,$G$-$k(B. $B$3$N%Y%/%H%k$O(B,
     $B$b$H$N9TNs$H@.J,$r6&M-$7$F$*$j(B, $B$$$:$l$+$N@.J,$r=q$-49$($l$P(B,
     $BB>$NBP1~$9$k@.J,$b=q$-49$o$k$3$H$K$J$k(B.

   * $BH!?t$N0z?t$H$7$F9TNs$rEO$7$?>l9g(B, $BEO$5$l$?H!?t$O(B, $B$=$N9TNs$N@.J,(B
     $B$r=q$-49$($k$3$H$,$G$-$k(B.

     [0] A = newmat(3,3,[[1,1,1],[x,y],[x^2]]);
     [ 1 1 1 ]
     [ x y 0 ]
     [ x^2 0 0 ]
     [1] det(A);
     -y*x^2
     [2] size(A);
     [3,3]
     [3] A[1];
     [ x y 0 ]
     [4] A[1][3];
     getarray : Out of range
     return to toplevel

$B;2>H(B
     *Note `newvect': newvect, *Note `size': size, *Note `det': det.

