`dp_mag'
--------

dp_mag(P)
     :: $B78?t$N%S%C%HD9$NOB$rJV$9(B

RETURN
     $B?t(B

P
     $BJ,;6I=8=B?9`<0(B

   * $BJ,;6I=8=B?9`<0$N78?t$K8=$l$kM-M}?t$K$D$-(B, $B$=$NJ,JlJ,;R(B
     ($B@0?t$N>l9g$OJ,;R(B) $B$N%S%C%HD9$NAmOB$rJV$9(B.

   * $BBP>]$H$J$kB?9`<0$NBg$-$5$NL\0B$H$7$FM-8z$G$"$k(B. $BFC$K(B, 0
     $B<!85%7%9%F%`$K$*$$$F$O(B $B78?tKDD%$,LdBj$H$J$j(B,
     $BESCf@8@.$5$l$kB?9`<0$,78?tKDD%$r5/$3$7$F$$$k$+$I$&$+(B
     $B$NH=Dj$KLrN)$D(B.

   * `dp_gr_flags()' $B$G(B, `ShowMag', `Print' $B$r(B on $B$K$9$k$3$H$K$h$j(B
     $BESCf@8@.$5$l$kB?9`<0$K$?$$$9$k(B `dp_mag()' $B$NCM$r8+$k$3$H$,$G$-$k(B.

     [221] X=dp_ptod((x+2*y)^10,[x,y])$
     [222] dp_mag(X);
     115

$B;2>H(B
     *Note `dp_gr_flags dp_gr_print': dp_gr_flags dp_gr_print.

