`pari'
------

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

RETURN
     FUNC $@Kh$K0[$J$k(J.
FUNC
     PARI $@$NH!?tL>(J
ARG
     FUNC $@$N0z?t(J
PREC
     $@@0?t(J

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

   * PARI `[Batut et al.]' $@$O(J Bordeaux $@Bg3X$G3+H/$5$l%U%j!<%=%U%H%&%'(J
     $@%"$H$7$F8x3+$5$l$F$$$k(J. PARI $@$O?t<0=hM}E*$J5!G=$rM-$7$F$O$$$k$,(J, 
     $@<g$J%?!<%2%C%H$O@0?tO@$K4XO"$7$??t(J (bignum, bigfloat) $@$N1i;;$G(J, 
     $@;MB'1i;;$K8B$i$:(Jbigfloat $@$K$h$k$5$^$6$^$JH!?tCM$NI>2A$r9bB.$K9T$&(J
     $@$3$H$,$G$-$k(J. PARI $@$OB>$N%W%m%0%i%`$+$i%5%V%k!<%A%s%i%$%V%i%j$H$7(J
     $@$FMQ$$$k$3$H$,$G$-(J, $@$^$?(J, `gp' $@$H$$$&(J PARI$@%i%$%V%i%j$N%$%s%?%U%'!<(J
     $@%9$K$h$j(J UNIX $@$N%"%W%j%1!<%7%g%s$H$7$FMxMQ$9$k$3$H$b$G$-$k(J. $@8=:_(J
     $@$N%P!<%8%g%s$O(J 1.38 $@$G$$$/$D$+$N(J ftp site ($@$?$H$($P(J 
     `math.ucla.edu:/pub/pari')$@$+$i(J anonymous ftp $@$G$-$k(J.
   * $@:G8e$N0z?t(J PREC $@$G7W;;@:EY$r;XDj$G$-$k(J.  PREC $@$r>JN,$7$?>l9g(J 
     `setprec()' $@$G;XDj$7$?@:EY$H$J$k(J.
   * $@8=;~E@$G<B9T$G$-$k(J PARI $@$NH!?t$O<!$NDL$j$G$"$k(J. $@$$$:$l$b(J1 $@0z?t$G(J 
     Asir $@$,BP1~$G$-$k7?$N0z?t$r$H$kH!?t$G$"$k(J. $@$J$*3F!9$N5!G=$K$D$$$F(J
     $@$O(J PARI $@$N%^%K%e%"%k$r;2>H$N$3$H(J.

     `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'

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

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

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

