`dp_td', `dp_sugar', `dp_true_sugar'
------------------------------------

dp_td(DPOLY)
     :: Ƭ֤.
dp_sugar(DPOLY)
     :: ¿༰ `sugar' ֤.
dp_true_sugar([ONOFF])
     :: `dp_sugar()' , ̣뤫,  `sugar' ̣
     , ɽ.

RETURN
     
DPOLY
     ʬɽ¿༰
ONOFF
     ե饰

   * `dp_td()' , Ƭ, ʤѿλؿ¤֤.
   * ʬɽ¿༰, `sugar' ȸƤФ뤢Ϳ
     . ͤ `dp_true_sugar()' ˤꤵͤ 0 λ¿
     ȤƤ, 0 Ǥʤ, ŪƼƷ׻˷
     ̤ͤȤʤ. ǥեȤǤ 0 ꤵƤ. 
     `dp_sugar()' ¿༰ȤƤ֤.
   * `dp_true_sugar()' , ,  0 ʤ 0, 0 
     Ǥʤʤ 1 Υե饰ͤꤹ. Τʤˤ
     餺,  () ξ֤֤.
   * `sugar' , ֥ʴ׻ˤФΥȥƥ
     ꤹ뤿νפʻؿˤȤʤ.

     [87] dp_ord(0)$
     [88] X=ptozp((a46^2+7/10*a46+7/48)*u3^4-50/27*a46^2-35/27*a46-49/216)$
     [89] T=dp_ptod(X,[u3,u4,a46])$
     [90] dp_td(dp_rest(T));
     5
     [91] dp_true_sugar();
     0
     [92] dp_sugar(T);
     6

