version 1.1, 2001/10/02 11:17:12 |
version 1.2, 2002/09/11 07:27:08 |
|
|
#include <anal.h> |
#include <anal.h> |
|
|
GEN gzero, gun, gdeux; |
GEN gzero, gun, gdeux; |
ulong top, bot, avma, memused = 0; |
gpmem_t top, bot, avma; |
|
size_t memused = 0; |
long DEBUGLEVEL,DEBUGMEM = 0; |
long DEBUGLEVEL,DEBUGMEM = 0; |
|
|
void specinit() |
void specinit() |
{ |
{ |
long size = 100000L; |
long size = 100000L; |
bot = (long)malloc(size); |
bot = (gpmem_t)malloc(size); |
top = avma = bot + size; |
top = avma = bot + size; |
gzero = malloc(2); |
gzero = malloc(2); |
gzero[0] = evaltyp(t_INT)|evallg(2); |
gzero[0] = evaltyp(t_INT)|evallg(2); |
|
|
} |
} |
|
|
void pari_err(long x, ...) { exit (0); } |
void pari_err(long x, ...) { exit (0); } |
GEN gerepileuptoint(long av, GEN q){ return q; } |
GEN gerepileuptoint(gpmem_t av, GEN q){ return q; } |
void gerepilemanysp(long av, long tetpil, GEN* gptr[], long n){} |
void gerepilemanysp(gpmem_t av, gpmem_t tetpil, GEN* gptr[], long n){} |
void gerepilemany(long av, GEN* gptr[], long n){} |
void gerepilemany(gpmem_t av, GEN* gptr[], long n){} |
|
|
void sorstring(char* b, long x) |
void sorstring(char* b, long x) |
{ |
{ |
|
|
z = mulii(z,z); _voir(z); |
z = mulii(z,z); _voir(z); |
z = mulii(z,z); _voir(z); |
z = mulii(z,z); _voir(z); |
printf("invmod:"); invmod(y,z,&r); _voir(r); |
printf("invmod:"); invmod(y,z,&r); _voir(r); |
xr = cgetr(DEFAULTPREC); affir(x, xr); |
xr = itor(x, DEFAULTPREC); |
yr = cgetr(DEFAULTPREC); affir(y, yr); |
yr = itor(y, DEFAULTPREC); |
printf("\nREAL: %f\n", rtodbl(xr)); |
printf("\nREAL: %f\n", rtodbl(xr)); |
printf("conv1:"); _voir(xr); |
printf("conv1:"); _voir(xr); |
printf("conv2:"); _voir(dbltor(rtodbl(xr))); |
printf("conv2:"); _voir(dbltor(rtodbl(xr))); |