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

dp_td(DPOLY)
     :: ̑SԂ.
dp_sugar(DPOLY)
     ::  `sugar' Ԃ.
dp_true_sugar([ONOFF])
     :: `dp_sugar()' , SӖ邩, { `sugar' Ӗ
     ̑I, \.

RETURN
     R
DPOLY
     U\
ONOFF
     tO

   * `dp_td()' , ̑S, Ȃ킿eϐ̎w̘aԂ.
   * U\, `sugar' ƌĂ΂邠鐮t^
     . ̒l `dp_true_sugar()' ɂݒ肳l 0 ̎
     ƂĂ̑S, 0 łȂ, zIɐĎČvZꍇɌ
     ʂS̒lƂȂ. ftHgł 0 ݒ肳Ă. 
     킿`dp_sugar()' ͑ƂĂ̑SԂ.
   * `dp_true_sugar()' , ꍇ,  0 Ȃ 0, 0 
     łȂȂ 1 ̃tO̒lɐݒ肷. ̂Ȃɂ
     炸,  (ݒ) ̏ԂԂ.
   * `sugar' , OuivZɂ鐳K΂̑ĨXgeW
     肷邽߂̏dvȎwjƂȂ.

     [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

