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

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

RETURN
     $@%Y%/%H%k(J
LEN
     $@<+A3?t(J
LIST
     $@%j%9%H(J

   * $@D9$5(J LEN $@$N%Y%/%H%k$r@8@.$9$k(J. $@Bh(J 2 $@0z?t$,$J$$>l9g(J, $@3F@.J,$O(J 0 $@$K(J
     $@=i4|2=$5$l$k(J. $@Bh(J 2 $@0z?t$,$"$k>l9g(J, $@%$%s%G%C%/%9$N>.$5$$@.J,$+$i(J, 
     $@%j%9%H$N3FMWAG$K$h$j=i4|2=$5$l$k(J. $@3FMWAG$O(J, $@@hF,$+$i=g$K;H$o$l(J, 
     $@B-$j$J$$J,$O(J 0 $@$,Kd$a$i$l$k(J.
   * $@%Y%/%H%k$N@.J,$O(J, $@Bh(J 0 $@@.J,$+$iBh(J LEN-1 $@@.J,$H$J$k(J. ($@Bh(J 1 $@@.J,$+(J
     $@$i$G$O$J$$;v$KCm0U(J. )
   * $@%j%9%H$O3F@.J,$,(J, $@%]%$%s%?$rC)$k;v$K$h$C$F%7!<%1%s%7%c%k$K8F$S=P(J
     $@$5$l$k$N$KBP$7(J, $@%Y%/%H%k$O3F@.J,$,Bh0l@.J,$+$i$N%a%b%j>e$N(J 
     displacement ($@JQ0L(J)$@$K$h$C$F%i%s%@%`%"%/%;%9$G8F$S=P$5$l(J, $@$=$N7k2L(J, 
     $@@.J,$N%"%/%;%9;~4V$KBg$-$J:9$,=P$F$/$k(J. $@@.J,%"%/%;%9$O(J, $@%j%9%H$G(J
     $@$O(J, $@@.J,$NNL$,A}$($k$K=>$C$F;~4V$,$+$+$k$h$&$K$J$k$,(J, $@%Y%/%H%k$G(J
     $@$O(J, $@@.J,$NNL$K0MB8$;$:$[$\0lDj$G$"$k(J.
   * Asir $@$G$O(J, $@=D%Y%/%H%k(J, $@2#%Y%/%H%k$N6hJL$O$J$$(J. $@9TNs$r:8$+$i3]$1$l(J
     $@$P=D%Y%/%H%k$H$_$J$5$l$k$7(J, $@1&$+$i3]$1$l$P2#%Y%/%H%k$H$_$J$5$l$k(J.
   * $@%Y%/%H%k$ND9$5$O(J `size()' $@$K$h$C$FF@$i$l$k(J.
   * $@H!?t$N0z?t$H$7$F%Y%/%H%k$rEO$7$?>l9g(J, $@EO$5$l$?H!?t$O(J, $@$=$N%Y%/%H(J
     $@%k$N@.J,$r=q$-49$($k$3$H$,$G$-$k(J.

     [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] ]

$@;2>H(J
     `newmat', `size'

