`dp_vtoe', `dp_etov'
--------------------

dp_vtoe(VECT)
     :: $B;X?t%Y%/%H%k$r9`$KJQ49(B

dp_etov(DPOLY)
     :: $BF,9`$r;X?t%Y%/%H%k$KJQ49(B

RETURN
     `dp_vtoe' : $BJ,;6I=8=B?9`<0(B, `dp_etov' : $B%Y%/%H%k(B

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

DPOLY
     $BJ,;6I=8=B?9`<0(B

   * `dp_vtoe()' $B$O(B, $B%Y%/%H%k(B VECT $B$r;X?t%Y%/%H%k$H$9$k9`$r@8@.$9$k(B.

   * `dp_etov()' $B$O(B, $BJ,;6I=8=B?9`<0(B `dpoly' $B$NF,9`$N;X?t%Y%/%H%k$r(B
     $B%Y%/%H%k$KJQ49$9$k(B.

     [211] X=<<1,2,3>>;
     (1)*<<1,2,3>>
     [212] V=dp_etov(X);
     [ 1 2 3 ]
     [213] V[2]++$
     [214] Y=dp_vtoe(V);
     (1)*<<1,2,4>>

