FUNCTION : ETA[etacombo2ETAPRODlist] - Convert etacombo to a list of eta-products
CALLING SEQUENCE : etacombo2ETAPRODlist(etacombo)
PARAMETERS : etacombo - linear combination of symbolic eta-products
GLOBAL VARIABLES : xprint
SYNOPSIS : Converts a linear combination of eta-products to a list
if its terms
EXAMPLES :
> with(qseries):
> with(ETA):
> etacombo2ETAPRODlist();
-------------------------------------------------------------
etacombo2ETAPRODlist()
etacombo2ETAPRODlist(etacombo)
etacombo = lin combo of eta-products
Converts etacombo to a list (ARRAY) of eta-products.
-------------------------------------------------------------
> gpPB1:=[10,6,2,2,1,1,20,-3,5,-5,4,-1]:
> gpPB2:=[20,3,4,1,1,2,10,-3,5,-2,2,-1]:
> epPB1:=gp2etaprod(gpPB1): epPB2:=gp2etaprod(gpPB2):
> epPB:=epPB1+4*epPB2;
epPB :=
6 2 3 2
eta(10 tau) eta(2 tau) eta(tau) 4 eta(20 tau) eta(4 tau) eta(tau)
----------------------------------- + -----------------------------------
3 5 3 2
eta(20 tau) eta(5 tau) eta(4 tau) eta(10 tau) eta(5 tau) eta(2 tau)
> GPt:=[1,2,10,4,2,-4,5,-2]:
> ept:=gp2etaprod(GPt);
2 4
eta(tau) eta(10 tau)
ept := -----------------------
4 2
eta(2 tau) eta(5 tau)
> UAPA := -_PB*_t;
UAPA := -_PB _t
> etacombo:=expand(subs({_PB=epPB,_t=ept},UAPA));
3 10
eta(tau) eta(10 tau)
etacombo := - -----------------------------------------------
2 7 3
eta(2 tau) eta(5 tau) eta(20 tau) eta(4 tau)
4 3
4 eta(tau) eta(10 tau) eta(20 tau) eta(4 tau)
- -----------------------------------------------
5 4
eta(2 tau) eta(5 tau)
> etacombo2ETAPRODlist(etacombo);
[ 3 10
[ eta(tau) eta(10 tau)
[-----------------------------------------------,
[ 2 7 3
[eta(2 tau) eta(5 tau) eta(20 tau) eta(4 tau)
4 3 ]
eta(tau) eta(10 tau) eta(20 tau) eta(4 tau)]
---------------------------------------------]
5 4 ]
eta(2 tau) eta(5 tau) ]
DISCUSSION :
SEE ALSO :