`dp_subd'
---------

dp_subd(DPOLY1,DPOLY2)
     :: Ƭξñ༰֤.

RETURN
     ʬɽ¿༰
DPOLY1, DPOLY2
     ʬɽ¿༰

   * `dp_ht(DPOLY1)/dp_ht(DPOLY2)' . ̤η 1 Ǥ.
   * ڤ뤳Ȥ餫狼äƤɬפ.

     [162] dp_subd(<<1,2,3,4,5>>,<<1,1,2,3,4>>);
     (1)*<<0,1,1,1,1>>


     `dp_red'

