`dp_homo', `dp_dehomo'
----------------------

dp_homo(DPOLY)
     :: $BJ,;6I=8=B?9`<0$N@F<!2=(B

dp_dehomo(DPOLY)
     :: $B@F<!J,;6I=8=B?9`<0$NHs@F<!2=(B

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

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

   * `dp_homo()' $B$O(B, DPOLY $B$N(B $B3F9`(B T $B$K$D$$$F(B, $B;X?t%Y%/%H%k$ND9$5$r(B 1
     $B?-$P$7(B, $B:G8e$N@.J,$NCM$r(B D-`deg(T)' (D $B$O(B DPOLY $B$NA4<!?t(B)
     $B$H$7$?J,;6I=8=B?9`<0$rJV$9(B.

   * `dp_dehomo()' $B$O(B, DPOLY $B$N3F9`$K$D$$$F(B, $B;X?t%Y%/%H%k$N:G8e$N@.J,(B
     $B$r<h$j=|$$$?J,;6B?9`<0$rJV$9(B.

   * $B$$$:$l$b(B, $B@8@.$5$l$?B?9`<0$rMQ$$$?1i;;$r9T$&>l9g(B,
     $B$=$l$i$KE,9g$9$k9`=g=x$r(B $B@5$7$/@_Dj$9$kI,MW$,$"$k(B.

   * `hgr()' $B$J$I$K$*$$$F(B, $BFbItE*$KMQ$$$i$l$F$$$k(B.

     [202] X=<<1,2,3>>+3*<<1,2,1>>;
     (1)*<<1,2,3>>+(3)*<<1,2,1>>
     [203] dp_homo(X);
     (1)*<<1,2,3,0>>+(3)*<<1,2,1,2>>
     [204] dp_dehomo(@);
     (1)*<<1,2,3>>+(3)*<<1,2,1>>

$B;2>H(B
     *Note `gr hgr gr_mod': gr hgr gr_mod.

