`ntype'
-------

ntype(NUM)
     :: NUM ()   () ֤.

RETURN
     
OBJ
     

   * ηͤϼ̤.
     0
          ͭ
     1
          ư
     2
          Ū
     3
          Ǥư (bigfloat)
     4
          ʣǿ
   * `newalg(x^2+1)' , ñ `@i' , ۤʤΤȤ
     ư.
   * Ū˴ؤƤ, *Note Ū˴ؤ黻::.

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


     `type'

