Return to number.texi CVS log

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

Risa/Asir manual on the internal specifications.

@comment $OpenXM: OpenXM/src/asir-doc/int-parts/datatype/number.texi,v 1.1 2001/04/23 05:45:36 noro Exp $
@section $B?t(B

@example
struct oNum @{       $B?t$N6&DLItJ,(B
    short id;       $B<1JL;R(B (= O_N)
    char nid;       $B?t<1JL;R(B
    char pad;
@};

typedef struct oQ *Q;
@end example
@noindent
$B?t$O(B, $BB?9`<0$HF1%l%Y%k$N(B object $B$H$7$F07$o$l(B, $BB?9`<0$KBP$9$k1i;;%k!<(B
$B%A%s$NF~NO$H$7$FF1MM$KMQ$$$k$3$H$,$G$-$k(B. $B%a%s%P(B @code{id} $B$O$=$N$?$a(B
$B$N<1JL;R$G$"$j(B, $B?t$G$O>o$K(B @code{O_N} $B$G$"$k(B. $B?t$O?t<1JL;R(B
@code{nid} $B$r$b$D(B. $B8=:_(B, $B?t$K$O<!$N$h$&$J7?$,$"$k(B. 

@table @code
@item N_Q = 0 @b{$BM-M}?t(B}
@item N_R = 1 @b{$BG\@:EYIbF0>.?t(B}
@item N_A = 2 @b{$BBe?tE*?t(B}
@item N_B = 3 @b{PARI bigfloat}
@item N_C = 4 @b{$BJ#AG?t(B}
@item N_M = 5 @b{$B>.I8?tAGBN(B}
@item N_LM = 6 @b{$BBgI8?tAGBN(B}
@item N_GF2N = 7 @b{$BI8?t(B 2 $BM-8BBN(B}
@item N_GFPN = 8 @b{$B>.I8?tAGBN$N3HBgBN(B}
@end table

@subsection $B;MB'(B
@noindent
$B0J2<$N;MB'$O?t$KBP$9$k%H%C%W%l%Y%k$NH!?t$G$"$k(B. $BF10l$N?t<1JL;R$r;}$D?t$N(B
$B1i;;$G$O(B, $B7k2L$O$=$N<1JL;R$r$b$D?t$K$J$k(B. $BG\@:EYIbF0>.?t$HM-M}?t$N1i;;(B
$B7k2L$OG\@:EYIbF0>.?t(B, $BG\@:EYIbF0>.?t$H(B PARI bigfloat $B$N1i;;7k2L$O(B PARI
bigfloat, $BM-M}?t$HM-8BBN$N85$N1i;;7k2L$OM-8BBN$N85$H$J$k(B. 

@example
#include "ca.h"

addnum(Num a,Num b,Num *rp)
*rp = a + b

subnum(Num a,Num b,Num *rp)
*rp = a - b

mulnum(Num a,Num b,Num *rp)
*rp = a * b

divnum(Num a,Num b,Num *qp,Num *rp)
*qp = a / b

pwrnum(Num a,Num e,Num *rp)
*rp = a ^ e

int compnum(Num a,Num b)      
$B$"$k5,B'$K$h$kHf3S(B. $BM-M}?t$N>l9g$O(B a=b $B$N$H$-(B 1, a>b $B$N$H$-(B 1, a<b $B$N$H$-(B -1.
@end example