`dp_nf'
-------

dp_nf(INDEXLIST,DPOLY,DPOLYARRAY,FULLREDUCE)
     :: U\̐K`߂.

RETURN
     U\
INDEXLIST
     Xg
DPOLY
     U\
DPOLYARRAY
     z
FULLREDUCE
     tO

   * U\ DPOLY ̐K`߂.
   * DPOLYARRAY ͕U\vfƂxNg, INDEXLIST ͐K
     vZɗp DPOLYARRAY ̗vf̃CfbNX̃Xg.
   * FULLREDUCE  0 łȂƂSĂ̍ɑ΂ĊȖs. FULLREDUCE
      0 ̂Ƃ݂̂ɑ΂ĊȖs.
   * INDEXLIST Ŏw肳ꂽ, Ô̂̕DIɎg.
   * ʂɂ INDEXLIST ̗^ɂ蔟̒l͈قȂ\邪, 
     Ouiɑ΂Ă͈ӓIɒ܂.

     [0] load("gr")$
     [45] load("katsura")$
     [50] K=katsura(4)$
     [51] length(K)$
     5
     [52] Ord=2$
     [53] dp_ord(2)$
     [54] DP1=newvect(5)$
     [55] V=[u0,u1,u2,u3,u4]$
     [56] for(I=0;I<5;I++)DP1[I]=dp_ptod(K[I],V);
     [57] G=gr(K,V)$
     [58] length(G);
     5
     [59] DP2=newvect(5)$
     [60] for(I=0;I<5;I++)DP2[I]=dp_ptod(G[I],V);
     [61] T=dp_ptod((u0-u1+u2-u3+u4)^2,V)$
     [62] dp_dtop(dp_nf([0,1,2,3,4],T,DP1,1),V);
     u4^2+(6*u3+2*u2+6*u1-2)*u4+9*u3^2+(6*u2+18*u1-6)*u3+u2^2+(6*u1-2)*u2+9*u1^2-6*u1+1
     [63] dp_dtop(dp_nf([4,3,2,1,0],T,DP1,1),V);
     -5*u4^2+(-4*u3-4*u2-4*u1)*u4-u3^2-3*u3-u2^2+(2*u1-1)*u2-2*u1^2-3*u1+1
     [64] dp_dtop(dp_nf([0,1,2,3,4],T,DP2,1),V);
     -1138087976845165778088612297273078520347097001020471455633353049221045677593
     0005716505560062087150928400876150217079820311439477560587583488*u4^15+...
     [65] dp_dtop(dp_nf([4,3,2,1,0],T,DP2,1),V);
     -1138087976845165778088612297273078520347097001020471455633353049221045677593
     0005716505560062087150928400876150217079820311439477560587583488*u4^15+...
     [66] @64==@65;
     1

Q
     `dp_dtop', `dp_ord', `p_nf'

