/* There are some functions for finding polynomials from a database
list. You must load the file panayi.gp first.
*/
/* Provide a polynomial and a database (in lis), and optionally
the discriminant exponent, and this function finds it in the list.
Output is the first matching polynomial for the correct entry, or
0 if there are no matches.
In reality, this finds the first field in the database containing
a root of the given polynomial, so it can be used for other purposes
as well.
*/
findinlist(poly, lis,mydisc= -1) =
{
for(j=1,length(lis),
if(((mydisc== -1) || (mydisc==lis[j][2])),
if(countroots(poly, lis[j][6], lis[j][1], lis[j][12], lis[j][13],1)>0,
return(lis[j][6]))));
return(0)
}
/* Given a polynomial from the database, and the database (as lis),
get its index in the list */
indexofpoly(poly, lis) = for(j=1,length(lis),if(lis[j][6]==poly,return(j))); 0
/* Given a polynomial from the database, get its entry. You need to
supply the database as lis.
*/
getpolyent(poly, lis) = lis[indexofpoly(poly,lis)]