FUNCTION : ETA[etacombo2ETAPRODwCONSlist] - Convert etacombo to a list of eta-products with constants
CALLING SEQUENCE : etacombo2ETAPRODwCONSlist(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):
> etacombo2ETAPRODwCONSlist();
-------------------------------------------------------------
etacombo2ETAPRODwCONSlist()
etacombo2ETAPRODwCONSlist(etacombo)
etacombo = lin combo of eta-products
This is a version of etacombo2ETAPRODlist that also
includes the constants in the lin combo.
Converts etacombo to a list (ARRAY) of eta-products
with constants.
Items in list have the form [c,EP] where c is a constant
and EP is eta-product. This means the etacombo looks like
etacombo = c1*EP1 + .... ck*EPk.
-------------------------------------------------------------
> 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)
> etacombo2ETAPRODwCONSlist(etacombo);
[ 3 10
[ eta(tau) eta(10 tau)
[[-1, -----------------------------------------------],
[ 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) ]
[-4, ---------------------------------------------]]
5 4 ]
eta(2 tau) eta(5 tau) ]
DISCUSSION :
SEE ALSO :