`newvect'
---------

newvect(LEN[,LIST])
     :: $BD9$5(B LEN $B$N%Y%/%H%k$r@8@.$9$k(B.

RETURN
     $B%Y%/%H%k(B

LEN
     $B<+A3?t(B

LIST
     $B%j%9%H(B

   * $BD9$5(B LEN $B$N%Y%/%H%k$r@8@.$9$k(B. $BBh(B 2 $B0z?t$,$J$$>l9g(B, $B3F@.J,$O(B 0
     $B$K=i4|2=$5$l$k(B. $BBh(B 2 $B0z?t$,$"$k>l9g(B, $B%$%s%G%C%/%9$N>.$5$$@.J,$+$i(B,
     $B%j%9%H$N(B $B3FMWAG$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.

   * $B%Y%/%H%k$N@.J,$O(B, $BBh(B 0 $B@.J,$+$iBh(B LEN-1 $B@.J,$H$J$k(B.  ($BBh(B 1
     $B@.J,$+$i$G$O$J$$;v$KCm0U(B. )

   * $B%j%9%H$O3F@.J,$,(B, $B%]%$%s%?$rC)$k;v$K$h$C$F%7!<%1%s%7%c%k$K(B
     $B8F$S=P$5$l$k$N$KBP$7(B, $B%Y%/%H%k$O3F@.J,$,(B $BBh0l@.J,$+$i$N%a%b%j>e$N(B
     displacement ($BJQ0L(B)$B$K$h$C$F%i%s%@%`%"%/%;%9$G(B $B8F$S=P$5$l(B,
     $B$=$N7k2L(B, $B@.J,$N%"%/%;%9;~4V$KBg$-$J:9$,=P$F$/$k(B.  $B@.J,%"%/%;%9$O(B,
     $B%j%9%H$G$O(B, $B@.J,$NNL$,A}$($k$K=>$C$F(B $B;~4V$,$+$+$k$h$&$K$J$k$,(B,
     $B%Y%/%H%k$G$O(B, $B@.J,$NNL$K0MB8$;$:$[$\0lDj$G$"$k(B.

   * Asir $B$G$O(B, $B=D%Y%/%H%k(B, $B2#%Y%/%H%k$N6hJL$O$J$$(B.
     $B9TNs$r:8$+$i3]$1$l$P=D%Y%/%H%k$H$_$J$5$l$k$7(B,
     $B1&$+$i3]$1$l$P2#%Y%/%H%k$H(B $B$_$J$5$l$k(B.

   * $B%Y%/%H%k$ND9$5$O(B `size()' $B$K$h$C$FF@$i$l$k(B.

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

     [0] A=newvect(5);
     [ 0 0 0 0 0 ]
     [1] A=newvect(5,[1,2,3,4,[5,6]]);
     [ 1 2 3 4 [5,6] ]
     [2] A[0];
     1
     [3] A[4];
     [5,6]
     [4] size(A);
     [5]
     [5] def afo(V) { V[0] = x; }
     [6] afo(A)$
     [7] A;
     [ x 2 3 4 [5,6] ]

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

