`ntype'
-------

ntype(NUM)
     :: NUM ($@?t(J) $@$N(J $@7?(J ($@@0?t(J) $@$rJV$9(J.

RETURN
     $@<+A3?t(J
OBJ
     $@?t(J

   * $@?t$N7?$NCM$O<!$NDL$j(J.
     0
          $@M-M}?t(J
     1
          $@G\@:EYIbF0>.?t(J
     2
          $@Be?tE*?t(J
     3
          $@G$0U@:EYIbF0>.?t(J (bigfloat)
     4
          $@J#AG?t(J
   * `newalg(x^2+1)' $@$G@8@.$7$??t$H(J, $@5u?tC10L(J `@i' $@$O(J, $@0[$J$k$b$N$H$7(J
     $@$F07$o$l$k(J.
   * $@Be?tE*?t$K4X$7$F$O(J, *Note $@Be?tE*?t$K4X$9$k1i;;(J::.

     [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]

$@;2>H(J
     `type'

