`dp_sp', `dp_sp_mod'
--------------------

dp_sp(DPOLY1,DPOLY2)

dp_sp_mod(DPOLY1,DPOLY2,MOD)
     :: S-$BB?9`<0$N7W;;(B

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

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

MOD
     $BAG?t(B

   * DPOLY1, DPOLY2 $B$N(B S-$BB?9`<0$r7W;;$9$k(B.

   * `dp_sp_mod()' $B$NF~NO$O(B, $BA4$FM-8BBN78?t$KJQ49$5$l$F$$$kI,MW$,$"$k(B.

   * $B7k2L$KM-M}?t(B, $BM-M}<0$,F~$k$N$rHr$1$k$?$a(B, $B7k2L$,Dj?tG\(B,
     $B$"$k$$$OB?9`<0(B $BG\$5$l$F$$$k2DG=@-$,$"$k(B.

     [227] X=dp_ptod(x^2*y+x*y,[x,y]);
     (1)*<<2,1>>+(1)*<<1,1>>
     [228] Y=dp_ptod(x*y^2+x*y,[x,y]);
     (1)*<<1,2>>+(1)*<<1,1>>
     [229] dp_sp(X,Y);
     (-1)*<<2,1>>+(1)*<<1,2>>

$B;2>H(B
     *Note `dp_mod dp_rat': dp_mod dp_rat.

