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

dp_td(DPOLY)
     :: $@F,9`$NA4<!?t$rJV$9(J.
dp_sugar(DPOLY)
     :: $@B?9`<0$N(J `sugar' $@$rJV$9(J.
dp_true_sugar([ONOFF])
     :: `dp_sugar()' $@$,(J, $@A4<!?t$r0UL#$9$k$+(J, $@K\Mh$N(J `sugar' $@$r0UL#$9$k(J
     $@$+$NA*Br(J, $@I=<((J.

RETURN
     $@<+A3?t(J
DPOLY
     $@J,;6I=8=B?9`<0(J
ONOFF
     $@%U%i%0(J

   * `dp_td()' $@$O(J, $@F,9`$NA4<!?t(J, $@$9$J$o$A3FJQ?t$N;X?t$NOB$rJV$9(J.
   * $@J,;6I=8=B?9`<0$,@8@.$5$l$k$H(J, `sugar' $@$H8F$P$l$k$"$k@0?t$,IUM?$5(J
     $@$l$k(J. $@$3$NCM$O(J `dp_true_sugar()' $@$K$h$j@_Dj$5$l$kCM$,(J 0 $@$N;~B?9`(J
     $@<0$H$7$F$NA4<!?t(J, 0 $@$G$J$$;~(J, $@2>A[E*$K@F<!2=$7$F7W;;$7$?>l9g$K7k(J
     $@2L$,;}$DA4<!?t$NCM$H$J$k(J. $@%G%U%)%k%H$G$O(J 0 $@$,@_Dj$5$l$F$$$k(J. $@$9$J(J
     $@$o$A(J`dp_sugar()' $@$OB?9`<0$H$7$F$NA4<!?t$rJV$9(J.
   * `dp_true_sugar()' $@$O(J, $@0z?t$,$"$k>l9g(J, $@0z?t$,(J 0 $@$J$i$P(J 0,$@0z?t$,(J 0 
     $@$G$J$$$J$i$P(J 1 $@$rFbIt$N%U%i%0$NCM$K@_Dj$9$k(J. $@0z?t$N$"$k$J$7$K$+$+(J
     $@$o$i$:(J, $@8=:_(J ($@@_Dj8e(J) $@$N>uBV$rJV$9(J.
   * `sugar' $@$O(J, $@%0%l%V%J4pDl7W;;$K$*$1$k@55,2=BP$NA*Br$N%9%H%i%F%8$r(J
     $@7hDj$9$k$?$a$N=EMW$J;X?K$H$J$k(J.

     [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

