FUNCTION : GETAP2getalist - Convert a quotient of generalized
eta-products into a (geta)-list
CALLING SEQUENCE : GETAP2getalist()
GETAP2getalist(geprod)
PARAMETERS : geprod - Quotient of quotient of generalized
eta-functions encoded in terms of GETA(b,a).
GLOBAL VARIABLES: geprod
SYNOPSIS : Converts a quotient of generalized eta-products
written in terms of GETA(b,a) into a (geta)-list.
Each term GETA(b,a)^c in the quotient is converted to an
tem [b,a,c] in the list.
EXAMPLES :
> with(thetaids):
> GETAP2getalist();
-------------------------------------------------------------
GETAP2getalist(geprod)
geprod is a quotient of generalized eta-functions encoded
in terms of GETA(b,a).
The quotient is converted to a list.
Each term GETA(b,a)^c in the quotient is converted to an
item [b,a,c] in the list.
-------------------------------------------------------------
> JJ := JAC(1,40,infinity)/JAC(0,40,infinity)^12*JAC(2,40,infinity)
/JAC(4,40,infinity)*JAC(5,40,infinity)^2*JAC(6,40,infinity)^2
*JAC(9,40,infinity)*JAC(11,40,infinity)*JAC(14,40,infinity)^2
*JAC(15,40,infinity)^2*JAC(18,40,infinity)*JAC(19,40,infinity)
/JAC(20,40,infinity):
> geprod:=jac2eprod(JJ);
2 2
GETA(40, 1) GETA(40, 2) GETA(40, 5) GETA(40, 6) GETA(40, 9)
2 2
GETA(40, 11) GETA(40, 14) GETA(40, 15) GETA(40, 18)
GETA(40, 19)/(GETA(40, 4) GETA(40, 20))
> GETAP2getalist(geprod);
[[40, 1, 1], [40, 2, 1], [40, 4, -1], [40, 5, 2], [40, 6, 2],
[40, 9, 1], [40, 11, 1], [40, 14, 2], [40, 15, 2], [40, 18, 1],
[40, 19, 1], [40, 20, -1]]
>
> JJ2:=JAC(1,5,infinity)/JAC(0,5,infinity):
>
> jac2eprod(JJ2);
GETA(5, 1)
----------
1/60
q
DISCUSSION :
SEE ALSO : jac2eprod