Return to operation.texi CVS log

Up to [local] / OpenXM / src / asir-doc / int-parts

Risa/Asir manual on the internal specifications.

@comment $OpenXM: OpenXM/src/asir-doc/int-parts/operation.texi,v 1.1 2001/04/23 05:45:35 noro Exp $
@chapter $B$=$NB>$N1i;;(B

@section $B=|;;(B
@example
#include "ca.h"

divsrp(vl,a,b,qp,rp)   *qp = a / b; *rp = a % b; ($BB?9`<0$H$7$F$N>&(B, $B>jM>(B)
VL vl;
P a,b,*qp,*rp;

premp(vl,a,b,rp)       *rp = lc(b)^(deg(a)-deg(b)+1)*a % b ($B5<>jM>(B)
VL vl;
P a,b,*rp;
@end example
@noindent
$B0lHL$KB?JQ?tB?9`<0$KBP$7$F$O(B, $BI,$:$7$b=|;;$,<B9T$G$-$k$H$O8B$i$J$$(B. 
@code{divsrp()} $B$O(B, $B>&(B, $B>jM>$,B8:_$9$k$3$H$,J,$+$C$F$$$k>l9g$K$=$l$i$r5a(B
$B$a$kH!?t$G$"$k(B. $B$3$l$O(B, $BNc$($P=|?t$N<g78?t$,M-M}?t$G$"$k>l9g$J$I$KMQ$$$i(B
$B$l$k(B. $B0lHL$KB?9`<0>jM>$O5<>jM>$r7W;;$9$k$3$H$K$h$j5a$a$k(B. 

@section GCD
@example
#include "ca.h"

ezgcdp(vl,a,b,rp)     *rp = gcd(pp(a),pp(b));
VL vl;
P a,b,*rp;

ezgcdpz(vl,a,b,rp)    *rp = gcd(a,b);
VL vl;
P a,b,*rp;

pcp(vl,a,pp,cp)       *pp = pp(a); *cp = cont(cp);
VL vl;
P a,*pp,*cp;
@end example
@noindent
@code{pp(a)} $B$O(B @code{a} $B$N86;OE*ItJ,(B, @code{cont(a)} $B$OMFNL$r(B
$BI=$9(B. @code{ezgcdp()} $B$O@0?t0x;R$r=|$$$?(B gcd, @code{ezgcdpz()} $B$O@0?t0x(B
$B;R$r$3$a$?(B gcd $B$r7W;;$9$k(B. 

@section $BBeF~(B
@example
#include "ca.h"

substp(vl,a,v,b,rp)   *rp = a $B$N(B v $B$K(B b $B$rBeF~(B
VL vl;
P a,b,*rp;
V v;

substr(vl,a,v,b,rp)   *rp = a $B$N(B v $B$K(B b $B$rBeF~(B
VL vl;
R a,b,*rp;
V v;
@end example
@section $BHyJ,(B
@example
#include "ca.h"

diffp(vl,a,v,rp)      *rp = a $B$r(B v $B$GJPHyJ,(B
VL vl;
P a,*rp;
V v;

pderivr(vl,a,v,rp)    *rp = a $B$r(B v $B$GJPHyJ,(B
VL vl;
R a,*rp;
V v;
@end example

@section $B=*7k<0(B
@example
#include "ca.h"

resultp(vl,v,a,b,rp)  *rp = a $B$H(B b $B$N=*7k<0(B ($BId9f$O=|$/(B)
VL v;
P a,b,*rp;
@end example

@section $B0x?tJ,2r(B
@example
#include "ca.h"

fctrp(vl,a,dcp)       *dcp = a $B$rM-M}?t>e$G0x?tJ,2r$7$?$b$N(B
VL vl;
P a;
DCP *dcp;

sqfrp(vl,a,dcp)       *dcp = a $B$NM-M}?t>e$GL5J?J}J,2r$7$?$b$N(B
VL vl;
P a;
DCP *dcp;
@end example
@noindent
$B0x?tJ,2r$N7k2L$O(B @code{[$B0x;R(B, $B=EJ#EY(B]} $B$N%j%9%H$H$7$FI=8=$G$-$k(B. $B$3$l$r(B
$B<!?t78?t%j%9%HMQ$N%G!<%?9=B$(B @code{DCP} $B$rN.MQ$7$FI=8=$9$k(B. $B$9$J$o$A(B, $B%a(B
$B%s%P(B @code{d} $B$K=EJ#EY(B, $B%a%s%P(B @code{c} $B$K0x;R$rBeF~$9$k(B. $BJ,2r$O(B, $B$^$:(B
$BF~NOB?9`<0(B @code{a} $B$r(B
@example
a = c * b   (c $B$OM-M}?t(B, b $B$O@0?t>e86;OE*$JB?9`<0(B)
@end example
@noindent
$B$HJ,2r$7$?8e(B, @code{b} $B$r<B:]$KJ,2r$9$k(B. $B7k2L$O(B, $B%j%9%H$N@hF,$K(B, 
@code{[c, 1]} $B$J$kDj?t9`(B, $B0J2<(B @code{b} $B$N0x;R$,B3$/(B.