version 1.1.1.1, 2001/10/02 11:17:09 |
version 1.2, 2002/09/11 07:27:03 |
Line 14 with the package; see the file 'COPYING'. If not, writ |
|
Line 14 with the package; see the file 'COPYING'. If not, writ |
|
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ |
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ |
|
|
#include "pari.h" |
#include "pari.h" |
|
#include "parinf.h" |
extern GEN geni(void); |
extern GEN geni(void); |
|
|
static GEN |
static GEN |
Line 38 subres0(GEN x, GEN y) { return subres(x,y); } |
|
Line 39 subres0(GEN x, GEN y) { return subres(x,y); } |
|
static long |
static long |
rounderror(GEN x) |
rounderror(GEN x) |
{ |
{ |
long e, av=avma; |
gpmem_t av = avma; |
grndtoi(x,&e); avma=av; return (long)(e*L2SL10); |
long e; (void)grndtoi(x,&e); |
|
avma = av; return (long)(e*L2SL10); |
} |
} |
|
|
static GEN |
static GEN |
_factpol(GEN x, long unused, long hint) { return factpol(x,hint); } |
_factpol(GEN x, long t/*unused*/, long hint) { return factpol(x,hint); } |
|
|
static void |
static void |
suppressed(ANYARG) {err(talker,"this function has been suppressed");} |
suppressed(void) {err(talker,"this function has been suppressed");} |
|
|
|
#define BUCH_PROTO "GD0.3,G,D0.3,G,D5,G,D1,G,D4,L,D3,L,p" |
|
static GEN |
|
buchgen(GEN g1,GEN g2,GEN g3,GEN g4, GEN g5,long l1,long l2, long prec) { |
|
return buchall(g1,g2,g3,g4,g5,l1,l2,0,prec); |
|
} |
|
static GEN |
|
buchgenfu(GEN g1,GEN g2,GEN g3,GEN g4, GEN g5,long l1,long l2,long prec) { |
|
return buchall(g1,g2,g3,g4,g5,l1,l2,nf_UNITS,prec); |
|
} |
|
static GEN |
|
buchgenforcefu(GEN g1,GEN g2,GEN g3,GEN g4, GEN g5,long l1,long l2,long prec) { |
|
return buchall(g1,g2,g3,g4,g5,l1,l2,nf_UNITS|nf_FORCE,prec); |
|
} |
|
static GEN |
|
buchinit(GEN g1,GEN g2,GEN g3,GEN g4, GEN g5,long l1,long l2,long prec) { |
|
return buchall(g1,g2,g3,g4,g5,l1,l2,nf_INIT,prec); |
|
} |
|
static GEN |
|
buchinitfu(GEN g1,GEN g2,GEN g3,GEN g4, GEN g5,long l1,long l2,long prec) { |
|
return buchall(g1,g2,g3,g4,g5,l1,l2,nf_INIT|nf_UNITS,prec); |
|
} |
|
static GEN |
|
buchinitforcefu(GEN g1,GEN g2,GEN g3,GEN g4, GEN g5,long l1,long l2,long prec) { |
|
return buchall(g1,g2,g3,g4,g5,l1,l2,nf_INIT|nf_UNITS|nf_FORCE,prec); |
|
} |
|
|
entree oldfonctions[]={ |
entree oldfonctions[]={ |
{"O",50,NULL,7,NULL}, |
{"O",50,NULL,7,NULL}, |
{"abs",1,(void *)gabs,3,"Gp"}, |
{"abs",1,(void *)gabs,3,"Gp"}, |
Line 88 entree oldfonctions[]={ |
|
Line 116 entree oldfonctions[]={ |
|
{"boundfact",21,(void *)boundfact,4,"GL"}, |
{"boundfact",21,(void *)boundfact,4,"GL"}, |
{"buchcertify",10,(void *)certifybuchall,6,"lG"}, |
{"buchcertify",10,(void *)certifybuchall,6,"lG"}, |
{"buchfu",1,(void *)buchfu,6,"Gp"}, |
{"buchfu",1,(void *)buchfu,6,"Gp"}, |
{"buchgen",92,(void *)buchall,6,"GD0.3,G,D0.3,G,D5,G,D1,G,D4,L,D3,L,D0,L,p"}, |
{"buchgen",99,(void *)buchgen,6,BUCH_PROTO}, |
{"buchgenforcefu",95,(void *)buchall,6,"GD0.3,G,D0.3,G,D5,G,D1,G,D4,L,D3,L,D3,L,p"}, |
{"buchgenforcefu",99,(void *)buchgenforcefu,6,BUCH_PROTO}, |
{"buchgenfu",94,(void *)buchall,6,"GD0.3,G,D0.3,G,D5,G,D1,G,D4,L,D3,L,D2,L,p"}, |
{"buchgenfu",99,(void *)buchgenfu,6,BUCH_PROTO}, |
{"buchimag",96,(void *)buchimag,4,"GD0.1,G,D0.1,G,D5,G,"}, |
{"buchimag",99,(void *)buchimag,4,"GD0.1,G,D0.1,G,D5,G,"}, |
{"buchinit",91,(void *)buchall,6,"GD0.3,G,D0.3,G,D5,G,D1,G,D4,L,D3,L,D-1,L,p"}, |
{"buchinit",99,(void *)buchinit,6,BUCH_PROTO}, |
{"buchinitforcefu",89,(void *)buchall,6,"GD0.3,G,D0.3,G,D5,G,D1,G,D4,L,D3,L,D-3,L,p"}, |
{"buchinitforcefu",99,(void *)buchinitforcefu,6,BUCH_PROTO}, |
{"buchinitfu",90,(void *)buchall,6,"GD0.3,G,D0.3,G,D5,G,D1,G,D4,L,D3,L,D-2,L,p"}, |
{"buchinitfu",99,(void *)buchinitfu,6,BUCH_PROTO}, |
{"buchnarrow",1,(void *)buchnarrow,6,"Gp"}, |
{"buchnarrow",1,(void *)buchnarrow,6,"Gp"}, |
{"buchray",2,(void *)buchray,6,"GGp"}, |
{"buchray",2,(void *)buchray,6,"GGp"}, |
{"buchrayinit",2,(void *)buchrayinit,6,"GGp"}, |
{"buchrayinit",2,(void *)buchrayinit,6,"GGp"}, |
Line 179 entree oldfonctions[]={ |
|
Line 207 entree oldfonctions[]={ |
|
{"factor",1,(void *)factor,4,"G"}, |
{"factor",1,(void *)factor,4,"G"}, |
{"factoredbasis",28,(void *)factoredbase,6,"GGf"}, |
{"factoredbasis",28,(void *)factoredbase,6,"GGf"}, |
{"factoreddiscf",2,(void *)factoreddiscf,6,"GG"}, |
{"factoreddiscf",2,(void *)factoreddiscf,6,"GG"}, |
{"factoredpolred",2,(void *)factoredpolred,6,"GGp"}, |
{"factoredpolred",2,(void *)factoredpolred,6,"GG"}, |
{"factoredpolred2",2,(void *)factoredpolred2,6,"GGp"}, |
{"factoredpolred2",2,(void *)factoredpolred2,6,"GG"}, |
{"factornf",2,(void *)polfnf,6,"GG"}, |
{"factornf",2,(void *)polfnf,6,"GG"}, |
{"factorpadic",32,(void *)factorpadic4,7,"GGL"}, |
{"factorpadic",32,(void *)factorpadic4,7,"GGL"}, |
{"factorpadic2",32,(void *)factorpadic2,7,"GGL"}, |
{"factorpadic2",32,(void *)factorpadic2,7,"GGL"}, |
Line 281 entree oldfonctions[]={ |
|
Line 309 entree oldfonctions[]={ |
|
{"initzeta",1,(void *)initzeta,6,"Gp"}, |
{"initzeta",1,(void *)initzeta,6,"Gp"}, |
{"integ",14,(void *)integ,7,"Gn"}, |
{"integ",14,(void *)integ,7,"Gn"}, |
{"intersect",2,(void *)intersect,8,"GG"}, |
{"intersect",2,(void *)intersect,8,"GG"}, |
{"intgen",37,(void *)rombint,9,"V=GGIp"}, |
{"intgen",99,(void *)intnum0,9,"V=GGID1,L,p"}, |
{"intinf",37,(void *)qromi,9,"V=GGIp"}, |
{"intinf",99,(void *)intnum0,9,"V=GGID2,L,p"}, |
{"intnum",37,(void *)qromb,9,"V=GGIp"}, |
{"intnum",99,(void *)intnum0,9,"V=GGID0,L,p"}, |
{"intopen",37,(void *)qromo,9,"V=GGIp"}, |
{"intopen",99,(void *)intnum0,9,"V=GGID3,L,p"}, |
{"inverseimage",2,(void *)inverseimage,8,"GG"}, |
{"inverseimage",2,(void *)inverseimage,8,"GG"}, |
{"isdiagonal",10,(void *)isdiagonal,8,"lG"}, |
{"isdiagonal",10,(void *)isdiagonal,8,"lG"}, |
{"isfund",1,(void *)gisfundamental,4,"G"}, |
{"isfund",1,(void *)gisfundamental,4,"G"}, |
Line 318 entree oldfonctions[]={ |
|
Line 346 entree oldfonctions[]={ |
|
{"keri",1,(void *)keri,8,"G"}, |
{"keri",1,(void *)keri,8,"G"}, |
{"kerint",1,(void *)kerint,8,"G"}, |
{"kerint",1,(void *)kerint,8,"G"}, |
{"kerint1",1,(void *)kerint1,8,"G"}, |
{"kerint1",1,(void *)kerint1,8,"G"}, |
{"kerint2",1,(void *)kerint2,8,"G"}, |
{"kerint2",1,(void *)suppressed,8,"G"}, |
{"kro",2,(void *)gkronecker,4,"GG"}, |
{"kro",2,(void *)gkronecker,4,"GG"}, |
{"label",0,(void*)suppressed,11,"s*"}, |
{"label",0,(void*)suppressed,11,"s*"}, |
{"lambdak",2,(void *)glambdak,6,"GGp"}, |
{"lambdak",2,(void *)glambdak,6,"GGp"}, |
Line 332 entree oldfonctions[]={ |
|
Line 360 entree oldfonctions[]={ |
|
{"lindep",1,(void *)lindep,8,"Gp"}, |
{"lindep",1,(void *)lindep,8,"Gp"}, |
{"lindep2",23,(void *)lindep2,8,"GLp"}, |
{"lindep2",23,(void *)lindep2,8,"GLp"}, |
{"lll",1,(void *)lll,8,"Gp"}, |
{"lll",1,(void *)lll,8,"Gp"}, |
{"lll1",1,(void *)lll1,8,"Gp"}, |
{"lll1",1,(void *)suppressed,8,"Gp"}, |
{"lllgen",1,(void *)lllgen,8,"Gp"}, |
{"lllgen",1,(void *)lllgen,8,"Gp"}, |
{"lllgram",1,(void *)lllgram,8,"Gp"}, |
{"lllgram",1,(void *)lllgram,8,"Gp"}, |
{"lllgram1",1,(void *)lllgram1,8,"Gp"}, |
{"lllgram1",1,(void *)suppressed,8,"Gp"}, |
{"lllgramgen",1,(void *)lllgramgen,8,"G"}, |
{"lllgramgen",1,(void *)lllgramgen,8,"G"}, |
{"lllgramint",1,(void *)lllgramint,8,"G"}, |
{"lllgramint",1,(void *)lllgramint,8,"G"}, |
{"lllgramkerim",1,(void *)lllgramkerim,8,"G"}, |
{"lllgramkerim",1,(void *)lllgramkerim,8,"G"}, |
Line 344 entree oldfonctions[]={ |
|
Line 372 entree oldfonctions[]={ |
|
{"lllintpartial",1,(void *)lllintpartial,8,"G"}, |
{"lllintpartial",1,(void *)lllintpartial,8,"G"}, |
{"lllkerim",1,(void *)lllkerim,8,"G"}, |
{"lllkerim",1,(void *)lllkerim,8,"G"}, |
{"lllkerimgen",1,(void *)lllkerimgen,8,"G"}, |
{"lllkerimgen",1,(void *)lllkerimgen,8,"G"}, |
{"lllrat",1,(void *)lllrat,8,"G"}, |
{"lllrat",1,(void *)suppressed,8,"G"}, |
{"ln",1,(void *)glog,3,"Gp"}, |
{"ln",1,(void *)glog,3,"Gp"}, |
{"lngamma",1,(void *)glngamma,3,"Gp"}, |
{"lngamma",1,(void *)glngamma,3,"Gp"}, |
{"localred",2,(void *)localreduction,5,"GG"}, |
{"localred",2,(void *)localreduction,5,"GG"}, |
Line 407 entree oldfonctions[]={ |
|
Line 435 entree oldfonctions[]={ |
|
{"pnqn",1,(void *)pnqn,4,"G"}, |
{"pnqn",1,(void *)pnqn,4,"G"}, |
{"pointell",2,(void *)pointell,5,"GGp"}, |
{"pointell",2,(void *)pointell,5,"GGp"}, |
{"polint",31,(void *)polint,7,"GGGD&"}, |
{"polint",31,(void *)polint,7,"GGGD&"}, |
{"polred",1,(void *)polred,6,"Gp"}, |
{"polred",1,(void *)polred,6,"G"}, |
{"polred2",1,(void *)polred2,6,"Gp"}, |
{"polred2",1,(void *)polred2,6,"G"}, |
{"polredabs",1,(void *)polredabs,6,"Gp"}, |
{"polredabs",1,(void *)polredabs,6,"G"}, |
{"polredabs2",1,(void *)polredabs2,6,"Gp"}, |
{"polredabs2",1,(void *)polredabs2,6,"G"}, |
{"polredabsall",1,(void *)polredabsall,6,"Gp"}, |
{"polredabsall",1,(void *)polredabsall,6,"G"}, |
{"polredabsfast",0,(void *)suppressed,6,""}, |
{"polredabsfast",0,(void *)suppressed,6,""}, |
{"polredabsnored",1,(void *)polredabsnored,6,"Gp"}, |
{"polredabsnored",1,(void *)polredabs,6,"G"}, |
{"polsym",21,(void *)polsym,7,"GL"}, |
{"polsym",21,(void *)polsym,7,"GL"}, |
{"polvar",1,(void *)gpolvar,2,"G"}, |
{"polvar",1,(void *)gpolvar,2,"G"}, |
{"poly",14,(void *)gtopoly,2,"Gn"}, |
{"poly",14,(void *)gtopoly,2,"Gn"}, |
Line 503 entree oldfonctions[]={ |
|
Line 531 entree oldfonctions[]={ |
|
{"smalldiscf",1,(void *)smalldiscf,6,"G"}, |
{"smalldiscf",1,(void *)smalldiscf,6,"G"}, |
{"smallfact",1,(void *)smallfact,4,"G"}, |
{"smallfact",1,(void *)smallfact,4,"G"}, |
{"smallinitell",1,(void *)smallinitell,5,"Gp"}, |
{"smallinitell",1,(void *)smallinitell,5,"Gp"}, |
{"smallpolred",1,(void *)smallpolred,6,"Gp"}, |
{"smallpolred",1,(void *)smallpolred,6,"G"}, |
{"smallpolred2",1,(void *)smallpolred2,6,"Gp"}, |
{"smallpolred2",1,(void *)smallpolred2,6,"G"}, |
{"smith",1,(void *)smith,8,"G"}, |
{"smith",1,(void *)smith,8,"G"}, |
{"smith2",1,(void *)smith2,8,"G"}, |
{"smith2",1,(void *)smith2,8,"G"}, |
{"smithclean",1,(void *)smithclean,8,"G"}, |
{"smithclean",1,(void *)smithclean,8,"G"}, |
Line 517 entree oldfonctions[]={ |
|
Line 545 entree oldfonctions[]={ |
|
{"srgcd",2,(void *)srgcd,7,"GG"}, |
{"srgcd",2,(void *)srgcd,7,"GG"}, |
{"sturm",10,(void *)sturm0,7,"lG"}, |
{"sturm",10,(void *)sturm0,7,"lG"}, |
{"sturmpart",30,(void *)sturmpart,7,"lGGG"}, |
{"sturmpart",30,(void *)sturmpart,7,"lGGG"}, |
{"subcyclo",2,(void *)subcyclo,6,"GGDn"}, |
{"subcyclo",2,(void *)subcyclo,6,"LLDn"}, |
{"subell",3,(void *)subell,5,"GGGp"}, |
{"subell",3,(void *)subell,5,"GGGp"}, |
{"subst",26,(void *)gsubst,7,"GnG"}, |
{"subst",26,(void *)gsubst,7,"GnG"}, |
{"sum",48,(void *)sum0,9,"GV=GGI"}, |
{"sum",48,(void *)sum0,9,"GV=GGI"}, |