`ntype'
-------

ntype(NUM)
     :: NUM ($B?t(B) $B$N(B $B7?(B ($B@0?t(B) $B$rJV$9(B.

RETURN
     $B<+A3?t(B

OBJ
     $B?t(B

   * $B?t$N7?$NCM$O<!$NDL$j(B.
    0
          $BM-M}?t(B

    1
          $BG\@:EYIbF0>.?t(B

    2
          $BBe?tE*?t(B

    3
          $BG$0U@:EYIbF0>.?t(B (bigfloat)

    4
          $BJ#AG?t(B

    5
          $BM-8BBN$N85(B

    6
          $BBgI8?tAGBN$N85(B

    7
          $BI8?t(B 2 $B$NM-8BBN$N85(B

   * `newalg(x^2+1)' $B$G@8@.$7$??t$H(B, $B5u?tC10L(B `@i' $B$O(B,
     $B0[$J$k$b$N$H$7$F07$o$l$k(B.

   * $BBe?tE*?t$K4X$7$F$O(B, *Note $BBe?tE*?t$K4X$9$k1i;;(B::.

     [0] [10/37,ntype(10/37)];
     [10/37,0]
     [1] [10.0/37.0,ntype(10.0/37.0)];
     [0.27027,1]
     [2] [newalg(x^2+1)+1,ntype(newalg(x^2+1)+1)];
     [(#0+1),2]
     [3] [eval(sin(@pi/6)),ntype(eval(sin(@pi/6)))];
     [0.49999999999999999991,3]
     [4] [@i+1,ntype(@i+1)];
     [(1+1*@i),4]

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

