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

newvect(LEN[,LIST])
     ::  LEN ̃xNg𐶐.

RETURN
     xNg
LEN
     R
LIST
     Xg

   *  LEN ̃xNg𐶐.  2 Ȃꍇ, e 0 
     .  2 ꍇ, CfbNX̏, 
     Xg̊evfɂ菉. evf, 擪珇Ɏg, 
     Ȃ 0 ߂.
   * xNg̐,  0  LEN-1 ƂȂ. ( 1 
     ł͂Ȃɒ. )
   * Xg͊e, |C^H鎖ɂăV[PVɌĂяo
     ̂ɑ΂, xNg͊eꐬ̃ 
     displacement (ψ)ɂă_ANZXŌĂяo, ̌, 
     ̃ANZXԂɑ傫ȍoĂ. ANZX, Xg
     , ̗ʂɏ]ĎԂ悤ɂȂ邪, xNg
     , ̗ʂɈˑقڈł.
   * Asir ł, cxNg, xNg̋ʂ͂Ȃ. s|
     ΏcxNgƂ݂Ȃ邵, E|ΉxNgƂ݂Ȃ.
   * xNg̒ `size()' ɂē.
   * ̈ƂăxNgnꍇ, nꂽ, ̃xNg
     ̐邱Ƃł.

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

Q
     `newmat', `size'

