OpenXM_contrib2/asir2000/builtin/bfaux.c - diff

Return to bfaux.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / builtin

Diff for /OpenXM_contrib2/asir2000/builtin/bfaux.c between version 1.6 and 1.7

version 1.6, 2015/08/07 06:15:00

version 1.7, 2015/08/07 08:00:30

Line 1

/* $OpenXM: OpenXM_contrib2/asir2000/builtin/bfaux.c,v 1.5 2015/08/07 05:30:35 noro Exp $ */

/* $OpenXM: OpenXM_contrib2/asir2000/builtin/bfaux.c,v 1.6 2015/08/07 06:15:00 takayama Exp $ */

#include "ca.h"

#include "parse.h"

void Peval(), Psetprec(), Psetbprec(), Ptodouble(), Psetround();

void Pmpfr_gamma(), Pmpfr_floor();

void Pmpfr_gamma(), Pmpfr_floor(), Pmpfr_round();

struct ftab bf_tab[] = {

{"eval",Peval,-2},

Line 13 struct ftab bf_tab[] = {

{"todouble",Ptodouble,1},

{"mpfr_gamma",Pmpfr_gamma,-2},

{"mpfr_floor",Pmpfr_floor,-1},

{"mpfr_round",Pmpfr_round,-1},

{0,0,0},

};

Line 395 void Pmpfr_gamma(NODE arg,BF *rp)

Line 396 void Pmpfr_gamma(NODE arg,BF *rp)

*rp = r;

}

void Pmpfr_floor(NODE arg,BF *rp)

void Pmpfr_floor(NODE arg,Q *rp)

{

Num a;

int prec;

BF r;

mpz_t t;

GZ rz;

prec = NEXT(arg) ? QTOS((Q)ARG1(arg)) : 0;

prec *= 3.32193;

Line 407 void Pmpfr_floor(NODE arg,BF *rp)

Line 410 void Pmpfr_floor(NODE arg,BF *rp)

NEWBF(r);

prec ? mpfr_init2(r->body,prec) : mpfr_init(r->body);

mpfr_floor(r->body,((BF)a)->body);

*rp = r;

mpz_init(t);

mpfr_get_z(t,r->body,mpfr_roundmode);

MPZTOGZ(t,rz);

*rp = gztoz(rz);

}

void Pmpfr_round(NODE arg,Q *rp)

{