OpenXM_contrib2/asir2000/engine/t-itv.c - diff

Return to t-itv.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / engine

version 1.4, 2003/10/20 07:18:42

version 1.5, 2009/03/27 14:42:29

Line 1

* $OpenXM: OpenXM_contrib2/asir2000/engine/t-itv.c,v 1.3 2003/02/14 22:29:09 ohara Exp $

* $OpenXM: OpenXM_contrib2/asir2000/engine/t-itv.c,v 1.4 2003/10/20 07:18:42 saito Exp $

#if defined(INTERVAL)

#include "ca.h"

Line 228 void pwritvp(Itv a, Num e, Itv *c)

pwrnum(0,a,e,c);

else if ( !INT(e) ) {

#if defined(PARI) && 0

GEN pa,pe,z;

gpui_ri((Obj)a,(Obj)c,(Obj *)c);

int ltop,lbot;

ltop = avma; ritopa(a,&pa); ritopa(e,&pe); lbot = avma;

z = gerepile(ltop,lbot,gpui(pa,pe,prec));

patori(z,c); cgiv(z);

#else

error("pwritv : can't calculate a fractional power");

#endif