`pari'
------

pari(FUNC,ARG,PREC)
     :: PARI $B$NH!?t(B FUNC $B$r8F$S=P$9(B.

RETURN
     FUNC $BKh$K0[$J$k(B.

FUNC
     PARI $B$NH!?tL>(B

ARG
     FUNC $B$N0z?t(B

PREC
     $B@0?t(B

   * PARI $B$NH!?t$r8F$S=P$9(B.

   * PARI `[Batut et al.]' $B$O(B Bordeaux $BBg3X$G3+H/$5$l%U(B
     $B%j!<%=%U%H%&%'%"$H$7$F8x3+$5$l$F$$$k(B. PARI $B$O?t<0=hM}E*$J5!G=$rM-(B
     $B$7$F$O$$$k$,(B, $B<g$J%?!<%2%C%H$O@0?tO@$K4XO"$7$??t(B (bignum,
     bigfloat) $B$N1i;;$G(B, $B;MB'1i;;$K8B$i$:(Bbigfloat $B$K$h$k$5$^$6$^$J(B
     $BH!?tCM$NI>2A$r9bB.$K9T$&$3$H$,$G$-$k(B. PARI $B$OB>$N%W%m%0%i%`$+$i(B
     $B%5%V%k!<%A%s%i%$%V%i%j$H$7$FMQ$$$k$3$H$,$G$-(B, $B$^$?(B, `gp' $B$H$$$&(B
     PARI$B%i%$%V%i%j$N%$%s%?%U%'!<%9$K$h$j(B UNIX $B$N%"%W%j%1!<%7%g%s$H$7$F(B
     $BMxMQ$9$k$3$H$b$G$-$k(B. $B8=:_$N%P!<%8%g%s$O(B 2.0.17beta $B$G$$$/$D$+$N(B
     ftp site ($B$?$H$($P(B `ftp://megrez.ceremab.u-bordeaux.fr/pub/pari')
     $B$+$i(B anonymous ftp $B$G$-$k(B.

   * $B:G8e$N0z?t(B PREC $B$G7W;;@:EY$r;XDj$G$-$k(B.  PREC $B$r>JN,$7$?>l9g(B
     `setprec()' $B$G;XDj$7$?@:EY$H$J$k(B.

   * $B8=;~E@$G<B9T$G$-$k(B PARI $B$NH!?t$O<!$NDL$j$G$"$k(B. $B$$$:$l$b(B 1 $B0z?t$G(B
     Asir $B$,BP1~$G$-$k7?$N0z?t$r$H$kH!?t$G$"$k(B.
     $B$J$*3F!9$N5!G=$K$D$$$F$O(B PARI $B$N%^%K%e%"%k$r;2>H$N$3$H(B.

     `abs', `adj', `arg', `bigomega', `binary', `ceil', `centerlift',
     `cf', `classno', `classno2', `conj', `content', `denom', `det',
     `det2', `detr', `dilog', `disc', `discf', `divisors', `eigen',
     `eintg1', `erfc', `eta', `floor', `frac', `galois', `galoisconj',
     `gamh', `gamma', `hclassno', `hermite', `hess', `imag', `image',
     `image2', `indexrank', `indsort', `initalg', `isfund', `isprime',
     `ispsp', `isqrt', `issqfree', `issquare', `jacobi', `jell', `ker',
     `keri', `kerint', `kerintg1', `kerint2', `kerr', `length',
     `lexsort', `lift', `lindep', `lll', `lllg1', `lllgen', `lllgram',
     `lllgramg1', `lllgramgen', `lllgramint', `lllgramkerim',
     `lllgramkerimgen', `lllint', `lllkerim', `lllkerimgen', `lllrat',
     `lngamma', `logagm', `mat', `matinvr', `matrixqz2', `matrixqz3',
     `matsize', `modreverse', `mu', `nextprime', `norm', `norml2',
     `numdiv', `numer', `omega', `order', `ordred', `phi', `pnqn',
     `polred', `polred2', `primroot', `psi', `quadgen', `quadpoly',
     `real', `recip', `redcomp', `redreal', `regula', `reorder',
     `reverse', `rhoreal', `roots', `rootslong', `round', `sigma',
     `signat', `simplify', `smalldiscf', `smallfact', `smallpolred',
     `smallpolred2', `smith', `smith2', `sort', `sqr', `sqred', `sqrt',
     `supplement', `trace', `trans', `trunc', `type', `unit', `vec',
     `wf', `wf2', `zeta'

   * Asir $B$GMQ$$$F$$$k$N$O(B PARI $B$N$[$s$N0lIt$N5!G=$G$"$k$,(B, $B:#8e(B
     $B$h$jB?$/$N5!G=$,MxMQ$G$-$k$h$&2~NI$9$kM=Dj$G$"$k(B.

     /* $B9TNs$N8GM-%Y%/%H%k$r5a$a$k(B. */
     [0] pari(eigen,newmat(2,2,[[1,1],[1,2]]));
     [ -1.61803398874989484819771921990 0.61803398874989484826 ]
     [ 1 1 ]
     /* 1 $BJQ?tB?9`<0$N:,$r5a$a$k(B. */
     [1] pari(roots,t^2-2);
     [ -1.41421356237309504876 1.41421356237309504876 ]

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

