`dp_hm', `dp_ht', `dp_hc', `dp_rest'
------------------------------------

dp_hm(DPOLY)
     :: $@F,C19`<0$r<h$j=P$9(J.
dp_ht(DPOLY)
     :: $@F,9`$r<h$j=P$9(J.
dp_hc(DPOLY)
     :: $@F,78?t$r<h$j=P$9(J.
dp_rest(DPOLY)
     :: $@F,C19`<0$r<h$j=|$$$?;D$j$rJV$9(J.

RETURN
     `dp_hm()', `dp_ht()', `dp_rest()' : $@J,;6I=8=B?9`<0(J, `dp_hc()' : 
     $@?t$^$?$OB?9`<0(J
DPOLY
     $@J,;6I=8=B?9`<0(J

   * $@$3$l$i$O(J, $@J,;6I=8=B?9`<0$N3FItJ,$r<h$j=P$9$?$a$NH!?t$G$"$k(J.
   * $@J,;6I=8=B?9`<0(J P $@$KBP$7<!$,@.$jN)$D(J.
     `P = dp_hm(P) + dp_rest(P)'
     `dp_hm(P) = dp_hc(P) dp_ht(P)'

     [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_hm(T);                                                        
     (2160)*<<4,0,2>>
     [91] dp_ht(T);
     (1)*<<4,0,2>>
     [92] dp_hc(T);
     2160
     [93] dp_rest(T);
     (1512)*<<4,0,1>>+(315)*<<4,0,0>>+(-4000)*<<0,0,2>>+(-2800)*<<0,0,1>>
     +(-490)*<<0,0,0>>

