Schoonschip, 68000 version of June 27, 1991. Public version.
Date: Fri Aug  9 1991 00:47:31.  Memory: start 0001B84C, length 476348.

Command line: +1 Spinors.e Xax


C Spinors 1. e+ e- -> m+ m-. Fermion - anti-fermion scattering, box diagrams.

> P stat
	Oldnew,i=I
	V   P1,P2,K1,K2
	F   Q,V1,V2,V3,V4,FBOX,FBOY,MAS,ALOG2,D27,UNM5,UNM,UEN5,UEN
	F   UNN5,UNN,UEE5,UEE
	S   SNT,CST,D0,D11,D12,D13,D21,D22,D23,D24,D25,D26
	S   M1,M2,M3,M4,M5,M6,MF,ME,MM,DBOX,CRBOX,M0,MC,MP,LCST2,LWCM2
	I   MU,MUP,NU,NUP,AL,ALP,BE,BEP
	D   DIB(N,M1,M2,M3,M4,M5,M6) =
	   (Ubg(I1,M1,P1)*G(I1,MU)*V1*(-I*G(I1,AL)*Q(AL)-I*G(I1,P2)+M5)*G(I1,NU)
	   *V2*Ug(I1,M2,P2)*Ubg(I2,M3,K2)*G(I2,NU)*V3*(-I*G(I2,BE)*Q(BE)
	   +I*G(I2,K2)+M6)*G(I2,MU)*V4*Ug(I2,M4,K1)*DBOX)   ,
	   (Ubg(I1,M1,P1)*G(I1,NU)*V1*(I*G(I1,AL)*Q(AL)+I*G(I1,P1)+M5)*G(I1,MU)
	   *V2*Ug(I1,M2,P2)*Ubg(I2,M3,K2)*G(I2,NU)*V3*(-I*G(I2,BE)*Q(BE)
	   +I*G(I2,K2)+M6)*G(I2,MU)*V4*Ug(I2,M4,K1)*CRBOX)
> P ninput

Begin. Time 0 sec.

Terms in output 0
Running time 0 sec			Used	Maximum
Generated terms 0 	Input space 	772 	100000
Equal terms 0     	Output space 	0 	531928
Cancellations 0   	Nr of expr.  	7 	255
Multiplications 1	String space 	0 	4096
Records written 0 	Merging		0 	0

 
SOM = 0. + 0.
 
> P ninput

Terms in output 6
Running time 1 sec			Used	Maximum
Generated terms 16 	Input space 	3800 	100000
Equal terms 10     	Output space 	608 	250000
Cancellations 0   	Nr of expr.  	32 	255
Multiplications 1460	String space 	0 	4096
Records written 0 	Merging		0 	0


Terms out 6, in 6.

Terms in output 12
Running time 1 sec			Used	Maximum
Generated terms 60 	Input space 	1244 	100000
Equal terms 48     	Output space 	632 	250000
Cancellations 0   	Nr of expr.  	12 	255
Multiplications 504	String space 	0 	4096
Records written 0 	Merging		0 	0


Terms out 12, in 12.

Terms in output 10
Running time 2 sec			Used	Maximum
Generated terms 56 	Input space 	2860 	100000
Equal terms 44     	Output space 	384 	250000
Cancellations 2   	Nr of expr.  	32 	255
Multiplications 308	String space 	0 	4096
Records written 0 	Merging		0 	0

 
BOX = 
 + UNN5(Naa)*UEE5(Naa)*GG^4
  * ( - 3/16*I*SNT^2*MC^-2*PI2 + 1/16*I*MC^-2*PI2 )
 
 + UNN5(Naa)*UEE(Naa)*GG^4
  * ( - 5/16*I*SNT^2*MC^-2*PI2 + 1/8*I*CST^-2*MC^-2*PI2 - 1/16*I*MC^-2
  *PI2 )
 
 + UNN(Naa)*UEE5(Naa)*GG^4
  * ( - 3/16*I*SNT^2*MC^-2*PI2 + 1/16*I*MC^-2*PI2 )
 
 + UNN(Naa)*UEE(Naa)*GG^4
  * ( - 5/16*I*SNT^2*MC^-2*PI2 + 1/8*I*CST^-2*MC^-2*PI2 - 1/16*I*MC^-2
  *PI2 ) + 0.
 

Terms in output 10
Running time 2 sec			Used	Maximum
Generated terms 10 	Input space 	1086 	100236
Equal terms 0     	Output space 	372 	249764
Cancellations 0   	Nr of expr.  	11 	255
Multiplications 31	String space 	0 	4096
Records written 0 	Merging		0 	0

 
SOM = 
 + UNN5(Naa)*UEE5(Naa)*GG^4*I*PI2*MC^-2
  * ( 1/16 - 3/16*SNT^2 )
 
 + UNN5(Naa)*UEE(Naa)*GG^4*I*PI2*MC^-2
  * ( - 1/16 - 5/16*SNT^2 + 1/8*CST^-2 )
 
 + UNN(Naa)*UEE5(Naa)*GG^4*I*PI2*MC^-2
  * ( 1/16 - 3/16*SNT^2 )
 
 + UNN(Naa)*UEE(Naa)*GG^4*I*PI2*MC^-2
  * ( - 1/16 - 5/16*SNT^2 + 1/8*CST^-2 ) + 0.
 
> P ninput

Terms in output 4
Running time 3 sec			Used	Maximum
Generated terms 16 	Input space 	4172 	100224
Equal terms 12     	Output space 	544 	249776
Cancellations 0   	Nr of expr.  	32 	255
Multiplications 1754	String space 	0 	4096
Records written 0 	Merging		0 	0


Terms out 4, in 4.

Terms in output 4
Running time 3 sec			Used	Maximum
Generated terms 40 	Input space 	1442 	100224
Equal terms 36     	Output space 	432 	249776
Cancellations 0   	Nr of expr.  	12 	255
Multiplications 336	String space 	0 	4096
Records written 0 	Merging		0 	0


Terms out 4, in 4.

Terms in output 4
Running time 3 sec			Used	Maximum
Generated terms 4 	Input space 	2730 	100224
Equal terms 0     	Output space 	216 	249776
Cancellations 0   	Nr of expr.  	32 	255
Multiplications 32	String space 	0 	4096
Records written 0 	Merging		0 	0

 
BOX = 
 + UNN5(Naa)*UEE5(Naa)*GG^4
  * ( 1/4*I*MC^-2*PI2 )
 
 + UNN5(Naa)*UEE(Naa)*GG^4
  * ( 1/4*I*MC^-2*PI2 )
 
 + UNN(Naa)*UEE5(Naa)*GG^4
  * ( 1/4*I*MC^-2*PI2 )
 
 + UNN(Naa)*UEE(Naa)*GG^4
  * ( 1/4*I*MC^-2*PI2 ) + 0.
 

Terms in output 10
Running time 3 sec			Used	Maximum
Generated terms 14 	Input space 	1224 	100372
Equal terms 4     	Output space 	372 	249628
Cancellations 0   	Nr of expr.  	11 	255
Multiplications 44	String space 	0 	4096
Records written 0 	Merging		0 	0

 
SOM = 
 + UNN5(Naa)*UEE5(Naa)*GG^4*I*PI2*MC^-2
  * ( 5/16 - 3/16*SNT^2 )
 
 + UNN5(Naa)*UEE(Naa)*GG^4*I*PI2*MC^-2
  * ( 3/16 - 5/16*SNT^2 + 1/8*CST^-2 )
 
 + UNN(Naa)*UEE5(Naa)*GG^4*I*PI2*MC^-2
  * ( 5/16 - 3/16*SNT^2 )
 
 + UNN(Naa)*UEE(Naa)*GG^4*I*PI2*MC^-2
  * ( 3/16 - 5/16*SNT^2 + 1/8*CST^-2 ) + 0.
 
> P ninput

Terms in output 6
Running time 4 sec			Used	Maximum
Generated terms 16 	Input space 	4022 	100224
Equal terms 10     	Output space 	608 	249776
Cancellations 0   	Nr of expr.  	32 	255
Multiplications 1460	String space 	0 	4096
Records written 0 	Merging		0 	0


Terms out 6, in 6.

Terms in output 12
Running time 5 sec			Used	Maximum
Generated terms 60 	Input space 	1466 	100224
Equal terms 48     	Output space 	632 	249776
Cancellations 0   	Nr of expr.  	12 	255
Multiplications 504	String space 	0 	4096
Records written 0 	Merging		0 	0


Terms out 12, in 12.

Terms in output 12
Running time 5 sec			Used	Maximum
Generated terms 56 	Input space 	3082 	100224
Equal terms 44     	Output space 	440 	249776
Cancellations 0   	Nr of expr.  	32 	255
Multiplications 308	String space 	0 	4096
Records written 0 	Merging		0 	0

 
BOX = 
 + UNN5(Naa)*UEE5(Naa)*GG^4
  * ( - 3/16*I*SNT^2*MC^-2*PI2 + 15/64*I*CST^-2*MC^-2*PI2
  - 1/4*I*MC^-2*PI2 )
 
 + UNN5(Naa)*UEE(Naa)*GG^4
  * ( 5/16*I*SNT^2*MC^-2*PI2 - 17/64*I*CST^-2*MC^-2*PI2 + 1/4*I*MC^-2
  *PI2 )
 
 + UNN(Naa)*UEE5(Naa)*GG^4
  * ( - 3/16*I*SNT^2*MC^-2*PI2 + 15/64*I*CST^-2*MC^-2*PI2
  - 1/4*I*MC^-2*PI2 )
 
 + UNN(Naa)*UEE(Naa)*GG^4
  * ( 5/16*I*SNT^2*MC^-2*PI2 - 17/64*I*CST^-2*MC^-2*PI2 + 1/4*I*MC^-2
  *PI2 ) + 0.
 

Terms in output 10
Running time 5 sec			Used	Maximum
Generated terms 22 	Input space 	1336 	100484
Equal terms 10     	Output space 	372 	249516
Cancellations 2   	Nr of expr.  	11 	255
Multiplications 68	String space 	0 	4096
Records written 0 	Merging		0 	0

 
SOM = 
 + UNN5(Naa)*UEE5(Naa)*GG^4*I*PI2*MC^-2
  * ( 1/16 - 3/8*SNT^2 + 15/64*CST^-2 )
 
 + UNN5(Naa)*UEE(Naa)*GG^4*I*PI2*MC^-2
  * ( 7/16 - 9/64*CST^-2 )
 
 + UNN(Naa)*UEE5(Naa)*GG^4*I*PI2*MC^-2
  * ( 1/16 - 3/8*SNT^2 + 15/64*CST^-2 )
 
 + UNN(Naa)*UEE(Naa)*GG^4*I*PI2*MC^-2
  * ( 7/16 - 9/64*CST^-2 ) + 0.
 

End run. Time 5 sec.
Schoonschip, 68000 version of June 27, 1991. Public version.
Date: Fri Aug  9 1991 00:47:38.  Memory: start 0001B84C, length 476348.


C Spinors 2. e+ e- -> m+ m-. Fermion - W diagrams.

> P stat
	Oldnew,i=I
	V   P1,P2,P3,P4,P5
	F  Q,V1,V2,V3
	S   MF,SNT,CST,DNQ,C21,C22,C23,C24,C11,C12,C0,NM4,R,M1,M2,M3,M4,ME
	I    MU,MUP,NU,NUP,AL=R,BE=R,BEP=R
	B   SNT
	D  DIA(N,M1,M2,M3,M4) =
	       (  Ubg(I1,M1,P1)*G(I1,AL)*V1*(-I*G(I1,BE)*Q(BE)+M2)
	   *G(I1,MU)*V2*(-I*G(I1,BEP)*Q(BEP)-I*G(I1,P5)+M3)
	   *G(I1,AL)*V3*Ug(I1,M4,P2)*DNQ  ),
	     ( Ubg(I1,M1,P1)*G(I1,AL)*V1*(I*G(I1,BE)*Q(BE)+I*G(I1,P1)+M2)
	      *G(I1,BEP)*V3*Ug(I1,M4,P2)
	      *V2*(-D(MU,BEP)*(Q(AL)+2*P5(AL))+D(BEP,AL)*(2*Q(MU)+P5(MU))
	       +D(MU,AL)*(P5(BEP)-Q(BEP)))*DNQ   )
> BLOCK TREAT{}
> Id,MAS(M1~,M2~,M3~)=1
> Id,P5(MU~)=P1(MU)+P2(MU)
> Al,Funct,P5(MU~)=P1(MU)+P2(MU)
> Al,Multi,W2**-2=1/2
> Id,Ainbe,DNQ*Q(BE~)*Q(BEP~) = C21*P1(BE)*P1(BEP) + C22*P2(BE)*P2(BEP)
>    + C23*(P1(BE)*P2(BEP)+P2(BE)*P1(BEP)) + C24*D(BE,BEP)
> Id   DNQ*Q(BE~) = C11*P1(BE) + C12*P2(BE)
> Id   DNQ = C0
> Id,9,G5(I1)*G(I1,MU~) = - G(I1,MU)*G5(I1)
> Al,9,G5(I1)*G5(I1) = 1
> *yep
> Id   G(I1,AL~)*G(I1,MU~)*G(I1,NU~)*G(I1,NUP~)*G(I1,AL~) =
>       - G(I1,AL)*G(I1,MU)*G(I1,NU)*G(I1,AL)*G(I1,NUP)
>       + 2*D(AL,NUP)*G(I1,AL)*G(I1,MU)*G(I1,NU)
> Id   G(I1,AL~)*G(I1,MU~)*G(I1,NU~)*G(I1,AL~) =
>       - G(I1,AL)*G(I1,MU)*G(I1,AL)*G(I1,NU)
>       + 2*D(NU,AL)*G(I1,AL)*G(I1,MU)
> Id,3,G(I1,AL~)*G(I1,MU~)*G(I1,AL~) = -D(AL,AL)*G(I1,MU)
>       + 2*G(I1,AL)*D(MU,AL)
> Al,3,G(I1,AL~)*G(I1,AL~) = D(AL,AL)
> Id,R**N~*C24 = R**N*(C24-N*IPI2/R/2)
> Id,R=4
> *yep
> B   I,GG,SNT,CST,W2
> Id,3,G(I1,MU~)*G(I1,P1) = -G(I1,P1)*G(I1,MU) + 2*P1(MU)
> Al,3,Ubg(I1,MF~,P1)*G(I1,P1) = I*MF*Ubg(I1,MF,P1)
> Id,4,G(I1,P2)*G(I1,MU~) = - G(I1,MU)*G(I1,P2) + 2*P2(MU)
> Al,4,G(I1,P2)*G5(I1) = - G5(I1)*G(I1,P2)
> Al,4,G(I1,P2)*Ug(I1,MF~,P2) = I*MF*Ug(I1,MF,P2)
> Id   P1DP1*Ubg(I1,MF~,P1) = -MF**2*Ubg(I1,MF,P1)
> Al   P2DP2*Ug(I1,MF~,P2) = -MF**2*Ug(I1,MF,P2)
> ENDBLOCK
	*fix

Begin. Time 1 sec.
C  E,E,G.   PHOTON EXCHANGE.  C=C(P1,P2,ME,MP,ME)
	Z   VER = DIA(1,-ME,ME,ME,ME)
L 5	Id   V1=-I*GG*SNT
L 5	Al   V2=-I*GG*SNT
L 5	Al   V3=-I*GG*SNT
> TREAT{}
L 6	Id,MAS(M1~,M2~,M3~)=1
L 7	Id,P5(MU~)=P1(MU)+P2(MU)
L 7	Al,Funct,P5(MU~)=P1(MU)+P2(MU)
L 7	Al,Multi,W2**-2=1/2
L 8	Id,Ainbe,DNQ*Q(BE~)*Q(BEP~) = C21*P1(BE)*P1(BEP) + C22*P2(BE)*P2(BEP)
	   + C23*(P1(BE)*P2(BEP)+P2(BE)*P1(BEP)) + C24*D(BE,BEP)
L10	Id   DNQ*Q(BE~) = C11*P1(BE) + C12*P2(BE)
L11	Id   DNQ = C0
L12	Id,9,G5(I1)*G(I1,MU~) = - G(I1,MU)*G5(I1)
L12	Al,9,G5(I1)*G5(I1) = 1
	*yep

Terms in output 16
Running time 1 sec			Used	Maximum
Generated terms 16 	Input space 	2346 	100000
Equal terms 0     	Output space 	1122 	250000
Cancellations 0   	Nr of expr.  	26 	255
Multiplications 133	String space 	0 	4096
Records written 0 	Merging		0 	0

L 1	Id   G(I1,AL~)*G(I1,MU~)*G(I1,NU~)*G(I1,NUP~)*G(I1,AL~) =
	      - G(I1,AL)*G(I1,MU)*G(I1,NU)*G(I1,AL)*G(I1,NUP)
	      + 2*D(AL,NUP)*G(I1,AL)*G(I1,MU)*G(I1,NU)
L 2	Id   G(I1,AL~)*G(I1,MU~)*G(I1,NU~)*G(I1,AL~) =
	      - G(I1,AL)*G(I1,MU)*G(I1,AL)*G(I1,NU)
	      + 2*D(NU,AL)*G(I1,AL)*G(I1,MU)
L 3	Id,3,G(I1,AL~)*G(I1,MU~)*G(I1,AL~) = -D(AL,AL)*G(I1,MU)
	      + 2*G(I1,AL)*D(MU,AL)
L 3	Al,3,G(I1,AL~)*G(I1,AL~) = D(AL,AL)
L 6	Id,R**N~*C24 = R**N*(C24-N*IPI2/R/2)
L 8	Id,R=4
	*yep

Terms out 16, in 16.

Terms in output 31
Running time 1 sec			Used	Maximum
Generated terms 71 	Input space 	2118 	100000
Equal terms 35     	Output space 	1534 	250000
Cancellations 5   	Nr of expr.  	15 	255
Multiplications 443	String space 	0 	4096
Records written 0 	Merging		0 	0

	B   I,GG,SNT,CST,W2
L 1	Id,3,G(I1,MU~)*G(I1,P1) = -G(I1,P1)*G(I1,MU) + 2*P1(MU)
L 1	Al,3,Ubg(I1,MF~,P1)*G(I1,P1) = I*MF*Ubg(I1,MF,P1)
L 4	Id,4,G(I1,P2)*G(I1,MU~) = - G(I1,MU)*G(I1,P2) + 2*P2(MU)
L 4	Al,4,G(I1,P2)*G5(I1) = - G5(I1)*G(I1,P2)
L 4	Al,4,G(I1,P2)*Ug(I1,MF~,P2) = I*MF*Ug(I1,MF,P2)
L 8	Id   P1DP1*Ubg(I1,MF~,P1) = -MF**2*Ubg(I1,MF,P1)
L 8	Al   P2DP2*Ug(I1,MF~,P2) = -MF**2*Ug(I1,MF,P2)
	*begin

Terms out 31, in 31.

Terms in output 17
Running time 2 sec			Used	Maximum
Generated terms 53 	Input space 	1810 	100000
Equal terms 26     	Output space 	544 	250000
Cancellations 10   	Nr of expr.  	16 	255
Multiplications 306	String space 	0 	4096
Records written 0 	Merging		0 	0

 
VER = 
 + Ubg(I1,-ME,P1)*G(I1,MU)*Ug(I1,ME,P2)*I*GG^3*SNT^3
  * ( 2*IPI2 + 2*C21*ME^2 + 2*C22*ME^2 - 4*C23*P1DP2 - 4*C24
  - 4*C11*P1DP2 + 4*C12*ME^2 - 2*C0*ME^2 )
 
 + Ubg(I1,-ME,P1)*Ug(I1,ME,P2)*P1(MU)*GG^3*SNT^3
  * ( 4*C21*ME - 4*C23*ME + 8*C11*ME + 4*C0*ME )
 
 + Ubg(I1,-ME,P1)*Ug(I1,ME,P2)*P2(MU)*GG^3*SNT^3
  * ( - 4*C22*ME + 4*C23*ME + 4*C11*ME + 4*C12*ME + 4*C0*ME ) + 0.
 

Begin. Time 2 sec.
C  E,E,G.   W0 EXCHANGE.   C=C(P1,P2,ME,M0,ME)
	Z   VER = DIA(1,-ME,ME,ME,ME)
	   *MAS(0,M0,0)
L 5	Id   V1=I*GG*(VT-G5(I1))/4/CST
L 5	Al   V2=-I*GG*SNT
L 5	Al   V3=I*GG*(VT-G5(I1))/4/CST
> TREAT{}
L 7	Id,MAS(M1~,M2~,M3~)=1
L 8	Id,P5(MU~)=P1(MU)+P2(MU)
L 8	Al,Funct,P5(MU~)=P1(MU)+P2(MU)
L 8	Al,Multi,W2**-2=1/2
L 9	Id,Ainbe,DNQ*Q(BE~)*Q(BEP~) = C21*P1(BE)*P1(BEP) + C22*P2(BE)*P2(BEP)
	   + C23*(P1(BE)*P2(BEP)+P2(BE)*P1(BEP)) + C24*D(BE,BEP)
L11	Id   DNQ*Q(BE~) = C11*P1(BE) + C12*P2(BE)
L12	Id   DNQ = C0
L13	Id,9,G5(I1)*G(I1,MU~) = - G(I1,MU)*G5(I1)
L13	Al,9,G5(I1)*G5(I1) = 1
	*yep

Terms in output 42
Running time 3 sec			Used	Maximum
Generated terms 64 	Input space 	3530 	100000
Equal terms 16     	Output space 	2442 	250000
Cancellations 6   	Nr of expr.  	26 	255
Multiplications 855	String space 	0 	4096
Records written 0 	Merging		0 	0

L 1	Id   G(I1,AL~)*G(I1,MU~)*G(I1,NU~)*G(I1,NUP~)*G(I1,AL~) =
	      - G(I1,AL)*G(I1,MU)*G(I1,NU)*G(I1,AL)*G(I1,NUP)
	      + 2*D(AL,NUP)*G(I1,AL)*G(I1,MU)*G(I1,NU)
L 2	Id   G(I1,AL~)*G(I1,MU~)*G(I1,NU~)*G(I1,AL~) =
	      - G(I1,AL)*G(I1,MU)*G(I1,AL)*G(I1,NU)
	      + 2*D(NU,AL)*G(I1,AL)*G(I1,MU)
L 3	Id,3,G(I1,AL~)*G(I1,MU~)*G(I1,AL~) = -D(AL,AL)*G(I1,MU)
	      + 2*G(I1,AL)*D(MU,AL)
L 3	Al,3,G(I1,AL~)*G(I1,AL~) = D(AL,AL)
L 6	Id,R**N~*C24 = R**N*(C24-N*IPI2/R/2)
L 8	Id,R=4
	*yep

Terms out 42, in 42.

Terms in output 85
Running time 4 sec			Used	Maximum
Generated terms 195 	Input space 	2216 	100000
Equal terms 95     	Output space 	3862 	250000
Cancellations 15   	Nr of expr.  	15 	255
Multiplications 1233	String space 	0 	4096
Records written 0 	Merging		0 	0

	B   I,GG,SNT,CST,W2
L 1	Id,3,G(I1,MU~)*G(I1,P1) = -G(I1,P1)*G(I1,MU) + 2*P1(MU)
L 1	Al,3,Ubg(I1,MF~,P1)*G(I1,P1) = I*MF*Ubg(I1,MF,P1)
L 4	Id,4,G(I1,P2)*G(I1,MU~) = - G(I1,MU)*G(I1,P2) + 2*P2(MU)
L 4	Al,4,G(I1,P2)*G5(I1) = - G5(I1)*G(I1,P2)
L 4	Al,4,G(I1,P2)*Ug(I1,MF~,P2) = I*MF*Ug(I1,MF,P2)
L 8	Id   P1DP1*Ubg(I1,MF~,P1) = -MF**2*Ubg(I1,MF,P1)
L 8	Al   P2DP2*Ug(I1,MF~,P2) = -MF**2*Ug(I1,MF,P2)
	*begin

Terms out 85, in 85.

Terms in output 49
Running time 4 sec			Used	Maximum
Generated terms 147 	Input space 	1984 	100000
Equal terms 67     	Output space 	1550 	250000
Cancellations 31   	Nr of expr.  	16 	255
Multiplications 918	String space 	0 	4096
Records written 0 	Merging		0 	0

 
VER = 
 + Ubg(I1,-ME,P1)*G(I1,MU)*G5(I1)*Ug(I1,ME,P2)*I*GG^3*SNT*CST^-2
  * ( - 1/4*C21*ME^2*VT - 1/4*C22*ME^2*VT + 1/2*C23*VT*P1DP2
  + 1/2*C24*VT - 1/2*C11*ME^2*VT + 1/2*C11*VT*P1DP2 + 1/4*C0*ME^2*VT
   - 1/4*VT*IPI2 )
 
 + Ubg(I1,-ME,P1)*G(I1,MU)*Ug(I1,ME,P2)*I*GG^3*SNT*CST^-2
  * ( 1/8*IPI2 + 1/8*C21*ME^2 + 1/8*C21*ME^2*VT^2 + 1/8*C22*ME^2
  + 1/8*C22*ME^2*VT^2 - 1/4*C23*VT^2*P1DP2 - 1/4*C23*P1DP2
  - 1/4*C24 - 1/4*C24*VT^2 - 1/4*C11*VT^2*P1DP2 - 1/4*C11*P1DP2
  + 1/4*C12*ME^2 + 1/4*C12*ME^2*VT^2 - 1/8*C0*ME^2 - 1/8*C0*ME^2*VT^2
   + 1/8*VT^2*IPI2 )
 
 + Ubg(I1,-ME,P1)*G5(I1)*Ug(I1,ME,P2)*P1(MU)*GG^3*SNT*CST^-2
  * ( - 1/2*C21*ME*VT - 1/2*C23*ME*VT - C11*ME*VT )
 
 + Ubg(I1,-ME,P1)*G5(I1)*Ug(I1,ME,P2)*P2(MU)*GG^3*SNT*CST^-2
  * ( - 1/2*C22*ME*VT - 1/2*C23*ME*VT - 1/2*C11*ME*VT - 1/2*C12*ME
  *VT )
 
 + Ubg(I1,-ME,P1)*Ug(I1,ME,P2)*P1(MU)*GG^3*SNT*CST^-2
  * ( 1/4*C21*ME + 1/4*C21*ME*VT^2 - 1/4*C23*ME - 1/4*C23*ME*VT^2
  - 1/2*C11*ME + 1/2*C11*ME*VT^2 - 1/4*C0*ME + 1/4*C0*ME*VT^2 )
 
 + Ubg(I1,-ME,P1)*Ug(I1,ME,P2)*P2(MU)*GG^3*SNT*CST^-2
  * ( - 1/4*C22*ME - 1/4*C22*ME*VT^2 + 1/4*C23*ME + 1/4*C23*ME*VT^2
   + 1/4*C11*ME + 1/4*C11*ME*VT^2 - 3/4*C12*ME + 1/4*C12*ME*VT^2
  - 1/4*C0*ME + 1/4*C0*ME*VT^2 ) + 0.
 

Begin. Time 5 sec.
C  E,E,G.   NEUTRINO EXCHANGE.   C=C(P1,P2,MC,0,MC)
	Z   VER = DIA(2,-ME,0,ME,ME)
	   *MAS(MC,0,MC)
L 5	Id   V1=I*GG*(1+G5(I1))/2/W2
L 5	Al   V2=I*GG*SNT*I
L 5	Al   V3=I*GG*(1+G5(I1))/2/W2
> TREAT{}
L 7	Id,MAS(M1~,M2~,M3~)=1
L 8	Id,P5(MU~)=P1(MU)+P2(MU)
L 8	Al,Funct,P5(MU~)=P1(MU)+P2(MU)
L 8	Al,Multi,W2**-2=1/2
L 9	Id,Ainbe,DNQ*Q(BE~)*Q(BEP~) = C21*P1(BE)*P1(BEP) + C22*P2(BE)*P2(BEP)
	   + C23*(P1(BE)*P2(BEP)+P2(BE)*P1(BEP)) + C24*D(BE,BEP)
L11	Id   DNQ*Q(BE~) = C11*P1(BE) + C12*P2(BE)
L12	Id   DNQ = C0
L13	Id,9,G5(I1)*G(I1,MU~) = - G(I1,MU)*G5(I1)
L13	Al,9,G5(I1)*G5(I1) = 1
	*yep

Terms in output 70
Running time 6 sec			Used	Maximum
Generated terms 156 	Input space 	3352 	100000
Equal terms 84     	Output space 	3762 	250000
Cancellations 2   	Nr of expr.  	26 	255
Multiplications 1657	String space 	0 	4096
Records written 0 	Merging		0 	0

L 1	Id   G(I1,AL~)*G(I1,MU~)*G(I1,NU~)*G(I1,NUP~)*G(I1,AL~) =
	      - G(I1,AL)*G(I1,MU)*G(I1,NU)*G(I1,AL)*G(I1,NUP)
	      + 2*D(AL,NUP)*G(I1,AL)*G(I1,MU)*G(I1,NU)
L 2	Id   G(I1,AL~)*G(I1,MU~)*G(I1,NU~)*G(I1,AL~) =
	      - G(I1,AL)*G(I1,MU)*G(I1,AL)*G(I1,NU)
	      + 2*D(NU,AL)*G(I1,AL)*G(I1,MU)
L 3	Id,3,G(I1,AL~)*G(I1,MU~)*G(I1,AL~) = -D(AL,AL)*G(I1,MU)
	      + 2*G(I1,AL)*D(MU,AL)
L 3	Al,3,G(I1,AL~)*G(I1,AL~) = D(AL,AL)
L 6	Id,R**N~*C24 = R**N*(C24-N*IPI2/R/2)
L 8	Id,R=4
	*yep

Terms out 70, in 70.

Terms in output 60
Running time 7 sec			Used	Maximum
Generated terms 100 	Input space 	1836 	100000
Equal terms 40     	Output space 	2634 	250000
Cancellations 0   	Nr of expr.  	15 	255
Multiplications 442	String space 	0 	4096
Records written 0 	Merging		0 	0

	B   I,GG,SNT,CST,W2
L 1	Id,3,G(I1,MU~)*G(I1,P1) = -G(I1,P1)*G(I1,MU) + 2*P1(MU)
L 1	Al,3,Ubg(I1,MF~,P1)*G(I1,P1) = I*MF*Ubg(I1,MF,P1)
L 4	Id,4,G(I1,P2)*G(I1,MU~) = - G(I1,MU)*G(I1,P2) + 2*P2(MU)
L 4	Al,4,G(I1,P2)*G5(I1) = - G5(I1)*G(I1,P2)
L 4	Al,4,G(I1,P2)*Ug(I1,MF~,P2) = I*MF*Ug(I1,MF,P2)
L 8	Id   P1DP1*Ubg(I1,MF~,P1) = -MF**2*Ubg(I1,MF,P1)
L 8	Al   P2DP2*Ug(I1,MF~,P2) = -MF**2*Ug(I1,MF,P2)
	*begin

Terms out 60, in 60.

Terms in output 38
Running time 7 sec			Used	Maximum
Generated terms 96 	Input space 	1838 	100000
Equal terms 47     	Output space 	1202 	250000
Cancellations 11   	Nr of expr.  	16 	255
Multiplications 630	String space 	0 	4096
Records written 0 	Merging		0 	0

 
VER = 
 + Ubg(I1,-ME,P1)*G(I1,MU)*G5(I1)*Ug(I1,ME,P2)*I*GG^3*SNT
  * ( 1/2*IPI2 + 1/2*C21*ME^2 + 1/2*C22*ME^2 - C23*P1DP2 - 3*C24
  + 3/2*C11*ME^2 - C11*P1DP2 - 1/2*C12*ME^2 + C0*ME^2 - C0*P1DP2 )
 
 + Ubg(I1,-ME,P1)*G(I1,MU)*Ug(I1,ME,P2)*I*GG^3*SNT
  * ( 1/2*IPI2 + 1/2*C21*ME^2 + 1/2*C22*ME^2 - C23*P1DP2 - 3*C24
  - C11*P1DP2 + C12*ME^2 - 1/2*C0*ME^2 - C0*P1DP2 )
 
 + Ubg(I1,-ME,P1)*G5(I1)*Ug(I1,ME,P2)*P1(MU)*GG^3*SNT
  * ( - C21*ME - C23*ME - C11*ME - 3/2*C12*ME )
 
 + Ubg(I1,-ME,P1)*G5(I1)*Ug(I1,ME,P2)*P2(MU)*GG^3*SNT
  * ( - C22*ME - C23*ME + 1/2*C11*ME - 2*C12*ME + 1/2*C0*ME )
 
 + Ubg(I1,-ME,P1)*Ug(I1,ME,P2)*P1(MU)*GG^3*SNT
  * ( - C21*ME + C23*ME - 2*C11*ME + 3/2*C12*ME - C0*ME )
 
 + Ubg(I1,-ME,P1)*Ug(I1,ME,P2)*P2(MU)*GG^3*SNT
  * ( C22*ME - C23*ME + 1/2*C11*ME - C12*ME + 1/2*C0*ME ) + 0.
 

Begin. Time 7 sec.
C  N,E,W.   ELECTRON EXCHANGE.   C=C(P1,P2,MC,ME,MP)
	Z   VER = DIA(2,0,ME,ME,ME)
	   *MAS(MC,0,0)
L 5	Id   V1 = I*GG*(1+G5(I1))/2/W2
L 5	Al   V2 = I*GG*SNT*I
L 5	Al   V3 = - I*GG*SNT
> TREAT{}
L 7	Id,MAS(M1~,M2~,M3~)=1
L 8	Id,P5(MU~)=P1(MU)+P2(MU)
L 8	Al,Funct,P5(MU~)=P1(MU)+P2(MU)
L 8	Al,Multi,W2**-2=1/2
L 9	Id,Ainbe,DNQ*Q(BE~)*Q(BEP~) = C21*P1(BE)*P1(BEP) + C22*P2(BE)*P2(BEP)
	   + C23*(P1(BE)*P2(BEP)+P2(BE)*P1(BEP)) + C24*D(BE,BEP)
L11	Id   DNQ*Q(BE~) = C11*P1(BE) + C12*P2(BE)
L12	Id   DNQ = C0
L13	Id,9,G5(I1)*G(I1,MU~) = - G(I1,MU)*G5(I1)
L13	Al,9,G5(I1)*G5(I1) = 1
	*yep

Terms in output 94
Running time 8 sec			Used	Maximum
Generated terms 102 	Input space 	3050 	100000
Equal terms 6     	Output space 	5250 	250000
Cancellations 2   	Nr of expr.  	26 	255
Multiplications 994	String space 	0 	4096
Records written 0 	Merging		0 	0

L 1	Id   G(I1,AL~)*G(I1,MU~)*G(I1,NU~)*G(I1,NUP~)*G(I1,AL~) =
	      - G(I1,AL)*G(I1,MU)*G(I1,NU)*G(I1,AL)*G(I1,NUP)
	      + 2*D(AL,NUP)*G(I1,AL)*G(I1,MU)*G(I1,NU)
L 2	Id   G(I1,AL~)*G(I1,MU~)*G(I1,NU~)*G(I1,AL~) =
	      - G(I1,AL)*G(I1,MU)*G(I1,AL)*G(I1,NU)
	      + 2*D(NU,AL)*G(I1,AL)*G(I1,MU)
L 3	Id,3,G(I1,AL~)*G(I1,MU~)*G(I1,AL~) = -D(AL,AL)*G(I1,MU)
	      + 2*G(I1,AL)*D(MU,AL)
L 3	Al,3,G(I1,AL~)*G(I1,AL~) = D(AL,AL)
L 6	Id,R**N~*C24 = R**N*(C24-N*IPI2/R/2)
L 8	Id,R=4
	*yep

Terms out 94, in 94.

Terms in output 84
Running time 9 sec			Used	Maximum
Generated terms 124 	Input space 	1852 	100000
Equal terms 40     	Output space 	4038 	250000
Cancellations 0   	Nr of expr.  	15 	255
Multiplications 530	String space 	0 	4096
Records written 0 	Merging		0 	0

	B   I,GG,SNT,CST,W2
L 1	Id,3,G(I1,MU~)*G(I1,P1) = -G(I1,P1)*G(I1,MU) + 2*P1(MU)
L 1	Al,3,Ubg(I1,MF~,P1)*G(I1,P1) = I*MF*Ubg(I1,MF,P1)
L 4	Id,4,G(I1,P2)*G(I1,MU~) = - G(I1,MU)*G(I1,P2) + 2*P2(MU)
L 4	Al,4,G(I1,P2)*G5(I1) = - G5(I1)*G(I1,P2)
L 4	Al,4,G(I1,P2)*Ug(I1,MF~,P2) = I*MF*Ug(I1,MF,P2)
L 8	Id   P1DP1*Ubg(I1,MF~,P1) = -MF**2*Ubg(I1,MF,P1)
L 8	Al   P2DP2*Ug(I1,MF~,P2) = -MF**2*Ug(I1,MF,P2)
	*begin

Terms out 84, in 84.

Terms in output 28
Running time 10 sec			Used	Maximum
Generated terms 64 	Input space 	1738 	100000
Equal terms 24     	Output space 	986 	250000
Cancellations 12   	Nr of expr.  	16 	255
Multiplications 518	String space 	0 	4096
Records written 0 	Merging		0 	0

 
VER = 
 + Ubg(I1,0,P1)*G(I1,MU)*G5(I1)*Ug(I1,ME,P2)*I*GG^3*SNT^2*W2^-1
  * ( - IPI2 - C22*ME^2 + 2*C23*P1DP2 + 6*C24 + 2*C11*P1DP2
  - 1/2*C12*ME^2 - 3/2*C0*ME^2 + 2*C0*P1DP2 )
 
 + Ubg(I1,0,P1)*G(I1,MU)*Ug(I1,ME,P2)*I*GG^3*SNT^2*W2^-1
  * ( - IPI2 - C22*ME^2 + 2*C23*P1DP2 + 6*C24 + 2*C11*P1DP2
  - 1/2*C12*ME^2 - 3/2*C0*ME^2 + 2*C0*P1DP2 )
 
 + Ubg(I1,0,P1)*G5(I1)*Ug(I1,ME,P2)*P1(MU)*GG^3*SNT^2*W2^-1
  * ( 2*C23*ME + 2*C11*ME + 3*C12*ME + 2*C0*ME )
 
 + Ubg(I1,0,P1)*G5(I1)*Ug(I1,ME,P2)*P2(MU)*GG^3*SNT^2*W2^-1
  * ( 2*C22*ME + 4*C12*ME )
 
 + Ubg(I1,0,P1)*Ug(I1,ME,P2)*P1(MU)*GG^3*SNT^2*W2^-1
  * ( - 2*C23*ME - 2*C11*ME - 3*C12*ME - 2*C0*ME )
 
 + Ubg(I1,0,P1)*Ug(I1,ME,P2)*P2(MU)*GG^3*SNT^2*W2^-1
  * ( - 2*C22*ME - 4*C12*ME ) + 0.
 

Begin. Time 10 sec.
C   N,E,W.   ELECTRON EXCHANGE.   C=C(P1,P2,MC,ME,M0)
	Z   VER = DIA(2,0,ME,ME,ME)
	   *MAS(MC,0,M0)
L 5	Id   V1 = I*GG*(1+G5(I1))/2/W2
L 5	Al   V2 = I*GG*CST*I
L 5	Al   V3 = I*GG*(VT-G5(I1))/4/CST
> TREAT{}
L 7	Id,MAS(M1~,M2~,M3~)=1
L 8	Id,P5(MU~)=P1(MU)+P2(MU)
L 8	Al,Funct,P5(MU~)=P1(MU)+P2(MU)
L 8	Al,Multi,W2**-2=1/2
L 9	Id,Ainbe,DNQ*Q(BE~)*Q(BEP~) = C21*P1(BE)*P1(BEP) + C22*P2(BE)*P2(BEP)
	   + C23*(P1(BE)*P2(BEP)+P2(BE)*P1(BEP)) + C24*D(BE,BEP)
L11	Id   DNQ*Q(BE~) = C11*P1(BE) + C12*P2(BE)
L12	Id   DNQ = C0
L13	Id,9,G5(I1)*G(I1,MU~) = - G(I1,MU)*G5(I1)
L13	Al,9,G5(I1)*G5(I1) = 1
	*yep

Terms in output 188
Running time 11 sec			Used	Maximum
Generated terms 204 	Input space 	3244 	100000
Equal terms 12     	Output space 	7882 	250000
Cancellations 4   	Nr of expr.  	26 	255
Multiplications 2053	String space 	0 	4096
Records written 0 	Merging		0 	0

L 1	Id   G(I1,AL~)*G(I1,MU~)*G(I1,NU~)*G(I1,NUP~)*G(I1,AL~) =
	      - G(I1,AL)*G(I1,MU)*G(I1,NU)*G(I1,AL)*G(I1,NUP)
	      + 2*D(AL,NUP)*G(I1,AL)*G(I1,MU)*G(I1,NU)
L 2	Id   G(I1,AL~)*G(I1,MU~)*G(I1,NU~)*G(I1,AL~) =
	      - G(I1,AL)*G(I1,MU)*G(I1,AL)*G(I1,NU)
	      + 2*D(NU,AL)*G(I1,AL)*G(I1,MU)
L 3	Id,3,G(I1,AL~)*G(I1,MU~)*G(I1,AL~) = -D(AL,AL)*G(I1,MU)
	      + 2*G(I1,AL)*D(MU,AL)
L 3	Al,3,G(I1,AL~)*G(I1,AL~) = D(AL,AL)
L 6	Id,R**N~*C24 = R**N*(C24-N*IPI2/R/2)
L 8	Id,R=4
	*yep

Terms out 188, in 188.

Terms in output 168
Running time 13 sec			Used	Maximum
Generated terms 248 	Input space 	1852 	100000
Equal terms 80     	Output space 	6410 	250000
Cancellations 0   	Nr of expr.  	15 	255
Multiplications 1060	String space 	0 	4096
Records written 0 	Merging		0 	0

	B   I,GG,SNT,CST,W2
L 1	Id,3,G(I1,MU~)*G(I1,P1) = -G(I1,P1)*G(I1,MU) + 2*P1(MU)
L 1	Al,3,Ubg(I1,MF~,P1)*G(I1,P1) = I*MF*Ubg(I1,MF,P1)
L 4	Id,4,G(I1,P2)*G(I1,MU~) = - G(I1,MU)*G(I1,P2) + 2*P2(MU)
L 4	Al,4,G(I1,P2)*G5(I1) = - G5(I1)*G(I1,P2)
L 4	Al,4,G(I1,P2)*Ug(I1,MF~,P2) = I*MF*Ug(I1,MF,P2)
L 8	Id   P1DP1*Ubg(I1,MF~,P1) = -MF**2*Ubg(I1,MF,P1)
L 8	Al   P2DP2*Ug(I1,MF~,P2) = -MF**2*Ug(I1,MF,P2)
	*begin

Terms out 168, in 168.

Terms in output 56
Running time 14 sec			Used	Maximum
Generated terms 128 	Input space 	1738 	100000
Equal terms 52     	Output space 	1682 	250000
Cancellations 20   	Nr of expr.  	16 	255
Multiplications 1036	String space 	0 	4096
Records written 0 	Merging		0 	0

 
VER = 
 + Ubg(I1,0,P1)*G(I1,MU)*G5(I1)*Ug(I1,ME,P2)*I*GG^3*W2^-1
  * ( - 1/4*IPI2 - 1/4*C22*ME^2 + 1/4*C22*ME^2*VT - 1/2*C23*VT*P1DP2
   + 1/2*C23*P1DP2 + 3/2*C24 - 3/2*C24*VT - 1/2*C11*VT*P1DP2
  + 1/2*C11*P1DP2 - 1/8*C12*ME^2 + 1/8*C12*ME^2*VT + 3/8*C0*ME^2
  + 3/8*C0*ME^2*VT - 1/2*C0*VT*P1DP2 + 1/2*C0*P1DP2 + 1/4*VT*IPI2 )
 
 + Ubg(I1,0,P1)*G(I1,MU)*Ug(I1,ME,P2)*I*GG^3*W2^-1
  * ( - 1/4*IPI2 - 1/4*C22*ME^2 + 1/4*C22*ME^2*VT - 1/2*C23*VT*P1DP2
   + 1/2*C23*P1DP2 + 3/2*C24 - 3/2*C24*VT - 1/2*C11*VT*P1DP2
  + 1/2*C11*P1DP2 - 1/8*C12*ME^2 + 1/8*C12*ME^2*VT + 3/8*C0*ME^2
  + 3/8*C0*ME^2*VT - 1/2*C0*VT*P1DP2 + 1/2*C0*P1DP2 + 1/4*VT*IPI2 )
 
 + Ubg(I1,0,P1)*G5(I1)*Ug(I1,ME,P2)*P1(MU)*GG^3*W2^-1
  * ( 1/2*C23*ME - 1/2*C23*ME*VT - C11*ME - 1/2*C11*ME*VT
  + 3/4*C12*ME - 3/4*C12*ME*VT - C0*ME - 1/2*C0*ME*VT )
 
 + Ubg(I1,0,P1)*G5(I1)*Ug(I1,ME,P2)*P2(MU)*GG^3*W2^-1
  * ( 1/2*C22*ME - 1/2*C22*ME*VT - 1/2*C12*ME - C12*ME*VT )
 
 + Ubg(I1,0,P1)*Ug(I1,ME,P2)*P1(MU)*GG^3*W2^-1
  * ( - 1/2*C23*ME + 1/2*C23*ME*VT + C11*ME + 1/2*C11*ME*VT
  - 3/4*C12*ME + 3/4*C12*ME*VT + C0*ME + 1/2*C0*ME*VT )
 
 + Ubg(I1,0,P1)*Ug(I1,ME,P2)*P2(MU)*GG^3*W2^-1
  * ( - 1/2*C22*ME + 1/2*C22*ME*VT + 1/2*C12*ME + C12*ME*VT ) + 0.
 

Begin. Time 14 sec.
C  N,E,W.   NEUTRINO EXHANGE.  C=C(P1,P2,M0,0,MC)
	Z   VER = DIA(2,0,0,0,ME)
	    *MAS(M0,0,MC)
L 5	Id   V1 = I*GG*(1+G5(I1))/4/CST
L 5	Al   V2 = - I*GG*CST*I
L 5	Al   V3 = I*GG*(1+G5(I1))/2/W2
> TREAT{}
L 7	Id,MAS(M1~,M2~,M3~)=1
L 8	Id,P5(MU~)=P1(MU)+P2(MU)
L 8	Al,Funct,P5(MU~)=P1(MU)+P2(MU)
L 8	Al,Multi,W2**-2=1/2
L 9	Id,Ainbe,DNQ*Q(BE~)*Q(BEP~) = C21*P1(BE)*P1(BEP) + C22*P2(BE)*P2(BEP)
	   + C23*(P1(BE)*P2(BEP)+P2(BE)*P1(BEP)) + C24*D(BE,BEP)
L11	Id   DNQ*Q(BE~) = C11*P1(BE) + C12*P2(BE)
L12	Id   DNQ = C0
L13	Id,9,G5(I1)*G(I1,MU~) = - G(I1,MU)*G5(I1)
L13	Al,9,G5(I1)*G5(I1) = 1
	*yep

Terms in output 70
Running time 15 sec			Used	Maximum
Generated terms 156 	Input space 	3240 	100000
Equal terms 84     	Output space 	3762 	250000
Cancellations 2   	Nr of expr.  	26 	255
Multiplications 1561	String space 	0 	4096
Records written 0 	Merging		0 	0

L 1	Id   G(I1,AL~)*G(I1,MU~)*G(I1,NU~)*G(I1,NUP~)*G(I1,AL~) =
	      - G(I1,AL)*G(I1,MU)*G(I1,NU)*G(I1,AL)*G(I1,NUP)
	      + 2*D(AL,NUP)*G(I1,AL)*G(I1,MU)*G(I1,NU)
L 2	Id   G(I1,AL~)*G(I1,MU~)*G(I1,NU~)*G(I1,AL~) =
	      - G(I1,AL)*G(I1,MU)*G(I1,AL)*G(I1,NU)
	      + 2*D(NU,AL)*G(I1,AL)*G(I1,MU)
L 3	Id,3,G(I1,AL~)*G(I1,MU~)*G(I1,AL~) = -D(AL,AL)*G(I1,MU)
	      + 2*G(I1,AL)*D(MU,AL)
L 3	Al,3,G(I1,AL~)*G(I1,AL~) = D(AL,AL)
L 6	Id,R**N~*C24 = R**N*(C24-N*IPI2/R/2)
L 8	Id,R=4
	*yep

Terms out 70, in 70.

Terms in output 60
Running time 16 sec			Used	Maximum
Generated terms 100 	Input space 	1836 	100000
Equal terms 40     	Output space 	2634 	250000
Cancellations 0   	Nr of expr.  	15 	255
Multiplications 442	String space 	0 	4096
Records written 0 	Merging		0 	0

	B   I,GG,SNT,CST,W2
L 1	Id,3,G(I1,MU~)*G(I1,P1) = -G(I1,P1)*G(I1,MU) + 2*P1(MU)
L 1	Al,3,Ubg(I1,MF~,P1)*G(I1,P1) = I*MF*Ubg(I1,MF,P1)
L 4	Id,4,G(I1,P2)*G(I1,MU~) = - G(I1,MU)*G(I1,P2) + 2*P2(MU)
L 4	Al,4,G(I1,P2)*G5(I1) = - G5(I1)*G(I1,P2)
L 4	Al,4,G(I1,P2)*Ug(I1,MF~,P2) = I*MF*Ug(I1,MF,P2)
L 8	Id   P1DP1*Ubg(I1,MF~,P1) = -MF**2*Ubg(I1,MF,P1)
L 8	Al   P2DP2*Ug(I1,MF~,P2) = -MF**2*Ug(I1,MF,P2)
	*begin

Terms out 60, in 60.

Terms in output 26
Running time 16 sec			Used	Maximum
Generated terms 40 	Input space 	1722 	100000
Equal terms 10     	Output space 	914 	250000
Cancellations 4   	Nr of expr.  	16 	255
Multiplications 386	String space 	0 	4096
Records written 0 	Merging		0 	0

 
VER = 
 + Ubg(I1,0,P1)*G(I1,MU)*G5(I1)*Ug(I1,ME,P2)*I*GG^3*W2^-1
  * ( - 1/2*IPI2 - 1/2*C22*ME^2 + C23*P1DP2 + 3*C24 + C11*P1DP2
  - 1/4*C12*ME^2 + C0*P1DP2 )
 
 + Ubg(I1,0,P1)*G(I1,MU)*Ug(I1,ME,P2)*I*GG^3*W2^-1
  * ( - 1/2*IPI2 - 1/2*C22*ME^2 + C23*P1DP2 + 3*C24 + C11*P1DP2
  - 1/4*C12*ME^2 + C0*P1DP2 )
 
 + Ubg(I1,0,P1)*G5(I1)*Ug(I1,ME,P2)*P1(MU)*GG^3*W2^-1
  * ( C23*ME - 1/2*C11*ME + 3/2*C12*ME - 1/2*C0*ME )
 
 + Ubg(I1,0,P1)*G5(I1)*Ug(I1,ME,P2)*P2(MU)*GG^3*W2^-1
  * ( C22*ME + 1/2*C12*ME )
 
 + Ubg(I1,0,P1)*Ug(I1,ME,P2)*P1(MU)*GG^3*W2^-1
  * ( - C23*ME + 1/2*C11*ME - 3/2*C12*ME + 1/2*C0*ME )
 
 + Ubg(I1,0,P1)*Ug(I1,ME,P2)*P2(MU)*GG^3*W2^-1
  * ( - C22*ME - 1/2*C12*ME ) + 0.
 

Begin. Time 16 sec.
C  N,E,W.   W0 EXCHANGE.   C=C(P1,P2,0,M0,ME)
	Z   VER = DIA(1,0,0,ME,ME)
	   *MAS(0,M0,0)
L 5	Id   V1 = I*GG*(1+G5(I1))/4/CST
L 5	Al   V2 = I*GG*(1+G5(I1))/2/W2
L 5	Al   V3 = I*GG*(VT-G5(I1))/4/CST
> TREAT{}
L 7	Id,MAS(M1~,M2~,M3~)=1
L 8	Id,P5(MU~)=P1(MU)+P2(MU)
L 8	Al,Funct,P5(MU~)=P1(MU)+P2(MU)
L 8	Al,Multi,W2**-2=1/2
L 9	Id,Ainbe,DNQ*Q(BE~)*Q(BEP~) = C21*P1(BE)*P1(BEP) + C22*P2(BE)*P2(BEP)
	   + C23*(P1(BE)*P2(BEP)+P2(BE)*P1(BEP)) + C24*D(BE,BEP)
L11	Id   DNQ*Q(BE~) = C11*P1(BE) + C12*P2(BE)
L12	Id   DNQ = C0
L13	Id,9,G5(I1)*G(I1,MU~) = - G(I1,MU)*G5(I1)
L13	Al,9,G5(I1)*G5(I1) = 1
	*yep

Terms in output 44
Running time 17 sec			Used	Maximum
Generated terms 88 	Input space 	3898 	100000
Equal terms 44     	Output space 	2382 	250000
Cancellations 0   	Nr of expr.  	26 	255
Multiplications 1447	String space 	0 	4096
Records written 0 	Merging		0 	0

L 1	Id   G(I1,AL~)*G(I1,MU~)*G(I1,NU~)*G(I1,NUP~)*G(I1,AL~) =
	      - G(I1,AL)*G(I1,MU)*G(I1,NU)*G(I1,AL)*G(I1,NUP)
	      + 2*D(AL,NUP)*G(I1,AL)*G(I1,MU)*G(I1,NU)
L 2	Id   G(I1,AL~)*G(I1,MU~)*G(I1,NU~)*G(I1,AL~) =
	      - G(I1,AL)*G(I1,MU)*G(I1,AL)*G(I1,NU)
	      + 2*D(NU,AL)*G(I1,AL)*G(I1,MU)
L 3	Id,3,G(I1,AL~)*G(I1,MU~)*G(I1,AL~) = -D(AL,AL)*G(I1,MU)
	      + 2*G(I1,AL)*D(MU,AL)
L 3	Al,3,G(I1,AL~)*G(I1,AL~) = D(AL,AL)
L 6	Id,R**N~*C24 = R**N*(C24-N*IPI2/R/2)
L 8	Id,R=4
	*yep

Terms out 44, in 44.

Terms in output 104
Running time 19 sec			Used	Maximum
Generated terms 228 	Input space 	2216 	100000
Equal terms 104     	Output space 	4646 	250000
Cancellations 20   	Nr of expr.  	15 	255
Multiplications 1476	String space 	0 	4096
Records written 0 	Merging		0 	0

	B   I,GG,SNT,CST,W2
L 1	Id,3,G(I1,MU~)*G(I1,P1) = -G(I1,P1)*G(I1,MU) + 2*P1(MU)
L 1	Al,3,Ubg(I1,MF~,P1)*G(I1,P1) = I*MF*Ubg(I1,MF,P1)
L 4	Id,4,G(I1,P2)*G(I1,MU~) = - G(I1,MU)*G(I1,P2) + 2*P2(MU)
L 4	Al,4,G(I1,P2)*G5(I1) = - G5(I1)*G(I1,P2)
L 4	Al,4,G(I1,P2)*Ug(I1,MF~,P2) = I*MF*Ug(I1,MF,P2)
L 8	Id   P1DP1*Ubg(I1,MF~,P1) = -MF**2*Ubg(I1,MF,P1)
L 8	Al   P2DP2*Ug(I1,MF~,P2) = -MF**2*Ug(I1,MF,P2)
	*begin

Terms out 104, in 104.

Terms in output 36
Running time 19 sec			Used	Maximum
Generated terms 88 	Input space 	1754 	100000
Equal terms 30     	Output space 	1202 	250000
Cancellations 22   	Nr of expr.  	16 	255
Multiplications 772	String space 	0 	4096
Records written 0 	Merging		0 	0

 
VER = 
 + Ubg(I1,0,P1)*G(I1,MU)*G5(I1)*Ug(I1,ME,P2)*I*GG^3*CST^-2*W2^-1
  * ( 1/8*IPI2 + 1/8*C22*ME^2 - 1/8*C22*ME^2*VT + 1/4*C23*VT*P1DP2
   - 1/4*C23*P1DP2 - 1/4*C24 + 1/4*C24*VT + 1/4*C11*VT*P1DP2
  - 1/4*C11*P1DP2 + 1/8*C12*ME^2 - 1/8*C12*ME^2*VT - 1/8*VT*IPI2 )
 
 + Ubg(I1,0,P1)*G(I1,MU)*Ug(I1,ME,P2)*I*GG^3*CST^-2*W2^-1
  * ( 1/8*IPI2 + 1/8*C22*ME^2 - 1/8*C22*ME^2*VT + 1/4*C23*VT*P1DP2
   - 1/4*C23*P1DP2 - 1/4*C24 + 1/4*C24*VT + 1/4*C11*VT*P1DP2
  - 1/4*C11*P1DP2 + 1/8*C12*ME^2 - 1/8*C12*ME^2*VT - 1/8*VT*IPI2 )
 
 + Ubg(I1,0,P1)*G5(I1)*Ug(I1,ME,P2)*P1(MU)*GG^3*CST^-2*W2^-1
  * ( 1/4*C23*ME - 1/4*C23*ME*VT + 1/2*C11*ME )
 
 + Ubg(I1,0,P1)*G5(I1)*Ug(I1,ME,P2)*P2(MU)*GG^3*CST^-2*W2^-1
  * ( 1/4*C22*ME - 1/4*C22*ME*VT + 1/2*C12*ME )
 
 + Ubg(I1,0,P1)*Ug(I1,ME,P2)*P1(MU)*GG^3*CST^-2*W2^-1
  * ( - 1/4*C23*ME + 1/4*C23*ME*VT - 1/2*C11*ME )
 
 + Ubg(I1,0,P1)*Ug(I1,ME,P2)*P2(MU)*GG^3*CST^-2*W2^-1
  * ( - 1/4*C22*ME + 1/4*C22*ME*VT - 1/2*C12*ME ) + 0.
 

Begin. Time 20 sec.
C  E,E,W0.   PHOTON EXCHANGE.   C=C(P1,P2,ME,MP,ME)
	Z   VER = DIA(1,-ME,ME,ME,ME)
L 5	Id   V1=-I*GG*SNT
L 5	Al   V2 = I*GG*(VT-G5(I1))/4/CST
L 5	Al   V3=-I*GG*SNT
> TREAT{}
L 7	Id,MAS(M1~,M2~,M3~)=1
L 8	Id,P5(MU~)=P1(MU)+P2(MU)
L 8	Al,Funct,P5(MU~)=P1(MU)+P2(MU)
L 8	Al,Multi,W2**-2=1/2
L 9	Id,Ainbe,DNQ*Q(BE~)*Q(BEP~) = C21*P1(BE)*P1(BEP) + C22*P2(BE)*P2(BEP)
	   + C23*(P1(BE)*P2(BEP)+P2(BE)*P1(BEP)) + C24*D(BE,BEP)
L11	Id   DNQ*Q(BE~) = C11*P1(BE) + C12*P2(BE)
L12	Id   DNQ = C0
L13	Id,9,G5(I1)*G(I1,MU~) = - G(I1,MU)*G5(I1)
L13	Al,9,G5(I1)*G5(I1) = 1
	*yep

Terms in output 32
Running time 20 sec			Used	Maximum
Generated terms 32 	Input space 	2808 	100000
Equal terms 0     	Output space 	2400 	250000
Cancellations 0   	Nr of expr.  	26 	255
Multiplications 312	String space 	0 	4096
Records written 0 	Merging		0 	0

L 1	Id   G(I1,AL~)*G(I1,MU~)*G(I1,NU~)*G(I1,NUP~)*G(I1,AL~) =
	      - G(I1,AL)*G(I1,MU)*G(I1,NU)*G(I1,AL)*G(I1,NUP)
	      + 2*D(AL,NUP)*G(I1,AL)*G(I1,MU)*G(I1,NU)
L 2	Id   G(I1,AL~)*G(I1,MU~)*G(I1,NU~)*G(I1,AL~) =
	      - G(I1,AL)*G(I1,MU)*G(I1,AL)*G(I1,NU)
	      + 2*D(NU,AL)*G(I1,AL)*G(I1,MU)
L 3	Id,3,G(I1,AL~)*G(I1,MU~)*G(I1,AL~) = -D(AL,AL)*G(I1,MU)
	      + 2*G(I1,AL)*D(MU,AL)
L 3	Al,3,G(I1,AL~)*G(I1,AL~) = D(AL,AL)
L 6	Id,R**N~*C24 = R**N*(C24-N*IPI2/R/2)
L 8	Id,R=4
	*yep

Terms out 32, in 32.

Terms in output 58
Running time 21 sec			Used	Maximum
Generated terms 142 	Input space 	2188 	100000
Equal terms 70     	Output space 	3212 	250000
Cancellations 14   	Nr of expr.  	15 	255
Multiplications 886	String space 	0 	4096
Records written 0 	Merging		0 	0

	B   I,GG,SNT,CST,W2
L 1	Id,3,G(I1,MU~)*G(I1,P1) = -G(I1,P1)*G(I1,MU) + 2*P1(MU)
L 1	Al,3,Ubg(I1,MF~,P1)*G(I1,P1) = I*MF*Ubg(I1,MF,P1)
L 4	Id,4,G(I1,P2)*G(I1,MU~) = - G(I1,MU)*G(I1,P2) + 2*P2(MU)
L 4	Al,4,G(I1,P2)*G5(I1) = - G5(I1)*G(I1,P2)
L 4	Al,4,G(I1,P2)*Ug(I1,MF~,P2) = I*MF*Ug(I1,MF,P2)
L 8	Id   P1DP1*Ubg(I1,MF~,P1) = -MF**2*Ubg(I1,MF,P1)
L 8	Al   P2DP2*Ug(I1,MF~,P2) = -MF**2*Ug(I1,MF,P2)
	*begin

Terms out 58, in 58.

Terms in output 34
Running time 21 sec			Used	Maximum
Generated terms 100 	Input space 	1960 	100000
Equal terms 44     	Output space 	1164 	250000
Cancellations 22   	Nr of expr.  	16 	255
Multiplications 648	String space 	0 	4096
Records written 0 	Merging		0 	0

 
VER = 
 + Ubg(I1,-ME,P1)*G(I1,MU)*G5(I1)*Ug(I1,ME,P2)*I*GG^3*SNT^2*CST^-1
  * ( 1/2*IPI2 + 1/2*C21*ME^2 + 1/2*C22*ME^2 - C23*P1DP2 - C24
  + C11*ME^2 - C11*P1DP2 + 1/2*C0*ME^2 )
 
 + Ubg(I1,-ME,P1)*G(I1,MU)*Ug(I1,ME,P2)*I*GG^3*SNT^2*CST^-1
  * ( - 1/2*C21*ME^2*VT - 1/2*C22*ME^2*VT + C23*VT*P1DP2 + C24*VT
  + C11*VT*P1DP2 - C12*ME^2*VT + 1/2*C0*ME^2*VT - 1/2*VT*IPI2 )
 
 + Ubg(I1,-ME,P1)*G5(I1)*Ug(I1,ME,P2)*P1(MU)*GG^3*SNT^2*CST^-1
  * ( C21*ME + C23*ME + 2*C11*ME + C0*ME )
 
 + Ubg(I1,-ME,P1)*G5(I1)*Ug(I1,ME,P2)*P2(MU)*GG^3*SNT^2*CST^-1
  * ( C22*ME + C23*ME + C11*ME + C12*ME + C0*ME )
 
 + Ubg(I1,-ME,P1)*Ug(I1,ME,P2)*P1(MU)*GG^3*SNT^2*CST^-1
  * ( - C21*ME*VT + C23*ME*VT - 2*C11*ME*VT - C0*ME*VT )
 
 + Ubg(I1,-ME,P1)*Ug(I1,ME,P2)*P2(MU)*GG^3*SNT^2*CST^-1
  * ( C22*ME*VT - C23*ME*VT - C11*ME*VT - C12*ME*VT - C0*ME*VT ) + 0.
 

Begin. Time 21 sec.
C  E,E,W0.   W0 EXCHANGE.   C=C(P1,P2,ME,M0,ME)
	Z   VER = DIA(1,-ME,ME,ME,ME)
	    *MAS(0,M0,0)
L 5	Id   V1=I*GG*(VT-G5(I1))/4/CST
L 5	Al   V2 = I*GG*(VT-G5(I1))/4/CST
L 5	Al   V3=I*GG*(VT-G5(I1))/4/CST
> TREAT{}
L 7	Id,MAS(M1~,M2~,M3~)=1
L 8	Id,P5(MU~)=P1(MU)+P2(MU)
L 8	Al,Funct,P5(MU~)=P1(MU)+P2(MU)
L 8	Al,Multi,W2**-2=1/2
L 9	Id,Ainbe,DNQ*Q(BE~)*Q(BEP~) = C21*P1(BE)*P1(BEP) + C22*P2(BE)*P2(BEP)
	   + C23*(P1(BE)*P2(BEP)+P2(BE)*P1(BEP)) + C24*D(BE,BEP)
L11	Id   DNQ*Q(BE~) = C11*P1(BE) + C12*P2(BE)
L12	Id   DNQ = C0
L13	Id,9,G5(I1)*G(I1,MU~) = - G(I1,MU)*G5(I1)
L13	Al,9,G5(I1)*G5(I1) = 1
	*yep

Terms in output 64
Running time 23 sec			Used	Maximum
Generated terms 128 	Input space 	3862 	100000
Equal terms 56     	Output space 	3300 	250000
Cancellations 8   	Nr of expr.  	26 	255
Multiplications 2155	String space 	0 	4096
Records written 0 	Merging		0 	0

L 1	Id   G(I1,AL~)*G(I1,MU~)*G(I1,NU~)*G(I1,NUP~)*G(I1,AL~) =
	      - G(I1,AL)*G(I1,MU)*G(I1,NU)*G(I1,AL)*G(I1,NUP)
	      + 2*D(AL,NUP)*G(I1,AL)*G(I1,MU)*G(I1,NU)
L 2	Id   G(I1,AL~)*G(I1,MU~)*G(I1,NU~)*G(I1,AL~) =
	      - G(I1,AL)*G(I1,MU)*G(I1,AL)*G(I1,NU)
	      + 2*D(NU,AL)*G(I1,AL)*G(I1,MU)
L 3	Id,3,G(I1,AL~)*G(I1,MU~)*G(I1,AL~) = -D(AL,AL)*G(I1,MU)
	      + 2*G(I1,AL)*D(MU,AL)
L 3	Al,3,G(I1,AL~)*G(I1,AL~) = D(AL,AL)
L 6	Id,R**N~*C24 = R**N*(C24-N*IPI2/R/2)
L 8	Id,R=4
	*yep

Terms out 64, in 64.

Terms in output 116
Running time 24 sec			Used	Maximum
Generated terms 284 	Input space 	2188 	100000
Equal terms 140     	Output space 	4856 	250000
Cancellations 28   	Nr of expr.  	15 	255
Multiplications 1772	String space 	0 	4096
Records written 0 	Merging		0 	0

	B   I,GG,SNT,CST,W2
L 1	Id,3,G(I1,MU~)*G(I1,P1) = -G(I1,P1)*G(I1,MU) + 2*P1(MU)
L 1	Al,3,Ubg(I1,MF~,P1)*G(I1,P1) = I*MF*Ubg(I1,MF,P1)
L 4	Id,4,G(I1,P2)*G(I1,MU~) = - G(I1,MU)*G(I1,P2) + 2*P2(MU)
L 4	Al,4,G(I1,P2)*G5(I1) = - G5(I1)*G(I1,P2)
L 4	Al,4,G(I1,P2)*Ug(I1,MF~,P2) = I*MF*Ug(I1,MF,P2)
L 8	Id   P1DP1*Ubg(I1,MF~,P1) = -MF**2*Ubg(I1,MF,P1)
L 8	Al   P2DP2*Ug(I1,MF~,P2) = -MF**2*Ug(I1,MF,P2)
	*begin

Terms out 116, in 116.

Terms in output 68
Running time 26 sec			Used	Maximum
Generated terms 200 	Input space 	1960 	100000
Equal terms 90     	Output space 	2016 	250000
Cancellations 42   	Nr of expr.  	16 	255
Multiplications 1296	String space 	0 	4096
Records written 0 	Merging		0 	0

 
VER = 
 + Ubg(I1,-ME,P1)*G(I1,MU)*G5(I1)*Ug(I1,ME,P2)*I*GG^3*CST^-3
  * ( 1/32*IPI2 + 1/32*C21*ME^2 + 3/32*C21*ME^2*VT^2 + 1/32*C22*ME^2
   + 3/32*C22*ME^2*VT^2 - 3/16*C23*VT^2*P1DP2 - 1/16*C23*P1DP2
  - 1/16*C24 - 3/16*C24*VT^2 + 1/16*C11*ME^2 + 3/16*C11*ME^2*VT^2
  - 3/16*C11*VT^2*P1DP2 - 1/16*C11*P1DP2 + 1/32*C0*ME^2 - 1/32*C0*ME^2
  *VT^2 + 3/32*VT^2*IPI2 )
 
 + Ubg(I1,-ME,P1)*G(I1,MU)*Ug(I1,ME,P2)*I*GG^3*CST^-3
  * ( - 3/32*C21*ME^2*VT - 1/32*C21*ME^2*VT^3 - 3/32*C22*ME^2*VT
  - 1/32*C22*ME^2*VT^3 + 3/16*C23*VT*P1DP2 + 1/16*C23*VT^3*P1DP2
  + 3/16*C24*VT + 1/16*C24*VT^3 + 3/16*C11*VT*P1DP2 + 1/16*C11*VT^3
  *P1DP2 - 3/16*C12*ME^2*VT - 1/16*C12*ME^2*VT^3 - 1/32*C0*ME^2*VT
   + 1/32*C0*ME^2*VT^3 - 3/32*VT*IPI2 - 1/32*VT^3*IPI2 )
 
 + Ubg(I1,-ME,P1)*G5(I1)*Ug(I1,ME,P2)*P1(MU)*GG^3*CST^-3
  * ( 1/16*C21*ME + 3/16*C21*ME*VT^2 + 1/16*C23*ME + 3/16*C23*ME*VT^2
   + 1/8*C11*ME + 3/8*C11*ME*VT^2 - 1/16*C0*ME + 1/16*C0*ME*VT^2 )
 
 + Ubg(I1,-ME,P1)*G5(I1)*Ug(I1,ME,P2)*P2(MU)*GG^3*CST^-3
  * ( 1/16*C22*ME + 3/16*C22*ME*VT^2 + 1/16*C23*ME + 3/16*C23*ME*VT^2
   + 1/16*C11*ME + 3/16*C11*ME*VT^2 + 1/16*C12*ME + 3/16*C12*ME*VT^2
   - 1/16*C0*ME + 1/16*C0*ME*VT^2 )
 
 + Ubg(I1,-ME,P1)*Ug(I1,ME,P2)*P1(MU)*GG^3*CST^-3
  * ( - 3/16*C21*ME*VT - 1/16*C21*ME*VT^3 + 3/16*C23*ME*VT
  + 1/16*C23*ME*VT^3 + 1/8*C11*ME*VT - 1/8*C11*ME*VT^3 + 1/16*C0*ME
  *VT - 1/16*C0*ME*VT^3 )
 
 + Ubg(I1,-ME,P1)*Ug(I1,ME,P2)*P2(MU)*GG^3*CST^-3
  * ( 3/16*C22*ME*VT + 1/16*C22*ME*VT^3 - 3/16*C23*ME*VT - 1/16*C23
  *ME*VT^3 - 3/16*C11*ME*VT - 1/16*C11*ME*VT^3 + 5/16*C12*ME*VT
  - 1/16*C12*ME*VT^3 + 1/16*C0*ME*VT - 1/16*C0*ME*VT^3 ) + 0.
 

Begin. Time 26 sec.
C  E,E,W0.   NEUTRINO EXCHANGE.   C=C(P1,P2,MC,0,MC)
	Z   VER = DIA(2,-ME,0,ME,ME)
	   *MAS(MC,0,MC)
L 5	Id   V1=I*GG*(1+G5(I1))/2/W2
L 5	Al   V2=I*GG*CST*I
L 5	Al   V3=I*GG*(1+G5(I1))/2/W2
> TREAT{}
L 7	Id,MAS(M1~,M2~,M3~)=1
L 8	Id,P5(MU~)=P1(MU)+P2(MU)
L 8	Al,Funct,P5(MU~)=P1(MU)+P2(MU)
L 8	Al,Multi,W2**-2=1/2
L 9	Id,Ainbe,DNQ*Q(BE~)*Q(BEP~) = C21*P1(BE)*P1(BEP) + C22*P2(BE)*P2(BEP)
	   + C23*(P1(BE)*P2(BEP)+P2(BE)*P1(BEP)) + C24*D(BE,BEP)
L11	Id   DNQ*Q(BE~) = C11*P1(BE) + C12*P2(BE)
L12	Id   DNQ = C0
L13	Id,9,G5(I1)*G(I1,MU~) = - G(I1,MU)*G5(I1)
L13	Al,9,G5(I1)*G5(I1) = 1
	*yep

Terms in output 70
Running time 27 sec			Used	Maximum
Generated terms 156 	Input space 	3352 	100000
Equal terms 84     	Output space 	3762 	250000
Cancellations 2   	Nr of expr.  	26 	255
Multiplications 1657	String space 	0 	4096
Records written 0 	Merging		0 	0

L 1	Id   G(I1,AL~)*G(I1,MU~)*G(I1,NU~)*G(I1,NUP~)*G(I1,AL~) =
	      - G(I1,AL)*G(I1,MU)*G(I1,NU)*G(I1,AL)*G(I1,NUP)
	      + 2*D(AL,NUP)*G(I1,AL)*G(I1,MU)*G(I1,NU)
L 2	Id   G(I1,AL~)*G(I1,MU~)*G(I1,NU~)*G(I1,AL~) =
	      - G(I1,AL)*G(I1,MU)*G(I1,AL)*G(I1,NU)
	      + 2*D(NU,AL)*G(I1,AL)*G(I1,MU)
L 3	Id,3,G(I1,AL~)*G(I1,MU~)*G(I1,AL~) = -D(AL,AL)*G(I1,MU)
	      + 2*G(I1,AL)*D(MU,AL)
L 3	Al,3,G(I1,AL~)*G(I1,AL~) = D(AL,AL)
L 6	Id,R**N~*C24 = R**N*(C24-N*IPI2/R/2)
L 8	Id,R=4
	*yep

Terms out 70, in 70.

Terms in output 60
Running time 28 sec			Used	Maximum
Generated terms 100 	Input space 	1836 	100000
Equal terms 40     	Output space 	2634 	250000
Cancellations 0   	Nr of expr.  	15 	255
Multiplications 442	String space 	0 	4096
Records written 0 	Merging		0 	0

	B   I,GG,SNT,CST,W2
L 1	Id,3,G(I1,MU~)*G(I1,P1) = -G(I1,P1)*G(I1,MU) + 2*P1(MU)
L 1	Al,3,Ubg(I1,MF~,P1)*G(I1,P1) = I*MF*Ubg(I1,MF,P1)
L 4	Id,4,G(I1,P2)*G(I1,MU~) = - G(I1,MU)*G(I1,P2) + 2*P2(MU)
L 4	Al,4,G(I1,P2)*G5(I1) = - G5(I1)*G(I1,P2)
L 4	Al,4,G(I1,P2)*Ug(I1,MF~,P2) = I*MF*Ug(I1,MF,P2)
L 8	Id   P1DP1*Ubg(I1,MF~,P1) = -MF**2*Ubg(I1,MF,P1)
L 8	Al   P2DP2*Ug(I1,MF~,P2) = -MF**2*Ug(I1,MF,P2)
	*begin

Terms out 60, in 60.

Terms in output 38
Running time 28 sec			Used	Maximum
Generated terms 96 	Input space 	1838 	100000
Equal terms 47     	Output space 	1202 	250000
Cancellations 11   	Nr of expr.  	16 	255
Multiplications 630	String space 	0 	4096
Records written 0 	Merging		0 	0

 
VER = 
 + Ubg(I1,-ME,P1)*G(I1,MU)*G5(I1)*Ug(I1,ME,P2)*I*GG^3*CST
  * ( 1/2*IPI2 + 1/2*C21*ME^2 + 1/2*C22*ME^2 - C23*P1DP2 - 3*C24
  + 3/2*C11*ME^2 - C11*P1DP2 - 1/2*C12*ME^2 + C0*ME^2 - C0*P1DP2 )
 
 + Ubg(I1,-ME,P1)*G(I1,MU)*Ug(I1,ME,P2)*I*GG^3*CST
  * ( 1/2*IPI2 + 1/2*C21*ME^2 + 1/2*C22*ME^2 - C23*P1DP2 - 3*C24
  - C11*P1DP2 + C12*ME^2 - 1/2*C0*ME^2 - C0*P1DP2 )
 
 + Ubg(I1,-ME,P1)*G5(I1)*Ug(I1,ME,P2)*P1(MU)*GG^3*CST
  * ( - C21*ME - C23*ME - C11*ME - 3/2*C12*ME )
 
 + Ubg(I1,-ME,P1)*G5(I1)*Ug(I1,ME,P2)*P2(MU)*GG^3*CST
  * ( - C22*ME - C23*ME + 1/2*C11*ME - 2*C12*ME + 1/2*C0*ME )
 
 + Ubg(I1,-ME,P1)*Ug(I1,ME,P2)*P1(MU)*GG^3*CST
  * ( - C21*ME + C23*ME - 2*C11*ME + 3/2*C12*ME - C0*ME )
 
 + Ubg(I1,-ME,P1)*Ug(I1,ME,P2)*P2(MU)*GG^3*CST
  * ( C22*ME - C23*ME + 1/2*C11*ME - C12*ME + 1/2*C0*ME ) + 0.
 

Begin. Time 29 sec.
C   E,E,W0.   CHARGED W EXCHANGE.   C=C(P1,P2,0,MC,0)
	Z   VER = DIA(1,-ME,0,0,ME)
	   *MAS(0,MC,0)
L 5	Id   V1 = I*GG*(1+G5(I1))/2/W2
L 5	Al   V2 = I*GG*(1+G5(I1))/4/CST
L 5	Al   V3 = I*GG*(1+G5(I1))/2/W2
> TREAT{}
L 7	Id,MAS(M1~,M2~,M3~)=1
L 8	Id,P5(MU~)=P1(MU)+P2(MU)
L 8	Al,Funct,P5(MU~)=P1(MU)+P2(MU)
L 8	Al,Multi,W2**-2=1/2
L 9	Id,Ainbe,DNQ*Q(BE~)*Q(BEP~) = C21*P1(BE)*P1(BEP) + C22*P2(BE)*P2(BEP)
	   + C23*(P1(BE)*P2(BEP)+P2(BE)*P1(BEP)) + C24*D(BE,BEP)
L11	Id   DNQ*Q(BE~) = C11*P1(BE) + C12*P2(BE)
L12	Id   DNQ = C0
L13	Id,9,G5(I1)*G(I1,MU~) = - G(I1,MU)*G5(I1)
L13	Al,9,G5(I1)*G5(I1) = 1
	*yep

Terms in output 18
Running time 30 sec			Used	Maximum
Generated terms 72 	Input space 	3952 	100000
Equal terms 54     	Output space 	1254 	250000
Cancellations 0   	Nr of expr.  	26 	255
Multiplications 1232	String space 	0 	4096
Records written 0 	Merging		0 	0

L 1	Id   G(I1,AL~)*G(I1,MU~)*G(I1,NU~)*G(I1,NUP~)*G(I1,AL~) =
	      - G(I1,AL)*G(I1,MU)*G(I1,NU)*G(I1,AL)*G(I1,NUP)
	      + 2*D(AL,NUP)*G(I1,AL)*G(I1,MU)*G(I1,NU)
L 2	Id   G(I1,AL~)*G(I1,MU~)*G(I1,NU~)*G(I1,AL~) =
	      - G(I1,AL)*G(I1,MU)*G(I1,AL)*G(I1,NU)
	      + 2*D(NU,AL)*G(I1,AL)*G(I1,MU)
L 3	Id,3,G(I1,AL~)*G(I1,MU~)*G(I1,AL~) = -D(AL,AL)*G(I1,MU)
	      + 2*G(I1,AL)*D(MU,AL)
L 3	Al,3,G(I1,AL~)*G(I1,AL~) = D(AL,AL)
L 6	Id,R**N~*C24 = R**N*(C24-N*IPI2/R/2)
L 8	Id,R=4
	*yep

Terms out 18, in 18.

Terms in output 44
Running time 30 sec			Used	Maximum
Generated terms 102 	Input space 	2160 	100000
Equal terms 48     	Output space 	2230 	250000
Cancellations 10   	Nr of expr.  	15 	255
Multiplications 674	String space 	0 	4096
Records written 0 	Merging		0 	0

	B   I,GG,SNT,CST,W2
L 1	Id,3,G(I1,MU~)*G(I1,P1) = -G(I1,P1)*G(I1,MU) + 2*P1(MU)
L 1	Al,3,Ubg(I1,MF~,P1)*G(I1,P1) = I*MF*Ubg(I1,MF,P1)
L 4	Id,4,G(I1,P2)*G(I1,MU~) = - G(I1,MU)*G(I1,P2) + 2*P2(MU)
L 4	Al,4,G(I1,P2)*G5(I1) = - G5(I1)*G(I1,P2)
L 4	Al,4,G(I1,P2)*Ug(I1,MF~,P2) = I*MF*Ug(I1,MF,P2)
L 8	Id   P1DP1*Ubg(I1,MF~,P1) = -MF**2*Ubg(I1,MF,P1)
L 8	Al   P2DP2*Ug(I1,MF~,P2) = -MF**2*Ug(I1,MF,P2)
	*begin

Terms out 44, in 44.

Terms in output 27
Running time 31 sec			Used	Maximum
Generated terms 80 	Input space 	1936 	100000
Equal terms 32     	Output space 	938 	250000
Cancellations 21   	Nr of expr.  	16 	255
Multiplications 548	String space 	0 	4096
Records written 0 	Merging		0 	0

 
VER = 
 + Ubg(I1,-ME,P1)*G(I1,MU)*G5(I1)*Ug(I1,ME,P2)*I*GG^3*CST^-1
  * ( - 1/4*IPI2 - 1/4*C21*ME^2 - 1/4*C22*ME^2 + 1/2*C23*P1DP2
  + 1/2*C24 - 1/2*C11*ME^2 + 1/2*C11*P1DP2 )
 
 + Ubg(I1,-ME,P1)*G(I1,MU)*Ug(I1,ME,P2)*I*GG^3*CST^-1
  * ( - 1/4*IPI2 - 1/4*C21*ME^2 - 1/4*C22*ME^2 + 1/2*C23*P1DP2
  + 1/2*C24 + 1/2*C11*P1DP2 - 1/2*C12*ME^2 )
 
 + Ubg(I1,-ME,P1)*G5(I1)*Ug(I1,ME,P2)*P1(MU)*GG^3*CST^-1
  * ( - 1/2*C21*ME - 1/2*C23*ME - C11*ME )
 
 + Ubg(I1,-ME,P1)*G5(I1)*Ug(I1,ME,P2)*P2(MU)*GG^3*CST^-1
  * ( - 1/2*C22*ME - 1/2*C23*ME - 1/2*C11*ME - 1/2*C12*ME )
 
 + Ubg(I1,-ME,P1)*Ug(I1,ME,P2)*P1(MU)*GG^3*CST^-1
  * ( - 1/2*C21*ME + 1/2*C23*ME )
 
 + Ubg(I1,-ME,P1)*Ug(I1,ME,P2)*P2(MU)*GG^3*CST^-1
  * ( 1/2*C22*ME - 1/2*C23*ME - 1/2*C11*ME + 1/2*C12*ME ) + 0.
 

Begin. Time 31 sec.
C   N,N,W0.   W0 EXCHANGE.   C=C(P1,P2,0,M0,0)
	Z   VER = DIA(1,0,0,0,0)
	   *MAS(0,M0,0)
L 5	Id   V1 = I*GG*(1+G5(I1))/4/CST
L 5	Al   V2 = I*GG*(1+G5(I1))/4/CST
L 5	Al   V3 = I*GG*(1+G5(I1))/4/CST
> TREAT{}
L 7	Id,MAS(M1~,M2~,M3~)=1
L 8	Id,P5(MU~)=P1(MU)+P2(MU)
L 8	Al,Funct,P5(MU~)=P1(MU)+P2(MU)
L 8	Al,Multi,W2**-2=1/2
L 9	Id,Ainbe,DNQ*Q(BE~)*Q(BEP~) = C21*P1(BE)*P1(BEP) + C22*P2(BE)*P2(BEP)
	   + C23*(P1(BE)*P2(BEP)+P2(BE)*P1(BEP)) + C24*D(BE,BEP)
L11	Id   DNQ*Q(BE~) = C11*P1(BE) + C12*P2(BE)
L12	Id   DNQ = C0
L13	Id,9,G5(I1)*G(I1,MU~) = - G(I1,MU)*G5(I1)
L13	Al,9,G5(I1)*G5(I1) = 1
	*yep

Terms in output 18
Running time 32 sec			Used	Maximum
Generated terms 72 	Input space 	3810 	100000
Equal terms 54     	Output space 	1254 	250000
Cancellations 0   	Nr of expr.  	26 	255
Multiplications 1200	String space 	0 	4096
Records written 0 	Merging		0 	0

L 1	Id   G(I1,AL~)*G(I1,MU~)*G(I1,NU~)*G(I1,NUP~)*G(I1,AL~) =
	      - G(I1,AL)*G(I1,MU)*G(I1,NU)*G(I1,AL)*G(I1,NUP)
	      + 2*D(AL,NUP)*G(I1,AL)*G(I1,MU)*G(I1,NU)
L 2	Id   G(I1,AL~)*G(I1,MU~)*G(I1,NU~)*G(I1,AL~) =
	      - G(I1,AL)*G(I1,MU)*G(I1,AL)*G(I1,NU)
	      + 2*D(NU,AL)*G(I1,AL)*G(I1,MU)
L 3	Id,3,G(I1,AL~)*G(I1,MU~)*G(I1,AL~) = -D(AL,AL)*G(I1,MU)
	      + 2*G(I1,AL)*D(MU,AL)
L 3	Al,3,G(I1,AL~)*G(I1,AL~) = D(AL,AL)
L 6	Id,R**N~*C24 = R**N*(C24-N*IPI2/R/2)
L 8	Id,R=4
	*yep

Terms out 18, in 18.

Terms in output 44
Running time 32 sec			Used	Maximum
Generated terms 102 	Input space 	2160 	100000
Equal terms 48     	Output space 	2230 	250000
Cancellations 10   	Nr of expr.  	15 	255
Multiplications 674	String space 	0 	4096
Records written 0 	Merging		0 	0

	B   I,GG,SNT,CST,W2
L 1	Id,3,G(I1,MU~)*G(I1,P1) = -G(I1,P1)*G(I1,MU) + 2*P1(MU)
L 1	Al,3,Ubg(I1,MF~,P1)*G(I1,P1) = I*MF*Ubg(I1,MF,P1)
L 4	Id,4,G(I1,P2)*G(I1,MU~) = - G(I1,MU)*G(I1,P2) + 2*P2(MU)
L 4	Al,4,G(I1,P2)*G5(I1) = - G5(I1)*G(I1,P2)
L 4	Al,4,G(I1,P2)*Ug(I1,MF~,P2) = I*MF*Ug(I1,MF,P2)
L 8	Id   P1DP1*Ubg(I1,MF~,P1) = -MF**2*Ubg(I1,MF,P1)
L 8	Al   P2DP2*Ug(I1,MF~,P2) = -MF**2*Ug(I1,MF,P2)
	*begin

Terms out 44, in 44.

Terms in output 8
Running time 33 sec			Used	Maximum
Generated terms 16 	Input space 	1722 	100000
Equal terms 4     	Output space 	294 	250000
Cancellations 4   	Nr of expr.  	16 	255
Multiplications 308	String space 	0 	4096
Records written 0 	Merging		0 	0

 
VER = 
 + Ubg(I1,0,P1)*G(I1,MU)*G5(I1)*Ug(I1,0,P2)*I*GG^3*CST^-3
  * ( - 1/8*IPI2 + 1/4*C23*P1DP2 + 1/4*C24 + 1/4*C11*P1DP2 )
 
 + Ubg(I1,0,P1)*G(I1,MU)*Ug(I1,0,P2)*I*GG^3*CST^-3
  * ( - 1/8*IPI2 + 1/4*C23*P1DP2 + 1/4*C24 + 1/4*C11*P1DP2 ) + 0.
 

Begin. Time 33 sec.
C   N,N,W0.   CHARGED W EXCHANGE.   C=C(P1,P2,ME,MC,ME)
	Z   VER = DIA(1,0,ME,ME,0)
	   *MAS(0,MC,0)
L 5	Id   V1 = I*GG*(1+G5(I1))/2/W2
L 5	Al   V2 = I*GG*(VT-G5(I1))/4/CST
L 5	Al   V3 = I*GG*(1+G5(I1))/2/W2
> TREAT{}
L 7	Id,MAS(M1~,M2~,M3~)=1
L 8	Id,P5(MU~)=P1(MU)+P2(MU)
L 8	Al,Funct,P5(MU~)=P1(MU)+P2(MU)
L 8	Al,Multi,W2**-2=1/2
L 9	Id,Ainbe,DNQ*Q(BE~)*Q(BEP~) = C21*P1(BE)*P1(BEP) + C22*P2(BE)*P2(BEP)
	   + C23*(P1(BE)*P2(BEP)+P2(BE)*P1(BEP)) + C24*D(BE,BEP)
L11	Id   DNQ*Q(BE~) = C11*P1(BE) + C12*P2(BE)
L12	Id   DNQ = C0
L13	Id,9,G5(I1)*G(I1,MU~) = - G(I1,MU)*G5(I1)
L13	Al,9,G5(I1)*G5(I1) = 1
	*yep

Terms in output 40
Running time 34 sec			Used	Maximum
Generated terms 128 	Input space 	3956 	100000
Equal terms 64     	Output space 	2036 	250000
Cancellations 24   	Nr of expr.  	26 	255
Multiplications 2251	String space 	0 	4096
Records written 0 	Merging		0 	0

L 1	Id   G(I1,AL~)*G(I1,MU~)*G(I1,NU~)*G(I1,NUP~)*G(I1,AL~) =
	      - G(I1,AL)*G(I1,MU)*G(I1,NU)*G(I1,AL)*G(I1,NUP)
	      + 2*D(AL,NUP)*G(I1,AL)*G(I1,MU)*G(I1,NU)
L 2	Id   G(I1,AL~)*G(I1,MU~)*G(I1,NU~)*G(I1,AL~) =
	      - G(I1,AL)*G(I1,MU)*G(I1,AL)*G(I1,NU)
	      + 2*D(NU,AL)*G(I1,AL)*G(I1,MU)
L 3	Id,3,G(I1,AL~)*G(I1,MU~)*G(I1,AL~) = -D(AL,AL)*G(I1,MU)
	      + 2*G(I1,AL)*D(MU,AL)
L 3	Al,3,G(I1,AL~)*G(I1,AL~) = D(AL,AL)
L 6	Id,R**N~*C24 = R**N*(C24-N*IPI2/R/2)
L 8	Id,R=4
	*yep

Terms out 40, in 40.

Terms in output 92
Running time 35 sec			Used	Maximum
Generated terms 212 	Input space 	2188 	100000
Equal terms 100     	Output space 	3690 	250000
Cancellations 20   	Nr of expr.  	15 	255
Multiplications 1388	String space 	0 	4096
Records written 0 	Merging		0 	0

	B   I,GG,SNT,CST,W2
L 1	Id,3,G(I1,MU~)*G(I1,P1) = -G(I1,P1)*G(I1,MU) + 2*P1(MU)
L 1	Al,3,Ubg(I1,MF~,P1)*G(I1,P1) = I*MF*Ubg(I1,MF,P1)
L 4	Id,4,G(I1,P2)*G(I1,MU~) = - G(I1,MU)*G(I1,P2) + 2*P2(MU)
L 4	Al,4,G(I1,P2)*G5(I1) = - G5(I1)*G(I1,P2)
L 4	Al,4,G(I1,P2)*Ug(I1,MF~,P2) = I*MF*Ug(I1,MF,P2)
L 8	Id   P1DP1*Ubg(I1,MF~,P1) = -MF**2*Ubg(I1,MF,P1)
L 8	Al   P2DP2*Ug(I1,MF~,P2) = -MF**2*Ug(I1,MF,P2)
	*begin

Terms out 92, in 92.

Terms in output 20
Running time 36 sec			Used	Maximum
Generated terms 36 	Input space 	1738 	100000
Equal terms 8     	Output space 	594 	250000
Cancellations 8   	Nr of expr.  	16 	255
Multiplications 624	String space 	0 	4096
Records written 0 	Merging		0 	0

 
VER = 
 + Ubg(I1,0,P1)*G(I1,MU)*G5(I1)*Ug(I1,0,P2)*I*GG^3*CST^-1
  * ( 1/8*IPI2 + 1/4*C23*VT*P1DP2 - 1/4*C23*P1DP2 - 1/4*C24
  + 1/4*C24*VT + 1/4*C11*VT*P1DP2 - 1/4*C11*P1DP2 + 1/8*C0*ME^2
  + 1/8*C0*ME^2*VT - 1/8*VT*IPI2 )
 
 + Ubg(I1,0,P1)*G(I1,MU)*Ug(I1,0,P2)*I*GG^3*CST^-1
  * ( 1/8*IPI2 + 1/4*C23*VT*P1DP2 - 1/4*C23*P1DP2 - 1/4*C24
  + 1/4*C24*VT + 1/4*C11*VT*P1DP2 - 1/4*C11*P1DP2 + 1/8*C0*ME^2
  + 1/8*C0*ME^2*VT - 1/8*VT*IPI2 ) + 0.
 

Begin. Time 36 sec.
C   N,N,W0.   ELECTRON EXCHANGE.   C=C(P1,P2,MC,ME,MC)
	Z   VER = DIA(2,0,ME,ME,0)
	   *MAS(MC,0,MC)
L 5	Id   V1 = I*GG*(1+G5(I1))/2/W2
L 5	Al   V2 = - I*GG*CST*I
L 5	Al   V3 = I*GG*(1+G5(I1))/2/W2
> TREAT{}
L 7	Id,MAS(M1~,M2~,M3~)=1
L 8	Id,P5(MU~)=P1(MU)+P2(MU)
L 8	Al,Funct,P5(MU~)=P1(MU)+P2(MU)
L 8	Al,Multi,W2**-2=1/2
L 9	Id,Ainbe,DNQ*Q(BE~)*Q(BEP~) = C21*P1(BE)*P1(BEP) + C22*P2(BE)*P2(BEP)
	   + C23*(P1(BE)*P2(BEP)+P2(BE)*P1(BEP)) + C24*D(BE,BEP)
L11	Id   DNQ*Q(BE~) = C11*P1(BE) + C12*P2(BE)
L12	Id   DNQ = C0
L13	Id,9,G5(I1)*G(I1,MU~) = - G(I1,MU)*G5(I1)
L13	Al,9,G5(I1)*G5(I1) = 1
	*yep

Terms in output 70
Running time 38 sec			Used	Maximum
Generated terms 204 	Input space 	3352 	100000
Equal terms 108     	Output space 	3762 	250000
Cancellations 26   	Nr of expr.  	26 	255
Multiplications 2197	String space 	0 	4096
Records written 0 	Merging		0 	0

L 1	Id   G(I1,AL~)*G(I1,MU~)*G(I1,NU~)*G(I1,NUP~)*G(I1,AL~) =
	      - G(I1,AL)*G(I1,MU)*G(I1,NU)*G(I1,AL)*G(I1,NUP)
	      + 2*D(AL,NUP)*G(I1,AL)*G(I1,MU)*G(I1,NU)
L 2	Id   G(I1,AL~)*G(I1,MU~)*G(I1,NU~)*G(I1,AL~) =
	      - G(I1,AL)*G(I1,MU)*G(I1,AL)*G(I1,NU)
	      + 2*D(NU,AL)*G(I1,AL)*G(I1,MU)
L 3	Id,3,G(I1,AL~)*G(I1,MU~)*G(I1,AL~) = -D(AL,AL)*G(I1,MU)
	      + 2*G(I1,AL)*D(MU,AL)
L 3	Al,3,G(I1,AL~)*G(I1,AL~) = D(AL,AL)
L 6	Id,R**N~*C24 = R**N*(C24-N*IPI2/R/2)
L 8	Id,R=4
	*yep

Terms out 70, in 70.

Terms in output 60
Running time 39 sec			Used	Maximum
Generated terms 100 	Input space 	1836 	100000
Equal terms 40     	Output space 	2634 	250000
Cancellations 0   	Nr of expr.  	15 	255
Multiplications 442	String space 	0 	4096
Records written 0 	Merging		0 	0

	B   I,GG,SNT,CST,W2
L 1	Id,3,G(I1,MU~)*G(I1,P1) = -G(I1,P1)*G(I1,MU) + 2*P1(MU)
L 1	Al,3,Ubg(I1,MF~,P1)*G(I1,P1) = I*MF*Ubg(I1,MF,P1)
L 4	Id,4,G(I1,P2)*G(I1,MU~) = - G(I1,MU)*G(I1,P2) + 2*P2(MU)
L 4	Al,4,G(I1,P2)*G5(I1) = - G5(I1)*G(I1,P2)
L 4	Al,4,G(I1,P2)*Ug(I1,MF~,P2) = I*MF*Ug(I1,MF,P2)
L 8	Id   P1DP1*Ubg(I1,MF~,P1) = -MF**2*Ubg(I1,MF,P1)
L 8	Al   P2DP2*Ug(I1,MF~,P2) = -MF**2*Ug(I1,MF,P2)
	*begin

Terms out 60, in 60.

Terms in output 10
Running time 39 sec			Used	Maximum
Generated terms 16 	Input space 	1722 	100000
Equal terms 4     	Output space 	342 	250000
Cancellations 2   	Nr of expr.  	16 	255
Multiplications 362	String space 	0 	4096
Records written 0 	Merging		0 	0

 
VER = 
 + Ubg(I1,0,P1)*G(I1,MU)*G5(I1)*Ug(I1,0,P2)*I*GG^3*CST
  * ( - 1/2*IPI2 + C23*P1DP2 + 3*C24 + C11*P1DP2 + C0*P1DP2 )
 
 + Ubg(I1,0,P1)*G(I1,MU)*Ug(I1,0,P2)*I*GG^3*CST
  * ( - 1/2*IPI2 + C23*P1DP2 + 3*C24 + C11*P1DP2 + C0*P1DP2 ) + 0.
 

Begin. Time 39 sec.
C  N,N,G.   CHARGED W EXCHANGE.   C=C(P1,P2,ME,MC,ME)
	Z   VER = DIA(1,0,ME,ME,0)
	   *MAS(0,MC,0)
L 5	Id   V1 = I*GG*(1+G5(I1))/2/W2
L 5	Al   V2 = - I*GG*SNT
L 5	Al   V3 = I*GG*(1+G5(I1))/2/W2
> TREAT{}
L 7	Id,MAS(M1~,M2~,M3~)=1
L 8	Id,P5(MU~)=P1(MU)+P2(MU)
L 8	Al,Funct,P5(MU~)=P1(MU)+P2(MU)
L 8	Al,Multi,W2**-2=1/2
L 9	Id,Ainbe,DNQ*Q(BE~)*Q(BEP~) = C21*P1(BE)*P1(BEP) + C22*P2(BE)*P2(BEP)
	   + C23*(P1(BE)*P2(BEP)+P2(BE)*P1(BEP)) + C24*D(BE,BEP)
L11	Id   DNQ*Q(BE~) = C11*P1(BE) + C12*P2(BE)
L12	Id   DNQ = C0
L13	Id,9,G5(I1)*G(I1,MU~) = - G(I1,MU)*G5(I1)
L13	Al,9,G5(I1)*G5(I1) = 1
	*yep

Terms in output 20
Running time 40 sec			Used	Maximum
Generated terms 64 	Input space 	3628 	100000
Equal terms 32     	Output space 	1432 	250000
Cancellations 12   	Nr of expr.  	26 	255
Multiplications 903	String space 	0 	4096
Records written 0 	Merging		0 	0

L 1	Id   G(I1,AL~)*G(I1,MU~)*G(I1,NU~)*G(I1,NUP~)*G(I1,AL~) =
	      - G(I1,AL)*G(I1,MU)*G(I1,NU)*G(I1,AL)*G(I1,NUP)
	      + 2*D(AL,NUP)*G(I1,AL)*G(I1,MU)*G(I1,NU)
L 2	Id   G(I1,AL~)*G(I1,MU~)*G(I1,NU~)*G(I1,AL~) =
	      - G(I1,AL)*G(I1,MU)*G(I1,AL)*G(I1,NU)
	      + 2*D(NU,AL)*G(I1,AL)*G(I1,MU)
L 3	Id,3,G(I1,AL~)*G(I1,MU~)*G(I1,AL~) = -D(AL,AL)*G(I1,MU)
	      + 2*G(I1,AL)*D(MU,AL)
L 3	Al,3,G(I1,AL~)*G(I1,AL~) = D(AL,AL)
L 6	Id,R**N~*C24 = R**N*(C24-N*IPI2/R/2)
L 8	Id,R=4
	*yep

Terms out 20, in 20.

Terms in output 46
Running time 40 sec			Used	Maximum
Generated terms 106 	Input space 	2160 	100000
Equal terms 50     	Output space 	2290 	250000
Cancellations 10   	Nr of expr.  	15 	255
Multiplications 694	String space 	0 	4096
Records written 0 	Merging		0 	0

	B   I,GG,SNT,CST,W2
L 1	Id,3,G(I1,MU~)*G(I1,P1) = -G(I1,P1)*G(I1,MU) + 2*P1(MU)
L 1	Al,3,Ubg(I1,MF~,P1)*G(I1,P1) = I*MF*Ubg(I1,MF,P1)
L 4	Id,4,G(I1,P2)*G(I1,MU~) = - G(I1,MU)*G(I1,P2) + 2*P2(MU)
L 4	Al,4,G(I1,P2)*G5(I1) = - G5(I1)*G(I1,P2)
L 4	Al,4,G(I1,P2)*Ug(I1,MF~,P2) = I*MF*Ug(I1,MF,P2)
L 8	Id   P1DP1*Ubg(I1,MF~,P1) = -MF**2*Ubg(I1,MF,P1)
L 8	Al   P2DP2*Ug(I1,MF~,P2) = -MF**2*Ug(I1,MF,P2)
	*begin

Terms out 46, in 46.

Terms in output 10
Running time 41 sec			Used	Maximum
Generated terms 18 	Input space 	1722 	100000
Equal terms 4     	Output space 	342 	250000
Cancellations 4   	Nr of expr.  	16 	255
Multiplications 312	String space 	0 	4096
Records written 0 	Merging		0 	0

 
VER = 
 + Ubg(I1,0,P1)*G(I1,MU)*G5(I1)*Ug(I1,0,P2)*I*GG^3*SNT
  * ( 1/2*IPI2 - C23*P1DP2 - C24 - C11*P1DP2 - 1/2*C0*ME^2 )
 
 + Ubg(I1,0,P1)*G(I1,MU)*Ug(I1,0,P2)*I*GG^3*SNT
  * ( 1/2*IPI2 - C23*P1DP2 - C24 - C11*P1DP2 - 1/2*C0*ME^2 ) + 0.
 

Begin. Time 41 sec.
C   N,N,G.   ELECTRON EXCHANGE.   C=C(P1,P2,MC,ME,MC)
	Z   VER = DIA(2,0,ME,ME,0)
	   *MAS(MC,0,MC)
L 5	Id   V1 = I*GG*(1+G5(I1))/2/W2
L 5	Al   V2 = - I*GG*SNT*I
L 5	Al   V3 = I*GG*(1+G5(I1))/2/W2
> TREAT{}
L 7	Id,MAS(M1~,M2~,M3~)=1
L 8	Id,P5(MU~)=P1(MU)+P2(MU)
L 8	Al,Funct,P5(MU~)=P1(MU)+P2(MU)
L 8	Al,Multi,W2**-2=1/2
L 9	Id,Ainbe,DNQ*Q(BE~)*Q(BEP~) = C21*P1(BE)*P1(BEP) + C22*P2(BE)*P2(BEP)
	   + C23*(P1(BE)*P2(BEP)+P2(BE)*P1(BEP)) + C24*D(BE,BEP)
L11	Id   DNQ*Q(BE~) = C11*P1(BE) + C12*P2(BE)
L12	Id   DNQ = C0
L13	Id,9,G5(I1)*G(I1,MU~) = - G(I1,MU)*G5(I1)
L13	Al,9,G5(I1)*G5(I1) = 1
	*yep

Terms in output 70
Running time 43 sec			Used	Maximum
Generated terms 204 	Input space 	3352 	100000
Equal terms 108     	Output space 	3762 	250000
Cancellations 26   	Nr of expr.  	26 	255
Multiplications 2197	String space 	0 	4096
Records written 0 	Merging		0 	0

L 1	Id   G(I1,AL~)*G(I1,MU~)*G(I1,NU~)*G(I1,NUP~)*G(I1,AL~) =
	      - G(I1,AL)*G(I1,MU)*G(I1,NU)*G(I1,AL)*G(I1,NUP)
	      + 2*D(AL,NUP)*G(I1,AL)*G(I1,MU)*G(I1,NU)
L 2	Id   G(I1,AL~)*G(I1,MU~)*G(I1,NU~)*G(I1,AL~) =
	      - G(I1,AL)*G(I1,MU)*G(I1,AL)*G(I1,NU)
	      + 2*D(NU,AL)*G(I1,AL)*G(I1,MU)
L 3	Id,3,G(I1,AL~)*G(I1,MU~)*G(I1,AL~) = -D(AL,AL)*G(I1,MU)
	      + 2*G(I1,AL)*D(MU,AL)
L 3	Al,3,G(I1,AL~)*G(I1,AL~) = D(AL,AL)
L 6	Id,R**N~*C24 = R**N*(C24-N*IPI2/R/2)
L 8	Id,R=4
	*yep

Terms out 70, in 70.

Terms in output 60
Running time 43 sec			Used	Maximum
Generated terms 100 	Input space 	1836 	100000
Equal terms 40     	Output space 	2634 	250000
Cancellations 0   	Nr of expr.  	15 	255
Multiplications 442	String space 	0 	4096
Records written 0 	Merging		0 	0

	B   I,GG,SNT,CST,W2
L 1	Id,3,G(I1,MU~)*G(I1,P1) = -G(I1,P1)*G(I1,MU) + 2*P1(MU)
L 1	Al,3,Ubg(I1,MF~,P1)*G(I1,P1) = I*MF*Ubg(I1,MF,P1)
L 4	Id,4,G(I1,P2)*G(I1,MU~) = - G(I1,MU)*G(I1,P2) + 2*P2(MU)
L 4	Al,4,G(I1,P2)*G5(I1) = - G5(I1)*G(I1,P2)
L 4	Al,4,G(I1,P2)*Ug(I1,MF~,P2) = I*MF*Ug(I1,MF,P2)
L 8	Id   P1DP1*Ubg(I1,MF~,P1) = -MF**2*Ubg(I1,MF,P1)
L 8	Al   P2DP2*Ug(I1,MF~,P2) = -MF**2*Ug(I1,MF,P2)
	*end

Terms out 60, in 60.

Terms in output 10
Running time 44 sec			Used	Maximum
Generated terms 16 	Input space 	1722 	100000
Equal terms 4     	Output space 	342 	250000
Cancellations 2   	Nr of expr.  	16 	255
Multiplications 362	String space 	0 	4096
Records written 0 	Merging		0 	0

 
VER = 
 + Ubg(I1,0,P1)*G(I1,MU)*G5(I1)*Ug(I1,0,P2)*I*GG^3*SNT
  * ( - 1/2*IPI2 + C23*P1DP2 + 3*C24 + C11*P1DP2 + C0*P1DP2 )
 
 + Ubg(I1,0,P1)*G(I1,MU)*Ug(I1,0,P2)*I*GG^3*SNT
  * ( - 1/2*IPI2 + C23*P1DP2 + 3*C24 + C11*P1DP2 + C0*P1DP2 ) + 0.
 

End run. Time 44 sec.
Schoonschip, 68000 version of June 27, 1991. Public version.
Date: Fri Aug  9 1991 00:48:24.  Memory: start 0001B84C, length 476348.


C Spinors 3. Total cross section for e+e- -> mu+mu-. Lowest order, em only.

> P stat
C  TOTAL CROSS SECTION FOR  E+E- GOING INTO MU+MU-
C  MOMENTA -    E-   P2,  E+  P1,  MU-  P3,  MU+  P4.   ALL MOMENTA INGO
C  S = - (P1+P2)**2,   T = - (P2+P3)**2 .  E = ELECTRON ENERGY.
C  COS = COSINUS OF THE ANGLE BETWEEN ELECTRON AND MUON DIRECTION.
	F  DIA=u
	V   P1,P2,P3,P4
	S  S,T,V,E,COST,ACH
	I   MU,MUP
C  SIGMA = TOTAL CROSS SECTION
	Z  SIGMA=V**4/64/TP**9/E**2/4
	  *DIA(I1,I2,MU)*Conjg(DIA(I3,I4,MUP))*ACH
C  V = VOLUME, TP = TWO PI.
C  ACH IS A VARIABLE USED IN THE INTEGRATION OVER COS.
C  EC = ELECTRIC CHARGE.
C  DIA = LOWEST ORDER DIAGRAM, WITH ONE PHOTON.
L 2	Id  DIA(I1~,I2~,MU~)=TP**4*i*EC**2/V**2/S*
	  Ubg(I1,0,-P3)*G(I1,MU)*Ug(I1,0,-P4)
	   *Ubg(I2,0,P1)*G(I2,MU)*Ug(I2,0,P2)
C  DO SUMMATION OVER SPINS.
L 3	Id  Spin,I1,I2
C  TAKE TRACES.
L 4	Id    Trick,Trace,I1,I2
C  KINEMATIC IDENTITIES. ELECTRON AND MUON MASS ARE NEGLECTED.
L12	Id  P2DP3=P1DP4
L12	Al  P2DP4=P1DP3
L12	Al  P3DP4=P1DP2
L13	Id  P1DP4=-0.5*T
L13	Al  P1DP3=0.5*(S+T)
L13	Al  P1DP2=-0.5*S
> P output
	*yep

Terms in output 3
Running time 0 sec			Used	Maximum
Generated terms 15 	Input space 	1432 	100000
Equal terms 10     	Output space 	104 	250000
Cancellations 2   	Nr of expr.  	22 	255
Multiplications 196	String space 	0 	4096
Records written 0 	Merging		0 	0

 
SIGMA =  + 1/16*S^-2*T^2*E^-2*ACH*TP^-1*EC^4 + 1/16*S^-1*T*E^-2*ACH
  *TP^-1*EC^4 + 1/32*E^-2*ACH*TP^-1*EC^4 + 0.
 
L 1	Id  S=4*E**2
L 1	Al  Multi,S**-1=0.25*E**-2
L 1	Al   T=2*E**2*(COST-1)
C  INTEGRATION OVER COS
L 3	Id  COST**2*ACH=2/3
L 3	Al  COST*ACH=0
L 3	Al  ACH=2
	*end

Terms out 3, in 3.

Terms in output 1
Running time 1 sec			Used	Maximum
Generated terms 4 	Input space 	526 	100000
Equal terms 3     	Output space 	38 	250000
Cancellations 0   	Nr of expr.  	17 	255
Multiplications 44	String space 	0 	4096
Records written 0 	Merging		0 	0

 
SIGMA =  + 1/24*E^-2*TP^-1*EC^4 + 0.
 

End run. Time 1 sec.
Schoonschip, 68000 version of June 27, 1991. Public version.
Date: Fri Aug  9 1991 00:48:27.  Memory: start 0001B84C, length 476348.


C Spinors 4. e+ e- to W+ W-. Part I of two parts.

C This program writes common file Ewcom. The program in the next example
C  uses this file.

> P stat
	Common MA2
	S EC,GG,PR1,PR2,PR3,SI,M,FS2,ACH,LA,LOG,OMK
C OMK = 1 - Magn. Moment.
	S E,R,COST
C FS2 = 4*SI**2 - 1
	F AM=u
	V K1,K2,P,Q,K
	I I1,I2,MU,GA,BE,MUP,GAP,BEP
	B EC,GG,PR1,PR2,PR3

	Z MA2 = 0.25*AM(I1,MU,GA,BE)*Conjg(AM(I2,MUP,GAP,BEP))
		*{D(GA,GAP) + P(GA)*P(GAP)/M**2}*{D(BE,BEP) + Q(BE)*Q(BEP)/M**2}
		*ACH

L 2	Id,AM(I1~,MU~,GA~,BE~) =
		{(-i*EC**2)*PR1*Ubg(I1,0,K2)*G(I1,MU)*Ug(I1,0,K1)
		 + (i*GG**2)*PR2/4*Ubg(I1,0,K2)*G(I1,MU)*(FS2-G5(I1))*
		 Ug(I1,0,K1) }*
		{ - D(GA,MU)*(P(BE)+K(BE)) +D(BE,GA)*(P(MU)-Q(MU)) +
		D(MU,BE)*(K(GA)+Q(GA)) + OMK*(D(MU,GA)*K(BE)-D(BE,MU)*K(GA)) }
		+ (i*GG**2)*PR3/8*Ubg(I1,0,K2)*G(I1,GA)*G6(I1)*
		(G(I1,K1)-G(I1,Q))*G(I1,BE)*G6(I1)*Ug(I1,0,K1)

L 5	Id,Spin,I1,I2
L 6	Id,Trick,Trace,I1,I2

L14	Id,K1DK1=0
L14	Al,K2DK2=0
L15	Id,KDK=-4*E**2
L15	Al,KDK1=-2*E**2
L15	Al,KDK2=-2*E**2
L15	Al,KDQ=-2*E**2
L15	Al,KDP=-2*E**2
L15	Al,K1DK2=-2*E**2
L16	Id,PDP=-M**2
L16	Al,QDQ=-M**2
L17	Id,QDK1=PDK2
L17	Al,QDK2=PDK1
	*yep

Terms in output 288
Running time 36 sec			Used	Maximum
Generated terms 4504 	Input space 	3240 	100000
Equal terms 3441     	Output space 	9970 	250000
Cancellations 775   	Nr of expr.  	33 	255
Multiplications 95726	String space 	0 	4096
Records written 0 	Merging		0 	0

	B EC,GG,PR1,PR2,PR3
L 1	Id,PDQ=M**2-2*E**2
L 1	Al,PDK2=-E**2+E**2*R*COST
L 1	Al,PDK1=-E**2-E**2*R*COST
	*yep

Terms out 288, in 288.

Terms in output 143
Running time 37 sec			Used	Maximum
Generated terms 1050 	Input space 	354 	100000
Equal terms 763     	Output space 	4450 	250000
Cancellations 144   	Nr of expr.  	14 	255
Multiplications 3816	String space 	0 	4096
Records written 0 	Merging		0 	0

C Integration over angles.

L 1	Id,5,PR3**N1~*COST**N2~=0.5*LA/R*PR3**N1*COST**N2/COST -
		PR3**N1/PR3*COST**N2/COST*0.5*E**-2/R
C LA = 1+R**2

	*yep

Terms out 143, in 143.

Terms in output 235
Running time 37 sec			Used	Maximum
Generated terms 249 	Input space 	436 	100000
Equal terms 14     	Output space 	7132 	250000
Cancellations 0   	Nr of expr.  	9 	255
Multiplications 710	String space 	0 	4096
Records written 0 	Merging		0 	0


L 1	Id,COST**5=0
L 1	Al,COST**4=0.4/ACH
L 1	Al,COST**3=0
L 1	Al,COST**2=2/3/ACH
L 2	Id,COST=0

L 3	Id,PR3**2=2*M**-4/ACH
L 4	Id,PR3=LOG*E**-2/R/ACH
L 5	Id,ACH=2
C LOG=LOG(ABS((1+R)/(U-R)))
L 6	Id,LA=1+R**2
	*begin

Terms out 235, in 235.

Terms in output 195
Running time 38 sec			Used	Maximum
Generated terms 434 	Input space 	572 	100000
Equal terms 225     	Output space 	5490 	250000
Cancellations 14   	Nr of expr.  	20 	255
Multiplications 1912	String space 	0 	4096
Records written 0 	Merging		0 	0

 
MA2 = 
 + EC^2*GG^2*PR1
  * ( - 6*M^2*LOG*R^-1 + 5*M^-4*LOG*OMK*E^6*R - M^-4*LOG*OMK*E^6*R^3
   - M^-4*LOG*OMK*E^6*R^5 - 3*M^-4*LOG*OMK*E^6*R^-1 - 5*M^-4*LOG*E^6
  *R + M^-4*LOG*E^6*R^3 + M^-4*LOG*E^6*R^5 + 3*M^-4*LOG*E^6*R^-1
  - 10*M^-4*OMK*E^6 + 8/3*M^-4*OMK*E^6*R^2 + 2*M^-4*OMK*E^6*R^4
  + 10*M^-4*E^6 - 8/3*M^-4*E^6*R^2 - 2*M^-4*E^6*R^4 + 2*M^-2*LOG*OMK
  *E^4*R - M^-2*LOG*OMK*E^4*R^3 - M^-2*LOG*OMK*E^4*R^-1 - 15/2*M^-2
  *LOG*E^4*R + 1/2*M^-2*LOG*E^4*R^3 - 1/2*M^-2*LOG*E^4*R^5
  + 15/2*M^-2*LOG*E^4*R^-1 - 6*M^-2*OMK*E^4 + 2*M^-2*OMK*E^4*R^2
  + 17*M^-2*E^4 - 2/3*M^-2*E^4*R^2 + M^-2*E^4*R^4 - 4*LOG*OMK*E^2*R
   + 8*LOG*OMK*E^2*R^-1 + 3*LOG*E^2*R - 3/2*LOG*E^2*R^3 - 27/2*LOG
  *E^2*R^-1 + 8*OMK*E^2 - 9*E^2 + 3*E^2*R^2 )
 
 + EC^2*GG^2*PR1*PR2
  * ( 24*M^2*FS2*E^2 + 64*M^-4*FS2*OMK*E^8 - 64/3*M^-4*FS2*OMK*E^8
  *R^2 - 32*M^-4*FS2*OMK^2*E^8 + 32/3*M^-4*FS2*OMK^2*E^8*R^2
  - 32*M^-4*FS2*E^8 + 32/3*M^-4*FS2*E^8*R^2 + 32*M^-2*FS2*OMK*E^6
  + 32/3*M^-2*FS2*OMK*E^6*R^2 + 16*M^-2*FS2*OMK^2*E^6 - 16/3*M^-2*FS2
  *OMK^2*E^6*R^2 - 64*M^-2*FS2*E^6 - 32/3*M^-2*FS2*E^6*R^2
  - 96*FS2*OMK*E^4 + 16*FS2*OMK^2*E^4 + 72*FS2*E^4 + 8*FS2*E^4*R^2 )
 
 + EC^4*PR1^2
  * ( - 48*M^2*E^2 - 128*M^-4*OMK*E^8 + 128/3*M^-4*OMK*E^8*R^2
  + 64*M^-4*OMK^2*E^8 - 64/3*M^-4*OMK^2*E^8*R^2 + 64*M^-4*E^8
  - 64/3*M^-4*E^8*R^2 - 64*M^-2*OMK*E^6 - 64/3*M^-2*OMK*E^6*R^2
  - 32*M^-2*OMK^2*E^6 + 32/3*M^-2*OMK^2*E^6*R^2 + 128*M^-2*E^6
  + 64/3*M^-2*E^6*R^2 + 192*OMK*E^4 - 32*OMK^2*E^4 - 144*E^4
  - 16*E^4*R^2 )
 
 + GG^4
  * ( - 5/8 + 3/8*M^-8*E^8 - M^-8*E^8*R^2 + 3/4*M^-8*E^8*R^4
  - 1/8*M^-8*E^8*R^8 + 3/4*M^-6*E^6 - 7/4*M^-6*E^6*R^2 + 5/4*M^-6*E^6
  *R^4 - 1/4*M^-6*E^6*R^6 - 3/4*M^-4*LOG*E^4*R + 1/4*M^-4*LOG*E^4*R^5
   + 1/2*M^-4*LOG*E^4*R^-1 - 1/2*M^-4*E^4 + 11/6*M^-4*E^4*R^2
  - M^-4*E^4*R^4 - 5/4*M^-2*LOG*E^2*R + 3/8*M^-2*LOG*E^2*R^3
  + 7/8*M^-2*LOG*E^2*R^-1 + M^-2*E^2 - 1/2*M^-2*E^2*R^2 + 5/8*LOG*R
   - 7/8*LOG*R^-1 )
 
 + GG^4*PR2
  * ( 3/2*M^2*FS2*LOG*R^-1 - 3/2*M^2*LOG*R^-1 - 5/4*M^-4*FS2*LOG*OMK
  *E^6*R + 1/4*M^-4*FS2*LOG*OMK*E^6*R^3 + 1/4*M^-4*FS2*LOG*OMK*E^6
  *R^5 + 3/4*M^-4*FS2*LOG*OMK*E^6*R^-1 + 5/4*M^-4*FS2*LOG*E^6*R
  - 1/4*M^-4*FS2*LOG*E^6*R^3 - 1/4*M^-4*FS2*LOG*E^6*R^5 - 3/4*M^-4
  *FS2*LOG*E^6*R^-1 + 5/2*M^-4*FS2*OMK*E^6 - 2/3*M^-4*FS2*OMK*E^6*R^2
   - 1/2*M^-4*FS2*OMK*E^6*R^4 - 5/2*M^-4*FS2*E^6 + 2/3*M^-4*FS2*E^6
  *R^2 + 1/2*M^-4*FS2*E^6*R^4 + 5/4*M^-4*LOG*OMK*E^6*R - 1/4*M^-4*LOG
  *OMK*E^6*R^3 - 1/4*M^-4*LOG*OMK*E^6*R^5 - 3/4*M^-4*LOG*OMK*E^6*R^-1
   - 5/4*M^-4*LOG*E^6*R + 1/4*M^-4*LOG*E^6*R^3 + 1/4*M^-4*LOG*E^6*R^5
   + 3/4*M^-4*LOG*E^6*R^-1 - 5/2*M^-4*OMK*E^6 + 2/3*M^-4*OMK*E^6*R^2
   + 1/2*M^-4*OMK*E^6*R^4 + 5/2*M^-4*E^6 - 2/3*M^-4*E^6*R^2
  - 1/2*M^-4*E^6*R^4 - 1/2*M^-2*FS2*LOG*OMK*E^4*R + 1/4*M^-2*FS2*LOG
  *OMK*E^4*R^3 + 1/4*M^-2*FS2*LOG*OMK*E^4*R^-1 + 15/8*M^-2*FS2*LOG
  *E^4*R - 1/8*M^-2*FS2*LOG*E^4*R^3 + 1/8*M^-2*FS2*LOG*E^4*R^5
  - 15/8*M^-2*FS2*LOG*E^4*R^-1 + 3/2*M^-2*FS2*OMK*E^4 - 1/2*M^-2*FS2
  *OMK*E^4*R^2 - 17/4*M^-2*FS2*E^4 + 1/6*M^-2*FS2*E^4*R^2
  - 1/4*M^-2*FS2*E^4*R^4 + 1/2*M^-2*LOG*OMK*E^4*R - 1/4*M^-2*LOG*OMK
  *E^4*R^3 - 1/4*M^-2*LOG*OMK*E^4*R^-1 - 15/8*M^-2*LOG*E^4*R
  + 1/8*M^-2*LOG*E^4*R^3 - 1/8*M^-2*LOG*E^4*R^5 + 15/8*M^-2*LOG*E^4
  *R^-1 - 3/2*M^-2*OMK*E^4 + 1/2*M^-2*OMK*E^4*R^2 + 17/4*M^-2*E^4
  - 1/6*M^-2*E^4*R^2 + 1/4*M^-2*E^4*R^4 + FS2*LOG*OMK*E^2*R
  - 2*FS2*LOG*OMK*E^2*R^-1 - 3/4*FS2*LOG*E^2*R + 3/8*FS2*LOG*E^2*R^3
   + 27/8*FS2*LOG*E^2*R^-1 - 2*FS2*OMK*E^2 + 9/4*FS2*E^2 - 3/4*FS2
  *E^2*R^2 - LOG*OMK*E^2*R + 2*LOG*OMK*E^2*R^-1 + 3/4*LOG*E^2*R
  - 3/8*LOG*E^2*R^3 - 27/8*LOG*E^2*R^-1 + 2*OMK*E^2 - 9/4*E^2
  + 3/4*E^2*R^2 )
 
 + GG^4*PR2^2
  * ( - 3*M^2*FS2^2*E^2 - 3*M^2*E^2 - 8*M^-4*FS2^2*OMK*E^8
  + 8/3*M^-4*FS2^2*OMK*E^8*R^2 + 4*M^-4*FS2^2*OMK^2*E^8 - 4/3*M^-4
  *FS2^2*OMK^2*E^8*R^2 + 4*M^-4*FS2^2*E^8 - 4/3*M^-4*FS2^2*E^8*R^2
   - 8*M^-4*OMK*E^8 + 8/3*M^-4*OMK*E^8*R^2 + 4*M^-4*OMK^2*E^8
  - 4/3*M^-4*OMK^2*E^8*R^2 + 4*M^-4*E^8 - 4/3*M^-4*E^8*R^2
  - 4*M^-2*FS2^2*OMK*E^6 - 4/3*M^-2*FS2^2*OMK*E^6*R^2 - 2*M^-2*FS2^2
  *OMK^2*E^6 + 2/3*M^-2*FS2^2*OMK^2*E^6*R^2 + 8*M^-2*FS2^2*E^6
  + 4/3*M^-2*FS2^2*E^6*R^2 - 4*M^-2*OMK*E^6 - 4/3*M^-2*OMK*E^6*R^2
   - 2*M^-2*OMK^2*E^6 + 2/3*M^-2*OMK^2*E^6*R^2 + 8*M^-2*E^6
  + 4/3*M^-2*E^6*R^2 + 12*FS2^2*OMK*E^4 - 2*FS2^2*OMK^2*E^4
  - 9*FS2^2*E^4 - FS2^2*E^4*R^2 + 12*OMK*E^4 - 2*OMK^2*E^4
  - 9*E^4 - E^4*R^2 ) + 0.
 

Begin. Time 39 sec.
	Write Ewcom
	*end

Terms in output 0
Running time 39 sec			Used	Maximum
Generated terms 0 	Input space 	80 	100000
Equal terms 0     	Output space 	0 	250000
Cancellations 0   	Nr of expr.  	7 	255
Multiplications 0	String space 	0 	4096
Records written 7 	Merging		0 	0


End run. Time 39 sec.
Schoonschip, 68000 version of June 27, 1991. Public version.
Date: Fri Aug  9 1991 00:49:09.  Memory: start 0001B84C, length 476348.


C Spinors 5. e+ e- to W+ W-. Part II of two parts.

C The file Ewcom is supposed to have been made by the first part.

	Enter Ewcom
	*fix

Begin. Time 0 sec.
	S M,LOG
C E,M,M0,LOG,R,OMK

	D QU(N)=100,62,78.465,2.11446222,0.7846,0

	Z SIGMA=MA2*R*E**-2*1.973*1.973*1.E5/402.1238597

L 2	Id,FS2=4*1444/(QU(2))**2-1
L 2	Al,Multi,EC**2=0.091725
L 2	Al,Multi,GG**2=0.091725*QU(2)*QU(2)/1444
L 2	Al,E=QU(1)
L 2	Al,Multi,E**-1=(QU(1))**-1
L 2	Al,M=QU(2)
L 2	Al,Multi,M**-1=(QU(2))**-1
L 2	Al,LOG=QU(4)
L 2	Al,R=QU(5)
L 2	Al,OMK=QU(6)
L 5	Id,PR1=-(2*QU(1))**-2*AG
L 5	Al,PR2=(-4*(QU(1))**2+(QU(3))**2)**-1*W0
> P output
	*yep
 
SIGMA =  + .3518E-1 - .33912E-1*AG - .17024E-1*AG*W0 + .21531E-1*AG^2
   - .13268E-1*W0 + .16687E-1*W0^2 + 0.
 
L 1	Id,AG=1
L 1	Al,W0=1
	*end
 
SIGMA =  + .91935E-2 + 0.
 

End run. Time 2 sec.
Schoonschip, 68000 version of June 27, 1991. Public version.
Date: Fri Aug  9 1991 00:49:14.  Memory: start 0001B84C, length 476348.


C Spinors 6. Electron neutrino scattering.

> P stat
	F  AM=u
	V  Q,K,P,PA
	S  GA,GV,M,EN,EE,EN
	I  MU,MUP,I1,I2,I3,I4
	B  EE,EN
	Z  SIGM=AM(I1,I2,MU)*Conjg(AM(I3,I4,MUP))
L 2	Id  AM(I1~,I2~,MU~)=Ubg(I1,M,PA)*G(I1,MU)*(GV+GA*G5(I1))*Ug(I1,M,P)
	  * Ubg(I2,0,K)*G(I2,MU)*G6(I2)*Ug(I2,0,Q)
L 4	Id  Spin,I1,I2,I3,I4
L 5	Id  Trick,Trace,I1,I2,I3,I4
L13	Id  PADPA=-M**2
L13	Al  PDP=-M**2
L13	Al  KDK=0.
L13	Al  QDQ=0.
	*yep

Terms in output 8
Running time 0 sec			Used	Maximum
Generated terms 36 	Input space 	1314 	100000
Equal terms 22     	Output space 	224 	250000
Cancellations 6   	Nr of expr.  	20 	255
Multiplications 689	String space 	0 	4096
Records written 0 	Merging		0 	0

L 1	Id  QDPA=KDPA-QDK
L 2	Id  PDK=PDQ-M**2-PDPA
L 2	Al  QDK=M**2+PDPA
L 2	Al  KDPA=QDP
L 3	Id  QDP=-EN*M
L 3	Al  PDPA=-EE*M
	*end

Terms out 8, in 8.

Terms in output 16
Running time 0 sec			Used	Maximum
Generated terms 34 	Input space 	562 	100000
Equal terms 15     	Output space 	490 	250000
Cancellations 3   	Nr of expr.  	15 	255
Multiplications 196	String space 	0 	4096
Records written 0 	Merging		0 	0

 
SIGM = 
  - 128*GA*GV*M^4 + 128*GV^2*M^4
 
 + EN
  * ( - 256*GA*GV*M^3 + 128*GA^2*M^3 + 128*GV^2*M^3 )
 
 + EN^2
  * ( 128*GA^2*M^2 + 128*GV^2*M^2 )
 
 + EE
  * ( 256*GA*GV*M^3 - 64*GA^2*M^3 - 192*GV^2*M^3 )
 
 + EE*EN
  * ( 256*GA*GV*M^2 - 128*GA^2*M^2 - 128*GV^2*M^2 )
 
 + EE^2
  * ( - 128*GA*GV*M^2 + 64*GA^2*M^2 + 64*GV^2*M^2 ) + 0.
 

End run. Time 1 sec.
Schoonschip, 68000 version of June 27, 1991. Public version.
Date: Fri Aug  9 1991 00:49:17.  Memory: start 0001B84C, length 476348.


C Spinors 7. Electron neutrino(mu) scattering.

> P stat
C  ELECTRON, NEUTRINO(MU)  ---  ELECTRON, NEUTRINO(MU).
	V   Q,R,P,PP,K
	I   MU,AL,MUP,ALP
	F   DIA=u
	S  FACT,ME,VT,VT2,VTB,VTB2
	S   QL,PL,KL,X,K0,PPL,PP0,SQRX,SQRZ,CSF,ECM,KAP
	B  FACT,VT,ME,INT
	X   VER(N)=1-(-1)**N
C   FACT=(2.*PI)**-2*GG**4/(16.*CST2*W0M**2)**2
	Z  AMPL2=0.5*FACT*DIA(MU)*Conjg(DIA(MUP))
C   0.5 FOR AVERAGING INITIAL ELECTRON SPIN. NOT SO FOR NEUTRINO.
L 2	Id   DIA(MU~) = Ubg(I1,0,R)*G(I1,MU)*G6(I1)*Ug(I1,0,Q)
	     *Ubg(I2,ME,PP)*(G(I2,MU)*(AA+BB*G5(I2)))*Ug(I2,ME,P)
L 5	Id,Spin,I1,I2
L 6	Id,Trick,Trace,I1,I2
L14	Id   PDP=-ME**2
L14	Al   PPDPP=-ME**2
L14	Al   QDQ=0
L14	Al   RDR=0
L14	Al   KDK=0
L15	Id,AA=AA+AAA*AK2
L15	Al,BB=BB+BBB*AK2
L16	Id,AK2**2=0.
L17	Id,AK2=-2.*QDR
	*yep

Terms in output 18
Running time 1 sec			Used	Maximum
Generated terms 108 	Input space 	1914 	100000
Equal terms 74     	Output space 	536 	250000
Cancellations 16   	Nr of expr.  	25 	255
Multiplications 1150	String space 	0 	4096
Records written 0 	Merging		0 	0

L 1	Id,R(MU~)=Q(MU)+P(MU)-PP(MU)
L 1	Al,Dotpr,R(MU~)=Q(MU)+P(MU)-PP(MU)
L 1	Al,Funct,R(MU~)=Q(MU)+P(MU)-PP(MU)
L 2	Id   PDP=-ME**2
L 2	Al   PPDPP=-ME**2
L 2	Al   QDQ=0
L 2	Al   KDK=0
	*yep

Terms out 18, in 18.

Terms in output 33
Running time 1 sec			Used	Maximum
Generated terms 78 	Input space 	706 	100000
Equal terms 31     	Output space 	928 	250000
Cancellations 14   	Nr of expr.  	17 	255
Multiplications 550	String space 	0 	4096
Records written 0 	Merging		0 	0

	B  FACT,AA,AAA,BB,BBB
L 1	Id  QDPP=-ME**2+QDP-PDPP
L 2	Id,QDP=-QL*ECM
L 2	Al,PDPP=-OPX*QL**2-ME**2
L 3	Id,5,Multi,ECM**2=2.*ECM*QL+ME**2
C  IN FORTRAN PROGRAM MAKE
C  FACT=FACT*QL/ECM*PI/2
> P output
	*yep

Terms out 33, in 33.

Terms in output 26
Running time 1 sec			Used	Maximum
Generated terms 350 	Input space 	634 	100000
Equal terms 219     	Output space 	814 	250000
Cancellations 105   	Nr of expr.  	14 	255
Multiplications 1542	String space 	0 	4096
Records written 0 	Merging		0 	0

 
AMPL2 = 
 + FACT*AA*BB
  * ( 128*QL^3*ECM*OPX - 64*QL^4*OPX^2 )
 
 + FACT*AA*AAA
  * ( 256*ME^2*QL^4*OPX - 128*ME^2*QL^4*OPX^2 + 512*QL^5*ECM*OPX
  - 256*QL^5*ECM*OPX^2 + 128*QL^6*OPX^3 )
 
 + FACT*AA*BBB
  * ( 256*QL^5*ECM*OPX^2 - 128*QL^6*OPX^3 )
 
 + FACT*AA^2
  * ( 64*ME^2*QL^2 - 32*ME^2*QL^2*OPX + 128*QL^3*ECM - 64*QL^3*ECM
  *OPX + 32*QL^4*OPX^2 )
 
 + FACT*BB*BBB
  * ( 256*ME^2*QL^4*OPX + 128*ME^2*QL^4*OPX^2 + 512*QL^5*ECM*OPX
  - 256*QL^5*ECM*OPX^2 + 128*QL^6*OPX^3 )
 
 + FACT*BB^2
  * ( 64*ME^2*QL^2 + 32*ME^2*QL^2*OPX + 128*QL^3*ECM - 64*QL^3*ECM
  *OPX + 32*QL^4*OPX^2 )
 
 + FACT*AAA*BB
  * ( 256*QL^5*ECM*OPX^2 - 128*QL^6*OPX^3 ) + 0.
 
	B  FACT,AA,AAA,BB,BBB
L 1	Id,OPX=1.+X
L 2	Id   FACT=FACT*X
L 3	Id   X**N~=VER(N)/N
C *end
C *   YEP
C B   PIF,FACT,PDK,PPDK
C Id,QL=ECM/2-ME**2/2/ECM
C Al,Multi,QL**-1=ME**2/ECM**2/QL + 2/ECM
C Al,PP0=0.5*ECM+ME**2/2/ECM
C Id   PPL**2=PP0**2-ME**2
C Al,PPL=0.5*ECM - ME**2/2/ECM
C *yep
C V   FA
C B  FA(2),FA(4),FA(6),FA(10),FA(1),DIFZI,ALOZI,DIFXI,ALOXI,KLM1
C    ,FA(8),RAT,CC,CD,PPL,ECM
C     ,AA,BB
C     ,AAA,BBB
C Id,FACT*PI*ME**N~=FA(N)*RAT
C C   RAT=(2.*PI)**3/(PI*GG2*SNT2)
C Id,FACT*PI=FA(1)*RAT
C Id,ECM**2=ECM2
C Al,ECM**3=ECM3
C Al,ECM**4=ECM4
C Id,ECM**-1=EMM1
C Al,ECM**-2=EMM2
C Al,ECM**-3=EMM3
C Al,ECM**-4=EMM4
C Al,ECM**-5=EMM5
C Al,ECM**-6=EMM6
C Id,KL**-1=KLM1
C Al,VT**2=VT2
C Al,QL**-1=QLM1
C Id,VTB**2=VTB2
	*end

Terms out 26, in 26.

Terms in output 18
Running time 2 sec			Used	Maximum
Generated terms 47 	Input space 	454 	100000
Equal terms 29     	Output space 	578 	250000
Cancellations 0   	Nr of expr.  	13 	255
Multiplications 641	String space 	0 	4096
Records written 0 	Merging		0 	0

 
AMPL2 = 
 + FACT*AA*BB
  * ( 256*QL^3*ECM - 512/3*QL^4 )
 
 + FACT*AA*AAA
  * ( 512/3*ME^2*QL^4 + 1024/3*QL^5*ECM + 512*QL^6 )
 
 + FACT*AA*BBB
  * ( 2048/3*QL^5*ECM - 512*QL^6 )
 
 + FACT*AA^2
  * ( 64*ME^2*QL^2 + 128*QL^3*ECM + 256/3*QL^4 )
 
 + FACT*BB*BBB
  * ( 2560/3*ME^2*QL^4 + 1024/3*QL^5*ECM + 512*QL^6 )
 
 + FACT*BB^2
  * ( 192*ME^2*QL^2 + 128*QL^3*ECM + 256/3*QL^4 )
 
 + FACT*AAA*BB
  * ( 2048/3*QL^5*ECM - 512*QL^6 ) + 0.
 

End run. Time 2 sec.
Schoonschip, 68000 version of June 27, 1991. Public version.
Date: Fri Aug  9 1991 00:49:21.  Memory: start 0001B84C, length 476348.


C Spinors 8. Electron neutrino scattering with bremsstrahlung.

> P stat
C  ELECTRON, NEUTRINO(MU)  ---  ELECTRON, NEUTRINO(MU), PHOTON.
	V   Q,R,P,PP,K
	I   MU,AL,MUP,ALP
	F   DIA=u
	S   FACT,ME,VT
	S   QL,PL,KL,X,K0,PPL,PP0,SQRX,SQRZ,CSF,ECM,KAP
	B  FACT,VT,ME,INT
	X   VER(N)=1-(-1)**N
	X  COEF(N)=N
	X  POW(A,M)=A**M
	D  VERH(M,N,XMA,X,A) = (POW(A,N-M+1)/XMA+POW(A,N-M)*DS(J,0,N-1,(X**J/
	          A**J))),
	      (POW(A,N-M+2)/XMA**2 + POW(A,N-M+1)*N/XMA
	          + POW(A,N-M)*DS(K,0,N-2,(X**K/A**K*COEF(N-K-1))))
C  VERH = X**N/(X-A)**M
C   FACT=(2*PI)**-5*GG**6*SNT**2/(16*CST2*W0M**2)**2
	Z   AMPL2 = 0.5*FACT*DIA(MU,AL)*Conjg(DIA(MUP,AL)) *INT
C   0.5 FOR AVERAGING INITIAL ELECTRON SPIN. NOT SO FOR NEUTRINO.
L 2	Id  DIA(MU~,AL~) = Ubg(I1,0,R)*G(I1,MU)*G6(I1)*Ug(I1,0,Q)
	      *Ubg(I2,ME,PP)*(
	          G(I2,AL)*(-i*G(I2,K)-i*G(I2,PP)+ME)/2/KDPP*G(I2,MU)
	          *(VT-G5(I2))
	  -G(I2,MU)*(VT-G5(I2))*(-i*G(I2,P)+i*G(I2,K)+ME)/2/PDK*G(I2,AL)
	      )*Ug(I2,ME,P)
L 5	Id,Spin,I1,I2
L 6	Id,Trick,Trace,I1,I2
L14	Id   PDP=-ME**2
L14	Al   PPDPP=-ME**2
L14	Al   QDQ=0
L14	Al   RDR=0
L14	Al   KDK=0
	*yep

Terms in output 78
Running time 11 sec			Used	Maximum
Generated terms 1856 	Input space 	3338 	100000
Equal terms 1256     	Output space 	2300 	250000
Cancellations 522   	Nr of expr.  	32 	255
Multiplications 28557	String space 	0 	4096
Records written 0 	Merging		0 	0

L 1	Id,R(MU~)=Q(MU)+P(MU)-PP(MU)-K(MU)
L 1	Al,Dotpr,R(MU~)=Q(MU)+P(MU)-PP(MU)-K(MU)
L 1	Al,Funct,R(MU~)=Q(MU)+P(MU)-PP(MU)-K(MU)
L 2	Id   PDP=-ME**2
L 2	Al   PPDPP=-ME**2
L 2	Al   QDQ=0
L 2	Al   KDK=0
	*yep

Terms out 78, in 78.

Terms in output 145
Running time 12 sec			Used	Maximum
Generated terms 286 	Input space 	1576 	100000
Equal terms 107     	Output space 	3948 	250000
Cancellations 34   	Nr of expr.  	25 	255
Multiplications 936	String space 	0 	4096
Records written 0 	Merging		0 	0

	B  FACT,VT,ME
L 1	Id   QDPP=-ME**2+QDP-QDK-PDPP-PDK+PPDK
	*yep

Terms out 145, in 145.

Terms in output 188
Running time 12 sec			Used	Maximum
Generated terms 495 	Input space 	1158 	100000
Equal terms 273     	Output space 	5282 	250000
Cancellations 34   	Nr of expr.  	20 	255
Multiplications 1178	String space 	0 	4096
Records written 0 	Merging		0 	0

	B   PIF,FACT,PDK,PPDK
L 1	Id,FACT=FACT*PI/4
L 2	Id,QDP=-QL*ECM
L 2	Al,QDK=QL*KL*X-QL*KL
L 2	Al   PDPP=-QL*PPL*X*Z-QL*PPL*SQRX*SQRZ*CSF -PP0*P0
L 2	Al   PDK=-QL*KL*X-P0*KL
L 2	Al   PPDK=PPL*KL*Z-PP0*KL
L 3	Id,Epf(Q,P,PP,K)=0
L 4	Id   CSF**3=0.
L 4	Al   CSF**2*INT=PIF
L 4	Al   CSF**1=0
L 5	Id   INT=2*PIF
L 6	Id   SQRX**2=1-X**2
L 6	Al   SQRZ**2=1-Z**2
L 7	Id,Z=-EP*(ECM-KL)/PPL
C  PP0 = KAP/2/(ECM-K0) + KL*EP .  THIS DEFINES EP.
C  KAP = (ECM-K0)**2+ME**2-KL**2
L 9	Id,Multi,PPL**2=PP0**2-ME**2
L10	Id,MP=0
	*yep

Terms out 188, in 188.

Terms in output 876
Running time 15 sec			Used	Maximum
Generated terms 1494 	Input space 	2358 	100000
Equal terms 616     	Output space 	27990 	250000
Cancellations 2   	Nr of expr.  	36 	255
Multiplications 9419	String space 	0 	4096
Records written 0 	Merging		0 	0

	S   PDKN
	B  PI,FACT,PPDK,DIFF,ALOGD
L 1	Id,Multi,PDK**-1=-PDKN**-1/QL/KL
C  PDKN=X-BA
C   BA=-P0*K0/(QL*KL)
L 2	Id,PDKN**M~*X**N~=VERH(-M,N,PDKN,X,BA)
L 9	Id,PIF*PDKN**-2=-QL*KL*DIFF*PI
C   DIFF=1/(P0*K0+QL*KL) - 1/(P0*K0-QL*KL)
L 9	Al,PIF*PDKN**-1=ALOGD*PI
C  ALOGD=LOG((P0*K0+QL*KL)/(P0*K0-QL*KL))
L10	Id,PIF=PIF*X
L11	Id,PIF*X**N~=VER(N)*PI/N
L14	Id,BA=-P0*KL/QL/KL
L15	Id,K0=KL
L16	Id,Multi,P0**2=QL**2+ME**2
	*yep

Terms out 876, in 876.

Terms in output 1026
Running time 23 sec			Used	Maximum
Generated terms 1547 	Input space 	2274 	100000
Equal terms 448     	Output space 	29992 	250000
Cancellations 73   	Nr of expr.  	33 	255
Multiplications 16363	String space 	0 	4096
Records written 2 	Merging		0 	0

	B  PI,FACT,DIFF,ALOGD,ALOGE,DIFP,ME,VT,KL
	N   7
	V   U
	S  PPDKN
C  NEW INTEGRATION VARIABLE  PP0=PP0A+KL*EP
L 1	Id,FACT=KL*FACT*PINT
L 2	Id,PP0**2=PP0A**2+KL**2*EP**2+2*PP0A*KL*EP
L 2	Al,PP0=PP0A+KL*EP
L 3	Id,Multi,PPDK**-1=-PPDKN**-1/ECM/KL
C  PPDKN=EP-BA
L 4	Id,PPDKN**M~*EP**N~=VERH(-M,N,PPDKN,EP,BA)
C   BA=-K0*PP0A/(ECM*KL)
L11	Id,PINT*PPDKN**-2=-ECM*KL*DIFP
C  DIFP=1/(ECM*KL*EPMAX+K0*PP0A) - 1/(ECM*KL*EPMIN+K0*PP0A)
L11	Al,PINT*PPDKN**-1=ALOGE
C  ALOGE=LOG((ECM*KL*EPMAX+K0*PP0A)/(ECM*KL*EPMIN+K0*PP0A))
L12	Id,PINT=PINT*EP
L13	Id,PINT*EP**N~=U(N)/N
C  U(N)=EPMAX**N-EPMIN**N
L14	Id,BA=-K0*PP0A/ECM/KL
L15	Id,K0=KL
L16	Id,5,Once,ECM**2=2.*ECM*QL+ME**2
L16	Al,P0**2=QL**2+ME**2
	*yep

Terms out 1026, in 1026.

Terms in output 884
Running time 38 sec			Used	Maximum
Generated terms 3006 	Input space 	2694 	100000
Equal terms 1682     	Output space 	27632 	250000
Cancellations 440   	Nr of expr.  	37 	255
Multiplications 39188	String space 	0 	4096
Records written 4 	Merging		0 	0

C  N   7
	V   FA
	B  FA(1),FA(2),FA(4),FA(6),FA(8),FA(10),VT,VT2,KL,KLM1,KLP2
	    ,DIFF,ALOGD,ALOGE,DIFP
L 1	Id,FACT*PI**2*ME**N~=FA(N)
L 2	Id,FACT*PI**2=FA(1)
L 3	Id,ECM**2=ECM2
L 3	Al,ECM**3=ECM3
L 3	Al,ECM**4=ECM4
L 4	Id,ECM**-1=EMM1
L 4	Al,ECM**-2=EMM2
L 4	Al,ECM**-3=EMM3
L 4	Al,ECM**-4=EMM4
L 4	Al,ECM**-5=EMM5
L 4	Al,ECM**-6=EMM6
L 5	Id,KL**-1=KLM1
L 5	Al,VT**2=VT2
L 5	Al,QL**-1=QLM1
L 5	Al,KL**2=KLP2
L 5	Al,PP0A**2=PP0A2
	Punch AMPL2
	*end

Terms out 884, in 884.

Terms in output 884
Running time 42 sec			Used	Maximum
Generated terms 884 	Input space 	1782 	100000
Equal terms 0     	Output space 	26302 	250000
Cancellations 0   	Nr of expr.  	37 	255
Multiplications 5674	String space 	0 	4096
Records written 6 	Merging		0 	0

 
AMPL2 = 
 + FA(1)
  * ( 128*QL*ECM*P0*U(1) - 112*QL*ECM*P0*U(2) + 128*QL*ECM*P0*U(3)
   - 288*QL*P0*PP0A*U(1) + 256*QL**2*ECM*U(1) - 240*QL**2*ECM*U(2)
   + 64/3*QL**2*ECM*U(3) - 32*QL**2*PP0A*U(1) + 96*QL**2*PP0A*U(2)
   + 256*QL**2*EMM1*PP0A2*U(1) + 128*ECM*P0*PP0A*U(2) - 64*P0*PP0A2
  *U(1) )
 
 + FA(1)*KLM1
  * ( 64*QL*ECM*P0*PP0A*U(1) + 192*QL**2*ECM*P0*U(2) - 256/3*QL**2
  *ECM*PP0A*U(2) + 32/3*QL**2*PP0A2*U(1) - 256*QL**3*ECM*U(1)
  - 704/9*QL**3*ECM*U(3) )
 
 + FA(1)*KLM1*ALOGD
  * ( 32*QL*ECM*P0*PP0A*U(2) + 32*QL*P0*PP0A2*U(1) + 128*QL**2*ECM
  *P0*U(1) + 64/3*QL**2*ECM*P0*U(3) - 64*QL**2*ECM*PP0A*U(1)
  - 64*QL**3*ECM*U(2) )
 
 + FA(1)*KLM1*ALOGE
  * ( - 128*QL*P0*PP0A2 + 128*QL**2*ECM*PP0A + 256/3*QL**2*PP0A**3
  *EMM1 )
 
 + FA(1)*KLP2
  * ( - 64*QL*P0*PP0A*EMM2*U(1) + 192*QL*P0*EMM1*U(1) + 32*QL*P0*EMM1
  *U(2) - 64*QL*U(1) - 64*QL*U(2) - 704/3*QL**2*PP0A*EMM2*U(1)
  - 128/3*QL**2*PP0A*EMM2*U(2) + 320*QL**2*EMM1*U(1) + 352/3*QL**2
  *EMM1*U(2) + 256/9*QL**2*EMM1*U(3) + 256/3*QL**2*EMM3*PP0A2*U(1)
   + 16*ECM*U(2) + 32*ECM*U(3) - 96*P0*U(1) - 128*P0*U(2)
  - 128/3*P0*U(3) + 32*PP0A*U(1) + 48*PP0A*U(2) )
 
 + FA(1)*KLP2*ALOGD
  * ( - 64*QL*U(1) + 16*ECM*P0*QLM1*U(2) - 16*ECM*PP0A*QLM1*U(2)
  + 16*ECM*U(2) - 32/3*ECM*U(3) + 32*P0*PP0A*QLM1*U(1) - 64*P0*U(1)
   + 32*PP0A*U(1) - 16*QLM1*PP0A2*U(1) )
 
 + FA(1)*KLP2*ALOGE
  * ( - 192*QL*P0*PP0A*EMM2 + 128*QL*P0*EMM1 + 64*QL*P0*EMM3*PP0A2
   - 320*QL**2*PP0A*EMM2 - 256/3*QL**2*PP0A**3*EMM4 + 512/3*QL**2*EMM1
   + 704/3*QL**2*EMM3*PP0A2 )
 
 + FA(1)*VT
  * ( - 224*QL*ECM*P0*U(2) + 256*QL*ECM*P0*U(3) - 576*QL*P0*PP0A*U(1)
   - 480*QL**2*ECM*U(2) + 128/3*QL**2*ECM*U(3) - 64*QL**2*PP0A*U(1)
   + 192*QL**2*PP0A*U(2) + 512*QL**2*EMM1*PP0A2*U(1) + 256*ECM*P0*PP0A
  *U(2) - 128*P0*PP0A2*U(1) )
 
 + FA(1)*VT*KLM1
  * ( 128*QL*ECM*P0*PP0A*U(1) + 384*QL**2*ECM*P0*U(2) - 512/3*QL**2
  *ECM*PP0A*U(2) + 64/3*QL**2*PP0A2*U(1) - 1408/9*QL**3*ECM*U(3) )
 
 + FA(1)*VT*KLM1*ALOGD
  * ( 64*QL*ECM*P0*PP0A*U(2) + 64*QL*P0*PP0A2*U(1) + 128/3*QL**2*ECM
  *P0*U(3) - 128*QL**2*ECM*PP0A*U(1) - 128*QL**3*ECM*U(2) )
 
 + FA(1)*VT*KLM1*ALOGE
  * ( - 256*QL*P0*PP0A2 + 512/3*QL**2*PP0A**3*EMM1 )
 
 + FA(1)*VT*KLP2
  * ( - 128*QL*P0*PP0A*EMM2*U(1) + 128*QL*P0*EMM1*U(1) + 64*QL*P0*EMM1
  *U(2) - 128*QL*U(1) - 128*QL*U(2) - 1408/3*QL**2*PP0A*EMM2*U(1)
  - 256/3*QL**2*PP0A*EMM2*U(2) + 384*QL**2*EMM1*U(1) + 704/3*QL**2
  *EMM1*U(2) + 512/9*QL**2*EMM1*U(3) + 512/3*QL**2*EMM3*PP0A2*U(1)
   + 32*ECM*U(2) + 64*ECM*U(3) - 192*P0*U(1) - 256*P0*U(2)
  - 256/3*P0*U(3) + 64*PP0A*U(1) + 96*PP0A*U(2) )
 
 + FA(1)*VT*KLP2*ALOGD
  * ( 32*ECM*P0*QLM1*U(2) - 32*ECM*PP0A*QLM1*U(2) + 32*ECM*U(2)
  - 64/3*ECM*U(3) + 64*P0*PP0A*QLM1*U(1) + 64*PP0A*U(1) - 32*QLM1*PP0A2
  *U(1) )
 
 + FA(1)*VT*KLP2*ALOGE
  * ( - 128*QL*P0*PP0A*EMM2 + 128*QL*P0*EMM3*PP0A2 - 384*QL**2*PP0A
  *EMM2 - 512/3*QL**2*PP0A**3*EMM4 + 256/3*QL**2*EMM1 + 1408/3*QL**2
  *EMM3*PP0A2 )
 
 + FA(1)*VT*KL
  * ( 256*QL*ECM*U(1) + 320*QL*ECM*U(2) - 128*QL*ECM*U(3)
  + 512*QL*P0*PP0A*EMM1*U(1) - 384*QL*P0*U(1) - 64*QL*P0*U(2)
  + 2816/3*QL**2*PP0A*EMM1*U(1) + 256*QL**2*PP0A*EMM1*U(2)
  - 512*QL**2*EMM2*PP0A2*U(1) - 64*QL**2*U(1) + 64*QL**2*U(2)
  + 128/3*QL**2*U(3) + 128*ECM*P0*U(2) - 256/3*ECM*P0*U(3)
  - 96*ECM*PP0A*U(2) - 256*P0*PP0A*U(1) - 384*P0*PP0A*U(2) )
 
 + FA(1)*VT*KL*ALOGD
  * ( - 128*QL*ECM*U(2) - 128*QL*PP0A*U(1) + 96*ECM*P0*PP0A*QLM1*U(2)
   - 64*ECM*P0*U(2) + 64*ECM*P0*U(3) - 64*ECM*PP0A*U(1) - 128*P0*PP0A
  *U(1) + 96*P0*QLM1*PP0A2*U(1) )
 
 + FA(1)*VT*KL*ALOGE
  * ( - 128*QL*P0 + 512*QL*P0*PP0A*EMM1 - 512*QL*P0*EMM2*PP0A2
  + 384*QL**2*PP0A*EMM1 + 512*QL**2*PP0A**3*EMM3 - 2816/3*QL**2*EMM2
  *PP0A2 )
 
 + FA(1)*VT*ALOGD
  * ( 224*QL*ECM*P0*U(2) - 128*QL*ECM*PP0A*U(2) + 64*QL*P0*PP0A*U(1)
   - 128*QL*PP0A2*U(1) + 32*QL**2*ECM*U(2) - 256/3*QL**2*ECM*U(3)
  + 64*QL**2*PP0A*U(1) + 192*ECM*P0*PP0A*U(1) )
 
 + FA(1)*VT*ALOGE
  * ( - 384*QL*P0*PP0A + 640*QL*P0*EMM1*PP0A2 - 512*QL**2*PP0A**3*EMM2
   + 1408/3*QL**2*EMM1*PP0A2 )
 
 + FA(1)*KL
  * ( 128*QL*ECM*U(1) + 160*QL*ECM*U(2) - 64*QL*ECM*U(3) + 256*QL*P0
  *PP0A*EMM1*U(1) - 448*QL*P0*U(1) - 32*QL*P0*U(2) + 1408/3*QL**2*PP0A
  *EMM1*U(1) + 128*QL**2*PP0A*EMM1*U(2) - 256*QL**2*EMM2*PP0A2*U(1)
   - 288*QL**2*U(1) + 32*QL**2*U(2) + 64/3*QL**2*U(3) + 64*ECM*P0*U(2)
   - 128/3*ECM*P0*U(3) - 48*ECM*PP0A*U(2) - 128*P0*PP0A*U(1)
  - 192*P0*PP0A*U(2) )
 
 + FA(1)*KL*ALOGD
  * ( 64*QL*ECM*U(1) - 64*QL*ECM*U(2) + 64*QL*P0*U(1) - 64*QL*PP0A
  *U(1) + 64*QL**2*U(1) + 48*ECM*P0*PP0A*QLM1*U(2) + 64*ECM*P0*U(1)
   - 32*ECM*P0*U(2) + 32*ECM*P0*U(3) - 32*ECM*PP0A*U(1) - 64*P0*PP0A
  *U(1) + 48*P0*QLM1*PP0A2*U(1) )
 
 + FA(1)*KL*ALOGE
  * ( - 192*QL*P0 + 512*QL*P0*PP0A*EMM1 - 256*QL*P0*EMM2*PP0A2
  - 128*QL**2 + 448*QL**2*PP0A*EMM1 + 256*QL**2*PP0A**3*EMM3
  - 1408/3*QL**2*EMM2*PP0A2 )
 
 + FA(1)*ALOGD
  * ( - 64*QL*ECM*P0*U(1) + 112*QL*ECM*P0*U(2) - 64*QL*ECM*PP0A*U(2)
   + 32*QL*P0*PP0A*U(1) - 64*QL*PP0A2*U(1) - 192*QL**2*ECM*U(1)
  + 16*QL**2*ECM*U(2) - 128/3*QL**2*ECM*U(3) + 32*QL**2*PP0A*U(1)
  + 96*ECM*P0*PP0A*U(1) )
 
 + FA(1)*ALOGE
  * ( - 320*QL*P0*PP0A + 320*QL*P0*EMM1*PP0A2 + 128*QL**2*ECM
  - 256*QL**2*PP0A - 256*QL**2*PP0A**3*EMM2 + 704/3*QL**2*EMM1*PP0A2 )
 
 + FA(1)*VT2
  * ( 128*QL*ECM*P0*U(1) - 112*QL*ECM*P0*U(2) + 128*QL*ECM*P0*U(3)
   - 288*QL*P0*PP0A*U(1) + 256*QL**2*ECM*U(1) - 240*QL**2*ECM*U(2)
   + 64/3*QL**2*ECM*U(3) - 32*QL**2*PP0A*U(1) + 96*QL**2*PP0A*U(2)
   + 256*QL**2*EMM1*PP0A2*U(1) + 128*ECM*P0*PP0A*U(2) - 64*P0*PP0A2
  *U(1) )
 
 + FA(1)*VT2*KLM1
  * ( 64*QL*ECM*P0*PP0A*U(1) + 192*QL**2*ECM*P0*U(2) - 256/3*QL**2
  *ECM*PP0A*U(2) + 32/3*QL**2*PP0A2*U(1) - 256*QL**3*ECM*U(1)
  - 704/9*QL**3*ECM*U(3) )
 
 + FA(1)*VT2*KLM1*ALOGD
  * ( 32*QL*ECM*P0*PP0A*U(2) + 32*QL*P0*PP0A2*U(1) + 128*QL**2*ECM
  *P0*U(1) + 64/3*QL**2*ECM*P0*U(3) - 64*QL**2*ECM*PP0A*U(1)
  - 64*QL**3*ECM*U(2) )
 
 + FA(1)*VT2*KLM1*ALOGE
  * ( - 128*QL*P0*PP0A2 + 128*QL**2*ECM*PP0A + 256/3*QL**2*PP0A**3
  *EMM1 )
 
 + FA(1)*VT2*KLP2
  * ( - 64*QL*P0*PP0A*EMM2*U(1) + 192*QL*P0*EMM1*U(1) + 32*QL*P0*EMM1
  *U(2) - 64*QL*U(1) - 64*QL*U(2) - 704/3*QL**2*PP0A*EMM2*U(1)
  - 128/3*QL**2*PP0A*EMM2*U(2) + 320*QL**2*EMM1*U(1) + 352/3*QL**2
  *EMM1*U(2) + 256/9*QL**2*EMM1*U(3) + 256/3*QL**2*EMM3*PP0A2*U(1)
   + 16*ECM*U(2) + 32*ECM*U(3) - 96*P0*U(1) - 128*P0*U(2)
  - 128/3*P0*U(3) + 32*PP0A*U(1) + 48*PP0A*U(2) )
 
 + FA(1)*VT2*KLP2*ALOGD
  * ( - 64*QL*U(1) + 16*ECM*P0*QLM1*U(2) - 16*ECM*PP0A*QLM1*U(2)
  + 16*ECM*U(2) - 32/3*ECM*U(3) + 32*P0*PP0A*QLM1*U(1) - 64*P0*U(1)
   + 32*PP0A*U(1) - 16*QLM1*PP0A2*U(1) )
 
 + FA(1)*VT2*KLP2*ALOGE
  * ( - 192*QL*P0*PP0A*EMM2 + 128*QL*P0*EMM1 + 64*QL*P0*EMM3*PP0A2
   - 320*QL**2*PP0A*EMM2 - 256/3*QL**2*PP0A**3*EMM4 + 512/3*QL**2*EMM1
   + 704/3*QL**2*EMM3*PP0A2 )
 
 + FA(1)*VT2*KL
  * ( 128*QL*ECM*U(1) + 160*QL*ECM*U(2) - 64*QL*ECM*U(3) + 256*QL*P0
  *PP0A*EMM1*U(1) - 448*QL*P0*U(1) - 32*QL*P0*U(2) + 1408/3*QL**2*PP0A
  *EMM1*U(1) + 128*QL**2*PP0A*EMM1*U(2) - 256*QL**2*EMM2*PP0A2*U(1)
   - 288*QL**2*U(1) + 32*QL**2*U(2) + 64/3*QL**2*U(3) + 64*ECM*P0*U(2)
   - 128/3*ECM*P0*U(3) - 48*ECM*PP0A*U(2) - 128*P0*PP0A*U(1)
  - 192*P0*PP0A*U(2) )
 
 + FA(1)*VT2*KL*ALOGD
  * ( 64*QL*ECM*U(1) - 64*QL*ECM*U(2) + 64*QL*P0*U(1) - 64*QL*PP0A
  *U(1) + 64*QL**2*U(1) + 48*ECM*P0*PP0A*QLM1*U(2) + 64*ECM*P0*U(1)
   - 32*ECM*P0*U(2) + 32*ECM*P0*U(3) - 32*ECM*PP0A*U(1) - 64*P0*PP0A
  *U(1) + 48*P0*QLM1*PP0A2*U(1) )
 
 + FA(1)*VT2*KL*ALOGE
  * ( - 192*QL*P0 + 512*QL*P0*PP0A*EMM1 - 256*QL*P0*EMM2*PP0A2
  - 128*QL**2 + 448*QL**2*PP0A*EMM1 + 256*QL**2*PP0A**3*EMM3
  - 1408/3*QL**2*EMM2*PP0A2 )
 
 + FA(1)*VT2*ALOGD
  * ( - 64*QL*ECM*P0*U(1) + 112*QL*ECM*P0*U(2) - 64*QL*ECM*PP0A*U(2)
   + 32*QL*P0*PP0A*U(1) - 64*QL*PP0A2*U(1) - 192*QL**2*ECM*U(1)
  + 16*QL**2*ECM*U(2) - 128/3*QL**2*ECM*U(3) + 32*QL**2*PP0A*U(1)
  + 96*ECM*P0*PP0A*U(1) )
 
 + FA(1)*VT2*ALOGE
  * ( - 320*QL*P0*PP0A + 320*QL*P0*EMM1*PP0A2 + 128*QL**2*ECM
  - 256*QL**2*PP0A - 256*QL**2*PP0A**3*EMM2 + 704/3*QL**2*EMM1*PP0A2 )
 
 + FA(2)
  * ( 192*QL*U(1) - 96*QL*U(2) - 64*QL**2*EMM1*U(1) - 80*ECM*U(2)
  + 96*ECM*U(3) - 128*P0*PP0A*EMM1*U(1) + 128*P0*U(1) - 32*P0*U(2)
   + 64*P0*U(3) - 32*PP0A*U(1) + 112*PP0A*U(2) + 192*EMM1*PP0A2*U(1) )
 
 + FA(2)*KLM1
  * ( - 128*QL*ECM*U(1) - 416/3*QL*ECM*U(3) + 96*QL*P0*U(2)
  - 160*QL**2*U(1) - 352/9*QL**2*U(3) + 48*ECM*P0*U(2) - 64*ECM*PP0A
  *U(2) + 32*P0*PP0A*U(1) + 48*PP0A2*U(1) )
 
 + FA(2)*KLM1*ALOGD
  * ( - 144*QL*ECM*U(2) + 64*QL*P0*U(1) + 32/3*QL*P0*U(3)
  - 32*QL*PP0A*U(1) - 32*QL**2*U(2) + 48*ECM*P0*PP0A*QLM1*U(2)
  + 64*ECM*P0*U(1) + 256/3*ECM*P0*U(3) - 32*ECM*PP0A*U(1)
  - 32*P0*QLM1*PP0A2*U(1) )
 
 + FA(2)*KLM1*ALOGE
  * ( 64*QL*P0 + 128*QL*PP0A - 64*QL**2*PP0A*EMM1 - 64*P0*EMM1*PP0A2
   + 64*PP0A**3*EMM1 )
 
 + FA(2)*KLP2
  * ( - 192*PP0A*EMM2*U(1) - 32*PP0A*EMM2*U(2) + 224*EMM1*U(1)
  + 96*EMM1*U(2) + 64/3*EMM1*U(3) + 64*EMM3*PP0A2*U(1) )
 
 + FA(2)*KLP2*DIFF
  * ( 64*QL*U(1) - 16*ECM*P0*QLM1*U(2) + 16*ECM*PP0A*QLM1*U(2)
  - 16*ECM*U(2) + 32/3*ECM*U(3) - 32*P0*PP0A*QLM1*U(1) + 64*P0*U(1)
   - 32*PP0A*U(1) + 16*QLM1*PP0A2*U(1) )
 
 + FA(2)*KLP2*ALOGD
  * ( - 32*QLM1*U(1) - 16/3*QLM1*U(3) )
 
 + FA(2)*KLP2*ALOGE
  * ( - 224*PP0A*EMM2 - 64*PP0A**3*EMM4 + 96*EMM1 + 192*EMM3*PP0A2 )
 
 + FA(2)*KLP2*DIFP
  * ( - 256/3*QL**2*PP0A*EMM2 + 128/3*QL**2*EMM1 + 128/3*QL**2*EMM3
  *PP0A2 )
 
 + FA(2)*VT
  * ( 384*QL*U(1) - 192*QL*U(2) - 128*QL**2*EMM1*U(1) - 224*ECM*U(2)
   + 192*ECM*U(3) - 512*P0*PP0A*EMM1*U(1) + 256*P0*U(1) - 128*P0*U(2)
   + 128*P0*U(3) - 64*PP0A*U(1) + 224*PP0A*U(2) + 384*EMM1*PP0A2*U(1) )
 
 + FA(2)*VT*KLM1
  * ( - 256*QL*ECM*U(1) - 832/3*QL*ECM*U(3) + 192*QL*P0*U(2)
  - 64*QL**2*U(1) - 704/9*QL**2*U(3) + 192*ECM*P0*U(2) - 128*ECM*PP0A
  *U(2) + 128*P0*PP0A*U(1) + 96*PP0A2*U(1) )
 
 + FA(2)*VT*KLM1*ALOGD
  * ( - 320*QL*ECM*U(2) + 64/3*QL*P0*U(3) - 128*QL*PP0A*U(1)
  - 64*QL**2*U(2) + 96*ECM*P0*PP0A*QLM1*U(2) + 128*ECM*P0*U(1)
  + 512/3*ECM*P0*U(3) - 64*ECM*PP0A*U(1) - 64*P0*QLM1*PP0A2*U(1) )
 
 + FA(2)*VT*KLM1*ALOGE
  * ( 128*QL*P0 + 256*QL*PP0A - 128*QL**2*PP0A*EMM1 - 256*P0*EMM1*PP0A2
   + 128*PP0A**3*EMM1 )
 
 + FA(2)*VT*KLP2
  * ( - 384*PP0A*EMM2*U(1) - 64*PP0A*EMM2*U(2) + 320*EMM1*U(1)
  + 192*EMM1*U(2) + 128/3*EMM1*U(3) + 128*EMM3*PP0A2*U(1) )
 
 + FA(2)*VT*KLP2*DIFF
  * ( - 32*ECM*P0*QLM1*U(2) + 32*ECM*PP0A*QLM1*U(2) - 32*ECM*U(2)
  + 64/3*ECM*U(3) - 64*P0*PP0A*QLM1*U(1) - 64*PP0A*U(1) + 32*QLM1*PP0A2
  *U(1) )
 
 + FA(2)*VT*KLP2*ALOGD
  * ( - 32/3*QLM1*U(3) )
 
 + FA(2)*VT*KLP2*ALOGE
  * ( - 320*PP0A*EMM2 - 128*PP0A**3*EMM4 + 64*EMM1 + 384*EMM3*PP0A2 )
 
 + FA(2)*VT*KLP2*DIFP
  * ( - 512/3*QL**2*PP0A*EMM2 + 256/3*QL**2*EMM1 + 256/3*QL**2*EMM3
  *PP0A2 )
 
 + FA(2)*VT*KL
  * ( - 128*QL*EMM1*U(1) - 256/3*QL**2*EMM2*U(1) + 256*P0*PP0A*EMM2
  *U(1) - 384*P0*EMM1*U(1) - 128*P0*EMM1*U(2) + 768*PP0A*EMM1*U(1)
   + 192*PP0A*EMM1*U(2) - 384*EMM2*PP0A2*U(1) + 128*U(1) + 192*U(2)
   - 256/3*U(3) )
 
 + FA(2)*VT*KL*DIFF
  * ( 96*QL*ECM*U(2) + 64*QL*PP0A*U(1) - 64*ECM*P0*PP0A*QLM1*U(2)
  + 32*ECM*P0*U(2) - 128/3*ECM*P0*U(3) + 64*ECM*PP0A*U(1)
  + 64*P0*PP0A*U(1) - 64*P0*QLM1*PP0A2*U(1) )
 
 + FA(2)*VT*KL*ALOGD
  * ( - 80*ECM*QLM1*U(2) + 64*ECM*QLM1*U(3) - 64*P0*QLM1*U(2)
  + 32*P0*QLM1*U(3) - 160*PP0A*QLM1*U(1) + 96*PP0A*QLM1*U(2)
  - 96*U(2) )
 
 + FA(2)*VT*KL*ALOGE
  * ( 128*QL*PP0A*EMM2 + 512/3*QL**2*PP0A*EMM3 - 512/3*QL**2*EMM2
  + 384*P0*PP0A*EMM2 - 64*P0*EMM1 - 256*P0*EMM3*PP0A2 + 320*PP0A*EMM1
   + 384*PP0A**3*EMM3 - 768*EMM2*PP0A2 )
 
 + FA(2)*VT*KL*DIFP
  * ( - 128*QL*P0 + 128*QL*P0*PP0A*EMM1 + 512/3*QL**2*PP0A*EMM1
  - 512/3*QL**2*EMM2*PP0A2 )
 
 + FA(2)*VT*DIFF
  * ( - 64*QL*ECM*P0*U(2) + 32*QL*ECM*PP0A*U(2) + 32*QL*PP0A2*U(1)
   + 64/3*QL**2*ECM*U(3) - 64*ECM*P0*PP0A*U(1) )
 
 + FA(2)*VT*ALOGD
  * ( - 64*QL*U(1) - 128/3*QL*U(3) + 144*ECM*P0*QLM1*U(2)
  - 320/3*ECM*P0*QLM1*U(3) - 160*ECM*PP0A*QLM1*U(2) + 176*ECM*U(2)
   - 512/3*ECM*U(3) + 160*P0*PP0A*QLM1*U(1) - 160*P0*PP0A*QLM1*U(2)
   - 64*P0*U(1) + 96*P0*U(2) + 32*PP0A*U(1) - 64*QLM1*PP0A2*U(1) )
 
 + FA(2)*VT*ALOGE
  * ( 64*QL*P0*EMM1 - 384*QL*PP0A*EMM1 - 128/3*QL**2*PP0A*EMM2
  - 320/3*QL**2*EMM1 - 384*P0*PP0A*EMM1 + 512*P0*EMM2*PP0A2
  - 384*PP0A**3*EMM2 + 384*EMM1*PP0A2 )
 
 + FA(2)*VT*DIFP
  * ( - 128*QL*P0*PP0A + 256/3*QL**2*EMM1*PP0A2 )
 
 + FA(2)*KL
  * ( - 64*QL*EMM1*U(1) - 128/3*QL**2*EMM2*U(1) + 64*P0*PP0A*EMM2*U(1)
   - 128*P0*EMM1*U(1) - 32*P0*EMM1*U(2) + 384*PP0A*EMM1*U(1)
  + 96*PP0A*EMM1*U(2) - 192*EMM2*PP0A2*U(1) + 64*U(1) + 64*U(2)
  - 128/3*U(3) )
 
 + FA(2)*KL*DIFF
  * ( - 64*QL*ECM*U(1) + 48*QL*ECM*U(2) + 32*QL*PP0A*U(1)
  - 32*ECM*P0*PP0A*QLM1*U(2) - 64*ECM*P0*U(1) + 16*ECM*P0*U(2)
  - 64/3*ECM*P0*U(3) + 32*ECM*PP0A*U(1) + 32*P0*PP0A*U(1)
  - 32*P0*QLM1*PP0A2*U(1) )
 
 + FA(2)*KL*ALOGD
  * ( - 40*ECM*QLM1*U(2) + 32*ECM*QLM1*U(3) + 32*P0*QLM1*U(1)
  - 32*P0*QLM1*U(2) + 16*P0*QLM1*U(3) - 80*PP0A*QLM1*U(1)
  + 48*PP0A*QLM1*U(2) + 64*U(1) - 48*U(2) )
 
 + FA(2)*KL*ALOGD*ALOGE
  * ( 64*QL*EMM1 + 64*P0*EMM1 )
 
 + FA(2)*KL*ALOGE
  * ( 64*QL*PP0A*EMM2 - 128*QL*EMM1 + 256/3*QL**2*PP0A*EMM3
  - 256/3*QL**2*EMM2 + 128*P0*PP0A*EMM2 - 160*P0*EMM1 - 64*P0*EMM3
  *PP0A2 + 224*PP0A*EMM1 + 192*PP0A**3*EMM3 - 384*EMM2*PP0A2 )
 
 + FA(2)*KL*DIFP
  * ( - 64*QL*P0 + 64*QL*P0*PP0A*EMM1 + 256/3*QL**2*PP0A*EMM1
  - 256/3*QL**2*EMM2*PP0A2 )
 
 + FA(2)*DIFF
  * ( - 32*QL*ECM*P0*U(2) + 16*QL*ECM*PP0A*U(2) + 16*QL*PP0A2*U(1)
   + 64*QL**2*ECM*U(1) + 32/3*QL**2*ECM*U(3) - 32*ECM*P0*PP0A*U(1) )
 
 + FA(2)*ALOGD
  * ( - 96*QL*U(1) - 64/3*QL*U(3) + 56*ECM*P0*QLM1*U(2) - 160/3*ECM
  *P0*QLM1*U(3) - 80*ECM*PP0A*QLM1*U(2) - 128*ECM*U(1) + 88*ECM*U(2)
   - 256/3*ECM*U(3) + 48*P0*PP0A*QLM1*U(1) - 80*P0*PP0A*QLM1*U(2)
  - 32*P0*U(1) + 48*P0*U(2) + 16*PP0A*U(1) - 32*QLM1*PP0A2*U(1) )
 
 + FA(2)*ALOGE
  * ( 128*QL + 32*QL*P0*EMM1 - 192*QL*PP0A*EMM1 - 64/3*QL**2*PP0A*EMM2
   - 160/3*QL**2*EMM1 - 128*P0*PP0A*EMM1 + 128*P0*EMM2*PP0A2
  - 192*PP0A**3*EMM2 + 192*EMM1*PP0A2 )
 
 + FA(2)*DIFP
  * ( - 64*QL*P0*PP0A + 64*QL**2*ECM + 128/3*QL**2*EMM1*PP0A2 )
 
 + FA(2)*VT2
  * ( 192*QL*U(1) - 96*QL*U(2) - 64*QL**2*EMM1*U(1) - 144*ECM*U(2)
   + 96*ECM*U(3) - 384*P0*PP0A*EMM1*U(1) + 128*P0*U(1) - 96*P0*U(2)
   + 64*P0*U(3) - 32*PP0A*U(1) + 112*PP0A*U(2) + 192*EMM1*PP0A2*U(1) )
 
 + FA(2)*VT2*KLM1
  * ( - 128*QL*ECM*U(1) - 416/3*QL*ECM*U(3) + 96*QL*P0*U(2)
  - 160*QL**2*U(1) - 352/9*QL**2*U(3) + 144*ECM*P0*U(2) - 64*ECM*PP0A
  *U(2) + 96*P0*PP0A*U(1) + 48*PP0A2*U(1) )
 
 + FA(2)*VT2*KLM1*ALOGD
  * ( - 176*QL*ECM*U(2) + 64*QL*P0*U(1) + 32/3*QL*P0*U(3)
  - 96*QL*PP0A*U(1) - 32*QL**2*U(2) + 48*ECM*P0*PP0A*QLM1*U(2)
  + 64*ECM*P0*U(1) + 256/3*ECM*P0*U(3) - 32*ECM*PP0A*U(1)
  - 32*P0*QLM1*PP0A2*U(1) )
 
 + FA(2)*VT2*KLM1*ALOGE
  * ( 64*QL*P0 + 128*QL*PP0A - 64*QL**2*PP0A*EMM1 - 192*P0*EMM1*PP0A2
   + 64*PP0A**3*EMM1 )
 
 + FA(2)*VT2*KLP2
  * ( - 192*PP0A*EMM2*U(1) - 32*PP0A*EMM2*U(2) + 224*EMM1*U(1)
  + 96*EMM1*U(2) + 64/3*EMM1*U(3) + 64*EMM3*PP0A2*U(1) )
 
 + FA(2)*VT2*KLP2*DIFF
  * ( 64*QL*U(1) - 16*ECM*P0*QLM1*U(2) + 16*ECM*PP0A*QLM1*U(2)
  - 16*ECM*U(2) + 32/3*ECM*U(3) - 32*P0*PP0A*QLM1*U(1) + 64*P0*U(1)
   - 32*PP0A*U(1) + 16*QLM1*PP0A2*U(1) )
 
 + FA(2)*VT2*KLP2*ALOGD
  * ( - 32*QLM1*U(1) - 16/3*QLM1*U(3) )
 
 + FA(2)*VT2*KLP2*ALOGE
  * ( - 224*PP0A*EMM2 - 64*PP0A**3*EMM4 + 96*EMM1 + 192*EMM3*PP0A2 )
 
 + FA(2)*VT2*KLP2*DIFP
  * ( - 256/3*QL**2*PP0A*EMM2 + 128/3*QL**2*EMM1 + 128/3*QL**2*EMM3
  *PP0A2 )
 
 + FA(2)*VT2*KL
  * ( - 64*QL*EMM1*U(1) - 128/3*QL**2*EMM2*U(1) + 192*P0*PP0A*EMM2
  *U(1) - 256*P0*EMM1*U(1) - 96*P0*EMM1*U(2) + 384*PP0A*EMM1*U(1)
  + 96*PP0A*EMM1*U(2) - 192*EMM2*PP0A2*U(1) - 64*U(1) + 128*U(2)
  - 128/3*U(3) )
 
 + FA(2)*VT2*KL*DIFF
  * ( - 64*QL*ECM*U(1) + 48*QL*ECM*U(2) + 32*QL*PP0A*U(1)
  - 32*ECM*P0*PP0A*QLM1*U(2) - 64*ECM*P0*U(1) + 16*ECM*P0*U(2)
  - 64/3*ECM*P0*U(3) + 32*ECM*PP0A*U(1) + 32*P0*PP0A*U(1)
  - 32*P0*QLM1*PP0A2*U(1) )
 
 + FA(2)*VT2*KL*ALOGD
  * ( - 40*ECM*QLM1*U(2) + 32*ECM*QLM1*U(3) + 96*P0*QLM1*U(1)
  - 32*P0*QLM1*U(2) + 16*P0*QLM1*U(3) - 80*PP0A*QLM1*U(1)
  + 48*PP0A*QLM1*U(2) + 128*U(1) - 48*U(2) )
 
 + FA(2)*VT2*KL*ALOGD*ALOGE
  * ( - 64*QL*EMM1 - 64*P0*EMM1 )
 
 + FA(2)*VT2*KL*ALOGE
  * ( 64*QL*PP0A*EMM2 + 256/3*QL**2*PP0A*EMM3 - 256/3*QL**2*EMM2
  + 256*P0*PP0A*EMM2 - 32*P0*EMM1 - 192*P0*EMM3*PP0A2 + 224*PP0A*EMM1
   + 192*PP0A**3*EMM3 - 384*EMM2*PP0A2 )
 
 + FA(2)*VT2*KL*DIFP
  * ( - 64*QL*P0 + 64*QL*P0*PP0A*EMM1 + 256/3*QL**2*PP0A*EMM1
  - 256/3*QL**2*EMM2*PP0A2 )
 
 + FA(2)*VT2*DIFF
  * ( - 32*QL*ECM*P0*U(2) + 16*QL*ECM*PP0A*U(2) + 16*QL*PP0A2*U(1)
   + 64*QL**2*ECM*U(1) + 32/3*QL**2*ECM*U(3) - 32*ECM*P0*PP0A*U(1) )
 
 + FA(2)*VT2*ALOGD
  * ( - 96*QL*U(1) - 64/3*QL*U(3) + 88*ECM*P0*QLM1*U(2) - 160/3*ECM
  *P0*QLM1*U(3) - 80*ECM*PP0A*QLM1*U(2) - 128*ECM*U(1) + 88*ECM*U(2)
   - 256/3*ECM*U(3) + 112*P0*PP0A*QLM1*U(1) - 80*P0*PP0A*QLM1*U(2)
   - 32*P0*U(1) + 48*P0*U(2) + 16*PP0A*U(1) - 32*QLM1*PP0A2*U(1) )
 
 + FA(2)*VT2*ALOGE
  * ( 128*QL + 32*QL*P0*EMM1 - 192*QL*PP0A*EMM1 - 64/3*QL**2*PP0A*EMM2
   - 160/3*QL**2*EMM1 - 256*P0*PP0A*EMM1 + 384*P0*EMM2*PP0A2
  - 192*PP0A**3*EMM2 + 192*EMM1*PP0A2 )
 
 + FA(2)*VT2*DIFP
  * ( - 64*QL*P0*PP0A + 64*QL**2*ECM + 128/3*QL**2*EMM1*PP0A2 )
 
 + FA(4)*KLM1
  * ( - 112*U(1) - 208/3*U(3) )
 
 + FA(4)*KLM1*ALOGD
  * ( - 32*ECM*QLM1*U(2) + 64*P0*QLM1*U(1) + 128/3*P0*QLM1*U(3)
  - 16*PP0A*QLM1*U(1) - 64*U(2) )
 
 - 32*FA(4)*KLM1*ALOGD*ALOGE
 
 + FA(4)*KLM1*ALOGE
  * ( 32*P0*EMM1 )
 
 + FA(4)*KLP2*DIFF
  * ( 32*QLM1*U(1) + 16/3*QLM1*U(3) )
 
 + FA(4)*KLP2*DIFP
  * ( - 64*PP0A*EMM2 + 32*EMM1 + 32*EMM3*PP0A2 )
 
 + FA(4)*VT
  * ( 128*EMM1*U(1) )
 
 + FA(4)*VT*KLM1
  * ( - 352*U(1) - 416/3*U(3) )
 
 + FA(4)*VT*KLM1*ALOGD
  * ( - 128*ECM*QLM1*U(2) + 192*P0*QLM1*U(1) + 256/3*P0*QLM1*U(3)
  - 64*PP0A*QLM1*U(1) - 128*U(2) )
 
 - 64*FA(4)*VT*KLM1*ALOGD*ALOGE
 
 + FA(4)*VT*KLM1*ALOGE
  * ( 128*P0*EMM1 + 128*PP0A*EMM1 )
 
 + FA(4)*VT*KLP2*DIFF
  * ( 32/3*QLM1*U(3) )
 
 + FA(4)*VT*KLP2*DIFP
  * ( - 128*PP0A*EMM2 + 64*EMM1 + 64*EMM3*PP0A2 )
 
 + FA(4)*VT*KL
  * ( - 64*EMM2*U(1) )
 
 + FA(4)*VT*KL*DIFF
  * ( 64*ECM*QLM1*U(2) - 32/3*ECM*QLM1*U(3) - 64*P0*QLM1*U(1)
  - 64/3*P0*QLM1*U(3) + 128*PP0A*QLM1*U(1) - 16*PP0A*QLM1*U(2)
  - 64*U(1) + 32*U(2) )
 
 + FA(4)*VT*KL*ALOGE
  * ( 128*PP0A*EMM3 - 128*EMM2 )
 
 + FA(4)*VT*KL*DIFP
  * ( 128*P0*PP0A*EMM2 - 128*P0*EMM1 + 128*PP0A*EMM1 - 128*EMM2*PP0A2 )
 
 + FA(4)*VT*DIFF
  * ( 32/3*QL*U(3) - 32*ECM*P0*QLM1*U(2) + 32*ECM*PP0A*QLM1*U(2)
  + 64*ECM*U(1) + 32*ECM*U(3) - 64*P0*PP0A*QLM1*U(1) - 32*P0*U(2)
  + 16*QLM1*PP0A2*U(1) )
 
 + FA(4)*VT*ALOGD
  * ( - 128*QLM1*U(1) + 96*QLM1*U(2) - 256/3*QLM1*U(3) )
 
 + FA(4)*VT*ALOGD*ALOGE
  * ( 32*P0*EMM1*QLM1 + 32*EMM1 )
 
 + FA(4)*VT*ALOGE
  * ( 128*P0*EMM2 - 256*PP0A*EMM2 - 64*EMM1 )
 
 + FA(4)*VT*DIFP
  * ( 128*QL - 64/3*QL**2*EMM1 - 128*P0*PP0A*EMM1 + 64*EMM1*PP0A2 )
 
 + FA(4)*KL
  * ( - 32*EMM2*U(1) )
 
 + FA(4)*KL*DIFF
  * ( 24*ECM*QLM1*U(2) - 16/3*ECM*QLM1*U(3) - 32*P0*QLM1*U(1)
  - 32/3*P0*QLM1*U(3) + 48*PP0A*QLM1*U(1) - 8*PP0A*QLM1*U(2)
  - 32*U(1) + 16*U(2) )
 
 + FA(4)*KL*ALOGD*ALOGE
  * ( 32*EMM1*QLM1 )
 
 + FA(4)*KL*ALOGE
  * ( 64*PP0A*EMM3 - 64*EMM2 )
 
 + FA(4)*KL*DIFP
  * ( 32*P0*PP0A*EMM2 - 32*P0*EMM1 + 64*PP0A*EMM1 - 64*EMM2*PP0A2 )
 
 + FA(4)*DIFF
  * ( 32*QL*U(1) + 16/3*QL*U(3) - 8*ECM*P0*QLM1*U(2) + 16*ECM*PP0A
  *QLM1*U(2) + 32*ECM*U(1) + 16*ECM*U(3) - 16*P0*PP0A*QLM1*U(1)
  - 16*P0*U(2) + 8*QLM1*PP0A2*U(1) )
 
 + FA(4)*ALOGD
  * ( - 80*QLM1*U(1) + 24*QLM1*U(2) - 128/3*QLM1*U(3) )
 
 + FA(4)*ALOGD*ALOGE
  * ( 16*P0*EMM1*QLM1 + 16*EMM1 )
 
 + FA(4)*ALOGE
  * ( 32*P0*EMM2 - 64*PP0A*EMM2 )
 
 + FA(4)*DIFP
  * ( 64*QL - 32/3*QL**2*EMM1 - 32*P0*PP0A*EMM1 + 32*EMM1*PP0A2 )
 
 + FA(4)*VT2
  * ( 128*EMM1*U(1) )
 
 + FA(4)*VT2*KLM1
  * ( - 240*U(1) - 208/3*U(3) )
 
 + FA(4)*VT2*KLM1*ALOGD
  * ( - 96*ECM*QLM1*U(2) + 128*P0*QLM1*U(1) + 128/3*P0*QLM1*U(3)
  - 48*PP0A*QLM1*U(1) - 64*U(2) )
 
 - 32*FA(4)*VT2*KLM1*ALOGD*ALOGE
 
 + FA(4)*VT2*KLM1*ALOGE
  * ( 96*P0*EMM1 + 128*PP0A*EMM1 )
 
 + FA(4)*VT2*KLP2*DIFF
  * ( 32*QLM1*U(1) + 16/3*QLM1*U(3) )
 
 + FA(4)*VT2*KLP2*DIFP
  * ( - 64*PP0A*EMM2 + 32*EMM1 + 32*EMM3*PP0A2 )
 
 + FA(4)*VT2*KL
  * ( - 32*EMM2*U(1) )
 
 + FA(4)*VT2*KL*DIFF
  * ( 40*ECM*QLM1*U(2) - 16/3*ECM*QLM1*U(3) - 32*P0*QLM1*U(1)
  - 32/3*P0*QLM1*U(3) + 80*PP0A*QLM1*U(1) - 8*PP0A*QLM1*U(2)
  - 32*U(1) + 16*U(2) )
 
 + FA(4)*VT2*KL*ALOGD*ALOGE
  * ( - 32*EMM1*QLM1 )
 
 + FA(4)*VT2*KL*ALOGE
  * ( 64*PP0A*EMM3 - 64*EMM2 )
 
 + FA(4)*VT2*KL*DIFP
  * ( 96*P0*PP0A*EMM2 - 96*P0*EMM1 + 64*PP0A*EMM1 - 64*EMM2*PP0A2 )
 
 + FA(4)*VT2*DIFF
  * ( 32*QL*U(1) + 16/3*QL*U(3) - 24*ECM*P0*QLM1*U(2) + 16*ECM*PP0A
  *QLM1*U(2) + 32*ECM*U(1) + 16*ECM*U(3) - 48*P0*PP0A*QLM1*U(1)
  - 16*P0*U(2) + 8*QLM1*PP0A2*U(1) )
 
 + FA(4)*VT2*ALOGD
  * ( - 48*QLM1*U(1) + 72*QLM1*U(2) - 128/3*QLM1*U(3) )
 
 + FA(4)*VT2*ALOGD*ALOGE
  * ( 16*P0*EMM1*QLM1 + 16*EMM1 )
 
 + FA(4)*VT2*ALOGE
  * ( 96*P0*EMM2 - 192*PP0A*EMM2 - 64*EMM1 )
 
 + FA(4)*VT2*DIFP
  * ( 64*QL - 32/3*QL**2*EMM1 - 96*P0*PP0A*EMM1 + 32*EMM1*PP0A2 )
 
 + FA(6)*KLM1*ALOGD*ALOGE
  * ( - 16*EMM1*QLM1 )
 
 + FA(6)*VT*KLM1*ALOGD*ALOGE
  * ( - 64*EMM1*QLM1 )
 
 + FA(6)*VT*DIFF
  * ( 48*QLM1*U(1) + 16*QLM1*U(3) )
 
 + FA(6)*VT*DIFP
  * ( 64*EMM1 )
 
 + FA(6)*DIFF
  * ( 8*QLM1*U(1) + 8*QLM1*U(3) )
 
 + FA(6)*VT2*KLM1*ALOGD*ALOGE
  * ( - 48*EMM1*QLM1 )
 
 + FA(6)*VT2*DIFF
  * ( 40*QLM1*U(1) + 8*QLM1*U(3) )
 
 + FA(6)*VT2*DIFP
  * ( 64*EMM1 ) + 0.
 

End run. Time 45 sec.
Schoonschip, 68000 version of June 27, 1991. Public version.
Date: Fri Aug  9 1991 00:50:08.  Memory: start 0001B84C, length 476348.


C Spinors 9. Electron neutrino scattering with bremsstrahlung (soft only).

> P stat
C  ELECTRON, NEUTRINO(MU)  ---  ELECTRON, NEUTRINO(MU), PHOTON.
C  APPROXIMATE CASE (NO K DEPENDENCE IN DELTA FUNCTION).
	V   Q,R,P,PP,K
	I   MU,AL,MUP,ALP
	F   DIA=u
	S   FACT,ME,VT
	S   QL,PL,KL,X,K0,PPL,PP0,SQRX,SQRZ,CSF,ECM,KAP
	B  FACT,VT,ME,INT
	X   VER(N)=1-(-1)**N
	X  COEF(N)=N
	X  POW(A,M)=A**M
	D  VERH(M,N,XMA,X,A) = (POW(A,N-M+1)/XMA+POW(A,N-M)*DS(J,0,N-1,(X**J/
	          A**J))),
	      (POW(A,N-M+2)/XMA**2 + POW(A,N-M+1)*N/XMA
	          + POW(A,N-M)*DS(K,0,N-2,(X**K/A**K*COEF(N-K-1))))
C  VERH = X**N/(X-A)**M
C   FACT=(2*PI)**-5*GG**6*SNT**2/(16*CST2*W0M**2)**2
	Z   AMPL2 = 0.5*FACT*DIA(MU,AL)*Conjg(DIA(MUP,AL)) *INT
C   0.5 FOR AVERAGING INITIAL ELECTRON SPIN. NOT SO FOR NEUTRINO.
L 2	Id  DIA(MU~,AL~) = Ubg(I1,0,R)*G(I1,MU)*G6(I1)*Ug(I1,0,Q)
	      *Ubg(I2,ME,PP)*(-i*PP(AL)/KDPP + i*P(AL)/KDP)*G(I2,MU)*(VT-G5(I2))
	      *Ug(I2,ME,P)
L 4	Id,Spin,I1,I2
L 5	Id,Trick,Trace,I1,I2
L13	Id   PDP=-ME**2
L13	Al   PPDPP=-ME**2
L13	Al   QDQ=0
L13	Al   RDR=0
L13	Al   KDK=0
	*yep

Terms in output 24
Running time 2 sec			Used	Maximum
Generated terms 144 	Input space 	2452 	100000
Equal terms 94     	Output space 	844 	250000
Cancellations 26   	Nr of expr.  	32 	255
Multiplications 2169	String space 	0 	4096
Records written 0 	Merging		0 	0

L 1	Id,R(MU~)=Q(MU)+P(MU)-PP(MU)
L 1	Al,Dotpr,R(MU~)=Q(MU)+P(MU)-PP(MU)
L 1	Al,Funct,R(MU~)=Q(MU)+P(MU)-PP(MU)
L 2	Id   PDP=-ME**2
L 2	Al   PPDPP=-ME**2
L 2	Al   QDQ=0
L 2	Al   KDK=0
	*yep

Terms out 24, in 24.

Terms in output 36
Running time 2 sec			Used	Maximum
Generated terms 66 	Input space 	1498 	100000
Equal terms 21     	Output space 	1152 	250000
Cancellations 9   	Nr of expr.  	25 	255
Multiplications 240	String space 	0 	4096
Records written 0 	Merging		0 	0

	B  FACT,VT,ME
L 1	Id  QDPP=-ME**2+QDP-PDPP
	*yep

Terms out 36, in 36.

Terms in output 48
Running time 2 sec			Used	Maximum
Generated terms 78 	Input space 	1092 	100000
Equal terms 27     	Output space 	1540 	250000
Cancellations 3   	Nr of expr.  	19 	255
Multiplications 198	String space 	0 	4096
Records written 0 	Merging		0 	0

	B   PIF,FACT,PDK,PPDK
L 1	Id,QDP=-QL*ECM
L 1	Al   PDPP=-QL*PPL*X*Z-QL*PPL*SQRX*SQRZ*CSF -PP0*(ECM-QL)
L 3	Id   CSF**3=0.
L 3	Al   CSF**2*INT=PIF
L 3	Al   CSF**1=0
L 4	Id   INT=2*PIF
L 5	Id   SQRX**2=1-X**2
L 5	Al   SQRZ**2=1-Z**2
	*yep

Terms out 48, in 48.

Terms in output 236
Running time 3 sec			Used	Maximum
Generated terms 416 	Input space 	1720 	100000
Equal terms 180     	Output space 	7052 	250000
Cancellations 0   	Nr of expr.  	28 	255
Multiplications 3232	String space 	0 	4096
Records written 0 	Merging		0 	0

	S   PPDKN,PDKN
L 1	Id,FACT=FACT*KL*PPL/ECM*PI/4
L 2	Id,Multi,PPDK**-1=PPDKN**-1/PPL/KL
C  PPDKN=Z-PP0*K0/PPL/KL
L 3	Id,PPDKN**M~*Z**N~=VERH(-M,N,PPDKN,Z,BA)
L10	Id,PIF*PPDKN**-2=-PPL*KL*DIFZI*PI
C  DIFZI=1/(PPL*KL+PP0*K0) + 1/(PPL*KL-PP0*K0)
L10	Al,PIF*PPDKN**-1=ALOZI*PI
C  ALOZI=LOG((PP0*K0-PPL*KL)/(PP0*K0+PPL*KL))
L11	Id,PIF=PIF*Z
L12	Id,PIF*Z**N~=VER(N)/N*PI
L15	Id,BA=PP0*K0/PPL/KL
L16	Id,Multi,PP0**2=PPL**2+ME**2
	*yep

Terms out 236, in 236.

Terms in output 393
Running time 5 sec			Used	Maximum
Generated terms 456 	Input space 	2344 	100000
Equal terms 54     	Output space 	13654 	250000
Cancellations 9   	Nr of expr.  	33 	255
Multiplications 4616	String space 	0 	4096
Records written 0 	Merging		0 	0

L 1	Id,Multi,PDK**-1=-PDKN**-1/QL/KL
C  PDKN=X+P0*K0/(QL*KL)
L 2	Id,PDKN**M~*X**N~=VERH(-M,N,PDKN,X,BA)
L 9	Id,FACT=FACT*XIN
L10	Id,XIN*PDKN**-2=-QL*KL*DIFXI
C  DIFXI=1/(P0*K0+QL*KL)-1/(P0*K0-QL*KL)
L10	Al,XIN*PDKN**-1=ALOXI
C  ALOXI=LOG((P0*K0+QL*KL)/(P0*K0-QL*KL))
L11	Id,XIN=XIN*X
L12	Id,XIN*X**N~=VER(N)/N
L15	Id,BA=-P0*K0/QL/KL
L16	Id,K0=KL
	*yep

Terms out 393, in 393.

Terms in output 416
Running time 8 sec			Used	Maximum
Generated terms 545 	Input space 	2368 	100000
Equal terms 117     	Output space 	14324 	250000
Cancellations 12   	Nr of expr.  	33 	255
Multiplications 9279	String space 	0 	4096
Records written 0 	Merging		0 	0

	B   DIFZI,ALOZI,DIFXI,ALOXI,FACT,PI,ME
L 1	Id,P0=ECM-QL
L 1	Al,PP0=ECM-QL
L 1	Al,PPL=QL
L 1	Al,Multi,PPL**-1=QL**-1
L 2	Id,5,Once,ECM**2=2.*ECM*QL+ME**2
	*yep

Terms out 416, in 416.

Terms in output 99
Running time 10 sec			Used	Maximum
Generated terms 1376 	Input space 	1430 	100000
Equal terms 1129     	Output space 	2980 	250000
Cancellations 148   	Nr of expr.  	28 	255
Multiplications 6295	String space 	0 	4096
Records written 0 	Merging		0 	0

	V   FA
	B  FA(2),FA(4),FA(6),FA(10),FA(1),DIFZI,ALOZI,DIFXI,ALOXI,KLM1
L 1	Id,FACT*PI**2*ME**N~=FA(N)
L 2	Id,FACT*PI**2=FA(1)
L 3	Id,ECM**2=ECM2
L 3	Al,ECM**3=ECM3
L 3	Al,ECM**4=ECM4
L 4	Id,ECM**-1=EMM1
L 4	Al,ECM**-2=EMM2
L 4	Al,ECM**-3=EMM3
L 4	Al,ECM**-4=EMM4
L 4	Al,ECM**-5=EMM5
L 4	Al,ECM**-6=EMM6
L 5	Id,KL**-1=KLM1
L 5	Al,VT**2=VT2
L 5	Al,QL**-1=QLM1
	*end

Terms out 99, in 99.

Terms in output 99
Running time 10 sec			Used	Maximum
Generated terms 99 	Input space 	1682 	100000
Equal terms 0     	Output space 	2774 	250000
Cancellations 0   	Nr of expr.  	34 	255
Multiplications 655	String space 	0 	4096
Records written 0 	Merging		0 	0

 
AMPL2 = 
 + FA(1)*KLM1
  * ( - 256/3*VT*QL^3*ECM + 1280/3*VT*QL^4 - 1024/9*VT*QL^5*EMM1
  - 896/3*QL^3*ECM - 896/3*QL^3*ECM*VT2 + 640/3*QL^4 + 640/3*QL^4*VT2
   - 512/9*QL^5*EMM1 - 512/9*QL^5*EMM1*VT2 )
 
 + FA(1)*ALOZI*KLM1
  * ( 384*VT*QL^3*ECM - 2048/3*VT*QL^4 + 512/3*VT*QL^5*EMM1
  + 64*QL^3*ECM + 64*QL^3*ECM*VT2 - 1024/3*QL^4 - 1024/3*QL^4*VT2
  + 256/3*QL^5*EMM1 + 256/3*QL^5*EMM1*VT2 )
 
 + FA(1)*ALOXI*KLM1
  * ( - 896/3*VT*QL^3*ECM + 512*VT*QL^4 - 512/3*VT*QL^5*EMM1
  - 64/3*QL^3*ECM - 64/3*QL^3*ECM*VT2 + 256*QL^4 + 256*QL^4*VT2
  - 256/3*QL^5*EMM1 - 256/3*QL^5*EMM1*VT2 )
 
 + FA(2)*KLM1
  * ( - 256*VT*QL^2 + 512/3*VT*QL^3*EMM1 - 64*QL*ECM + 64*QL*ECM*VT2
   - 256*QL^2*VT2 + 64/3*QL^3*EMM1 + 448/3*QL^3*EMM1*VT2 )
 
 + FA(2)*DIFZI
  * ( 64*VT*QL^2*ECM - 256*VT*QL^3 + 256/3*VT*QL^4*EMM1 + 96*QL^2*ECM
   + 96*QL^2*ECM*VT2 - 128*QL^3 - 128*QL^3*VT2 + 128/3*QL^4*EMM1
  + 128/3*QL^4*EMM1*VT2 )
 
 + FA(2)*ALOZI*KLM1
  * ( - 128/3*VT*QL^2 - 640/3*VT*QL^3*EMM1 - 640/3*QL^2 - 256/3*QL^2
  *VT2 - 128/3*QL^3*EMM1 - 512/3*QL^3*EMM1*VT2 )
 
 + FA(2)*DIFXI
  * ( 64*VT*QL^2*ECM - 256*VT*QL^3 + 256/3*VT*QL^4*EMM1 + 96*QL^2*ECM
   + 96*QL^2*ECM*VT2 - 128*QL^3 - 128*QL^3*VT2 + 128/3*QL^4*EMM1
  + 128/3*QL^4*EMM1*VT2 )
 
 + FA(2)*ALOXI*KLM1
  * ( 128*VT*QL*ECM - 640/3*VT*QL^2 + 128*VT*QL^3*EMM1 + 32*QL*ECM
   + 96*QL*ECM*VT2 + 448/3*QL^2 - 320/3*QL^2*VT2 + 128*QL^3*EMM1*VT2 )
 
 + FA(4)*KLM1
  * ( - 256*VT*QL*EMM1 - 256*QL*EMM1*VT2 )
 
 + FA(4)*DIFZI
  * ( 128*VT*QL - 64*VT*QL^2*EMM1 - 64*VT*ECM + 128*QL*VT2
  - 64*QL^2*EMM1*VT2 - 64*ECM*VT2 )
 
 + FA(4)*ALOZI*KLM1
  * ( - 32 - 128*VT - 32*QL*EMM1 + 32*QL*EMM1*VT2 - 96*VT2 )
 
 + FA(4)*ALOZI*ALOXI*KLM1
  * ( - 64*VT + 64*VT*ECM*QLM1 + 48*ECM*VT2*QLM1 + 16*ECM*QLM1
  - 64*VT2 )
 
 + FA(4)*DIFXI
  * ( 128*VT*QL - 64*VT*QL^2*EMM1 - 64*VT*ECM + 128*QL*VT2
  - 64*QL^2*EMM1*VT2 - 64*ECM*VT2 )
 
 + FA(4)*ALOXI*KLM1
  * ( 32 + 128*VT - 128*VT*QL*EMM1 - 128*QL*EMM1*VT2 + 96*VT2 )
 
 + FA(6)*DIFZI
  * ( 64*VT*EMM1 + 64*EMM1*VT2 )
 
 + FA(6)*DIFXI
  * ( 64*VT*EMM1 + 64*EMM1*VT2 ) + 0.
 

End run. Time 11 sec.
Schoonschip, 68000 version of June 27, 1991. Public version.
Date: Fri Aug  9 1991 00:50:21.  Memory: start 0001B84C, length 476348.


C Spinors 10. Electron neutrino scattering w bremsstrahlung (Green's method).
C M. Green, J. Phys. G: Nucl Phys. 7(1981)1169. See also inv. muon decay.

> P stat

C Electron + Neutrino(mu) --> Electron + Neutrino(mu) + Photon.

C Momenta: P,q to p,r,k
  q,r neutrino's, P electron, p electron, k photon.
  M electron mass.
  ql is the length of the three-dimensional part of q.
  ql = E/2 - M**2/E/2

	V   r,q,p,P,k
	I   MU,AL,MUP,ALP
	F   DIA=u,LogX,LogY,LogYu,LogYp
	S   a,b,M,ql,X,Y,E

	B  X,Y

C   FACT=(2*PI)**-5*GG**6*SNT**2/(16*CST2*W0M**2)**2

	Z   Ampl2 = 0.5*DIA(MU,AL)*Conjg(DIA(MUP,AL))

C   0.5 FOR AVERAGING INITIAL ELECTRON SPIN. NOT SO FOR NEUTRINO.

L 2	Id DIA(MU~,AL~) = -Ubg(I1,0,r)*G(I1,MU)*G6(I1)*Ug(I1,0,q)
	    *Ubg(I2,M,p)*(
	    G(I2,AL)*(-i*G(I2,k)-i*G(I2,p)+M)/2/om/Y*G(I2,MU)
	             *(a*G6(I2)+b*G7(I2))
	   -G(I2,MU)*(a*G6(I2)+b*G7(I2))*(-i*G(I2,P)+i*G(I2,k)+M)/2/om/X*G(I2,AL)
	      )*Ug(I2,M,P)

L 5	Id,Spin,I1,I2
L 6	Id,Trick,Trace,I1,I2
L14	Id,PDP=-M**2
L14	Al,pDp=-M**2
L15	Id,qDq=0
L15	Al,rDr=0
L15	Al,kDk=0
L16	Id,Addfa,om**2
	*yep

Terms in output 34
Running time 12 sec			Used	Maximum
Generated terms 1856 	Input space 	2552 	100000
Equal terms 1321     	Output space 	1016 	250000
Cancellations 501   	Nr of expr.  	23 	255
Multiplications 32909	String space 	0 	4096
Records written 0 	Merging		0 	0


	B  X,Y

L 1	Id,r(MU~)=q(MU)+P(MU)-p(MU)-k(MU)
L 1	Al,Dotpr,r(MU~)=q(MU)+P(MU)-p(MU)-k(MU)
L 1	Al,Funct,r(MU~)=q(MU)+P(MU)-p(MU)-k(MU)
L 2	Id,qDq=0
L 2	Al,kDk=0
	*yep

Terms out 34, in 34.

Terms in output 106
Running time 12 sec			Used	Maximum
Generated terms 122 	Input space 	632 	100000
Equal terms 14     	Output space 	3026 	250000
Cancellations 2   	Nr of expr.  	13 	255
Multiplications 368	String space 	0 	4096
Records written 0 	Merging		0 	0


	B   PI,X,Y

L 1	Id,Addfa,PI/4/E/ql
L 2	Id,qDp = - PDp - om*Y + om*E + E*ql - E**2
L 3	Id,qDP = -ql*E
L 3	Al,PDP = 2*ql*E-E**2
L 3	Al,pDp = 2*ql*E-E**2
L 3	Al,qDk = om*(X-E)
L 3	Al,PDp = X*Y*(1-om/E) + Y*(ql-E) + X*{om + ql - E} - wt*CSF
L 3	Al,PDk = - om*X
L 3	Al,pDk = - om*Y

	*yep

Terms out 106, in 106.

Terms in output 392
Running time 16 sec			Used	Maximum
Generated terms 3559 	Input space 	1162 	100000
Equal terms 2867     	Output space 	11594 	250000
Cancellations 300   	Nr of expr.  	19 	255
Multiplications 14038	String space 	0 	4096
Records written 0 	Merging		0 	0

L 1	Id,CSF**1=0
L 1	Al,CSF**3=0.

L 2	IF NOT CSF**2=PI
L 3	Id,Addfa,2*PI
	ENDIF

L 4	Id,Multi,wt**2=(X-E)*(X-E+2*ql)*(Y-E)*
	 {Y*(E-2*om)-E*(E-2*ql)}/E

	*yep

Terms out 392, in 392.

Terms in output 305
Running time 17 sec			Used	Maximum
Generated terms 965 	Input space 	880 	100000
Equal terms 660     	Output space 	8810 	250000
Cancellations 0   	Nr of expr.  	16 	255
Multiplications 4620	String space 	0 	4096
Records written 0 	Merging		0 	0


L 1	IF NOT X**-1=LogX
	AND NOT X**-2=2*ql/M**2
	AND NOT X**n~=E**(n+1)/(n+1) - (E-2*ql)**(n+1)/(n+1)
L 3	Id,Addfa,2*ql
	ENDIF

	*yep

Terms out 305, in 305.

Terms in output 191
Running time 18 sec			Used	Maximum
Generated terms 877 	Input space 	630 	100000
Equal terms 596     	Output space 	5410 	250000
Cancellations 90   	Nr of expr.  	14 	255
Multiplications 3456	String space 	0 	4096
Records written 0 	Merging		0 	0


L 1	IF Y^n~
L 2	Id,Y**-1=LogY
L 2	Al,Y**-2=Sty*(1-2*om/E)/M**2
L 4	Id,Y**2={E**2-2*E*ql+4*ql**2/3 +
	 0.5*om*M**2*omMhE**-2/E*{4*(E-ql)*(E-om)-E**2}/3}*Sty
L 4	Al,Y**1={E-ql-0.5*om*(E-2*ql)*omMhE**-1}*Sty
	ELSE
L 2	Id,Addfa,Sty
	ENDIF

L 8	Id,Sty=2*ql+om*M**2*omMhE**-1/E

	*yep

Terms out 191, in 191.

Terms in output 383
Running time 20 sec			Used	Maximum
Generated terms 1047 	Input space 	1154 	100000
Equal terms 613     	Output space 	12148 	250000
Cancellations 51   	Nr of expr.  	15 	255
Multiplications 3976	String space 	0 	4096
Records written 0 	Merging		0 	0

L 1	IF NOT om**0*LogY=LogYp	!LogYp = Log(1-2*om/E)
L 2	Id,Addfa,1-soft
	ENDIF

L 3	Id,soft*om**n~=0
L 3	Al,soft=1
L 4	Id,Addfa,om**-1

	*yep

Terms out 383, in 383.

Terms in output 363
Running time 21 sec			Used	Maximum
Generated terms 403 	Input space 	466 	100000
Equal terms 20     	Output space 	11042 	250000
Cancellations 20   	Nr of expr.  	13 	255
Multiplications 3798	String space 	0 	4096
Records written 0 	Merging		0 	0

C LogYu = Log( E*(E-2*omu)/M**2 )
L 1	Id,om**n~*LogY=omu**(n+1)/(n+1)*LogYu - om**(n+1)/(n+1)*omMhE**-1
L 3	Id,Ratio,omMhE,om,hE
L 4	Id,hE=E/2
L 4	Al,Multi,hE**-1=2/E

	*yep

Terms out 363, in 363.

Terms in output 273
Running time 22 sec			Used	Maximum
Generated terms 833 	Input space 	742 	100000
Equal terms 545     	Output space 	7934 	250000
Cancellations 15   	Nr of expr.  	15 	255
Multiplications 3458	String space 	0 	4096
Records written 0 	Merging		0 	0

	B PI
L 1	IF NOT LogYp
	AND NOT LogYu
	AND NOT omMhE**-1=-LogX
	AND NOT omMhE**n~=(-2*E/M**2)**(-n-1)/(n+1)
	 - (-2/E)**(-n-1)/(n+1)
	AND NOT om**n~=omu**(n+1)/(n+1)
	AND NOT LogY=0.5*E*LogX - omu
L 3	Id,Addfa,omu
	ENDIF

	*yep

Terms out 273, in 273.

Terms in output 247
Running time 23 sec			Used	Maximum
Generated terms 335 	Input space 	806 	100000
Equal terms 88     	Output space 	7118 	250000
Cancellations 0   	Nr of expr.  	14 	255
Multiplications 1384	String space 	0 	4096
Records written 0 	Merging		0 	0

L 1	Id,omu=ql
L 1	Al,LogYu=0
L 1	Al,LogYp*om**-1=-Sp(tqldE)	! tqldE = 2*ql/E
L 2	Id,Multi,M**2=E**2-2*ql*E
> P output

	*yep

Terms out 247, in 247.

Terms in output 66
Running time 24 sec			Used	Maximum
Generated terms 651 	Input space 	394 	100000
Equal terms 574     	Output space 	1832 	250000
Cancellations 11   	Nr of expr.  	14 	255
Multiplications 2624	String space 	0 	4096
Records written 0 	Merging		0 	0

 
Ampl2 = 
 + Sp(tqldE)*PI^2
  * ( 640*a*b*ql*E^3 - 768*a*b*ql^2*E^2 - 256*a*b*ql^3*E + 512*a*b
  *ql^4 - 128*a*b*E^4 - 256*a^2*ql^2*E^2 + 256*a^2*ql^3*E
  + 1024*b^2*ql*E^3 - 4096/3*b^2*ql^2*E^2 + 768*b^2*ql^3*E
  - 512*b^2*ql^4 + 1024/3*b^2*ql^5*E^-1 - 256*b^2*E^4 )
 
 + PI^2
  * ( - 448*a*b*ql*E^3 + 1792*a*b*ql^2*E^2 - 3520*a*b*ql^3*E
  + 3456*a*b*ql^4 - 96*a^2*ql*E^3 + 448*a^2*ql^2*E^2 + 2528/3*a^2*ql^3
  *E + 224*b^2*ql*E^3 - 1088/3*b^2*ql^2*E^2 + 12448/9*b^2*ql^3*E
  - 29248/9*b^2*ql^4 + 73600/27*b^2*ql^5*E^-1 )
 
 + LogX*Sp(tqldE)*PI^2
  * ( 768*a*b*ql*E^3 - 512*a*b*ql^2*E^2 + 64*a*b*ql^-1*E^5
  - 384*a*b*E^4 + 1024*b^2*ql*E^3 - 512*b^2*ql^2*E^2 + 128*b^2*ql^-1
  *E^5 - 640*b^2*E^4 )
 
 + LogX*PI^2
  * ( - 2752*a*b*ql*E^3 + 4864*a*b*ql^2*E^2 - 3456*a*b*ql^3*E
  + 256*a*b*ql^4 + 576*a*b*E^4 - 608*a^2*ql*E^3 + 2432/3*a^2*ql^2*E^2
   - 512*a^2*ql^3*E + 96*a^2*E^4 - 1856/3*b^2*ql*E^3 + 11776/9*b^2
  *ql^2*E^2 + 512/3*b^2*ql^3*E - 1792*b^2*ql^4 + 5120/9*b^2*ql^5*E^-1
   + 32*b^2*E^4 )
 
 + LogX*LogX*PI^2
  * ( - 1984*a*b*ql*E^3 + 1408*a*b*ql^2*E^2 + 256*a*b*ql^3*E
  - 512*a*b*ql^4 - 176*a*b*ql^-1*E^5 + 992*a*b*E^4 - 544*a^2*ql*E^3
   + 640*a^2*ql^2*E^2 - 256*a^2*ql^3*E - 24*a^2*ql^-1*E^5
  + 192*a^2*E^4 - 1376*b^2*ql*E^3 + 4544/3*b^2*ql^2*E^2 - 768*b^2*ql^3
  *E + 512*b^2*ql^4 - 1024/3*b^2*ql^5*E^-1 - 72*b^2*ql^-1*E^5
  + 528*b^2*E^4 ) + 0.
 
	N 28,R23
L 1	Id,a=vt/2-1/2
L 1	Al,b=vt/2+1/2
	*end

Terms out 66, in 66.

Terms in output 81
Running time 24 sec			Used	Maximum
Generated terms 264 	Input space 	246 	100000
Equal terms 154     	Output space 	2112 	250000
Cancellations 29   	Nr of expr.  	11 	255
Multiplications 924	String space 	0 	4096
Records written 0 	Merging		0 	0

 
Ampl2 = 
 + Sp(tqldE)*PI^2
  * ( 96*ql*E^3 + 512*ql*E^3*vt + 416*ql*E^3*vt^2 - 640/3*ql^2*E^2
   - 1664/3*ql^2*E^2*vt - 1792/3*ql^2*E^2*vt^2 + 320*ql^3*E
  + 256*ql^3*E*vt + 192*ql^3*E*vt^2 - 256*ql^4 - 256*ql^4*vt
  + 256/3*ql^5*E^-1 + 512/3*ql^5*E^-1*vt + 256/3*ql^5*E^-1*vt^2
  - 32*E^4 - 128*E^4*vt - 96*E^4*vt^2 )
 
 + PI^2
  * ( 144*ql*E^3 + 160*ql*E^3*vt - 80*ql*E^3*vt^2 - 1280/3*ql^2*E^2
   - 1216/3*ql^2*E^2*vt + 1408/3*ql^2*E^2*vt^2 + 12928/9*ql^3*E
  + 2432/9*ql^3*E*vt - 2912/9*ql^3*E*vt^2 - 15088/9*ql^4 - 14624/9
  *ql^4*vt + 464/9*ql^4*vt^2 + 18400/27*ql^5*E^-1 + 36800/27*ql^5*E^-1
  *vt + 18400/27*ql^5*E^-1*vt^2 )
 
 + LogX*Sp(tqldE)*PI^2
  * ( 64*ql*E^3 + 512*ql*E^3*vt + 448*ql*E^3*vt^2 - 256*ql^2*E^2*vt
   - 256*ql^2*E^2*vt^2 + 16*ql^-1*E^5 + 64*ql^-1*E^5*vt + 48*ql^-1
  *E^5*vt^2 - 64*E^4 - 320*E^4*vt - 256*E^4*vt^2 )
 
 + LogX*PI^2
  * ( 1144/3*ql*E^3 - 16/3*ql*E^3*vt - 2984/3*ql*E^3*vt^2
  - 6176/9*ql^2*E^2 + 2240/9*ql^2*E^2*vt + 15712/9*ql^2*E^2*vt^2
  + 2336/3*ql^3*E + 1024/3*ql^3*E*vt - 2848/3*ql^3*E*vt^2
  - 512*ql^4 - 896*ql^4*vt - 384*ql^4*vt^2 + 1280/9*ql^5*E^-1
  + 2560/9*ql^5*E^-1*vt + 1280/9*ql^5*E^-1*vt^2 - 112*E^4
  - 32*E^4*vt + 176*E^4*vt^2 )
 
 + LogX*LogX*PI^2
  * ( 16*ql*E^3 - 416*ql*E^3*vt - 976*ql*E^3*vt^2 + 560/3*ql^2*E^2
   + 1312/3*ql^2*E^2*vt + 2672/3*ql^2*E^2*vt^2 - 320*ql^3*E
  - 256*ql^3*E*vt - 192*ql^3*E*vt^2 + 256*ql^4 + 256*ql^4*vt
  - 256/3*ql^5*E^-1 - 512/3*ql^5*E^-1*vt - 256/3*ql^5*E^-1*vt^2
  + 20*ql^-1*E^5 - 24*ql^-1*E^5*vt - 68*ql^-1*E^5*vt^2 - 68*E^4
  + 168*E^4*vt + 428*E^4*vt^2 ) + 0.
 

End run. Time 24 sec.
Schoonschip, 68000 version of June 27, 1991. Public version.
Date: Fri Aug  9 1991 00:50:47.  Memory: start 0001B84C, length 476348.


C Spinors 11. e+ e- to e+ e-, various interactions.

> P stat
	V K1,K2,P,Q
	S AC,EC,GA,GV,GS,GP,BW1=c,BW2=c
	S GGV,GGS,COS,A
	B AC,EC,A
	S X,Y
	F DIA=u,AMP=u,DIB=u

	Z MAT2= AMP(I1,I2,MU)*Conjg(AMP(I3,I4,NU))*A/4

L 2	Id,AMP(I1~,I2~,MU~)=
		AC**2*S**-2*Ubg(I1,0,K2)*G(I1,MU)*Ug(I1,0,K1)
			*Ubg(I2,0,Q)*G(I2,MU)*Ug(I2,0,P)

		+ 2*S**-2*EMC**-1*EC**2*DIA(I1,I2,(G(I1,MU)),(G(I2,MU)))

		- GGV**2*BW1*DIB(I1,I2,(G(I1,MU)*GV+G(I1,MU)*G5(I1)*GA),
			(G(I2,MU)*GV+G(I2,MU)*G5(I2)*GA) )

		+ GGS**2*BW2*DIB(I1,I2,(GS+i*GP*G5(I1)),(GS+i*GP*G5(I2)))

L 4	Id,DIA(I1~,I2~,X~,Y~)=
		Ubg(I1,0,K2)*Gi(I1)*X*Ug(I1,0,P) * Ubg(I2,0,Q)*Gi(I2)*Y*Ug(I2,0,K1)

L 5	Id,2,DIB(I1~,I2~,X~,Y~)=
		Ubg(I1,0,K2)*Gi(I1)*X*Ug(I1,0,K1) * Ubg(I2,0,Q)*Gi(I2)*Y*Ug(I2,0,P)

L 7	Id,Spin,I1,I2,I3,I4
L 8	Id,Trick,Trace,I1,I2,I3,I4
L16	Id,K1DK1=0
L16	Al,PDP=0
L16	Al,QDQ=0
L17	Id,PDK2=-S**2*EMC/4
L17	Al,PDK1=-S**2*EPC/4
L17	Al,QDK1=-S**2*EMC/4
L17	Al,QDK2=-S**2*EPC/4
L17	Al,K1DK2=-S**2/2
L17	Al,PDQ=-S**2/2
L18	Id,GGV=1
L18	Al,GGS=1
> P output
	*yep

Terms in output 30
Running time 3 sec			Used	Maximum
Generated terms 122 	Input space 	2640 	100000
Equal terms 71     	Output space 	960 	250000
Cancellations 21   	Nr of expr.  	84 	255
Multiplications 6988	String space 	0 	4096
Records written 0 	Merging		0 	0

 
MAT2 = 
 + AC^2*EC^2*A
  * ( - 2*EMC^-1*EPC^2 )
 
 + AC^2*A
  * ( 1/2*GA^2*BW1*S^2*EMC^2 - 1/2*GA^2*BW1*S^2*EPC^2 + 1/2*GA^2*BW1C
  *S^2*EMC^2 - 1/2*GA^2*BW1C*S^2*EPC^2 - 1/2*GV^2*BW1*S^2*EMC^2
  - 1/2*GV^2*BW1*S^2*EPC^2 - 1/2*GV^2*BW1C*S^2*EMC^2 - 1/2*GV^2*BW1C
  *S^2*EPC^2 )
 
 + AC^4*A
  * ( 1/2*EMC^2 + 1/2*EPC^2 )
 
 + EC^2*A
  * ( GA^2*BW1*S^2*EMC^-1*EPC^2 + GA^2*BW1C*S^2*EMC^-1*EPC^2
  + GV^2*BW1*S^2*EMC^-1*EPC^2 + GV^2*BW1C*S^2*EMC^-1*EPC^2
  + 2*GS^2*BW2*S^2*EMC^-1 + 2*GS^2*BW2C*S^2*EMC^-1 + 2*GP^2*BW2*S^2
  *EMC^-1 + 2*GP^2*BW2C*S^2*EMC^-1 )
 
 + EC^4*A
  * ( 8*EMC^-2 + 2*EMC^-2*EPC^2 )
 
 + A
  * ( - GA^2*GV^2*BW1*BW1C*S^4*EMC^2 + 3*GA^2*GV^2*BW1*BW1C*S^4*EPC^2
   + 1/2*GA^4*BW1*BW1C*S^4*EMC^2 + 1/2*GA^4*BW1*BW1C*S^4*EPC^2
  + 1/2*GV^4*BW1*BW1C*S^4*EMC^2 + 1/2*GV^4*BW1*BW1C*S^4*EPC^2
  + 2*GS^2*GP^2*BW2*BW2C*S^4 + GS^4*BW2*BW2C*S^4 + GP^4*BW2*BW2C*S^4 ) + 0.
 
	B EMC,EPC,A
L 1	Id,AC=EC
> P output
	*yep

Terms out 30, in 30.

Terms in output 30
Running time 4 sec			Used	Maximum
Generated terms 30 	Input space 	180 	100000
Equal terms 0     	Output space 	960 	250000
Cancellations 0   	Nr of expr.  	12 	255
Multiplications 97	String space 	0 	4096
Records written 0 	Merging		0 	0

 
MAT2 = 
 + A
  * ( 2*GS^2*GP^2*BW2*BW2C*S^4 + GS^4*BW2*BW2C*S^4 + GP^4*BW2*BW2C
  *S^4 )
 
 + EMC^2*A
  * ( 1/2*EC^2*GA^2*BW1*S^2 + 1/2*EC^2*GA^2*BW1C*S^2 - 1/2*EC^2*GV^2
  *BW1*S^2 - 1/2*EC^2*GV^2*BW1C*S^2 + 1/2*EC^4 - GA^2*GV^2*BW1*BW1C
  *S^4 + 1/2*GA^4*BW1*BW1C*S^4 + 1/2*GV^4*BW1*BW1C*S^4 )
 
 + EMC^-2*A
  * ( 8*EC^4 )
 
 + EMC^-2*EPC^2*A
  * ( 2*EC^4 )
 
 + EMC^-1*A
  * ( 2*EC^2*GS^2*BW2*S^2 + 2*EC^2*GS^2*BW2C*S^2 + 2*EC^2*GP^2*BW2
  *S^2 + 2*EC^2*GP^2*BW2C*S^2 )
 
 + EMC^-1*EPC^2*A
  * ( EC^2*GA^2*BW1*S^2 + EC^2*GA^2*BW1C*S^2 + EC^2*GV^2*BW1*S^2
  + EC^2*GV^2*BW1C*S^2 - 2*EC^4 )
 
 + EPC^2*A
  * ( - 1/2*EC^2*GA^2*BW1*S^2 - 1/2*EC^2*GA^2*BW1C*S^2 - 1/2*EC^2*GV^2
  *BW1*S^2 - 1/2*EC^2*GV^2*BW1C*S^2 + 1/2*EC^4 + 3*GA^2*GV^2*BW1*BW1C
  *S^4 + 1/2*GA^4*BW1*BW1C*S^4 + 1/2*GV^4*BW1*BW1C*S^4 ) + 0.
 
	B EMC,COS,A
L 1	Id,EMC=1-COS
L 1	Al,EPC=1+COS
> P output
	*yep

Terms out 30, in 30.

Terms in output 40
Running time 4 sec			Used	Maximum
Generated terms 96 	Input space 	250 	100000
Equal terms 47     	Output space 	1272 	250000
Cancellations 9   	Nr of expr.  	11 	255
Multiplications 324	String space 	0 	4096
Records written 0 	Merging		0 	0

 
MAT2 = 
 + COS*A
  * ( - 2*EC^2*GA^2*BW1*S^2 - 2*EC^2*GA^2*BW1C*S^2 + 8*GA^2*GV^2*BW1
  *BW1C*S^4 )
 
 + COS^2*A
  * ( - EC^2*GV^2*BW1*S^2 - EC^2*GV^2*BW1C*S^2 + EC^4 + 2*GA^2*GV^2
  *BW1*BW1C*S^4 + GA^4*BW1*BW1C*S^4 + GV^4*BW1*BW1C*S^4 )
 
 + A
  * ( - EC^2*GV^2*BW1*S^2 - EC^2*GV^2*BW1C*S^2 + EC^4 + 2*GA^2*GV^2
  *BW1*BW1C*S^4 + GA^4*BW1*BW1C*S^4 + GV^4*BW1*BW1C*S^4 + 2*GS^2*GP^2
  *BW2*BW2C*S^4 + GS^4*BW2*BW2C*S^4 + GP^4*BW2*BW2C*S^4 )
 
 + EMC^-2*COS*A
  * ( 4*EC^4 )
 
 + EMC^-2*COS^2*A
  * ( 2*EC^4 )
 
 + EMC^-2*A
  * ( 10*EC^4 )
 
 + EMC^-1*COS*A
  * ( 2*EC^2*GA^2*BW1*S^2 + 2*EC^2*GA^2*BW1C*S^2 + 2*EC^2*GV^2*BW1
  *S^2 + 2*EC^2*GV^2*BW1C*S^2 - 4*EC^4 )
 
 + EMC^-1*COS^2*A
  * ( EC^2*GA^2*BW1*S^2 + EC^2*GA^2*BW1C*S^2 + EC^2*GV^2*BW1*S^2
  + EC^2*GV^2*BW1C*S^2 - 2*EC^4 )
 
 + EMC^-1*A
  * ( EC^2*GA^2*BW1*S^2 + EC^2*GA^2*BW1C*S^2 + EC^2*GV^2*BW1*S^2
  + EC^2*GV^2*BW1C*S^2 + 2*EC^2*GS^2*BW2*S^2 + 2*EC^2*GS^2*BW2C*S^2
   + 2*EC^2*GP^2*BW2*S^2 + 2*EC^2*GP^2*BW2C*S^2 - 2*EC^4 ) + 0.
 
L 1	Id,COS=1-EMC
L 2	Id,EMC=1-COS
> P output
	*yep

Terms out 40, in 40.

Terms in output 33
Running time 4 sec			Used	Maximum
Generated terms 123 	Input space 	316 	100000
Equal terms 70     	Output space 	998 	250000
Cancellations 20   	Nr of expr.  	11 	255
Multiplications 412	String space 	0 	4096
Records written 0 	Merging		0 	0

 
MAT2 = 
 + COS*A
  * ( - 3*EC^2*GA^2*BW1*S^2 - 3*EC^2*GA^2*BW1C*S^2 - EC^2*GV^2*BW1
  *S^2 - EC^2*GV^2*BW1C*S^2 + 2*EC^4 + 8*GA^2*GV^2*BW1*BW1C*S^4 )
 
 + COS^2*A
  * ( - EC^2*GV^2*BW1*S^2 - EC^2*GV^2*BW1C*S^2 + EC^4 + 2*GA^2*GV^2
  *BW1*BW1C*S^4 + GA^4*BW1*BW1C*S^4 + GV^4*BW1*BW1C*S^4 )
 
 + A
  * ( - 3*EC^2*GA^2*BW1*S^2 - 3*EC^2*GA^2*BW1C*S^2 - 4*EC^2*GV^2*BW1
  *S^2 - 4*EC^2*GV^2*BW1C*S^2 + 9*EC^4 + 2*GA^2*GV^2*BW1*BW1C*S^4
  + GA^4*BW1*BW1C*S^4 + GV^4*BW1*BW1C*S^4 + 2*GS^2*GP^2*BW2*BW2C*S^4
   + GS^4*BW2*BW2C*S^4 + GP^4*BW2*BW2C*S^4 )
 
 + EMC^-2*A
  * ( 16*EC^4 )
 
 + EMC^-1*A
  * ( 4*EC^2*GA^2*BW1*S^2 + 4*EC^2*GA^2*BW1C*S^2 + 4*EC^2*GV^2*BW1
  *S^2 + 4*EC^2*GV^2*BW1C*S^2 + 2*EC^2*GS^2*BW2*S^2 + 2*EC^2*GS^2*BW2C
  *S^2 + 2*EC^2*GP^2*BW2*S^2 + 2*EC^2*GP^2*BW2C*S^2 - 16*EC^4 ) + 0.
 
C Integrate COS from -0.6 to 0.6

	N 5,R0
L 1	Id,A*EMC**-2=5/2-1/1.6
L 1	Al,A*EMC**-1=1.3863
L 1	Al,A*COS**2=0.432/3
L 1	Al,A*COS=0.
L 1	Al,A=1.2
	*end

Terms out 33, in 33.

Terms in output 15
Running time 4 sec			Used	Maximum
Generated terms 28 	Input space 	350 	100000
Equal terms 13     	Output space 	430 	250000
Cancellations 0   	Nr of expr.  	13 	255
Multiplications 134	String space 	0 	4096
Records written 0 	Merging		0 	0

 
MAT2 = 
  + .19452E+1*EC^2*GA^2*BW1*S^2 + .19452E+1*EC^2*GA^2*BW1C*S^2
  + .6012*EC^2*GV^2*BW1*S^2 + .6012*EC^2*GV^2*BW1C*S^2 + .27726E+1
  *EC^2*GS^2*BW2*S^2 + .27726E+1*EC^2*GS^2*BW2C*S^2 + .27726E+1*EC^2
  *GP^2*BW2*S^2 + .27726E+1*EC^2*GP^2*BW2C*S^2 + .18763E+2*EC^4
  + .2688E+1*GA^2*GV^2*BW1*BW1C*S^4 + .1344E+1*GA^4*BW1*BW1C*S^4
  + .1344E+1*GV^4*BW1*BW1C*S^4 + .24E+1*GS^2*GP^2*BW2*BW2C*S^4
  + .12E+1*GS^4*BW2*BW2C*S^4 + .12E+1*GP^4*BW2*BW2C*S^4 + 0.
 

End run. Time 4 sec.
Schoonschip, 68000 version of June 27, 1991. Public version.
Date: Fri Aug  9 1991 00:50:54.  Memory: start 0001B84C, length 476348.


C Spinors 12. K to pi, muon, neutrino with CP violation.

> P stat
C K to PI, MU, NU
	F Dia=u
	S LA=c,KSI=c,F1,M,MN,MK,MP
	V Q,QP,K,W
	I MU,NU,MUP,NUP,I1,I2
	B LA,LAC,KSI,KSIC,F1

	Z Rate = Dia(MU,NU)*Conjg(Dia(MUP,NUP))

L 2	Id,Dia(MU~,NU~) = Ubg(I1,MN,QP)*{G(I1,MU)*G6(I1) + i*LA*{G(I1,MU)*
		G(I1,NU)-G(I1,NU)*G(I1,MU)}*M**-1*(Q(NU)+QP(NU))*G5(I1)}*0.5
		*{Gi(I1)+i*G(I1,W)*G5(I1)}*Ug(I1,-M,Q)*(F1*2*K(MU)+(KSI-F1)
		*(Q(MU)+QP(MU)) )

L 5	Id,Spin,I1
L 6	Id,Trick,Trace,I1
L14	Id,Numer,MN,0,WDQ,0,WDQP,0,WDK,0,QPDQP,0,WDW,1
L15	Id,QDQ=-M**2
L15	Al,KDK=-MK**2
	*yep

Terms in output 42
Running time 52 sec			Used	Maximum
Generated terms 605 	Input space 	2778 	100000
Equal terms 356     	Output space 	1386 	250000
Cancellations 207   	Nr of expr.  	27 	255
Multiplications 120808	String space 	0 	4096
Records written 0 	Merging		0 	0

	S RLA,ILA,RKSI,IKSI,EPSC
	B RLA,ILA,RKSI,IKSI,F1

L 1	Id,QDQP=-0.5*MP**2+0.5*MK**2+QDK+QPDK+0.5*M**2
L 2	Id,LA=RLA+i*ILA
L 2	Al,LAC=RLA-i*ILA
L 2	Al,KSI=RKSI+i*IKSI
L 2	Al,KSIC=RKSI-i*IKSI
	*end

Terms out 42, in 42.

Terms in output 95
Running time 52 sec			Used	Maximum
Generated terms 324 	Input space 	570 	100000
Equal terms 152     	Output space 	2600 	250000
Cancellations 77   	Nr of expr.  	14 	255
Multiplications 1098	String space 	0 	4096
Records written 0 	Merging		0 	0

 
Rate = 
 + F1^2
  * ( 6*M^2*MK^2 + 2*M^2*MP^2 - 4*M^2*QDK + 12*M^2*QPDK - 2*M^4
  - 8*MK^2*MP^2 + 16*MK^2*QDK + 16*MK^2*QPDK + 8*MK^4 + 32*QDK*QPDK )
 
 + RLA*F1^2
  * ( - 16*M^2*MK^2 - 8*M^2*QDK - 8*M^2*QPDK + 16*MK^2*MP^2
  - 40*MK^2*QDK - 24*MK^2*QPDK - 16*MK^4 + 8*MP^2*QDK - 8*MP^2*QPDK
   - 32*QDK*QPDK - 16*QDK^2 - 16*QPDK^2 )
 
 + RLA*RKSI*F1
  * ( 8*M^2*QDK + 8*M^2*QPDK + 8*MK^2*QDK - 8*MK^2*QPDK - 8*MP^2*QDK
   + 8*MP^2*QPDK + 16*QDK^2 - 16*QPDK^2 )
 
 + RLA^2*F1^2
  * ( 16*M^2*MK^2 + 32*M^-2*MK^2*QDK*QPDK - 16*M^-2*MK^2*QDK^2
  - 16*M^-2*MK^2*QPDK^2 - 32*M^-2*MP^2*QDK*QPDK + 16*M^-2*MP^2*QDK^2
   + 16*M^-2*MP^2*QPDK^2 + 32*M^-2*QDK*QPDK^2 + 32*M^-2*QDK^2*QPDK
   - 32*M^-2*QDK^3 - 32*M^-2*QPDK^3 - 16*MK^2*MP^2 + 32*MK^2*QDK
  + 32*MK^2*QPDK + 16*MK^4 + 32*QDK*QPDK - 16*QDK^2 + 48*QPDK^2 )
 
 + ILA*IKSI*F1
  * ( 8*M^2*QDK + 8*M^2*QPDK + 8*MK^2*QDK - 8*MK^2*QPDK - 8*MP^2*QDK
   + 8*MP^2*QPDK + 16*QDK^2 - 16*QPDK^2 )
 
 + ILA^2*F1^2
  * ( 16*M^2*MK^2 + 32*M^-2*MK^2*QDK*QPDK - 16*M^-2*MK^2*QDK^2
  - 16*M^-2*MK^2*QPDK^2 - 32*M^-2*MP^2*QDK*QPDK + 16*M^-2*MP^2*QDK^2
   + 16*M^-2*MP^2*QPDK^2 + 32*M^-2*QDK*QPDK^2 + 32*M^-2*QDK^2*QPDK
   - 32*M^-2*QDK^3 - 32*M^-2*QPDK^3 - 16*MK^2*MP^2 + 32*MK^2*QDK
  + 32*MK^2*QPDK + 16*MK^4 + 32*QDK*QPDK - 16*QDK^2 + 48*QPDK^2 )
 
 + RKSI*F1
  * ( 4*M^2*MK^2 - 4*M^2*MP^2 + 8*M^2*QDK - 8*M^2*QPDK + 4*M^4 )
 
 + RKSI^2
  * ( - 2*M^2*MK^2 + 2*M^2*MP^2 - 4*M^2*QDK - 4*M^2*QPDK - 2*M^4 )
 
 + IKSI^2
  * ( - 2*M^2*MK^2 + 2*M^2*MP^2 - 4*M^2*QDK - 4*M^2*QPDK - 2*M^4 )
 
 + Epf(Q,QP,K,W)*RLA*IKSI*F1
  * ( 16*i*M )
 
 + Epf(Q,QP,K,W)*ILA*F1^2
  * ( 16*i*M + 32*i*M^-1*QDK - 32*i*M^-1*QPDK )
 
 + Epf(Q,QP,K,W)*ILA*RKSI*F1
  * ( - 16*i*M )
 
 + Epf(Q,QP,K,W)*IKSI*F1
  * ( - 16*i*M ) + 0.
 

End run. Time 52 sec.
Schoonschip, 68000 version of June 27, 1991. Public version.
Date: Fri Aug  9 1991 00:51:49.  Memory: start 0001B84C, length 476348.


C Spinors 13. Muon decay with CP violation.

> P stat
	S ME,MM,MN,A=c
	V P,Q,QP,K,W1,W2
	F DIA=u,PR=u
	I MU,MUP,I1,I2
	S B,COSF,SINF,X,Z,W1X,W1Z,QL,PL,P0
	S PI
	S nul=c

	Z Amp2=B*DIA(MU)*Conjg(DIA(MUP))

L 2	Id,DIA(MU~)=Ubg(I1,ME,P)*PR(W2)*G(I1,MU)*(
		Gi(I1)
		+A*G5(I1))*PR(W1)*
			Ug(I1,MM,K) *
		Ubg(I2,MN,Q)*G(I2,MU)*G6(I2)*Ug(I2,MN,QP)

L 4	Id,PR(W1~)= 0.5*Gi(I1)-0.5*i*G(I1,W1)*G5(I1)
L 5	Id,Spin,I1,I2
L 6	Id,Trick,Trace,I1,I2

L14	Id,MN=0
L14	Al,W1DK=0
L14	Al,W2DK=0
L14	Al,W2DP=0
L14	Al,W1DW2=0
L14	Al,QPDQ=KDQ-PDQ
L14	Al,QPDK=-MM**2-PDK-QDK
L14	Al,QPDP=PDK+ME**2-QDP
L14	Al,QPDW1=-PDW1-QDW1
L14	Al,QPDW2=-QDW2
L15	Id,Funct,QP(MU~)=K(MU)-P(MU)-Q(MU)
L15	Al,QP(MU~)=K(MU)-P(MU)-Q(MU)
L15	Al,W1DW1=1
L15	Al,W2DW2=1
L16	Id,Trick
> P output
	*yep

Terms in output 108
Running time 13 sec			Used	Maximum
Generated terms 1540 	Input space 	3028 	100000
Equal terms 1100     	Output space 	3188 	250000
Cancellations 332   	Nr of expr.  	32 	255
Multiplications 34269	String space 	0 	4096
Records written 0 	Merging		0 	0

 
Amp2 = 
  + 16*ME*MM*A*AC*B*PDQ - 16*ME*MM*A*AC*B*PDW1*QDW2 - 16*ME*MM*A*AC
  *B*QDK - 32*ME*MM*A*AC*B*QDW1*QDW2 - 16*ME*MM*A*B*PDW1*QDW2
  - 16*ME*MM*AC*B*PDW1*QDW2 - 16*ME*MM*B*PDQ - 16*ME*MM*B*PDW1*QDW2
   + 16*ME*MM*B*QDK - 32*ME*MM*B*QDW1*QDW2 - 16*ME*MM^2*A*AC*B*QDW1
   + 16*ME*MM^2*A*AC*B*QDW2 + 16*ME*MM^2*A*B*QDW2 + 16*ME*MM^2*AC*B
  *QDW2 + 16*ME*MM^2*B*QDW1 + 16*ME*MM^2*B*QDW2 - 16*ME*A*AC*B*PDK
  *QDW1 + 16*ME*A*AC*B*PDK*QDW2 + 16*ME*A*AC*B*PDW1*QDK + 16*ME*A*B
  *PDK*QDW2 + 32*ME*A*B*QDK*QDW2 + 16*ME*AC*B*PDK*QDW2 + 32*ME*AC*B
  *QDK*QDW2 + 16*ME*B*PDK*QDW1 + 16*ME*B*PDK*QDW2 - 16*ME*B*PDW1*QDK
   + 16*ME^2*MM*A*AC*B*QDW1 - 16*ME^2*MM*A*AC*B*QDW2 - 16*ME^2*MM*A
  *B*QDW1 - 16*ME^2*MM*AC*B*QDW1 + 16*ME^2*MM*B*QDW1 + 16*ME^2*MM*B
  *QDW2 + 16*ME^2*A*AC*B*QDK - 16*ME^2*A*B*QDK - 16*ME^2*AC*B*QDK
  + 16*ME^2*B*QDK + 16*MM*A*AC*B*PDQ*PDW1 + 16*MM*A*AC*B*PDK*QDW1
  - 16*MM*A*AC*B*PDK*QDW2 + 16*MM*A*B*PDQ*PDW1 + 32*MM*A*B*PDQ*QDW1
   - 16*MM*A*B*PDK*QDW1 + 16*MM*AC*B*PDQ*PDW1 + 32*MM*AC*B*PDQ*QDW1
   - 16*MM*AC*B*PDK*QDW1 + 16*MM*B*PDQ*PDW1 + 16*MM*B*PDK*QDW1
  + 16*MM*B*PDK*QDW2 - 16*MM^2*A*AC*B*PDQ - 16*MM^2*A*AC*B*PDW1*QDW2
   - 16*MM^2*A*B*PDQ - 16*MM^2*AC*B*PDQ - 16*MM^2*B*PDQ + 16*MM^2*B
  *PDW1*QDW2 - 16*A*AC*B*PDQ*PDK - 32*A*AC*B*PDQ*QDK + 16*A*AC*B*PDK
  *QDK + 32*A*AC*B*PDK*QDW1*QDW2 - 32*A*AC*B*PDW1*QDK*QDW2
  - 16*A*B*PDQ*PDK - 16*A*B*PDK*QDK - 16*AC*B*PDQ*PDK - 16*AC*B*PDK
  *QDK - 16*B*PDQ*PDK - 32*B*PDQ*QDK + 16*B*PDK*QDK - 32*B*PDK*QDW1
  *QDW2 + 32*B*PDW1*QDK*QDW2
 
 + Epf(P,Q,K,W1)
  * ( - 16*ME*A*B + 16*ME*AC*B + 16*A*B*QDW2 - 16*AC*B*QDW2 )
 
 + Epf(P,Q,K,W2)
  * ( - 16*MM*A*B + 16*MM*AC*B + 4*A*AC*B*PDW1 + 8*A*B*PDW1
  + 16*A*B*QDW1 - 8*AC*B*PDW1 - 16*AC*B*QDW1 - 4*B*PDW1 )
 
 + Epf(P,Q,W1,W2)
  * ( - 4*MM^2*A*AC*B - 8*MM^2*A*B + 8*MM^2*AC*B + 4*MM^2*B
  - 4*A*AC*B*PDK - 8*A*B*PDK - 16*A*B*QDK + 8*AC*B*PDK + 16*AC*B*QDK
   + 4*B*PDK )
 
 + Epf(P,K,W1,W2)
  * ( 4*A*AC*B*PDQ - 4*A*AC*B*QDK + 8*A*B*PDQ + 8*A*B*QDK
  - 8*AC*B*PDQ - 8*AC*B*QDK - 4*B*PDQ + 4*B*QDK )
 
 + Epf(Q,K,W1,W2)
  * ( 4*ME^2*A*AC*B - 8*ME^2*A*B + 8*ME^2*AC*B - 4*ME^2*B
  + 4*A*AC*B*PDK + 16*A*B*PDQ - 8*A*B*PDK - 16*AC*B*PDQ + 8*AC*B*PDK
   - 4*B*PDK ) + 0.
 
L 1	Id,Funct,Q(MU~)=QL*W1Z*COSF/i/MM/PL*Epf(MU,W2,P,K)*POL
		+ QDW2*W2(MU)
		+ QL*Z*(P(MU)/PL-K(MU)*P0/PL/MM)
		+ QL*K(MU)/MM
L 3	Id,Trick,I1
L11	Id,PDQ=PL*QL*Z-P0*QL
L11	Al,PDW1=PL*X
L11	Al,PDK=-MM*P0
L11	Al,QDK=-QL*MM
L11	Al,QDW1=QL*X*Z-QL*W1X*W1Z*COSF
L11	Al,QDW2=QL*W1Z*SINF*POL
L11	Al,W1DW1=1
L11	Al,W2DW2=1
L11	Al,W1DW2=0
L11	Al,KDK=-MM**2
L11	Al,PDP=-ME**2
L11	Al,W1DK=0
L11	Al,W2DK=0
L11	Al,W2DP=0
	B B,COSF,SINF,Z,X,W1X,W1Z
> P output
	*yep

Terms out 108, in 108.

Terms in output 146
Running time 15 sec			Used	Maximum
Generated terms 196 	Input space 	1218 	100000
Equal terms 32     	Output space 	4832 	250000
Cancellations 18   	Nr of expr.  	26 	255
Multiplications 2550	String space 	0 	4096
Records written 0 	Merging		0 	0

 
Amp2 = 
 + B
  * ( - 16*ME*MM*A*AC*QL*P0 + 16*ME*MM*QL*P0 + 16*ME*MM^2*A*AC*QL
  - 16*ME*MM^2*QL - 16*ME^2*MM*A*AC*QL + 16*ME^2*MM*A*QL + 16*ME^2
  *MM*AC*QL - 16*ME^2*MM*QL - 16*MM*A*AC*QL*P0^2 - 32*MM*A*AC*QL^2
  *P0 - 16*MM*A*QL*P0^2 - 16*MM*AC*QL*P0^2 - 16*MM*QL*P0^2
  - 32*MM*QL^2*P0 + 32*MM^2*A*AC*QL*P0 + 32*MM^2*QL*P0 )
 
 + B*COSF*SINF*W1X*W1Z^2
  * ( 32*ME*MM*A*AC*QL^2*POL + 32*ME*MM*QL^2*POL + 32*MM*A*AC*QL^2
  *P0*POL - 32*MM*QL^2*P0*POL )
 
 + B*COSF*X*W1Z
  * ( 16*i*ME^2*MM*A*QL*POL - 16*i*ME^2*MM*AC*QL*POL + 32*i*MM*A*QL^2
  *P0*POL - 32*i*MM*AC*QL^2*P0*POL - 16*i*MM^2*A*QL*P0*POL
  + 16*i*MM^2*AC*QL*P0*POL )
 
 + B*COSF*Z*X*W1Z
  * ( 16*i*ME^2*MM*A*QL^2*PL^-1*POL - 16*i*ME^2*MM*AC*QL^2*PL^-1*POL
   - 16*i*MM*A*QL^2*PL*POL - 16*i*MM*A*QL^2*PL^-1*P0^2*POL
  + 16*i*MM*AC*QL^2*PL*POL + 16*i*MM*AC*QL^2*PL^-1*P0^2*POL )
 
 + B*COSF*Z*W1X*W1Z
  * ( - 32*MM*A*QL^2*PL - 32*MM*AC*QL^2*PL )
 
 + B*COSF*W1X*W1Z
  * ( - 16*ME*MM*A*AC*QL*P0 + 16*ME*MM*QL*P0 + 16*ME*MM^2*A*AC*QL
  - 16*ME*MM^2*QL - 16*ME^2*MM*A*AC*QL + 16*ME^2*MM*A*QL + 16*ME^2
  *MM*AC*QL - 16*ME^2*MM*QL + 32*MM*A*QL^2*P0 + 32*MM*AC*QL^2*P0
  + 16*MM^2*A*AC*QL*P0 - 16*MM^2*A*QL*P0 - 16*MM^2*AC*QL*P0
  + 16*MM^2*QL*P0 )
 
 + B*COSF*W1Z
  * ( - 16*i*ME^2*MM^2*A*QL*PL^-1*POL + 16*i*ME^2*MM^2*AC*QL*PL^-1
  *POL + 16*i*MM^2*A*QL*PL^-1*P0^2*POL - 16*i*MM^2*AC*QL*PL^-1*P0^2
  *POL )
 
 + B*COSF^2*W1X*W1Z^2
  * ( - 16*i*ME^2*MM*A*QL^2*PL^-1*POL + 16*i*ME^2*MM*AC*QL^2*PL^-1
  *POL + 16*i*MM*A*QL^2*PL^-1*P0^2*POL - 16*i*MM*AC*QL^2*PL^-1*P0^2
  *POL )
 
 + B*SINF*X*W1Z
  * ( - 16*ME*MM*A*AC*QL*PL*POL - 16*ME*MM*A*QL*PL*POL - 16*ME*MM*AC
  *QL*PL*POL - 16*ME*MM*QL*PL*POL + 32*MM*A*AC*QL^2*PL*POL
  - 32*MM*QL^2*PL*POL - 16*MM^2*A*AC*QL*PL*POL + 16*MM^2*QL*PL*POL )
 
 + B*SINF*Z*X*W1Z
  * ( - 32*ME*MM*A*AC*QL^2*POL - 32*ME*MM*QL^2*POL - 32*MM*A*AC*QL^2
  *P0*POL + 32*MM*QL^2*P0*POL )
 
 + B*SINF*W1Z
  * ( - 16*ME*MM*A*AC*QL*P0*POL - 16*ME*MM*A*QL*P0*POL - 32*ME*MM*A
  *QL^2*POL - 16*ME*MM*AC*QL*P0*POL - 32*ME*MM*AC*QL^2*POL
  - 16*ME*MM*QL*P0*POL + 16*ME*MM^2*A*AC*QL*POL + 16*ME*MM^2*A*QL*POL
   + 16*ME*MM^2*AC*QL*POL + 16*ME*MM^2*QL*POL - 16*ME^2*MM*A*AC*QL
  *POL + 16*ME^2*MM*QL*POL + 16*MM^2*A*AC*QL*P0*POL - 16*MM^2*QL*P0
  *POL )
 
 + B*X
  * ( - 16*ME*MM*A*AC*QL*PL + 16*ME*MM*QL*PL - 16*MM*A*AC*QL*PL*P0
   - 16*MM*A*QL*PL*P0 - 16*MM*AC*QL*PL*P0 - 16*MM*QL*PL*P0 )
 
 + B*Z
  * ( 16*ME*MM*A*AC*QL*PL - 16*ME*MM*QL*PL + 16*MM*A*AC*QL*PL*P0
  + 32*MM*A*AC*QL^2*PL + 16*MM*A*QL*PL*P0 + 16*MM*AC*QL*PL*P0
  + 16*MM*QL*PL*P0 + 32*MM*QL^2*PL - 16*MM^2*A*AC*QL*PL - 16*MM^2*A
  *QL*PL - 16*MM^2*AC*QL*PL - 16*MM^2*QL*PL )
 
 + B*Z*X
  * ( 16*ME*MM*A*AC*QL*P0 - 16*ME*MM*QL*P0 - 16*ME*MM^2*A*AC*QL
  + 16*ME*MM^2*QL + 16*ME^2*MM*A*AC*QL - 16*ME^2*MM*A*QL - 16*ME^2
  *MM*AC*QL + 16*ME^2*MM*QL + 16*MM*A*AC*QL*PL^2 + 16*MM*A*QL*PL^2
   - 32*MM*A*QL^2*P0 + 16*MM*AC*QL*PL^2 - 32*MM*AC*QL^2*P0
  + 16*MM*QL*PL^2 - 16*MM^2*A*AC*QL*P0 + 16*MM^2*A*QL*P0 + 16*MM^2
  *AC*QL*P0 - 16*MM^2*QL*P0 )
 
 + B*Z^2*X
  * ( 32*MM*A*QL^2*PL + 32*MM*AC*QL^2*PL )
 
 + Epf(P,K,W1,W2)*B
  * ( - 16*MM*A*QL + 16*MM*AC*QL + 16*A*QL^2 - 16*AC*QL^2 )
 
 + Epf(P,K,W1,W2)*B*SINF*W1Z
  * ( - 16*ME*A*QL*POL + 16*ME*AC*QL*POL )
 
 + Epf(P,K,W1,W2)*B*SINF^2*W1Z^2
  * ( 16*A*QL^2*POL^2 - 16*AC*QL^2*POL^2 )
 
 + Epf(P,K,W1,W2)*B*Z
  * ( 4*ME^2*A*AC*QL*PL^-1 - 8*ME^2*A*QL*PL^-1 + 8*ME^2*AC*QL*PL^-1
   - 4*ME^2*QL*PL^-1 + 16*MM*A*QL*PL^-1*P0 - 16*MM*AC*QL*PL^-1*P0
  + 4*A*AC*QL*PL - 4*A*AC*QL*PL^-1*P0^2 + 8*A*QL*PL - 8*A*QL*PL^-1
  *P0^2 - 32*A*QL^2*PL^-1*P0 - 8*AC*QL*PL + 8*AC*QL*PL^-1*P0^2
  + 32*AC*QL^2*PL^-1*P0 - 4*QL*PL + 4*QL*PL^-1*P0^2 )
 
 + Epf(P,K,W1,W2)*B*Z^2
  * ( 16*A*QL^2 - 16*AC*QL^2 ) + 0.
 
L 1	Id,B*COSF**2=PI*B
L 1	Al,B*SINF**2=PI*B
L 1	Al,B*SINF*COSF=0
L 1	Al,B*COSF=0
L 1	Al,B*SINF=0
L 1	Al,B=2*PI*B
L 2	Id,W1Z**2=1-Z**2
L 2	Al,W1X**2=1-X**2
	*yep

Terms out 146, in 146.

Terms in output 88
Running time 15 sec			Used	Maximum
Generated terms 88 	Input space 	620 	100000
Equal terms 0     	Output space 	2928 	250000
Cancellations 0   	Nr of expr.  	17 	255
Multiplications 636	String space 	0 	4096
Records written 0 	Merging		0 	0

	B B,QL,X,PI
L 1	Id,Z=(0.5*ME**2+0.5*MM**2-MM*P0-QL*MM+QL*P0)/PL/QL
L 1	Al,B=B/PL/QL/P0/QL/MM
L 3	Id,B=B*PL**2*QL**2
L 3	Al,P0**5=P0*(PL**2+ME**2)**2
L 3	Al,P0**4=(PL**2+ME**2)**2
L 3	Al,P0**3=P0*PL**2+P0*ME**2
L 3	Al,P0**2=PL**2+ME**2
L 3	Al,POL**2=1
	*yep

Terms out 88, in 88.

Terms in output 202
Running time 16 sec			Used	Maximum
Generated terms 552 	Input space 	970 	100000
Equal terms 278     	Output space 	5996 	250000
Cancellations 72   	Nr of expr.  	19 	255
Multiplications 3264	String space 	0 	4096
Records written 0 	Merging		0 	0

	S POL,REA,IMA
	B B,PI,i,POL,REA,IMA
L 1	Id,B*QL**2=B*(QMA**3-QMI**3)/3
L 1	Al,B*QL**1=B*(QMA**2-QMI**2)/2
L 1	Al,B=B*(QMA-QMI)
L 3	Id,QMA=0.5*MM-0.5*P0+0.5*PL
L 3	Al,QMI=0.5*MM-0.5*P0-0.5*PL
L 4	Id,B*X**2=B*2/3
L 4	Al,B*X=0
L 4	Al,B*W1X=0.5*B*PI
L 4	Al,B*Epf(P,K,W1,W2)=B*0.5*PI*PL*i*MM*POL
L 4	Al,B=2*B
L 5	Id,POL**2=1
L 6	Id,P0**5=P0*(PL**2+ME**2)**2
L 6	Al,P0**4=(PL**2+ME**2)**2
L 6	Al,P0**3=P0*PL**2+P0*ME**2
L 6	Al,P0**2=PL**2+ME**2
L 8	Id,A=REA+i*IMA
L 8	Al,AC=REA-i*IMA
L 8	Al,B=9*B
L 9	Id,i*PL*P0=i*PL**3/P0+i*PL*ME**2/P0
L10	Id,i*PL**3=i*PL*(P0**2-ME**2)
	*end

Terms out 202, in 202.

Terms in output 38
Running time 27 sec			Used	Maximum
Generated terms 6064 	Input space 	2078 	100000
Equal terms 4504     	Output space 	1112 	250000
Cancellations 1522   	Nr of expr.  	31 	255
Multiplications 40978	String space 	0 	4096
Records written 0 	Merging		0 	0

 
Amp2 = 
 + B*PI
  * ( 576*ME*MM*PL^2 - 288*ME*MM^2*PL^2*P0^-1 - 288*ME^2*MM*PL^2*P0^-1
   + 288*ME^2*PL^2 - 288*ME^3*PL^2*P0^-1 - 288*MM*PL^2*P0
  - 96*MM*PL^4*P0^-1 + 288*MM^2*PL^2 )
 
 + B*PI*REA^2
  * ( - 576*ME*MM*PL^2 + 288*ME*MM^2*PL^2*P0^-1 - 288*ME^2*MM*PL^2
  *P0^-1 + 288*ME^2*PL^2 + 288*ME^3*PL^2*P0^-1 - 288*MM*PL^2*P0
  - 96*MM*PL^4*P0^-1 + 288*MM^2*PL^2 )
 
 + B*PI*IMA^2
  * ( - 576*ME*MM*PL^2 + 288*ME*MM^2*PL^2*P0^-1 - 288*ME^2*MM*PL^2
  *P0^-1 + 288*ME^2*PL^2 + 288*ME^3*PL^2*P0^-1 - 288*MM*PL^2*P0
  - 96*MM*PL^4*P0^-1 + 288*MM^2*PL^2 )
 
 + B*PI^2*i*POL*IMA^2
  * ( - 18*ME^2*PL*P0 + 18*ME^2*PL^3*P0^-1 + 18*ME^4*PL*P0^-1 )
 
 + B*PI^2*POL*IMA
  * ( 24*ME^2*MM^2*PL*P0^-1 - 72*ME^2*PL*P0 - 60*ME^2*PL^3*P0^-1
  + 36*ME^4*PL*P0^-1 + 36*ME^4*PL^-1*P0 - 36*ME^6*PL^-1*P0^-1
  + 96*MM*PL^3 - 24*MM^2*PL*P0 + 24*MM^2*PL^3*P0^-1 + 36*PL^3*P0
  - 36*PL^5*P0^-1 ) + 0.
 

End run. Time 27 sec.
Schoonschip, 68000 version of June 27, 1991. Public version.
Date: Fri Aug  9 1991 00:52:18.  Memory: start 0001B84C, length 476348.


C Spinors 14. Muon decay.

> P stat
C   MU(K) -- E(P),NBE(QP),NMU(Q)
	S     ME,MM,MN,QL,QPL,PL,P0,PI,B,Z
	S  LOGQA,LOGQB,LMUME,BP,MPR,AL
	V      P,Q,QP,K
	I     MU,MUP,I1,I2
	F     DIA=u
	Z     RATE = B*DIA(MU)*Conjg(DIA(MUP))*0.5
C  FACTOR 0.5 FOR AVERAGING OVER MU POL.
L 2	Id    DIA(MU~) = Ubg(I1,ME,P)*G(I1,MU)*G6(I1)*Ug(I1,MN,QP)
	             *Ubg(I2,MN,Q)*G(I2,MU)*G6(I2)*Ug(I2,MM,K)
L 3	Id    Spin,I1,I2
L 4	Id    Trick,Trace,I1,I2
L12	Id    MN=0
C  QP=K-P-Q
L13	Id    QPDQ=KDQ-PDQ
L13	Al    QPDK=-MM**2-PDK-QDK
L13	Al    QPDP=PDK+ME**2-QDP
L14	Id,Funct,QP(MU~) = K(MU) - P(MU) - Q(MU)
	*yep

Terms in output 3
Running time 0 sec			Used	Maximum
Generated terms 30 	Input space 	1308 	100000
Equal terms 21     	Output space 	90 	250000
Cancellations 6   	Nr of expr.  	21 	255
Multiplications 341	String space 	0 	4096
Records written 0 	Merging		0 	0

L 1	Id    PDQ=PL*QL*Z - P0*QL
L 1	Al     PDK = -MM*P0
L 1	Al     QDK = -QL*MM
L 1	Al     KDK = -MM**2
L 1	Al     PDP = -ME**2
C  INTEGRATION OVER ANGLES P
L 2	Id    B=B*4.*PI
C  INTEGRATION OVER AZIMUTH Q, AND VARIOUS FACTORS.
L 3	Id    B=B*2*PI/16/MM/P0/QL/QPL*PL**2*QL**2/32/PI**5
C  INTEGRATION OVER DELTA(QP0)
L 4	Id     Z = (0.5*ME**2+0.5*MM**2-MM*P0-QL*MM+QL*P0)/PL/QL
L 4	Al    B = B*QPL/QL/PL
	*yep

Terms out 3, in 3.

Terms in output 9
Running time 1 sec			Used	Maximum
Generated terms 18 	Input space 	916 	100000
Equal terms 6     	Output space 	286 	250000
Cancellations 3   	Nr of expr.  	18 	255
Multiplications 91	String space 	0 	4096
Records written 0 	Merging		0 	0

	B    B,PI
C   INTEGRATION OVER QL
L 1	Id  B*QL**-1 = BP*(LOGQA-LOGQB)
L 3	Id     B = B*QL
L 4	Id     B*QL**N~ = B*(QMA**N-QMI**N)/N
L 6	Id     QMA = 0.5*MM-0.5*P0+0.5*PL
L 6	Al     QMI = 0.5*MM - 0.5*P0 - 0.5*PL
L 7	Id   BP=B
	*yep

Terms out 9, in 9.

Terms in output 5
Running time 1 sec			Used	Maximum
Generated terms 138 	Input space 	744 	100000
Equal terms 103     	Output space 	148 	250000
Cancellations 30   	Nr of expr.  	16 	255
Multiplications 528	String space 	0 	4096
Records written 0 	Merging		0 	0

	B    B,PI
L 1	Id,Multi,P0**2 = PL**2+ME**2
L 2	Id   P0 = (PL**2+ME**2)/P0
> P output
	*yep

Terms out 5, in 5.

Terms in output 4
Running time 1 sec			Used	Maximum
Generated terms 6 	Input space 	330 	100000
Equal terms 2     	Output space 	122 	250000
Cancellations 0   	Nr of expr.  	10 	255
Multiplications 16	String space 	0 	4096
Records written 0 	Merging		0 	0

 
RATE = + B*PI^-3
  * ( - ME^2*MM*PL^2*P0^-1 + 1/2*ME^2*PL^2 - 2/3*MM*PL^4*P0^-1
  + 1/2*MM^2*PL^2 ) + 0.
 
	B  B,PI
L 1	Id  B*P0**-1 = X**-1*BP
L 2	Id   B=B*PL
L 3	Id   B*PL**N~ = B*AL**N/N
L 3	Al   PL**N~*BP = BP*(0.5*X-0.5*ME**2/X)**N
L 5	Id  AL = 0.5*MM - 0.5*ME**2/MM
L 6	Id   BP*X**-1 = LMUME*B
C  LMUME = LOG(MM/ME)
L 7	Id  BP=B*X
L 8	Id  X**N~ = (MM**N - ME**N)/N
> P output
	*yep

Terms out 4, in 4.

Terms in output 5
Running time 1 sec			Used	Maximum
Generated terms 48 	Input space 	894 	100000
Equal terms 41     	Output space 	142 	250000
Cancellations 2   	Nr of expr.  	19 	255
Multiplications 292	String space 	0 	4096
Records written 0 	Merging		0 	0

 
RATE = + B*PI^-3
  * ( - 1/12*ME^2*MM^3 + 1/4*ME^4*MM*LMUME + 1/12*ME^6*MM^-1
  - 1/96*ME^8*MM^-3 + 1/96*MM^5 ) + 0.
 
	N 8
L 1	Id  B=B*GG**2/6.582173E-22
L 2	Id,Numer,MM,105.65946,ME,0.5110034,LMUME,5.33160,MPR,938.2796
L 3	Al,Numer,PI,3.141592653589793238
> P output
	*yep

Terms out 5, in 5.

Terms in output 1
Running time 1 sec			Used	Maximum
Generated terms 5 	Input space 	284 	100000
Equal terms 4     	Output space 	38 	250000
Cancellations 0   	Nr of expr.  	9 	255
Multiplications 20	String space 	0 	4096
Records written 0 	Merging		0 	0

 
RATE = + B
  * ( .67200197D+28*GG^2 ) + 0.
 
L 1	Id  B=B/MPR**4
L 2	Id,Numer,MM,105.65946,ME,0.5110034,LMUME,5.33160,MPR,938.2796
> P output
	*yep

Terms out 1, in 1.

Terms in output 1
Running time 1 sec			Used	Maximum
Generated terms 1 	Input space 	244 	100000
Equal terms 0     	Output space 	38 	250000
Cancellations 0   	Nr of expr.  	9 	255
Multiplications 4	String space 	0 	4096
Records written 0 	Merging		0 	0

 
RATE = + B
  * ( .86704463D+16*GG^2 ) + 0.
 
C  GG MUST BE SUCH THAT THE RESULT IS ONE.
L 1	Id   B = 2.197134E-6
> P output
	*yep

Terms out 1, in 1.

Terms in output 1
Running time 1 sec			Used	Maximum
Generated terms 1 	Input space 	148 	100000
Equal terms 0     	Output space 	34 	250000
Cancellations 0   	Nr of expr.  	9 	255
Multiplications 4	String space 	0 	4096
Records written 0 	Merging		0 	0

 
RATE =  + .19050132D+11*GG^2 + 0.
 
C THIS GG RESULTS (ABOUT 1.02*10^-5 / SQUARE_ROOT(2) ):

L 1	Id,GG=1.024627489E-5/W2
L 2	Id,W2**-2=1/2
	*end

Terms out 1, in 1.

Terms in output 1
Running time 1 sec			Used	Maximum
Generated terms 1 	Input space 	224 	100000
Equal terms 0     	Output space 	32 	250000
Cancellations 0   	Nr of expr.  	11 	255
Multiplications 7	String space 	0 	4096
Records written 0 	Merging		0 	0

 
RATE =  + .1D+1 + 0.
 

End run. Time 1 sec.
Schoonschip, 68000 version of June 27, 1991. Public version.
Date: Fri Aug  9 1991 00:52:21.  Memory: start 0001B84C, length 476348.


C Spinors 15. Neu + e- -> neu + mu- + gam (inv. muon decay, Green's method).

C Inverse muon decay, bremsstrahlung.
C Reproduces M. Green, J. Phys. G: Nucl Phys. 7(1981)1169.

C Momenta: q,P to r,k,p
  q,r neutrino's, P electron, p muon, k photon.
  M electron mass, m muon mass.
  ql and Ql are the lengths of the three-dimensional part of q and Q.

> P stat

	V  r,q,p,P,k
	I   MU,AL,MUP,ALP
	F   DIA=u,LogX,LogXa,LogY,LogYu,LogYp
	S   M,m,ql,Ql,X,Y,E
	B  X,Y

	Z   Ampl2 = DIA(MU,AL)*Conjg(DIA(MUP,AL))/32

L 2	Id  DIA(MU~,AL~) = Ubg(I1,0,r)*G(I1,MU)*G6(I1)*Ug(I1,M,P)
	      *Ubg(I2,m,p)*(
	          G(I2,AL)*(-i*G(I2,k)-i*G(I2,p)+m)/2/om/Y*G(I2,MU)
	          *G6(I2)  )*Ug(I2,0,q)
	  - Ubg(I1,0,r)*G(I1,MU)*G6(I1)*
		{ -i*G(I1,P)+i*G(I1,k)+M}*G(I1,AL)*Ug(I1,M,P)/2/om/X
		*Ubg(I2,m,p)*G(I2,MU)*G6(I2)*Ug(I2,0,q)

L 5	Id,Spin,I1,I2
L 6	Id,Trick,Trace,I1,I2
L14	Id,PDP=-M**2
L14	Al,pDp=-m**2
L15	Id,qDq=0
L15	Al,rDr=0
L15	Al,kDk=0
L16	Id,Addfa,om**2
	*yep

Terms in output 13
Running time 11 sec			Used	Maximum
Generated terms 1674 	Input space 	2578 	100000
Equal terms 1325     	Output space 	390 	250000
Cancellations 336   	Nr of expr.  	23 	255
Multiplications 39619	String space 	0 	4096
Records written 0 	Merging		0 	0


L 1	Id,r(MU~)=q(MU)+P(MU)-p(MU)-k(MU)
L 1	Al,Dotpr,r(MU~)=q(MU)+P(MU)-p(MU)-k(MU)
L 1	Al,Funct,r(MU~)=q(MU)+P(MU)-p(MU)-k(MU)
L 2	Id,qDq=0
L 2	Al,kDk=0
	*yep

Terms out 13, in 13.

Terms in output 42
Running time 11 sec			Used	Maximum
Generated terms 49 	Input space 	616 	100000
Equal terms 6     	Output space 	1132 	250000
Cancellations 1   	Nr of expr.  	13 	255
Multiplications 136	String space 	0 	4096
Records written 0 	Merging		0 	0


	B   PI,X,Y
L 1	Id,Addfa,PI/4/E/ql
L 2	Id,qDp = - PDp - om*Y + om*E + E*Ql - E**2
L 3	Id,qDP = -ql*E
L 3	Al,PDP = 2*ql*E-E**2
L 3	Al,pDp = 2*Ql*E-E**2
L 3	Al,qDk = om*(X-E)
L 3	Al,PDp = X*Y*(1-om/E) + Y*(ql-E) + X*{om + Ql - E} - wt*CSF
L 3	Al,PDk = - om*X
L 3	Al,pDk = - om*Y
	*yep

Terms out 42, in 42.

Terms in output 32
Running time 12 sec			Used	Maximum
Generated terms 1029 	Input space 	1146 	100000
Equal terms 808     	Output space 	954 	250000
Cancellations 189   	Nr of expr.  	19 	255
Multiplications 4188	String space 	0 	4096
Records written 0 	Merging		0 	0

L 1	Id,CSF**1=0
L 1	Al,CSF**3=0.

L 2	IF NOT CSF**2=PI
L 3	Id,Addfa,2*PI
	ENDIF

L 4	Id,Multi,wt**2=(X-E)*(X-E+2*ql)*(Y-E)*
	 {Y*(E-2*om)-E*(E-2*Ql)}/E

	*yep

Terms out 32, in 32.

Terms in output 28
Running time 12 sec			Used	Maximum
Generated terms 28 	Input space 	654 	100000
Equal terms 0     	Output space 	812 	250000
Cancellations 0   	Nr of expr.  	13 	255
Multiplications 128	String space 	0 	4096
Records written 0 	Merging		0 	0


L 1	IF NOT X**-1=LogX
	AND NOT X**-2=2*ql/M**2
	AND NOT X**n~=E**(n+1)/(n+1) - (E-2*ql)**(n+1)/(n+1)
L 3	Id,Addfa,2*ql
	ENDIF

	*yep

Terms out 28, in 28.

Terms in output 24
Running time 12 sec			Used	Maximum
Generated terms 28 	Input space 	540 	100000
Equal terms 4     	Output space 	694 	250000
Cancellations 0   	Nr of expr.  	12 	255
Multiplications 112	String space 	0 	4096
Records written 0 	Merging		0 	0


L 1	IF Y^n~
L 2	Id,Y**-1=LogY
L 2	Al,Y**-2=Sty*(1-2*om/E)/m**2
L 4	Id,Y**2={E**2-2*E*Ql+4*Ql**2/3 +
	 0.5*om*m**2*omMhE**-2/E*{4*(E-Ql)*(E-om)-E**2}/3}*Sty
L 4	Al,Y**1={E-Ql-0.5*om*(E-2*Ql)*omMhE**-1}*Sty
	ELSE
L 2	Id,Addfa,Sty
	ENDIF

L 8	Id,Sty=2*Ql+om*m**2*omMhE**-1/E

	*yep

Terms out 24, in 24.

Terms in output 41
Running time 12 sec			Used	Maximum
Generated terms 45 	Input space 	962 	100000
Equal terms 4     	Output space 	1198 	250000
Cancellations 0   	Nr of expr.  	14 	255
Multiplications 180	String space 	0 	4096
Records written 0 	Merging		0 	0

L 1	IF NOT om**0*LogY=LogYp	!LogYp = Log(1-2*om/E)
L 2	Id,Addfa,1-soft
	ENDIF

L 3	Id,soft*om**n~=0
L 3	Al,soft=1
L 4	Id,Addfa,om**-1

	*yep

Terms out 41, in 41.

Terms in output 38
Running time 13 sec			Used	Maximum
Generated terms 44 	Input space 	442 	100000
Equal terms 3     	Output space 	1122 	250000
Cancellations 3   	Nr of expr.  	13 	255
Multiplications 408	String space 	0 	4096
Records written 0 	Merging		0 	0

C LogYu = Log( E*(E-2*omu)/m**2 )
L 1	Id,om**n~*LogY=omu**(n+1)/(n+1)*LogYu - om**(n+1)/(n+1)*omMhE**-1
L 3	Id,Ratio,omMhE,om,hE
L 4	Id,hE=E/2
L 4	Al,Multi,hE**-1=2/E

	*yep

Terms out 38, in 38.

Terms in output 53
Running time 13 sec			Used	Maximum
Generated terms 66 	Input space 	666 	100000
Equal terms 13     	Output space 	1504 	250000
Cancellations 0   	Nr of expr.  	13 	255
Multiplications 233	String space 	0 	4096
Records written 0 	Merging		0 	0

	B PI
L 1	IF NOT LogYp
	AND NOT LogYu
	AND NOT omMhE**-1=-LogXa
	AND NOT omMhE**n~=(-2*E/m**2)**(-n-1)/(n+1)
	 - (-2/E)**(-n-1)/(n+1)
	AND NOT om**n~=omu**(n+1)/(n+1)
	AND NOT LogY=0.5*E*LogXa - omu
L 3	Id,Addfa,omu
	ENDIF

	*yep

Terms out 53, in 53.

Terms in output 51
Running time 13 sec			Used	Maximum
Generated terms 55 	Input space 	740 	100000
Equal terms 4     	Output space 	1490 	250000
Cancellations 0   	Nr of expr.  	13 	255
Multiplications 210	String space 	0 	4096
Records written 0 	Merging		0 	0

L 1	Id,omu=Ql
L 1	Al,LogYu=0
L 1	Al,LogYp*om**-1=-Sp(tQldE)	! tQldE = 2*Ql/E
L 2	Id,Multi,m**2=E**2-2*Ql*E
L 2	Al,Multi,M**2=E**2-2*ql*E
	*end

Terms out 51, in 51.

Terms in output 28
Running time 13 sec			Used	Maximum
Generated terms 92 	Input space 	450 	100000
Equal terms 58     	Output space 	796 	250000
Cancellations 6   	Nr of expr.  	15 	255
Multiplications 367	String space 	0 	4096
Records written 0 	Merging		0 	0

 
Ampl2 = 
 + Sp(tQldE)*PI^2
  * ( - 16*ql*Ql*E^2 + 16*ql*Ql^2*E )
 
 + PI^2
  * ( 10*ql*Ql*E^2 + 50*ql*Ql^2*E - 6*Ql*E^3 + 18*Ql^2*E^2
  + 8/3*Ql^3*E )
 
 + LogX*PI^2
  * ( 8*ql*Ql*E^2 + 3*ql^-1*Ql*E^4 - 9*ql^-1*Ql^2*E^3 - 4/3*ql^-1*Ql^3
  *E^2 - 12*Ql*E^3 + 12*Ql^2*E^2 )
 
 + LogX*LogXa*PI^2
  * ( 16*ql*Ql*E^2 - 16*ql*Ql^2*E - 4*ql*E^3 + 6*ql^-1*Ql*E^4
  - 6*ql^-1*Ql^2*E^3 - 3/2*ql^-1*E^5 - 24*Ql*E^3 + 24*Ql^2*E^2
  + 6*E^4 )
 
 + LogXa*PI^2
  * ( 20*ql*Ql*E^2 - 32*ql*Ql^2*E - 5*ql*E^3 - 12*Ql*E^3 + 12*Ql^2
  *E^2 + 3*E^4 ) + 0.
 

End run. Time 13 sec.
Schoonschip, 68000 version of June 27, 1991. Public version.
Date: Fri Aug  9 1991 00:52:36.  Memory: start 0001B84C, length 476348.


C Spinors 16. Roskies problem (CERN, CDC 6500, 12 April 1972).

C 6500: 35.88, 47.62, 60.45 sec.
> P stats
	V P,Q,P1,P2,P3,P4,P5,P6,P7
	V L1,L2,L3,X,Y,E4
	I A1,A2,A3
	B QDP7,QDP1,QDP2,QDP3,QDP4,QDP5,QDP6,A,B

	Z Rosk = i*A*B*
	 G(1,A1)*{i*G(1,P6)+1}*G(1,A2)*{i*G(1,P5)+1}*G(1,A3)*{i*G(1,P4)+1}
	 *G(1,E4)*{i*G(1,P3)+1}*G(1,A1)*{i*G(1,P2)+1}*G(1,A2)
	 *{i*G(1,P1)+1}*G(1,A3)*{i*G(1,P7)+1}*{G(1,E4)-1}*G(1,Q)

L 2	Id,7,Trick,Trace,1
L 9	Id,P7DE4=i
L10	Id,Numer,QDE4,0,E4DE4,0
L11	Id,P1DE4=i*X(1)
L11	Al,P2DE4=i*X(2)
L11	Al,P3DE4=i*X(3)
L11	Al,P4DE4=i*X(4)
L11	Al,P5DE4=i*X(5)
L11	Al,P6DE4=i*X(6)
L12	Id,Numer,QDP1,0,QDP3,0,QDP4,0,QDP5,0,QDP6,0,QDP7,0
> P output
	*yep

Terms in output 78
Running time 5 sec			Used	Maximum
Generated terms 100 	Input space 	2160 	100000
Equal terms 17     	Output space 	1946 	250000
Cancellations 5   	Nr of expr.  	30 	255
Multiplications 16267	String space 	0 	4096
Records written 0 	Merging		0 	0

 
Rosk = 
 + QDP2*A*B
  * ( - 32 + 64*X(1)*X(3) + 64*X(1)*X(3)*P5DP7 - 64*X(1)*X(4)*P3DP6
   + 64*X(1)*X(5)*P3DP6 - 64*X(1)*X(5)*P4DP6 + 32*X(1)*P3DP4*P6DP7
   + 32*X(1)*P3DP5 + 32*X(1)*P3DP6*P4DP7 - 64*X(1)*P3DP6*P5DP7
  - 32*X(1)*P3DP7 - 32*X(1)*P3DP7*P4DP6 - 32*X(1)*P4DP5 + 64*X(1)*P4DP6
  *P5DP7 + 32*X(1)*P4DP7 + 32*X(1)*P6DP7 - 192*X(3) - 64*X(3)*X(4)
   + 128*X(3)*X(4)*P1DP5 - 64*X(3)*X(4)*P1DP6 - 64*X(3)*X(4)*P5DP7
   + 64*X(3)*X(5)*P1DP6 - 64*X(3)*X(5)*P1DP7 + 64*X(3)*X(5)*P4DP7
  - 32*X(3)*P1DP4*P6DP7 + 96*X(3)*P1DP5 - 64*X(3)*P1DP5*P4DP7
  + 32*X(3)*P1DP6*P4DP7 - 64*X(3)*P1DP6*P5DP7 - 32*X(3)*P1DP7
  + 32*X(3)*P1DP7*P4DP6 - 96*X(3)*P4DP5 + 128*X(3)*P4DP6 + 32*X(3)
  *P4DP7 - 96*X(3)*P5DP6 - 64*X(4) + 64*X(4)*X(5)*P1DP6 - 64*X(4)*X(5)
  *P6DP7 + 64*X(4)*X(6)*P1DP3 + 64*X(4)*X(6)*P5DP7 - 32*X(4)*P1DP3
  *P6DP7 + 32*X(4)*P1DP5 - 64*X(4)*P1DP5*P3DP7 + 32*X(4)*P1DP6*P3DP7
   - 64*X(4)*P1DP6*P5DP7 - 32*X(4)*P1DP7 + 32*X(4)*P1DP7*P3DP6
  - 32*X(4)*P3DP5 + 128*X(4)*P3DP6 + 32*X(4)*P3DP7 - 32*X(4)*P5DP6
   + 32*X(5) - 64*X(5)*X(6)*P1DP3 + 64*X(5)*X(6)*P1DP4 - 32*X(5)*P1DP3
   + 32*X(5)*P1DP4 + 32*X(5)*P3DP4 - 96*X(5)*P3DP6 + 96*X(5)*P4DP6
   - 128*X(6) - 32*X(6)*P1DP3*P4DP7 + 64*X(6)*P1DP3*P5DP7
  + 32*X(6)*P1DP4*P3DP7 - 64*X(6)*P1DP4*P5DP7 - 32*X(6)*P1DP7
  - 32*X(6)*P1DP7*P3DP4 - 128*X(6)*P3DP4 + 96*X(6)*P3DP5 - 96*X(6)
  *P4DP5 + 32*P1DP3 + 32*P1DP3*P4DP6 - 32*P1DP4 - 32*P1DP4*P3DP6
  + 64*P1DP5 + 64*P1DP5*P3DP4 - 32*P1DP6 - 32*P1DP6*P3DP4
  - 32*P3DP4 ) + 0.
 
	B B
	D PT(N,M)=(0.5*Q(M)-L1(M)),(0.5*Q(M)-L2(M)),(0.5*Q(M)-L3(M)),
		  (-0.5*Q(M)-L3(M)),(-0.5*Q(M)-L3(M)+L1(M)),
		  (-0.5*Q(M)-L3(M)+L2(M)),(0.5*Q(M))
L 1	Id,P1DQ=PT(1,Q)
L 1	Al,P2DQ=PT(2,Q)
L 1	Al,P3DQ=PT(3,Q)
L 1	Al,P4DQ=PT(4,Q)
L 1	Al,P5DQ=PT(5,Q)
L 1	Al,P6DQ=PT(6,Q)
L 1	Al,P7DQ=PT(7,Q)
L 4	Id,P1DP2=F(1,2)
L 4	Al,P1DP3=F(1,3)
L 4	Al,P1DP4=F(1,4)
L 4	Al,P1DP5=F(1,5)
L 4	Al,P1DP6=F(1,6)
L 4	Al,P1DP7=F(1,7)
L 5	Id,P2DP3=F(2,3)
L 5	Al,P2DP4=F(2,4)
L 5	Al,P2DP5=F(2,5)
L 5	Al,P2DP6=F(2,6)
L 5	Al,P2DP7=F(2,7)
L 5	Al,P3DP4=F(3,4)
L 5	Al,P3DP5=F(3,5)
L 5	Al,P3DP6=F(3,6)
L 5	Al,P3DP7=F(3,7)
L 5	Al,P4DP5=F(4,5)
L 5	Al,P4DP6=F(4,6)
L 5	Al,P4DP7=F(4,7)
L 5	Al,P5DP6=F(5,6)
L 5	Al,P5DP7=F(5,7)
L 5	Al,P6DP7=F(6,7)
L 6	Id,A*F(N~,M~) = -X(N)*Y(M)*{1 + PT(M,MU)*PT(M,MU) }
			-X(M)*Y(N)*{1 + PT(N,MU)*PT(N,MU) }
			- PT(N,MU)*PT(M,MU)
L12	Id,Count,-2,Q,-1
L13	Id,QDL1**2=0.5*QDQ*L1DL1
L13	Al,QDL1*QDL2=0.5*QDQ*L1DL2
L13	Al,QDL1*QDL3=0.5*QDQ*L1DL3
L13	Al,QDL2**2=0.5*QDQ*L2DL2
L13	Al,QDL2*QDL3=0.5*QDQ*L2DL3
L13	Al,QDL3**2=0.5*QDQ*L3DL3

L14	Id,Numer,A,1,X(7),1,Y(7),0.5

> P output
	*yep

Terms out 78, in 78.

Terms in output 389
Running time 10 sec			Used	Maximum
Generated terms 1469 	Input space 	3202 	100000
Equal terms 834     	Output space 	16116 	250000
Cancellations 246   	Nr of expr.  	46 	255
Multiplications 15370	String space 	0 	4096
Records written 0 	Merging		0 	0

 
Rosk = 
 + B
  * ( - 64*X(1)*X(3)*X(4)*Y(5)*QDQ - 64*X(1)*X(3)*X(4)*Y(5)*QDQ*L1DL1
   - 64*X(1)*X(3)*X(4)*Y(5)*QDQ*L1DL2 + 128*X(1)*X(3)*X(4)*Y(5)*QDQ
  *L1DL3 + 64*X(1)*X(3)*X(4)*Y(5)*QDQ*L2DL3 - 64*X(1)*X(3)*X(4)*Y(5)
  *QDQ*L3DL3 + 128*X(1)*X(3)*X(4)*Y(5)*QDL2 + 128*X(1)*X(3)*X(4)*Y(5)
  *QDL2*L1DL1 - 256*X(1)*X(3)*X(4)*Y(5)*QDL2*L1DL3 + 128*X(1)*X(3)
  *X(4)*Y(5)*QDL2*L3DL3 + 64*X(1)*X(3)*X(4)*Y(6)*QDQ + 128*X(1)*X(3)
  *X(4)*Y(6)*QDQ*L2DL2 - 192*X(1)*X(3)*X(4)*Y(6)*QDQ*L2DL3
  + 64*X(1)*X(3)*X(4)*Y(6)*QDQ*L3DL3 - 128*X(1)*X(3)*X(4)*Y(6)*QDL2
   - 128*X(1)*X(3)*X(4)*Y(6)*QDL2*L2DL2 + 256*X(1)*X(3)*X(4)*Y(6)*QDL2
  *L2DL3 - 128*X(1)*X(3)*X(4)*Y(6)*QDL2*L3DL3 - 64*X(1)*X(3)*X(5)*Y(6)
  *QDQ - 128*X(1)*X(3)*X(5)*Y(6)*QDQ*L2DL2 + 192*X(1)*X(3)*X(5)*Y(6)
  *QDQ*L2DL3 - 64*X(1)*X(3)*X(5)*Y(6)*QDQ*L3DL3 + 128*X(1)*X(3)*X(5)
  *Y(6)*QDL2 + 128*X(1)*X(3)*X(5)*Y(6)*QDL2*L2DL2 - 256*X(1)*X(3)*X(5)
  *Y(6)*QDL2*L2DL3 + 128*X(1)*X(3)*X(5)*Y(6)*QDL2*L3DL3 - 96*X(1)*X(3)
  *Y(5)*QDQ - 96*X(1)*X(3)*Y(5)*QDQ*L1DL1 - 96*X(1)*X(3)*Y(5)*QDQ*L1DL2
   + 192*X(1)*X(3)*Y(5)*QDQ*L1DL3 + 96*X(1)*X(3)*Y(5)*QDQ*L2DL3
  - 96*X(1)*X(3)*Y(5)*QDQ*L3DL3 + 192*X(1)*X(3)*Y(5)*QDL2
  + 192*X(1)*X(3)*Y(5)*QDL2*L1DL1 - 384*X(1)*X(3)*Y(5)*QDL2*L1DL3
  + 192*X(1)*X(3)*Y(5)*QDL2*L3DL3 + 48*X(1)*X(3)*QDQ + 16*X(1)*X(3)
  *QDQ*L1DL2 - 16*X(1)*X(3)*QDQ*L2DL3 - 96*X(1)*X(3)*QDL2
  - 16*X(1)*X(4)*QDQ*L2DL2 - 32*X(1)*X(4)*QDQ*L2DL3 + 32*X(1)*X(4)
  *QDQ*L3DL3 + 64*X(1)*X(4)*QDL2*L2DL3 - 64*X(1)*X(4)*QDL2*L3DL3
  + 32*X(1)*X(5)*QDQ*L2DL2 - 32*X(1)*X(5)*QDQ*L2DL3 - 32*X(1)*Y(5)
  *QDQ - 32*X(1)*Y(5)*QDQ*L1DL1 - 32*X(1)*Y(5)*QDQ*L1DL2 + 64*X(1)
  *Y(5)*QDQ*L1DL3 + 32*X(1)*Y(5)*QDQ*L2DL3 - 32*X(1)*Y(5)*QDQ*L3DL3
   + 64*X(1)*Y(5)*QDL2 + 64*X(1)*Y(5)*QDL2*L1DL1 - 128*X(1)*Y(5)*QDL2
  *L1DL3 + 64*X(1)*Y(5)*QDL2*L3DL3 + 16*X(1)*QDQ*L1DL2 + 8*X(1)*QDQ
  *L2DL2 - 24*X(1)*QDQ*L2DL3 - 64*X(3)*X(4)*X(5)*Y(1)*QDQ
  - 64*X(3)*X(4)*X(5)*Y(1)*QDQ*L1DL1 - 64*X(3)*X(4)*X(5)*Y(1)*QDQ*L1DL2
   + 128*X(3)*X(4)*X(5)*Y(1)*QDL2 + 128*X(3)*X(4)*X(5)*Y(1)*QDL2*L1DL1
   + 96*X(3)*X(4)*Y(5)*QDQ + 96*X(3)*X(4)*Y(5)*QDQ*L1DL1 + 96*X(3)
  *X(4)*Y(5)*QDQ*L1DL2 - 192*X(3)*X(4)*Y(5)*QDQ*L1DL3 - 96*X(3)*X(4)
  *Y(5)*QDQ*L2DL3 + 96*X(3)*X(4)*Y(5)*QDQ*L3DL3 - 192*X(3)*X(4)*Y(5)
  *QDL2 - 192*X(3)*X(4)*Y(5)*QDL2*L1DL1 + 384*X(3)*X(4)*Y(5)*QDL2*L1DL3
   - 192*X(3)*X(4)*Y(5)*QDL2*L3DL3 - 128*X(3)*X(4)*Y(6)*QDQ
  - 256*X(3)*X(4)*Y(6)*QDQ*L2DL2 + 384*X(3)*X(4)*Y(6)*QDQ*L2DL3
  - 128*X(3)*X(4)*Y(6)*QDQ*L3DL3 + 256*X(3)*X(4)*Y(6)*QDL2
  + 256*X(3)*X(4)*Y(6)*QDL2*L2DL2 - 512*X(3)*X(4)*Y(6)*QDL2*L2DL3
  + 256*X(3)*X(4)*Y(6)*QDL2*L3DL3 - 48*X(3)*X(4)*QDQ + 64*X(3)*X(4)
  *QDQ*L1DL1 - 32*X(3)*X(4)*QDQ*L1DL3 - 16*X(3)*X(4)*QDQ*L2DL2
  + 96*X(3)*X(4)*QDL2 - 128*X(3)*X(4)*QDL2*L1DL1 + 64*X(3)*X(4)*QDL2
  *L1DL2 + 64*X(3)*X(4)*QDL2*L1DL3 + 96*X(3)*X(5)*Y(6)*QDQ
  + 192*X(3)*X(5)*Y(6)*QDQ*L2DL2 - 288*X(3)*X(5)*Y(6)*QDQ*L2DL3
  + 96*X(3)*X(5)*Y(6)*QDQ*L3DL3 - 192*X(3)*X(5)*Y(6)*QDL2
  - 192*X(3)*X(5)*Y(6)*QDL2*L2DL2 + 384*X(3)*X(5)*Y(6)*QDL2*L2DL3
  - 192*X(3)*X(5)*Y(6)*QDL2*L3DL3 + 64*X(3)*X(5)*QDQ*L1DL2
  - 32*X(3)*X(5)*QDQ*L1DL3 + 16*X(3)*X(5)*QDQ*L2DL2 - 32*X(3)*X(5)
  *QDQ*L2DL3 - 64*X(3)*X(5)*QDL2*L1DL2 + 64*X(3)*X(5)*QDL2*L1DL3
  - 96*X(3)*QDQ + 48*X(3)*QDQ*L1DL1 + 152*X(3)*QDQ*L1DL2 - 144*X(3)
  *QDQ*L1DL3 - 8*X(3)*QDQ*L2DL2 - 48*X(3)*QDQ*L2DL3 + 32*X(3)*QDQ*L3DL3
   + 192*X(3)*QDL2 - 96*X(3)*QDL2*L1DL1 - 96*X(3)*QDL2*L1DL2
  + 288*X(3)*QDL2*L1DL3 - 32*X(3)*QDL2*L2DL3 - 64*X(3)*QDL2*L3DL3
  - 64*X(4)*X(5)*X(6)*Y(1)*QDQ - 64*X(4)*X(5)*X(6)*Y(1)*QDQ*L1DL1
  - 64*X(4)*X(5)*X(6)*Y(1)*QDQ*L1DL2 + 128*X(4)*X(5)*X(6)*Y(1)*QDL2
   + 128*X(4)*X(5)*X(6)*Y(1)*QDL2*L1DL1 - 32*X(4)*X(5)*Y(1)*QDQ
  - 32*X(4)*X(5)*Y(1)*QDQ*L1DL1 - 32*X(4)*X(5)*Y(1)*QDQ*L1DL2
  + 64*X(4)*X(5)*Y(1)*QDL2 + 64*X(4)*X(5)*Y(1)*QDL2*L1DL1
  + 48*X(4)*X(5)*QDQ*L1DL2 - 32*X(4)*X(5)*QDQ*L1DL3 - 64*X(4)*X(5)
  *QDL2*L1DL2 + 64*X(4)*X(5)*QDL2*L1DL3 + 32*X(4)*X(6)*Y(5)*QDQ
  + 32*X(4)*X(6)*Y(5)*QDQ*L1DL1 + 32*X(4)*X(6)*Y(5)*QDQ*L1DL2
  - 64*X(4)*X(6)*Y(5)*QDQ*L1DL3 - 32*X(4)*X(6)*Y(5)*QDQ*L2DL3
  + 32*X(4)*X(6)*Y(5)*QDQ*L3DL3 - 64*X(4)*X(6)*Y(5)*QDL2 - 64*X(4)
  *X(6)*Y(5)*QDL2*L1DL1 + 128*X(4)*X(6)*Y(5)*QDL2*L1DL3 - 64*X(4)*X(6)
  *Y(5)*QDL2*L3DL3 - 32*X(4)*X(6)*QDQ*L1DL3 - 32*X(4)*X(6)*QDQ*L2DL3
   + 64*X(4)*X(6)*QDL2*L1DL3 + 32*X(4)*Y(1)*QDQ + 32*X(4)*Y(1)*QDQ
  *L1DL1 + 32*X(4)*Y(1)*QDQ*L1DL2 - 64*X(4)*Y(1)*QDL2 - 64*X(4)*Y(1)
  *QDL2*L1DL1 - 32*X(4)*QDQ + 16*X(4)*QDQ*L1DL1 + 40*X(4)*QDQ*L1DL2
   - 48*X(4)*QDQ*L1DL3 + 40*X(4)*QDQ*L2DL2 + 16*X(4)*QDQ*L2DL3
  - 32*X(4)*QDQ*L3DL3 + 64*X(4)*QDL2 - 32*X(4)*QDL2*L1DL1
  - 32*X(4)*QDL2*L1DL2 + 96*X(4)*QDL2*L1DL3 - 96*X(4)*QDL2*L2DL3
  + 64*X(4)*QDL2*L3DL3 + 32*X(5)*X(6)*QDQ*L1DL2 - 32*X(5)*Y(1)*QDQ
   - 32*X(5)*Y(1)*QDQ*L1DL1 - 32*X(5)*Y(1)*QDQ*L1DL2 + 64*X(5)*Y(1)
  *QDL2 + 64*X(5)*Y(1)*QDL2*L1DL1 + 16*X(5)*QDQ + 16*X(5)*QDQ*L1DL2
   - 48*X(5)*QDQ*L2DL2 + 48*X(5)*QDQ*L2DL3 - 16*X(5)*QDQ*L3DL3
  - 32*X(5)*QDL2 + 32*X(5)*QDL2*L3DL3 + 32*X(6)*Y(1)*QDQ + 32*X(6)
  *Y(1)*QDQ*L1DL1 + 32*X(6)*Y(1)*QDQ*L1DL2 - 64*X(6)*Y(1)*QDL2
  - 64*X(6)*Y(1)*QDL2*L1DL1 - 64*X(6)*QDQ + 56*X(6)*QDQ*L1DL2
  - 48*X(6)*QDQ*L2DL3 + 64*X(6)*QDQ*L3DL3 + 128*X(6)*QDL2
  - 128*X(6)*QDL2*L3DL3 - 16*QDQ + 32*QDQ*L1DL1 - 8*QDQ*L1DL2
  - 16*QDQ*L1DL3 - 8*QDQ*L2DL2 - 8*QDQ*L2DL3 + 16*QDQ*L3DL3
  + 32*QDL2 - 64*QDL2*L1DL1 + 32*QDL2*L1DL2 + 32*QDL2*L1DL3
  - 32*QDL2*L3DL3 )
 
 + F(3,4)*B
  * ( 8*X(1)*X(6)*QDQ - 16*X(1)*X(6)*QDL2 - 32*X(1)*Y(5)*QDQ
  - 32*X(1)*Y(5)*QDQ*L1DL1 - 32*X(1)*Y(5)*QDQ*L1DL2 + 64*X(1)*Y(5)
  *QDQ*L1DL3 + 32*X(1)*Y(5)*QDQ*L2DL3 - 32*X(1)*Y(5)*QDQ*L3DL3
  + 64*X(1)*Y(5)*QDL2 + 64*X(1)*Y(5)*QDL2*L1DL1 - 128*X(1)*Y(5)*QDL2
  *L1DL3 + 64*X(1)*Y(5)*QDL2*L3DL3 + 16*X(1)*Y(6)*QDQ + 32*X(1)*Y(6)
  *QDQ*L2DL2 - 48*X(1)*Y(6)*QDQ*L2DL3 + 16*X(1)*Y(6)*QDQ*L3DL3
  - 32*X(1)*Y(6)*QDL2 - 32*X(1)*Y(6)*QDL2*L2DL2 + 64*X(1)*Y(6)*QDL2
  *L2DL3 - 32*X(1)*Y(6)*QDL2*L3DL3 - 32*X(5)*Y(1)*QDQ - 32*X(5)*Y(1)
  *QDQ*L1DL1 - 32*X(5)*Y(1)*QDQ*L1DL2 + 64*X(5)*Y(1)*QDL2
  + 64*X(5)*Y(1)*QDL2*L1DL1 + 32*X(6)*Y(1)*QDQ + 32*X(6)*Y(1)*QDQ*L1DL1
   + 32*X(6)*Y(1)*QDQ*L1DL2 - 64*X(6)*Y(1)*QDL2 - 64*X(6)*Y(1)*QDL2
  *L1DL1 + 8*X(6)*QDQ*L1DL2 + 32*QDQ*L1DL1 + 8*QDQ*L1DL2 - 16*QDQ*L1DL3
   - 8*QDQ*L2DL2 - 8*QDQ*L2DL3 - 64*QDL2*L1DL1 + 32*QDL2*L1DL2
  + 32*QDL2*L1DL3 )
 
 + F(3,6)*B
  * ( - 8*X(1)*X(4)*QDQ + 16*X(1)*X(4)*QDL2 + 16*X(1)*Y(4)*QDQ
  - 16*X(1)*Y(4)*QDQ*L2DL3 + 16*X(1)*Y(4)*QDQ*L3DL3 - 32*X(1)*Y(4)
  *QDL2 - 32*X(1)*Y(4)*QDL2*L3DL3 - 8*X(4)*QDQ*L1DL2 - 8*QDQ*L1DL2
   + 16*QDQ*L1DL3 + 8*QDQ*L2DL3 - 32*QDL2*L1DL3 )
 
 + F(3,7)*B
  * ( 32*X(1)*X(4)*Y(5)*QDQ + 32*X(1)*X(4)*Y(5)*QDQ*L1DL1
  + 32*X(1)*X(4)*Y(5)*QDQ*L1DL2 - 64*X(1)*X(4)*Y(5)*QDQ*L1DL3
  - 32*X(1)*X(4)*Y(5)*QDQ*L2DL3 + 32*X(1)*X(4)*Y(5)*QDQ*L3DL3
  - 64*X(1)*X(4)*Y(5)*QDL2 - 64*X(1)*X(4)*Y(5)*QDL2*L1DL1
  + 128*X(1)*X(4)*Y(5)*QDL2*L1DL3 - 64*X(1)*X(4)*Y(5)*QDL2*L3DL3
  - 16*X(1)*X(4)*Y(6)*QDQ - 32*X(1)*X(4)*Y(6)*QDQ*L2DL2 + 48*X(1)*X(4)
  *Y(6)*QDQ*L2DL3 - 16*X(1)*X(4)*Y(6)*QDQ*L3DL3 + 32*X(1)*X(4)*Y(6)
  *QDL2 + 32*X(1)*X(4)*Y(6)*QDL2*L2DL2 - 64*X(1)*X(4)*Y(6)*QDL2*L2DL3
   + 32*X(1)*X(4)*Y(6)*QDL2*L3DL3 - 16*X(1)*X(6)*Y(4)*QDQ
  + 16*X(1)*X(6)*Y(4)*QDQ*L2DL3 - 16*X(1)*X(6)*Y(4)*QDQ*L3DL3
  + 32*X(1)*X(6)*Y(4)*QDL2 + 32*X(1)*X(6)*Y(4)*QDL2*L3DL3
  + 32*X(4)*X(5)*Y(1)*QDQ + 32*X(4)*X(5)*Y(1)*QDQ*L1DL1 + 32*X(4)*X(5)
  *Y(1)*QDQ*L1DL2 - 64*X(4)*X(5)*Y(1)*QDL2 - 64*X(4)*X(5)*Y(1)*QDL2
  *L1DL1 - 32*X(4)*X(6)*Y(1)*QDQ - 32*X(4)*X(6)*Y(1)*QDQ*L1DL1
  - 32*X(4)*X(6)*Y(1)*QDQ*L1DL2 + 64*X(4)*X(6)*Y(1)*QDL2 + 64*X(4)
  *X(6)*Y(1)*QDL2*L1DL1 - 32*X(4)*QDQ*L1DL1 - 8*X(4)*QDQ*L1DL2
  + 16*X(4)*QDQ*L1DL3 + 8*X(4)*QDQ*L2DL2 + 8*X(4)*QDQ*L2DL3
  + 64*X(4)*QDL2*L1DL1 - 32*X(4)*QDL2*L1DL2 - 32*X(4)*QDL2*L1DL3
  + 8*X(6)*QDQ*L1DL2 - 16*X(6)*QDQ*L1DL3 - 8*X(6)*QDQ*L2DL3
  + 32*X(6)*QDL2*L1DL3 )
 
 + F(4,6)*B
  * ( 8*X(1)*QDQ*L2DL3 - 32*X(3)*Y(1)*QDQ - 32*X(3)*Y(1)*QDQ*L1DL1
   - 32*X(3)*Y(1)*QDQ*L1DL2 + 64*X(3)*Y(1)*QDL2 + 64*X(3)*Y(1)*QDL2
  *L1DL1 - 8*X(3)*QDQ*L1DL2 - 8*QDQ*L1DL2 - 16*QDQ*L1DL3 - 8*QDQ*L2DL3
   + 32*QDL2*L1DL3 )
 
 + F(4,7)*B
  * ( 32*X(1)*X(3)*Y(5)*QDQ + 32*X(1)*X(3)*Y(5)*QDQ*L1DL1
  + 32*X(1)*X(3)*Y(5)*QDQ*L1DL2 - 64*X(1)*X(3)*Y(5)*QDQ*L1DL3
  - 32*X(1)*X(3)*Y(5)*QDQ*L2DL3 + 32*X(1)*X(3)*Y(5)*QDQ*L3DL3
  - 64*X(1)*X(3)*Y(5)*QDL2 - 64*X(1)*X(3)*Y(5)*QDL2*L1DL1
  + 128*X(1)*X(3)*Y(5)*QDL2*L1DL3 - 64*X(1)*X(3)*Y(5)*QDL2*L3DL3
  - 32*X(1)*X(3)*Y(6)*QDQ - 64*X(1)*X(3)*Y(6)*QDQ*L2DL2 + 96*X(1)*X(3)
  *Y(6)*QDQ*L2DL3 - 32*X(1)*X(3)*Y(6)*QDQ*L3DL3 + 64*X(1)*X(3)*Y(6)
  *QDL2 + 64*X(1)*X(3)*Y(6)*QDL2*L2DL2 - 128*X(1)*X(3)*Y(6)*QDL2*L2DL3
   + 64*X(1)*X(3)*Y(6)*QDL2*L3DL3 + 8*X(1)*QDQ*L2DL2 + 16*X(1)*QDQ
  *L2DL3 - 16*X(1)*QDQ*L3DL3 - 32*X(1)*QDL2*L2DL3 + 32*X(1)*QDL2*L3DL3
   + 32*X(3)*X(5)*Y(1)*QDQ + 32*X(3)*X(5)*Y(1)*QDQ*L1DL1 + 32*X(3)
  *X(5)*Y(1)*QDQ*L1DL2 - 64*X(3)*X(5)*Y(1)*QDL2 - 64*X(3)*X(5)*Y(1)
  *QDL2*L1DL1 - 32*X(3)*QDQ*L1DL1 - 8*X(3)*QDQ*L1DL2 + 16*X(3)*QDQ
  *L1DL3 + 8*X(3)*QDQ*L2DL2 + 8*X(3)*QDQ*L2DL3 + 64*X(3)*QDL2*L1DL1
   - 32*X(3)*QDL2*L1DL2 - 32*X(3)*QDL2*L1DL3 + 8*X(6)*QDQ*L1DL2
  + 16*X(6)*QDQ*L1DL3 + 8*X(6)*QDQ*L2DL3 - 32*X(6)*QDL2*L1DL3 )
 
 + F(5,7)*B
  * ( 64*X(1)*X(3)*Y(6)*QDQ + 128*X(1)*X(3)*Y(6)*QDQ*L2DL2
  - 192*X(1)*X(3)*Y(6)*QDQ*L2DL3 + 64*X(1)*X(3)*Y(6)*QDQ*L3DL3
  - 128*X(1)*X(3)*Y(6)*QDL2 - 128*X(1)*X(3)*Y(6)*QDL2*L2DL2
  + 256*X(1)*X(3)*Y(6)*QDL2*L2DL3 - 128*X(1)*X(3)*Y(6)*QDL2*L3DL3
  - 32*X(1)*QDQ*L2DL2 + 32*X(1)*QDQ*L2DL3 - 48*X(3)*QDQ*L1DL2
  + 32*X(3)*QDQ*L1DL3 - 16*X(3)*QDQ*L2DL2 + 16*X(3)*QDQ*L2DL3
  + 64*X(3)*QDL2*L1DL2 - 64*X(3)*QDL2*L1DL3 + 64*X(4)*X(6)*Y(1)*QDQ
   + 64*X(4)*X(6)*Y(1)*QDQ*L1DL1 + 64*X(4)*X(6)*Y(1)*QDQ*L1DL2
  - 128*X(4)*X(6)*Y(1)*QDL2 - 128*X(4)*X(6)*Y(1)*QDL2*L1DL1
  - 48*X(4)*QDQ*L1DL2 + 32*X(4)*QDQ*L1DL3 - 16*X(4)*QDQ*L2DL2
  + 16*X(4)*QDQ*L2DL3 + 64*X(4)*QDL2*L1DL2 - 64*X(4)*QDL2*L1DL3
  - 32*X(6)*QDQ*L1DL2 )
 
 + F(6,7)*B
  * ( - 16*X(1)*QDQ*L3DL3 + 32*X(1)*QDL2*L3DL3 + 32*X(3)*X(4)*Y(1)
  *QDQ + 32*X(3)*X(4)*Y(1)*QDQ*L1DL1 + 32*X(3)*X(4)*Y(1)*QDQ*L1DL2
   - 64*X(3)*X(4)*Y(1)*QDL2 - 64*X(3)*X(4)*Y(1)*QDL2*L1DL1
  - 8*X(3)*QDQ*L1DL2 + 16*X(3)*QDQ*L1DL3 + 8*X(3)*QDQ*L2DL3
  - 32*X(3)*QDL2*L1DL3 + 8*X(4)*QDQ*L1DL2 + 16*X(4)*QDQ*L1DL3
  + 8*X(4)*QDQ*L2DL3 - 32*X(4)*QDL2*L1DL3 ) + 0.
 
	B QDQ,QDL1,QDL2,QDL3
L 1	Id,B*F(N~,M~)=-X(N)*Y(M)*{1 + PT(M,MU)*PT(M,MU) }
			- X(M)*Y(N)*{1 + PT(N,MU)*PT(N,MU)} - PT(N,MU)*PT(M,MU)

L 7	Id,Count,-2,Q,-1
L 8	Id,QDL1**2=0.5*QDQ*L1DL1
L 8	Al,QDL1*QDL2=0.5*QDQ*L1DL2
L 8	Al,QDL1*QDL3=0.5*QDQ*L1DL3
L 8	Al,QDL2**2=0.5*QDQ*L2DL2
L 8	Al,QDL2*QDL3=0.5*QDQ*L2DL3
L 8	Al,QDL3**2=0.5*QDQ*L3DL3

L 9	Id,Numer,A,1,B,1,X(7),1,Y(7),0.5

> P output
	*end

Terms out 389, in 389.

Terms in output 422
Running time 16 sec			Used	Maximum
Generated terms 1465 	Input space 	1696 	100000
Equal terms 737     	Output space 	17052 	250000
Cancellations 306   	Nr of expr.  	17 	255
Multiplications 14656	String space 	0 	4096
Records written 0 	Merging		0 	0

 
Rosk = 
 + QDQ
  * ( - 16 + 48*X(1)*X(3) - 96*X(1)*X(3)*X(4)*Y(5) - 96*X(1)*X(3)*X(4)
  *Y(5)*L1DL1 - 96*X(1)*X(3)*X(4)*Y(5)*L1DL2 + 192*X(1)*X(3)*X(4)*Y(5)
  *L1DL3 + 96*X(1)*X(3)*X(4)*Y(5)*L2DL3 - 96*X(1)*X(3)*X(4)*Y(5)*L3DL3
   + 96*X(1)*X(3)*X(4)*Y(6) + 192*X(1)*X(3)*X(4)*Y(6)*L2DL2
  - 288*X(1)*X(3)*X(4)*Y(6)*L2DL3 + 96*X(1)*X(3)*X(4)*Y(6)*L3DL3
  - 96*X(1)*X(3)*X(5)*Y(6) - 192*X(1)*X(3)*X(5)*Y(6)*L2DL2
  + 288*X(1)*X(3)*X(5)*Y(6)*L2DL3 - 96*X(1)*X(3)*X(5)*Y(6)*L3DL3
  - 96*X(1)*X(3)*Y(5) - 64*X(1)*X(3)*Y(5)*Y(6) - 64*X(1)*X(3)*Y(5)
  *Y(6)*L1DL1 - 128*X(1)*X(3)*Y(5)*Y(6)*L1DL1*L2DL2 + 192*X(1)*X(3)
  *Y(5)*Y(6)*L1DL1*L2DL3 - 64*X(1)*X(3)*Y(5)*Y(6)*L1DL1*L3DL3
  - 64*X(1)*X(3)*Y(5)*Y(6)*L1DL2 - 64*X(1)*X(3)*Y(5)*Y(6)*L1DL2*L2DL2
   + 128*X(1)*X(3)*Y(5)*Y(6)*L1DL2*L2DL3 - 64*X(1)*X(3)*Y(5)*Y(6)*L1DL2
  *L3DL3 + 128*X(1)*X(3)*Y(5)*Y(6)*L1DL3 + 256*X(1)*X(3)*Y(5)*Y(6)
  *L1DL3*L2DL2 - 384*X(1)*X(3)*Y(5)*Y(6)*L1DL3*L2DL3 + 128*X(1)*X(3)
  *Y(5)*Y(6)*L1DL3*L3DL3 - 128*X(1)*X(3)*Y(5)*Y(6)*L2DL2 + 64*X(1)
  *X(3)*Y(5)*Y(6)*L2DL2*L2DL3 - 128*X(1)*X(3)*Y(5)*Y(6)*L2DL2*L3DL3
   + 256*X(1)*X(3)*Y(5)*Y(6)*L2DL3 + 256*X(1)*X(3)*Y(5)*Y(6)*L2DL3
  *L3DL3 - 128*X(1)*X(3)*Y(5)*Y(6)*L2DL3^2 - 128*X(1)*X(3)*Y(5)*Y(6)
  *L3DL3 - 64*X(1)*X(3)*Y(5)*Y(6)*L3DL3^2 - 96*X(1)*X(3)*Y(5)*L1DL1
   - 16*X(1)*X(3)*Y(5)*L1DL1*L2DL3 - 96*X(1)*X(3)*Y(5)*L1DL2
  + 192*X(1)*X(3)*Y(5)*L1DL3 + 32*X(1)*X(3)*Y(5)*L1DL3*L2DL3
  + 80*X(1)*X(3)*Y(5)*L2DL3 - 16*X(1)*X(3)*Y(5)*L2DL3*L3DL3
  - 96*X(1)*X(3)*Y(5)*L3DL3 + 32*X(1)*X(3)*Y(6)*L1DL2 + 32*X(1)*X(3)
  *Y(6)*L1DL2*L2DL2 - 64*X(1)*X(3)*Y(6)*L1DL2*L2DL3 + 32*X(1)*X(3)
  *Y(6)*L1DL2*L3DL3 - 16*X(1)*X(3)*Y(6)*L2DL2*L2DL3 - 16*X(1)*X(3)
  *Y(6)*L2DL3 - 16*X(1)*X(3)*Y(6)*L2DL3*L3DL3 + 32*X(1)*X(3)*Y(6)*L2DL3^2
   + 16*X(1)*X(3)*L1DL2 - 16*X(1)*X(3)*L2DL3 - 16*X(1)*X(4)*Y(5)*L1DL1
  *L2DL3 + 32*X(1)*X(4)*Y(5)*L1DL3*L2DL3 - 16*X(1)*X(4)*Y(5)*L2DL3
   - 16*X(1)*X(4)*Y(5)*L2DL3*L3DL3 - 24*X(1)*X(4)*L2DL2 - 48*X(1)*X(4)
  *L2DL3 + 48*X(1)*X(4)*L3DL3 + 48*X(1)*X(5)*L2DL2 - 48*X(1)*X(5)*L2DL3
   - 32*X(1)*Y(5) - 32*X(1)*Y(5)*L1DL1 + 32*X(1)*Y(5)*L1DL1*L2DL2
  - 32*X(1)*Y(5)*L1DL1*L2DL3 + 32*X(1)*Y(5)*L1DL1*L3DL3 - 32*X(1)*Y(5)
  *L1DL2 + 32*X(1)*Y(5)*L1DL2*L3DL3 + 64*X(1)*Y(5)*L1DL3 - 64*X(1)
  *Y(5)*L1DL3*L2DL2 + 64*X(1)*Y(5)*L1DL3*L2DL3 - 64*X(1)*Y(5)*L1DL3
  *L3DL3 + 32*X(1)*Y(5)*L2DL2 + 32*X(1)*Y(5)*L2DL2*L3DL3 - 64*X(1)
  *Y(5)*L2DL3*L3DL3 + 32*X(1)*Y(5)*L3DL3^2 + 16*X(1)*L1DL2
  + 8*X(1)*L2DL2 - 8*X(1)*L2DL2*L3DL3 - 24*X(1)*L2DL3 + 8*X(1)*L2DL3
  *L3DL3 - 96*X(3) - 48*X(3)*X(4) - 96*X(3)*X(4)*X(5)*Y(1)
  - 96*X(3)*X(4)*X(5)*Y(1)*L1DL1 - 96*X(3)*X(4)*X(5)*Y(1)*L1DL2
  + 16*X(3)*X(4)*Y(1)*L1DL1*L2DL2 - 16*X(3)*X(4)*Y(1)*L1DL1*L2DL3
  + 16*X(3)*X(4)*Y(1)*L2DL2 - 16*X(3)*X(4)*Y(1)*L2DL3 + 96*X(3)*X(4)
  *Y(5) + 96*X(3)*X(4)*Y(5)*L1DL1 + 96*X(3)*X(4)*Y(5)*L1DL2
  - 192*X(3)*X(4)*Y(5)*L1DL3 - 96*X(3)*X(4)*Y(5)*L2DL3 + 96*X(3)*X(4)
  *Y(5)*L3DL3 - 128*X(3)*X(4)*Y(6) + 16*X(3)*X(4)*Y(6)*L1DL2
  + 16*X(3)*X(4)*Y(6)*L1DL2*L2DL2 - 32*X(3)*X(4)*Y(6)*L1DL2*L2DL3
  + 16*X(3)*X(4)*Y(6)*L1DL2*L3DL3 - 256*X(3)*X(4)*Y(6)*L2DL2
  + 384*X(3)*X(4)*Y(6)*L2DL3 - 128*X(3)*X(4)*Y(6)*L3DL3 + 96*X(3)*X(4)
  *L1DL1 + 8*X(3)*X(4)*L1DL2 - 48*X(3)*X(4)*L1DL3 - 24*X(3)*X(4)*L2DL2
   - 8*X(3)*X(4)*L2DL3 - 16*X(3)*X(5)*Y(1)*L1DL1*L2DL3 - 16*X(3)*X(5)
  *Y(1)*L2DL3 + 96*X(3)*X(5)*Y(6) + 192*X(3)*X(5)*Y(6)*L2DL2
  - 288*X(3)*X(5)*Y(6)*L2DL3 + 96*X(3)*X(5)*Y(6)*L3DL3 + 88*X(3)*X(5)
  *L1DL2 - 48*X(3)*X(5)*L1DL3 + 24*X(3)*X(5)*L2DL2 - 40*X(3)*X(5)*L2DL3
   + 16*X(3)*Y(1)*L1DL1*L2DL2 - 64*X(3)*Y(1)*L1DL1*L2DL3 + 32*X(3)
  *Y(1)*L1DL1*L3DL3 - 32*X(3)*Y(1)*L1DL2*L2DL3 + 32*X(3)*Y(1)*L1DL2
  *L3DL3 + 16*X(3)*Y(1)*L2DL2 - 64*X(3)*Y(1)*L2DL3 + 32*X(3)*Y(1)*L3DL3
   + 48*X(3)*Y(5)*L1DL1*L1DL2 - 32*X(3)*Y(5)*L1DL1*L1DL3 + 16*X(3)
  *Y(5)*L1DL1*L2DL2 - 16*X(3)*Y(5)*L1DL1*L2DL3 + 48*X(3)*Y(5)*L1DL2
   - 128*X(3)*Y(5)*L1DL2*L1DL3 - 32*X(3)*Y(5)*L1DL2*L2DL3
  + 48*X(3)*Y(5)*L1DL2*L3DL3 + 32*X(3)*Y(5)*L1DL2^2 - 32*X(3)*Y(5)
  *L1DL3 - 32*X(3)*Y(5)*L1DL3*L2DL2 + 64*X(3)*Y(5)*L1DL3*L2DL3
  - 32*X(3)*Y(5)*L1DL3*L3DL3 + 64*X(3)*Y(5)*L1DL3^2 + 16*X(3)*Y(5)
  *L2DL2 + 16*X(3)*Y(5)*L2DL2*L3DL3 - 16*X(3)*Y(5)*L2DL3 - 16*X(3)
  *Y(5)*L2DL3*L3DL3 + 16*X(3)*Y(6)*L1DL2 + 16*X(3)*Y(6)*L1DL2*L2DL2
   - 32*X(3)*Y(6)*L1DL2*L2DL3 + 16*X(3)*Y(6)*L1DL2*L3DL3 - 32*X(3)
  *Y(6)*L1DL3 - 64*X(3)*Y(6)*L1DL3*L2DL2 + 96*X(3)*Y(6)*L1DL3*L2DL3
   - 32*X(3)*Y(6)*L1DL3*L3DL3 - 16*X(3)*Y(6)*L2DL2*L2DL3 - 16*X(3)
  *Y(6)*L2DL3 - 16*X(3)*Y(6)*L2DL3*L3DL3 + 32*X(3)*Y(6)*L2DL3^2
  + 48*X(3)*L1DL1 + 16*X(3)*L1DL1*L2DL3 + 152*X(3)*L1DL2 + 16*X(3)
  *L1DL2*L1DL3 + 8*X(3)*L1DL2*L3DL3 - 16*X(3)*L1DL2^2 - 144*X(3)*L1DL3
   + 8*X(3)*L1DL3*L2DL2 - 32*X(3)*L1DL3*L2DL3 - 8*X(3)*L2DL2
  - 48*X(3)*L2DL3 + 32*X(3)*L3DL3 - 32*X(4) - 96*X(4)*X(5)*X(6)*Y(1)
   - 96*X(4)*X(5)*X(6)*Y(1)*L1DL1 - 96*X(4)*X(5)*X(6)*Y(1)*L1DL2
  - 32*X(4)*X(5)*Y(1) - 32*X(4)*X(5)*Y(1)*L1DL1 - 16*X(4)*X(5)*Y(1)
  *L1DL1*L2DL3 - 32*X(4)*X(5)*Y(1)*L1DL2 - 16*X(4)*X(5)*Y(1)*L2DL3
   + 72*X(4)*X(5)*L1DL2 - 48*X(4)*X(5)*L1DL3 + 8*X(4)*X(5)*L2DL2
  - 8*X(4)*X(5)*L2DL3 - 64*X(4)*X(6)*Y(1)*Y(5) - 128*X(4)*X(6)*Y(1)
  *Y(5)*L1DL1 - 128*X(4)*X(6)*Y(1)*Y(5)*L1DL1*L1DL2 + 128*X(4)*X(6)
  *Y(1)*Y(5)*L1DL1*L1DL3 + 64*X(4)*X(6)*Y(1)*Y(5)*L1DL1*L2DL3
  - 64*X(4)*X(6)*Y(1)*Y(5)*L1DL1*L3DL3 - 64*X(4)*X(6)*Y(1)*Y(5)*L1DL1^2
   - 128*X(4)*X(6)*Y(1)*Y(5)*L1DL2 + 128*X(4)*X(6)*Y(1)*Y(5)*L1DL2
  *L1DL3 - 64*X(4)*X(6)*Y(1)*Y(5)*L1DL2*L3DL3 + 128*X(4)*X(6)*Y(1)
  *Y(5)*L1DL3 + 64*X(4)*X(6)*Y(1)*Y(5)*L2DL3 - 64*X(4)*X(6)*Y(1)*Y(5)
  *L3DL3 + 32*X(4)*X(6)*Y(1)*L1DL1*L1DL2 - 16*X(4)*X(6)*Y(1)*L1DL1
  *L2DL3 + 32*X(4)*X(6)*Y(1)*L1DL2 - 16*X(4)*X(6)*Y(1)*L2DL3
  + 32*X(4)*X(6)*Y(5) + 32*X(4)*X(6)*Y(5)*L1DL1 + 32*X(4)*X(6)*Y(5)
  *L1DL2 - 64*X(4)*X(6)*Y(5)*L1DL3 - 32*X(4)*X(6)*Y(5)*L2DL3
  + 32*X(4)*X(6)*Y(5)*L3DL3 - 8*X(4)*X(6)*L1DL2 - 48*X(4)*X(6)*L1DL3
   - 40*X(4)*X(6)*L2DL3 + 32*X(4)*Y(1) + 32*X(4)*Y(1)*L1DL1
  + 32*X(4)*Y(1)*L1DL2 + 48*X(4)*Y(5)*L1DL1*L1DL2 - 32*X(4)*Y(5)*L1DL1
  *L1DL3 + 16*X(4)*Y(5)*L1DL1*L2DL2 - 16*X(4)*Y(5)*L1DL1*L2DL3
  + 48*X(4)*Y(5)*L1DL2 - 128*X(4)*Y(5)*L1DL2*L1DL3 - 32*X(4)*Y(5)*L1DL2
  *L2DL3 + 48*X(4)*Y(5)*L1DL2*L3DL3 + 32*X(4)*Y(5)*L1DL2^2
  - 32*X(4)*Y(5)*L1DL3 - 32*X(4)*Y(5)*L1DL3*L2DL2 + 64*X(4)*Y(5)*L1DL3
  *L2DL3 - 32*X(4)*Y(5)*L1DL3*L3DL3 + 64*X(4)*Y(5)*L1DL3^2
  + 16*X(4)*Y(5)*L2DL2 + 16*X(4)*Y(5)*L2DL2*L3DL3 - 16*X(4)*Y(5)*L2DL3
   - 16*X(4)*Y(5)*L2DL3*L3DL3 + 16*X(4)*L1DL1 + 16*X(4)*L1DL1*L2DL3
   + 40*X(4)*L1DL2 + 16*X(4)*L1DL2*L1DL3 + 8*X(4)*L1DL2*L3DL3
  - 16*X(4)*L1DL2^2 - 48*X(4)*L1DL3 + 8*X(4)*L1DL3*L2DL2 - 32*X(4)
  *L1DL3*L2DL3 + 40*X(4)*L2DL2 + 16*X(4)*L2DL3 - 32*X(4)*L3DL3
  + 16*X(5) + 48*X(5)*X(6)*L1DL2 - 32*X(5)*Y(1) - 32*X(5)*Y(1)*L1DL1
   + 32*X(5)*Y(1)*L1DL1*L3DL3 - 32*X(5)*Y(1)*L1DL2 + 32*X(5)*Y(1)*L1DL2
  *L3DL3 + 32*X(5)*Y(1)*L3DL3 + 16*X(5)*L1DL2 - 48*X(5)*L2DL2
  + 48*X(5)*L2DL3 - 16*X(5)*L3DL3 - 64*X(6) + 32*X(6)*Y(1)
  + 32*X(6)*Y(1)*L1DL1 - 32*X(6)*Y(1)*L1DL1*L3DL3 + 32*X(6)*Y(1)*L1DL2
   - 32*X(6)*Y(1)*L1DL2*L3DL3 - 32*X(6)*Y(1)*L3DL3 + 32*X(6)*Y(5)*L1DL1
  *L1DL2 + 32*X(6)*Y(5)*L1DL2 - 64*X(6)*Y(5)*L1DL2*L1DL3 + 32*X(6)
  *Y(5)*L1DL2*L3DL3 + 56*X(6)*L1DL2 - 8*X(6)*L1DL2*L3DL3 - 48*X(6)
  *L2DL3 + 64*X(6)*L3DL3 + 32*L1DL1 - 32*L1DL1*L3DL3 - 8*L1DL2
  - 16*L1DL2*L2DL3 + 8*L1DL2*L3DL3 - 16*L1DL3 + 16*L1DL3*L2DL2
  - 16*L1DL3*L2DL3 + 16*L1DL3*L3DL3 - 8*L2DL2 + 8*L2DL2*L3DL3
  - 8*L2DL3 + 8*L2DL3*L3DL3 + 16*L3DL3 )
 
 + QDL2
  * ( 32 - 96*X(1)*X(3) + 192*X(1)*X(3)*X(4)*Y(5) + 192*X(1)*X(3)*X(4)
  *Y(5)*L1DL1 - 384*X(1)*X(3)*X(4)*Y(5)*L1DL3 + 192*X(1)*X(3)*X(4)
  *Y(5)*L3DL3 - 192*X(1)*X(3)*X(4)*Y(6) - 192*X(1)*X(3)*X(4)*Y(6)*L2DL2
   + 384*X(1)*X(3)*X(4)*Y(6)*L2DL3 - 192*X(1)*X(3)*X(4)*Y(6)*L3DL3
   + 192*X(1)*X(3)*X(5)*Y(6) + 192*X(1)*X(3)*X(5)*Y(6)*L2DL2
  - 384*X(1)*X(3)*X(5)*Y(6)*L2DL3 + 192*X(1)*X(3)*X(5)*Y(6)*L3DL3
  + 192*X(1)*X(3)*Y(5) + 128*X(1)*X(3)*Y(5)*Y(6) + 128*X(1)*X(3)*Y(5)
  *Y(6)*L1DL1 + 128*X(1)*X(3)*Y(5)*Y(6)*L1DL1*L2DL2 - 256*X(1)*X(3)
  *Y(5)*Y(6)*L1DL1*L2DL3 + 128*X(1)*X(3)*Y(5)*Y(6)*L1DL1*L3DL3
  - 256*X(1)*X(3)*Y(5)*Y(6)*L1DL3 - 256*X(1)*X(3)*Y(5)*Y(6)*L1DL3*L2DL2
   + 512*X(1)*X(3)*Y(5)*Y(6)*L1DL3*L2DL3 - 256*X(1)*X(3)*Y(5)*Y(6)
  *L1DL3*L3DL3 + 128*X(1)*X(3)*Y(5)*Y(6)*L2DL2 + 128*X(1)*X(3)*Y(5)
  *Y(6)*L2DL2*L3DL3 - 256*X(1)*X(3)*Y(5)*Y(6)*L2DL3 - 256*X(1)*X(3)
  *Y(5)*Y(6)*L2DL3*L3DL3 + 256*X(1)*X(3)*Y(5)*Y(6)*L3DL3 + 128*X(1)
  *X(3)*Y(5)*Y(6)*L3DL3^2 + 192*X(1)*X(3)*Y(5)*L1DL1 - 384*X(1)*X(3)
  *Y(5)*L1DL3 + 192*X(1)*X(3)*Y(5)*L3DL3 + 96*X(1)*X(4)*L2DL3
  - 96*X(1)*X(4)*L3DL3 + 64*X(1)*Y(5) + 64*X(1)*Y(5)*L1DL1
  - 64*X(1)*Y(5)*L1DL1*L3DL3 - 128*X(1)*Y(5)*L1DL3 + 128*X(1)*Y(5)
  *L1DL3*L3DL3 - 64*X(1)*Y(5)*L3DL3^2 + 192*X(3) + 96*X(3)*X(4)
  + 192*X(3)*X(4)*X(5)*Y(1) + 192*X(3)*X(4)*X(5)*Y(1)*L1DL1
  - 192*X(3)*X(4)*Y(5) - 192*X(3)*X(4)*Y(5)*L1DL1 + 384*X(3)*X(4)*Y(5)
  *L1DL3 - 192*X(3)*X(4)*Y(5)*L3DL3 + 256*X(3)*X(4)*Y(6) + 256*X(3)
  *X(4)*Y(6)*L2DL2 - 512*X(3)*X(4)*Y(6)*L2DL3 + 256*X(3)*X(4)*Y(6)
  *L3DL3 - 192*X(3)*X(4)*L1DL1 + 96*X(3)*X(4)*L1DL2 + 96*X(3)*X(4)
  *L1DL3 - 192*X(3)*X(5)*Y(6) - 192*X(3)*X(5)*Y(6)*L2DL2 + 384*X(3)
  *X(5)*Y(6)*L2DL3 - 192*X(3)*X(5)*Y(6)*L3DL3 - 96*X(3)*X(5)*L1DL2
   + 96*X(3)*X(5)*L1DL3 + 64*X(3)*Y(1)*L1DL1*L2DL3 - 64*X(3)*Y(1)*L1DL1
  *L3DL3 + 64*X(3)*Y(1)*L2DL3 - 64*X(3)*Y(1)*L3DL3 - 64*X(3)*Y(5)*L1DL1
  *L1DL2 + 64*X(3)*Y(5)*L1DL1*L1DL3 - 64*X(3)*Y(5)*L1DL2 + 128*X(3)
  *Y(5)*L1DL2*L1DL3 - 64*X(3)*Y(5)*L1DL2*L3DL3 + 64*X(3)*Y(5)*L1DL3
   + 64*X(3)*Y(5)*L1DL3*L3DL3 - 128*X(3)*Y(5)*L1DL3^2 + 64*X(3)*Y(6)
  *L1DL3 + 64*X(3)*Y(6)*L1DL3*L2DL2 - 128*X(3)*Y(6)*L1DL3*L2DL3
  + 64*X(3)*Y(6)*L1DL3*L3DL3 - 96*X(3)*L1DL1 - 96*X(3)*L1DL2
  + 288*X(3)*L1DL3 - 32*X(3)*L2DL3 - 64*X(3)*L3DL3 + 64*X(4)
  + 192*X(4)*X(5)*X(6)*Y(1) + 192*X(4)*X(5)*X(6)*Y(1)*L1DL1
  + 64*X(4)*X(5)*Y(1) + 64*X(4)*X(5)*Y(1)*L1DL1 - 96*X(4)*X(5)*L1DL2
   + 96*X(4)*X(5)*L1DL3 + 128*X(4)*X(6)*Y(1)*Y(5) + 256*X(4)*X(6)*Y(1)
  *Y(5)*L1DL1 - 256*X(4)*X(6)*Y(1)*Y(5)*L1DL1*L1DL3 + 128*X(4)*X(6)
  *Y(1)*Y(5)*L1DL1*L3DL3 + 128*X(4)*X(6)*Y(1)*Y(5)*L1DL1^2
  - 256*X(4)*X(6)*Y(1)*Y(5)*L1DL3 + 128*X(4)*X(6)*Y(1)*Y(5)*L3DL3
  - 64*X(4)*X(6)*Y(5) - 64*X(4)*X(6)*Y(5)*L1DL1 + 128*X(4)*X(6)*Y(5)
  *L1DL3 - 64*X(4)*X(6)*Y(5)*L3DL3 + 96*X(4)*X(6)*L1DL3 - 64*X(4)*Y(1)
   - 64*X(4)*Y(1)*L1DL1 - 64*X(4)*Y(5)*L1DL1*L1DL2 + 64*X(4)*Y(5)*L1DL1
  *L1DL3 - 64*X(4)*Y(5)*L1DL2 + 128*X(4)*Y(5)*L1DL2*L1DL3
  - 64*X(4)*Y(5)*L1DL2*L3DL3 + 64*X(4)*Y(5)*L1DL3 + 64*X(4)*Y(5)*L1DL3
  *L3DL3 - 128*X(4)*Y(5)*L1DL3^2 - 32*X(4)*L1DL1 - 32*X(4)*L1DL2
  + 96*X(4)*L1DL3 - 96*X(4)*L2DL3 + 64*X(4)*L3DL3 - 32*X(5)
  + 64*X(5)*Y(1) + 64*X(5)*Y(1)*L1DL1 - 64*X(5)*Y(1)*L1DL1*L3DL3
  - 64*X(5)*Y(1)*L3DL3 + 32*X(5)*L3DL3 + 128*X(6) - 64*X(6)*Y(1)
  - 64*X(6)*Y(1)*L1DL1 + 64*X(6)*Y(1)*L1DL1*L3DL3 + 64*X(6)*Y(1)*L3DL3
   - 128*X(6)*L3DL3 - 64*L1DL1 + 64*L1DL1*L3DL3 + 32*L1DL2
  - 32*L1DL2*L3DL3 + 32*L1DL3 - 32*L1DL3*L3DL3 - 32*L3DL3 ) + 0.
 

End run. Time 17 sec.
Schoonschip, 68000 version of June 27, 1991. Public version.
Date: Fri Aug  9 1991 00:52:55.  Memory: start 0001B84C, length 476348.


C Spinors 17. Production of 3 muons by one muon in Coulomb field.

> P stat
	V X1,X2,X3,X4,P,PP,R,RP,Q
	F D1=u,D2=u,D3=u,D4=u,SDI=u,PROP=u,PROL=u

	Z xx=	{SDI(I1,I2,PP,RP,MU)*Conjg(SDI(I3,I4,PP,RP,MP))} +
		{SDI(I1,I2,RP,PP,MU)*Conjg(SDI(I3,I4,RP,PP,MP))} -
		{SDI(I1,I2,PP,RP,MU)*Conjg(SDI(I3,I4,RP,PP,MP))} -
		{SDI(I3,I4,RP,PP,MP)*Conjg(SDI(I1,I2,PP,RP,MU))}

L 3	Id,SDI(I1~,I2~,PP~,RP~,MU~)=	D1(I1,I2,PP,RP,MU) +
					D2(I1,I2,PP,RP,MU) +
					D3(I1,I2,PP,RP,MU) +
					D4(I1,I2,PP,RP,MU)
L 4	Id,D1(I1~,I2~,PP~,RP~,MU~)=	PPDX1*Ubg(I1,AM,RP)*G(I1,MU)*PROP(I1,R,-Q,4)
		*Ug(I1,AM,R)*Ubg(I2,AM,PP)*G(I2,MU)*Ug(I2,-AM,P)
L 4	Al,D2(I1~,I2~,PP~,RP~,MU~)=	PPDX2*Ubg(I1,AM,RP)*PROL(I1,RP,Q,4)
		*G(I1,MU)*Ug(I1,AM,R)*Ubg(I2,AM,PP)*G(I2,MU)*Ug(I2,-AM,P)
L 4	Al,D3(I1~,I2~,PP~,RP~,MU~)=	PPDX3*Ubg(I1,AM,RP)*G(I1,MU)*Ug(I1,AM,R)
		*Ubg(I2,AM,PP)*G(I2,MU)*PROP(I2,-P,-Q,4)*Ug(I2,-AM,P)
L 4	Al,D4(I1~,I2~,PP~,RP~,MU~)=	PPDX4*Ubg(I1,AM,RP)*G(I1,MU)*Ug(I1,AM,R)
		*Ubg(I2,AM,PP)*PROL(I2,PP,Q,4)*G(I2,MU)*Ug(I2,-AM,P)

L 5	Id,Spin,I1,I2

L 6	Id,PROP(I1~,R~,Q~,L~)=i*G(I1,Q)*G(I1,L) + 2*i*D(R,L)
L 6	Al,PROL(I1~,RP~,Q~,L~)=i*G(I1,L)*G(I1,Q) + 2*i*D(RP,L)
	B X1DPP,X1DRP,X2DPP,X2DRP,X3DPP,X3DRP,X4DPP,X4DRP

L 7	Id,Trick,Trace,I1,I2

	*end

Terms in output 948
Running time 27 sec			Used	Maximum
Generated terms 8192 	Input space 	2788 	100000
Equal terms 5819     	Output space 	17862 	250000
Cancellations 1425   	Nr of expr.  	23 	255
Multiplications 92276	String space 	0 	4096
Records written 0 	Merging		0 	0


Terms in output 2372
Running time 51 sec			Used	Maximum
Generated terms 14520 	Input space 	2788 	100000
Equal terms 9978     	Output space 	65376 	250000
Cancellations 2170   	Nr of expr.  	23 	255
Multiplications 160004	String space 	0 	4096
Records written 0 	Merging		0 	0

 
xx = 
 + X1DPP*X1DRP
  * ( 128*AM^2*P(4)*R(4)*RDQ - 64*AM^2*P(4)*R(4)*QDQ - 128*AM^2*PP(4)
  *R(4)*RDQ + 64*AM^2*PP(4)*R(4)*QDQ - 128*AM^2*R(4)*RP(4)*RDQ
  + 64*AM^2*R(4)*RP(4)*QDQ - 128*AM^2*R(4)*Q(4)*PDPP - 128*AM^2*R(4)
  *Q(4)*PDR - 128*AM^2*R(4)*Q(4)*PDRP + 128*AM^2*R(4)*Q(4)*PDQ
  + 128*AM^2*R(4)*Q(4)*PPDR + 128*AM^2*R(4)*Q(4)*PPDRP - 128*AM^2*R(4)
  *Q(4)*PPDQ + 128*AM^2*R(4)*Q(4)*RDRP - 128*AM^2*R(4)*Q(4)*RPDQ
  + 128*AM^2*R(4)^2*PDPP + 128*AM^2*R(4)^2*PDR + 128*AM^2*R(4)^2*PDRP
   - 128*AM^2*R(4)^2*PDQ - 128*AM^2*R(4)^2*PPDR - 128*AM^2*R(4)^2*PPDRP
   + 128*AM^2*R(4)^2*PPDQ - 128*AM^2*R(4)^2*RDRP + 128*AM^2*R(4)^2
  *RPDQ + 32*AM^2*PDPP*QDQ + 32*AM^2*PDR*QDQ + 32*AM^2*PDRP*QDQ
  - 64*AM^2*PDQ*RDQ - 32*AM^2*PPDR*QDQ - 32*AM^2*PPDRP*QDQ
  + 64*AM^2*PPDQ*RDQ - 32*AM^2*RDRP*QDQ + 64*AM^2*RDQ*RPDQ
  + 256*AM^4*R(4)*Q(4) - 256*AM^4*R(4)^2 - 64*AM^4*QDQ + 256*P(4)*R(4)
  *PPDRP*RDQ - 128*P(4)*R(4)*PPDRP*QDQ - 256*R(4)*Q(4)*PDR*PPDRP
  + 256*R(4)*Q(4)*PDQ*PPDRP + 256*R(4)^2*PDR*PPDRP - 256*R(4)^2*PDQ
  *PPDRP + 64*PDR*PPDRP*QDQ - 128*PDQ*PPDRP*RDQ )
 
 + X1DPP*X2DPP
  * ( 128*AM^2*P(4)*PP(4)*QDQ - 128*AM^2*P(4)*Q(4)*PPDQ - 128*AM^2
  *PP(4)*Q(4)*PDQ + 256*AM^2*R(4)*RP(4)*PDPP - 256*AM^2*R(4)*RP(4)
  *RDRP - 128*AM^2*R(4)*RP(4)*RDQ + 128*AM^2*R(4)*RP(4)*RPDQ
  + 128*AM^2*R(4)*Q(4)*PDPP - 128*AM^2*R(4)*Q(4)*RDRP + 128*AM^2*R(4)^2
  *RPDQ - 128*AM^2*RP(4)*Q(4)*PDPP + 128*AM^2*RP(4)*Q(4)*RDRP
  - 128*AM^2*RP(4)^2*RDQ - 64*AM^2*PDPP*QDQ + 128*AM^2*PDQ*PPDQ
  + 64*AM^2*RDRP*QDQ - 512*AM^4*R(4)*RP(4) - 256*AM^4*R(4)*Q(4)
  + 256*AM^4*RP(4)*Q(4) + 128*AM^4*Q(4)^2 + 128*P(4)*PP(4)*RDRP*QDQ
   - 256*P(4)*PP(4)*RDQ*RPDQ - 128*P(4)*R(4)*PPDR*RPDQ - 64*P(4)*R(4)
  *PPDRP*QDQ + 128*P(4)*R(4)*PPDQ*RPDQ - 64*P(4)*RP(4)*PPDR*QDQ
  + 128*P(4)*RP(4)*PPDRP*RDQ + 128*P(4)*RP(4)*PPDQ*RDQ + 128*P(4)*Q(4)
  *PPDR*RPDQ + 128*P(4)*Q(4)*PPDRP*RDQ - 128*P(4)*Q(4)*PPDQ*RDRP
  - 128*PP(4)*R(4)*PDR*RPDQ - 64*PP(4)*R(4)*PDRP*QDQ + 128*PP(4)*R(4)
  *PDQ*RPDQ - 64*PP(4)*RP(4)*PDR*QDQ + 128*PP(4)*RP(4)*PDRP*RDQ
  + 128*PP(4)*RP(4)*PDQ*RDQ + 128*PP(4)*Q(4)*PDR*RPDQ + 128*PP(4)*Q(4)
  *PDRP*RDQ - 128*PP(4)*Q(4)*PDQ*RDRP + 128*R(4)*RP(4)*PDPP*QDQ
  + 256*R(4)*RP(4)*PDR*PPDRP + 128*R(4)*RP(4)*PDR*PPDQ + 256*R(4)*RP(4)
  *PDRP*PPDR - 128*R(4)*RP(4)*PDRP*PPDQ + 128*R(4)*RP(4)*PDQ*PPDR
  - 128*R(4)*RP(4)*PDQ*PPDRP - 256*R(4)*RP(4)*PDQ*PPDQ - 128*R(4)*Q(4)
  *PDPP*RPDQ + 128*R(4)*Q(4)*PDR*PPDRP + 128*R(4)*Q(4)*PDRP*PPDR
  - 128*RP(4)*Q(4)*PDPP*RDQ - 128*RP(4)*Q(4)*PDR*PPDRP - 128*RP(4)
  *Q(4)*PDRP*PPDR + 128*Q(4)^2*PDPP*RDRP - 128*Q(4)^2*PDR*PPDRP
  - 128*Q(4)^2*PDRP*PPDR - 128*PDPP*RDRP*QDQ + 128*PDPP*RDQ*RPDQ
  + 64*PDR*PPDRP*QDQ - 64*PDR*PPDQ*RPDQ + 64*PDRP*PPDR*QDQ
  - 64*PDRP*PPDQ*RDQ - 64*PDQ*PPDR*RPDQ - 64*PDQ*PPDRP*RDQ
  + 128*PDQ*PPDQ*RDRP )
 
 + X1DPP*X2DRP
  * ( - 64*AM^2*P(4)*PP(4)*PPDQ + 64*AM^2*P(4)*PP(4)*RDQ + 64*AM^2
  *P(4)*PP(4)*RPDQ - 64*AM^2*P(4)*PP(4)*QDQ - 64*AM^2*P(4)*R(4)*PPDQ
   - 64*AM^2*P(4)*R(4)*RDQ - 64*AM^2*P(4)*R(4)*RPDQ + 64*AM^2*P(4)
  *RP(4)*QDQ + 64*AM^2*P(4)*Q(4)*PPDQ + 64*AM^2*P(4)*Q(4)*RDQ
  + 128*AM^2*PP(4)*R(4)*PDPP + 128*AM^2*PP(4)*R(4)*PDR + 128*AM^2*PP(4)
  *R(4)*PDRP - 128*AM^2*PP(4)*R(4)*PPDR - 128*AM^2*PP(4)*R(4)*PPDRP
   + 64*AM^2*PP(4)*R(4)*PPDQ - 128*AM^2*PP(4)*R(4)*RDRP - 64*AM^2*PP(4)
  *R(4)*RDQ - 64*AM^2*PP(4)*RP(4)*PDQ + 64*AM^2*PP(4)*RP(4)*PPDQ
  - 64*AM^2*PP(4)*RP(4)*RDQ + 64*AM^2*PP(4)*RP(4)*QDQ - 64*AM^2*PP(4)
  *Q(4)*PDPP - 64*AM^2*PP(4)*Q(4)*PDR - 64*AM^2*PP(4)*Q(4)*PDRP
  + 64*AM^2*PP(4)*Q(4)*PDQ + 64*AM^2*PP(4)*Q(4)*PPDR + 64*AM^2*PP(4)
  *Q(4)*PPDRP + 64*AM^2*PP(4)*Q(4)*RDRP - 64*AM^2*PP(4)*Q(4)*RPDQ
  + 64*AM^2*PP(4)^2*PDQ - 64*AM^2*PP(4)^2*RDQ - 64*AM^2*PP(4)^2*RPDQ
   + 64*AM^2*R(4)*RP(4)*PDQ + 64*AM^2*R(4)*RP(4)*PPDQ + 64*AM^2*R(4)
  *RP(4)*RDQ + 64*AM^2*R(4)*Q(4)*PDPP + 64*AM^2*R(4)*Q(4)*PDR
  + 64*AM^2*R(4)*Q(4)*PDRP - 64*AM^2*R(4)*Q(4)*PDQ - 64*AM^2*R(4)*Q(4)
  *PPDR - 64*AM^2*R(4)*Q(4)*PPDRP - 64*AM^2*R(4)*Q(4)*RDRP
  + 64*AM^2*R(4)*Q(4)*RPDQ + 64*AM^2*R(4)^2*PDQ + 64*AM^2*R(4)^2*PPDQ
   - 64*AM^2*R(4)^2*RPDQ - 128*AM^2*RP(4)*Q(4)*PDQ - 64*AM^2*RP(4)
  *Q(4)*PPDQ - 64*AM^2*RP(4)*Q(4)*RDQ - 64*AM^2*Q(4)^2*PDPP
  - 64*AM^2*Q(4)^2*PDR + 64*AM^2*Q(4)^2*PPDRP + 64*AM^2*Q(4)^2*RDRP
   + 32*AM^2*PDPP*QDQ + 32*AM^2*PDR*QDQ - 32*AM^2*PDRP*QDQ
  - 64*AM^2*PDQ*PPDQ + 64*AM^2*PDQ*RPDQ + 32*AM^2*PPDR*QDQ
  - 32*AM^2*PPDRP*QDQ + 64*AM^2*PPDQ*RPDQ - 32*AM^2*RDRP*QDQ
  - 256*AM^4*PP(4)*R(4) + 128*AM^4*PP(4)*Q(4) - 128*AM^4*R(4)*Q(4)
   + 64*AM^4*Q(4)^2 + 128*P(4)*PP(4)*PPDRP*RDQ - 64*P(4)*PP(4)*RDRP
  *QDQ + 128*P(4)*PP(4)*RDQ*RPDQ + 64*P(4)*RP(4)*PPDR*QDQ
  - 128*P(4)*RP(4)*PPDQ*RDQ - 64*P(4)*Q(4)*PPDR*RPDQ + 64*P(4)*Q(4)
  *PPDRP*RDQ + 64*P(4)*Q(4)*PPDQ*RDRP + 256*PP(4)*R(4)*PDR*PPDRP
  + 128*PP(4)*R(4)*PDR*RPDQ + 64*PP(4)*R(4)*PDRP*QDQ - 128*PP(4)*R(4)
  *PDQ*PPDRP - 128*PP(4)*R(4)*PDQ*RPDQ - 128*PP(4)*Q(4)*PDR*PPDRP
  - 64*PP(4)*Q(4)*PDR*RPDQ - 64*PP(4)*Q(4)*PDRP*RDQ + 64*PP(4)*Q(4)
  *PDQ*RDRP - 64*R(4)*RP(4)*PDPP*QDQ - 128*R(4)*RP(4)*PDR*PPDQ
  + 128*R(4)*RP(4)*PDQ*PPDQ + 64*R(4)*Q(4)*PDPP*RPDQ + 128*R(4)*Q(4)
  *PDR*PPDRP - 64*R(4)*Q(4)*PDRP*PPDQ - 64*R(4)*Q(4)*PDQ*PPDRP
  + 64*RP(4)*Q(4)*PDPP*RDQ + 64*RP(4)*Q(4)*PDR*PPDQ - 64*RP(4)*Q(4)
  *PDQ*PPDR - 64*Q(4)^2*PDPP*RDRP - 64*Q(4)^2*PDR*PPDRP + 64*Q(4)^2
  *PDRP*PPDR + 64*PDPP*RDRP*QDQ - 64*PDPP*RDQ*RPDQ - 64*PDRP*PPDR*QDQ
   + 64*PDRP*PPDQ*RDQ + 64*PDQ*PPDR*RPDQ - 64*PDQ*PPDQ*RDRP )
 
 + X1DPP*X3DPP
  * ( 64*AM^2*P(4)*PP(4)*QDQ - 256*AM^2*P(4)*R(4)*PDPP - 128*AM^2*P(4)
  *R(4)*PPDQ + 256*AM^2*P(4)*R(4)*RDRP - 128*AM^2*P(4)*R(4)*RPDQ
  + 128*AM^2*P(4)*RP(4)*RDQ + 128*AM^2*P(4)*Q(4)*PDPP - 128*AM^2*P(4)
  *Q(4)*RDRP + 128*AM^2*PP(4)*R(4)*PDQ - 128*AM^2*PP(4)*Q(4)*PDQ
  - 64*AM^2*R(4)*RP(4)*QDQ - 128*AM^2*R(4)*Q(4)*PDPP + 128*AM^2*R(4)
  *Q(4)*RDRP + 128*AM^2*RP(4)*Q(4)*RDQ + 128*AM^2*Q(4)^2*PDPP
  - 128*AM^2*Q(4)^2*RDRP - 64*AM^2*PDPP*QDQ + 64*AM^2*PDQ*PPDQ
  + 64*AM^2*RDRP*QDQ - 64*AM^2*RDQ*RPDQ + 512*AM^4*P(4)*R(4)
  - 256*AM^4*P(4)*Q(4) + 256*AM^4*R(4)*Q(4) - 192*AM^4*Q(4)^2
  + 64*AM^4*QDQ - 128*P(4)*PP(4)*PDRP*RDQ + 64*P(4)*PP(4)*RDRP*QDQ
   - 128*P(4)*PP(4)*RDQ*RPDQ - 256*P(4)*R(4)*PDR*PPDRP - 256*P(4)*R(4)
  *PDRP*PPDR + 128*P(4)*R(4)*PDRP*PPDQ + 128*P(4)*R(4)*PDQ*PPDRP
  - 128*P(4)*R(4)*PPDR*RPDQ - 128*P(4)*R(4)*PPDRP*RDQ + 64*P(4)*R(4)
  *PPDRP*QDQ + 128*P(4)*R(4)*PPDQ*RPDQ + 128*P(4)*Q(4)*PDR*PPDRP
  + 128*P(4)*Q(4)*PDRP*PPDR + 64*P(4)*Q(4)*PPDR*RPDQ - 64*P(4)*Q(4)
  *PPDRP*RDQ - 64*P(4)*Q(4)*PPDQ*RDRP - 128*P(4)^2*PPDRP*RDQ
  - 64*PP(4)*RP(4)*PDR*QDQ + 128*PP(4)*RP(4)*PDQ*RDQ + 64*PP(4)*Q(4)
  *PDR*RPDQ - 64*PP(4)*Q(4)*PDRP*RDQ - 64*PP(4)*Q(4)*PDQ*RDRP
  + 64*R(4)*RP(4)*PDPP*QDQ + 128*R(4)*RP(4)*PDQ*PPDR - 128*R(4)*RP(4)
  *PDQ*PPDQ - 64*R(4)*Q(4)*PDPP*RPDQ - 128*R(4)*Q(4)*PDR*PPDRP
  - 128*R(4)*Q(4)*PDRP*PPDR + 64*R(4)*Q(4)*PDRP*PPDQ - 64*R(4)*Q(4)
  *PDQ*PPDRP + 128*R(4)^2*PDQ*PPDRP - 64*RP(4)*Q(4)*PDPP*RDQ
  + 64*RP(4)*Q(4)*PDR*PPDQ - 64*RP(4)*Q(4)*PDQ*PPDR + 64*Q(4)^2*PDPP
  *RDRP + 64*Q(4)^2*PDR*PPDRP + 64*Q(4)^2*PDRP*PPDR - 64*PDPP*RDRP
  *QDQ + 64*PDPP*RDQ*RPDQ - 64*PDR*PPDQ*RPDQ + 64*PDQ*PPDRP*RDQ
  + 64*PDQ*PPDQ*RDRP )
 
 + X1DPP*X3DRP
  * ( - 64*AM^2*P(4)*PP(4)*PDQ + 64*AM^2*P(4)*PP(4)*RDQ + 64*AM^2*P(4)
  *PP(4)*RPDQ - 128*AM^2*P(4)*R(4)*PDPP - 128*AM^2*P(4)*R(4)*PDR
  - 128*AM^2*P(4)*R(4)*PDRP + 64*AM^2*P(4)*R(4)*PDQ + 128*AM^2*P(4)
  *R(4)*PPDR + 128*AM^2*P(4)*R(4)*PPDRP - 128*AM^2*P(4)*R(4)*PPDQ
  + 128*AM^2*P(4)*R(4)*RDRP - 64*AM^2*P(4)*R(4)*RDQ - 128*AM^2*P(4)
  *R(4)*RPDQ + 64*AM^2*P(4)*RP(4)*PDQ - 64*AM^2*P(4)*RP(4)*PPDQ
  + 64*AM^2*P(4)*RP(4)*RDQ + 64*AM^2*P(4)*RP(4)*QDQ + 64*AM^2*P(4)
  *Q(4)*PDPP + 64*AM^2*P(4)*Q(4)*PDR + 64*AM^2*P(4)*Q(4)*PDRP
  - 64*AM^2*P(4)*Q(4)*PPDR - 64*AM^2*P(4)*Q(4)*PPDRP + 64*AM^2*P(4)
  *Q(4)*PPDQ - 64*AM^2*P(4)*Q(4)*RDRP - 64*AM^2*P(4)*Q(4)*RPDQ
  + 64*AM^2*P(4)^2*PPDQ - 64*AM^2*P(4)^2*RDQ - 64*AM^2*P(4)^2*RPDQ
   + 64*AM^2*PP(4)*R(4)*PDQ - 64*AM^2*PP(4)*R(4)*RDQ - 64*AM^2*PP(4)
  *R(4)*RPDQ + 64*AM^2*PP(4)*RP(4)*QDQ - 64*AM^2*PP(4)*Q(4)*PDQ
  + 64*AM^2*PP(4)*Q(4)*RDQ + 64*AM^2*R(4)*RP(4)*PDQ + 64*AM^2*R(4)
  *RP(4)*PPDQ + 64*AM^2*R(4)*RP(4)*RDQ - 64*AM^2*R(4)*RP(4)*QDQ
  - 64*AM^2*R(4)*Q(4)*PDPP - 64*AM^2*R(4)*Q(4)*PDR - 64*AM^2*R(4)*Q(4)
  *PDRP + 64*AM^2*R(4)*Q(4)*PPDR + 64*AM^2*R(4)*Q(4)*PPDRP
  - 64*AM^2*R(4)*Q(4)*PPDQ + 64*AM^2*R(4)*Q(4)*RDRP + 64*AM^2*R(4)
  *Q(4)*RPDQ + 64*AM^2*R(4)^2*PDQ + 64*AM^2*R(4)^2*PPDQ - 64*AM^2*R(4)^2
  *RPDQ - 64*AM^2*RP(4)*Q(4)*PDQ - 128*AM^2*RP(4)*Q(4)*PPDQ
  + 64*AM^2*RP(4)*Q(4)*RDQ + 64*AM^2*Q(4)^2*PDPP + 64*AM^2*Q(4)^2*PDRP
   - 64*AM^2*Q(4)^2*PPDR - 64*AM^2*Q(4)^2*RDRP - 32*AM^2*PDPP*QDQ
  + 32*AM^2*PDR*QDQ - 32*AM^2*PDRP*QDQ + 64*AM^2*PDQ*RPDQ
  + 32*AM^2*PPDR*QDQ - 32*AM^2*PPDRP*QDQ + 64*AM^2*PPDQ*RPDQ
  + 32*AM^2*RDRP*QDQ - 64*AM^2*RDQ*RPDQ + 256*AM^4*P(4)*R(4)
  - 128*AM^4*P(4)*Q(4) + 128*AM^4*R(4)*Q(4) - 128*AM^4*Q(4)^2
  + 64*AM^4*QDQ - 256*P(4)*R(4)*PDR*PPDRP + 128*P(4)*R(4)*PDQ*PPDRP
   - 128*P(4)*R(4)*PPDRP*RDQ + 128*P(4)*R(4)*PPDRP*QDQ + 128*P(4)*Q(4)
  *PDR*PPDRP - 128*P(4)*Q(4)*PPDRP*RDQ - 128*P(4)^2*PPDRP*RDQ
  - 128*R(4)*Q(4)*PDR*PPDRP - 128*R(4)*Q(4)*PDQ*PPDRP + 128*R(4)^2
  *PDQ*PPDRP + 128*Q(4)^2*PDR*PPDRP - 64*PDR*PPDRP*QDQ + 128*PDQ*PPDRP
  *RDQ )
 
 + X1DPP*X4DPP
  * ( - 64*AM^2*P(4)*PP(4)*QDQ - 128*AM^2*P(4)*R(4)*PPDQ + 128*AM^2
  *P(4)*Q(4)*PPDQ + 256*AM^2*PP(4)*R(4)*PDPP + 128*AM^2*PP(4)*R(4)
  *PDQ - 256*AM^2*PP(4)*R(4)*RDRP + 128*AM^2*PP(4)*R(4)*RPDQ
  - 128*AM^2*PP(4)*RP(4)*RDQ - 128*AM^2*PP(4)*Q(4)*PDPP + 128*AM^2
  *PP(4)*Q(4)*RDRP + 64*AM^2*R(4)*RP(4)*QDQ + 128*AM^2*R(4)*Q(4)*PDPP
   - 128*AM^2*R(4)*Q(4)*RDRP - 128*AM^2*RP(4)*Q(4)*RDQ - 128*AM^2*Q(4)^2
  *PDPP + 128*AM^2*Q(4)^2*RDRP + 64*AM^2*PDPP*QDQ - 64*AM^2*PDQ*PPDQ
   - 64*AM^2*RDRP*QDQ + 64*AM^2*RDQ*RPDQ - 512*AM^4*PP(4)*R(4)
  + 256*AM^4*PP(4)*Q(4) - 256*AM^4*R(4)*Q(4) + 192*AM^4*Q(4)^2
  - 64*AM^4*QDQ + 128*P(4)*PP(4)*PPDRP*RDQ - 64*P(4)*PP(4)*RDRP*QDQ
   + 128*P(4)*PP(4)*RDQ*RPDQ + 64*P(4)*RP(4)*PPDR*QDQ - 128*P(4)*RP(4)
  *PPDQ*RDQ - 64*P(4)*Q(4)*PPDR*RPDQ + 64*P(4)*Q(4)*PPDRP*RDQ
  + 64*P(4)*Q(4)*PPDQ*RDRP + 256*PP(4)*R(4)*PDR*PPDRP + 128*PP(4)*R(4)
  *PDR*RPDQ + 256*PP(4)*R(4)*PDRP*PPDR - 128*PP(4)*R(4)*PDRP*PPDQ
  + 128*PP(4)*R(4)*PDRP*RDQ - 64*PP(4)*R(4)*PDRP*QDQ - 128*PP(4)*R(4)
  *PDQ*PPDRP - 128*PP(4)*R(4)*PDQ*RPDQ - 128*PP(4)*Q(4)*PDR*PPDRP
  - 64*PP(4)*Q(4)*PDR*RPDQ - 128*PP(4)*Q(4)*PDRP*PPDR + 64*PP(4)*Q(4)
  *PDRP*RDQ + 64*PP(4)*Q(4)*PDQ*RDRP + 128*PP(4)^2*PDRP*RDQ
  - 64*R(4)*RP(4)*PDPP*QDQ - 128*R(4)*RP(4)*PDR*PPDQ + 128*R(4)*RP(4)
  *PDQ*PPDQ + 64*R(4)*Q(4)*PDPP*RPDQ + 128*R(4)*Q(4)*PDR*PPDRP
  + 128*R(4)*Q(4)*PDRP*PPDR + 64*R(4)*Q(4)*PDRP*PPDQ - 64*R(4)*Q(4)
  *PDQ*PPDRP - 128*R(4)^2*PDRP*PPDQ + 64*RP(4)*Q(4)*PDPP*RDQ
  + 64*RP(4)*Q(4)*PDR*PPDQ - 64*RP(4)*Q(4)*PDQ*PPDR - 64*Q(4)^2*PDPP
  *RDRP - 64*Q(4)^2*PDR*PPDRP - 64*Q(4)^2*PDRP*PPDR + 64*PDPP*RDRP
  *QDQ - 64*PDPP*RDQ*RPDQ - 64*PDRP*PPDQ*RDQ + 64*PDQ*PPDR*RPDQ
  - 64*PDQ*PPDQ*RDRP )
 
 + X1DPP*X4DRP
  * ( 64*AM^2*P(4)*PP(4)*QDQ + 64*AM^2*P(4)*R(4)*PPDQ + 64*AM^2*P(4)
  *R(4)*RDQ - 64*AM^2*P(4)*R(4)*RPDQ - 64*AM^2*P(4)*R(4)*QDQ
  - 64*AM^2*P(4)*RP(4)*PPDQ + 64*AM^2*P(4)*RP(4)*RDQ + 64*AM^2*P(4)
  *RP(4)*RPDQ - 128*AM^2*P(4)*Q(4)*PPDQ + 64*AM^2*P(4)*Q(4)*RDQ
  + 64*AM^2*P(4)*Q(4)*RPDQ - 64*AM^2*PP(4)*R(4)*PDQ - 64*AM^2*PP(4)
  *R(4)*RDQ + 64*AM^2*PP(4)*R(4)*RPDQ + 64*AM^2*PP(4)*R(4)*QDQ
  + 64*AM^2*PP(4)*RP(4)*PDQ - 64*AM^2*PP(4)*RP(4)*RDQ - 64*AM^2*PP(4)
  *RP(4)*RPDQ - 64*AM^2*PP(4)*Q(4)*RDQ - 64*AM^2*PP(4)*Q(4)*RPDQ
  + 128*AM^2*R(4)*RP(4)*PDPP + 128*AM^2*R(4)*RP(4)*PDR + 128*AM^2*R(4)
  *RP(4)*PDRP - 128*AM^2*R(4)*RP(4)*PPDR - 128*AM^2*R(4)*RP(4)*PPDRP
   - 128*AM^2*R(4)*RP(4)*RDRP - 64*AM^2*R(4)*RP(4)*RDQ + 64*AM^2*R(4)
  *RP(4)*RPDQ + 64*AM^2*R(4)*Q(4)*PDPP + 64*AM^2*R(4)*Q(4)*PDR
  + 64*AM^2*R(4)*Q(4)*PDRP + 64*AM^2*R(4)*Q(4)*PDQ - 64*AM^2*R(4)*Q(4)
  *PPDR - 64*AM^2*R(4)*Q(4)*PPDRP - 64*AM^2*R(4)*Q(4)*PPDQ
  - 64*AM^2*R(4)*Q(4)*RDRP - 64*AM^2*R(4)^2*PDQ + 64*AM^2*R(4)^2*PPDQ
   + 64*AM^2*R(4)^2*RPDQ - 64*AM^2*RP(4)*Q(4)*PDPP - 64*AM^2*RP(4)
  *Q(4)*PDR - 64*AM^2*RP(4)*Q(4)*PDRP - 64*AM^2*RP(4)*Q(4)*PDQ
  + 64*AM^2*RP(4)*Q(4)*PPDR + 64*AM^2*RP(4)*Q(4)*PPDRP + 64*AM^2*RP(4)
  *Q(4)*PPDQ + 64*AM^2*RP(4)*Q(4)*RDRP - 64*AM^2*RP(4)^2*PDQ
  + 64*AM^2*RP(4)^2*PPDQ - 64*AM^2*RP(4)^2*RDQ - 64*AM^2*Q(4)^2*PDR
   - 64*AM^2*Q(4)^2*PDRP + 64*AM^2*Q(4)^2*PPDR + 64*AM^2*Q(4)^2*PPDRP
   - 32*AM^2*PDPP*QDQ + 32*AM^2*PDR*QDQ + 32*AM^2*PDRP*QDQ
  + 64*AM^2*PDQ*PPDQ - 64*AM^2*PDQ*RDQ - 32*AM^2*PPDR*QDQ
  - 32*AM^2*PPDRP*QDQ + 64*AM^2*PPDQ*RDQ + 32*AM^2*RDRP*QDQ
  - 256*AM^4*R(4)*RP(4) - 128*AM^4*R(4)*Q(4) + 128*AM^4*RP(4)*Q(4)
   + 64*AM^4*Q(4)^2 + 64*P(4)*PP(4)*RDRP*QDQ - 128*P(4)*PP(4)*RDQ*RPDQ
   - 64*P(4)*RP(4)*PPDR*QDQ + 128*P(4)*RP(4)*PPDRP*RDQ + 128*P(4)*RP(4)
  *PPDQ*RDQ + 64*P(4)*Q(4)*PPDR*RPDQ + 64*P(4)*Q(4)*PPDRP*RDQ
  - 64*P(4)*Q(4)*PPDQ*RDRP - 128*PP(4)*R(4)*PDR*RPDQ - 64*PP(4)*R(4)
  *PDRP*QDQ + 128*PP(4)*R(4)*PDQ*RPDQ + 64*PP(4)*Q(4)*PDR*RPDQ
  + 64*PP(4)*Q(4)*PDRP*RDQ - 64*PP(4)*Q(4)*PDQ*RDRP + 64*R(4)*RP(4)
  *PDPP*QDQ + 256*R(4)*RP(4)*PDR*PPDRP + 128*R(4)*RP(4)*PDR*PPDQ
  - 128*R(4)*RP(4)*PDQ*PPDRP - 128*R(4)*RP(4)*PDQ*PPDQ - 64*R(4)*Q(4)
  *PDPP*RPDQ + 128*R(4)*Q(4)*PDR*PPDRP + 64*R(4)*Q(4)*PDRP*PPDQ
  - 64*R(4)*Q(4)*PDQ*PPDRP - 64*RP(4)*Q(4)*PDPP*RDQ - 128*RP(4)*Q(4)
  *PDR*PPDRP - 64*RP(4)*Q(4)*PDR*PPDQ + 64*RP(4)*Q(4)*PDQ*PPDR
  + 64*Q(4)^2*PDPP*RDRP - 64*Q(4)^2*PDR*PPDRP - 64*Q(4)^2*PDRP*PPDR
   - 64*PDPP*RDRP*QDQ + 64*PDPP*RDQ*RPDQ + 64*PDRP*PPDR*QDQ
  - 64*PDRP*PPDQ*RDQ - 64*PDQ*PPDR*RPDQ + 64*PDQ*PPDQ*RDRP )
 
 + X1DPP^2
  * ( - 128*AM^2*R(4)*RP(4)*RDQ + 64*AM^2*R(4)*RP(4)*QDQ - 128*AM^2
  *R(4)*Q(4)*PDPP + 128*AM^2*R(4)*Q(4)*RDRP - 128*AM^2*R(4)*Q(4)*RPDQ
   + 128*AM^2*R(4)^2*PDPP - 128*AM^2*R(4)^2*RDRP + 128*AM^2*R(4)^2
  *RPDQ + 32*AM^2*PDPP*QDQ - 32*AM^2*RDRP*QDQ + 64*AM^2*RDQ*RPDQ
  + 256*AM^4*R(4)*Q(4) - 256*AM^4*R(4)^2 - 64*AM^4*QDQ + 128*P(4)*R(4)
  *PPDRP*RDQ - 64*P(4)*R(4)*PPDRP*QDQ + 128*PP(4)*R(4)*PDRP*RDQ
  - 64*PP(4)*R(4)*PDRP*QDQ - 128*R(4)*Q(4)*PDR*PPDRP - 128*R(4)*Q(4)
  *PDRP*PPDR + 128*R(4)*Q(4)*PDRP*PPDQ + 128*R(4)*Q(4)*PDQ*PPDRP
  + 128*R(4)^2*PDR*PPDRP + 128*R(4)^2*PDRP*PPDR - 128*R(4)^2*PDRP*PPDQ
   - 128*R(4)^2*PDQ*PPDRP + 32*PDR*PPDRP*QDQ + 32*PDRP*PPDR*QDQ
  - 64*PDRP*PPDQ*RDQ - 64*PDQ*PPDRP*RDQ )
 
 + X1DRP*X2DPP
  * ( 64*AM^2*P(4)*PP(4)*QDQ - 64*AM^2*P(4)*R(4)*PPDQ - 64*AM^2*P(4)
  *R(4)*RDQ - 64*AM^2*P(4)*R(4)*RPDQ + 64*AM^2*P(4)*RP(4)*PPDQ
  + 64*AM^2*P(4)*RP(4)*RDQ - 64*AM^2*P(4)*RP(4)*RPDQ - 64*AM^2*P(4)
  *RP(4)*QDQ + 64*AM^2*P(4)*Q(4)*RDQ + 64*AM^2*P(4)*Q(4)*RPDQ
  + 64*AM^2*PP(4)*R(4)*PDQ + 64*AM^2*PP(4)*R(4)*RDQ + 64*AM^2*PP(4)
  *R(4)*RPDQ - 64*AM^2*PP(4)*RP(4)*PDQ - 64*AM^2*PP(4)*RP(4)*RDQ
  + 64*AM^2*PP(4)*RP(4)*RPDQ + 64*AM^2*PP(4)*RP(4)*QDQ - 128*AM^2*PP(4)
  *Q(4)*PDQ - 64*AM^2*PP(4)*Q(4)*RDQ - 64*AM^2*PP(4)*Q(4)*RPDQ
  + 128*AM^2*R(4)*RP(4)*PDPP + 128*AM^2*R(4)*RP(4)*PDR + 128*AM^2*R(4)
  *RP(4)*PDRP - 128*AM^2*R(4)*RP(4)*PPDR - 128*AM^2*R(4)*RP(4)*PPDRP
   - 128*AM^2*R(4)*RP(4)*RDRP - 64*AM^2*R(4)*RP(4)*RDQ + 64*AM^2*R(4)
  *RP(4)*RPDQ + 64*AM^2*R(4)*Q(4)*PDPP + 64*AM^2*R(4)*Q(4)*PDR
  + 64*AM^2*R(4)*Q(4)*PDRP - 64*AM^2*R(4)*Q(4)*PDQ - 64*AM^2*R(4)*Q(4)
  *PPDR - 64*AM^2*R(4)*Q(4)*PPDRP + 64*AM^2*R(4)*Q(4)*PPDQ
  - 64*AM^2*R(4)*Q(4)*RDRP + 64*AM^2*R(4)^2*PDQ - 64*AM^2*R(4)^2*PPDQ
   + 64*AM^2*R(4)^2*RPDQ - 64*AM^2*RP(4)*Q(4)*PDPP - 64*AM^2*RP(4)
  *Q(4)*PDR - 64*AM^2*RP(4)*Q(4)*PDRP + 64*AM^2*RP(4)*Q(4)*PDQ
  + 64*AM^2*RP(4)*Q(4)*PPDR + 64*AM^2*RP(4)*Q(4)*PPDRP - 64*AM^2*RP(4)
  *Q(4)*PPDQ + 64*AM^2*RP(4)*Q(4)*RDRP + 64*AM^2*RP(4)^2*PDQ
  - 64*AM^2*RP(4)^2*PPDQ - 64*AM^2*RP(4)^2*RDQ - 64*AM^2*Q(4)^2*PDR
   - 64*AM^2*Q(4)^2*PDRP + 64*AM^2*Q(4)^2*PPDR + 64*AM^2*Q(4)^2*PPDRP
   - 32*AM^2*PDPP*QDQ + 32*AM^2*PDR*QDQ + 32*AM^2*PDRP*QDQ
  + 64*AM^2*PDQ*PPDQ - 64*AM^2*PDQ*RPDQ - 32*AM^2*PPDR*QDQ
  - 32*AM^2*PPDRP*QDQ + 64*AM^2*PPDQ*RPDQ + 32*AM^2*RDRP*QDQ
  - 256*AM^4*R(4)*RP(4) - 128*AM^4*R(4)*Q(4) + 128*AM^4*RP(4)*Q(4)
   + 64*AM^4*Q(4)^2 + 64*P(4)*PP(4)*RDRP*QDQ - 128*P(4)*PP(4)*RDQ*RPDQ
   - 64*P(4)*RP(4)*PPDR*QDQ + 128*P(4)*RP(4)*PPDRP*RDQ + 128*P(4)*RP(4)
  *PPDQ*RDQ + 64*P(4)*Q(4)*PPDR*RPDQ + 64*P(4)*Q(4)*PPDRP*RDQ
  - 64*P(4)*Q(4)*PPDQ*RDRP - 128*PP(4)*R(4)*PDR*RPDQ - 64*PP(4)*R(4)
  *PDRP*QDQ + 128*PP(4)*R(4)*PDQ*RPDQ + 64*PP(4)*Q(4)*PDR*RPDQ
  + 64*PP(4)*Q(4)*PDRP*RDQ - 64*PP(4)*Q(4)*PDQ*RDRP + 64*R(4)*RP(4)
  *PDPP*QDQ + 256*R(4)*RP(4)*PDR*PPDRP + 128*R(4)*RP(4)*PDR*PPDQ
  - 128*R(4)*RP(4)*PDQ*PPDRP - 128*R(4)*RP(4)*PDQ*PPDQ - 64*R(4)*Q(4)
  *PDPP*RPDQ + 128*R(4)*Q(4)*PDR*PPDRP + 64*R(4)*Q(4)*PDRP*PPDQ
  - 64*R(4)*Q(4)*PDQ*PPDRP - 64*RP(4)*Q(4)*PDPP*RDQ - 128*RP(4)*Q(4)
  *PDR*PPDRP - 64*RP(4)*Q(4)*PDR*PPDQ + 64*RP(4)*Q(4)*PDQ*PPDR
  + 64*Q(4)^2*PDPP*RDRP - 64*Q(4)^2*PDR*PPDRP - 64*Q(4)^2*PDRP*PPDR
   - 64*PDPP*RDRP*QDQ + 64*PDPP*RDQ*RPDQ + 64*PDRP*PPDR*QDQ
  - 64*PDRP*PPDQ*RDQ - 64*PDQ*PPDR*RPDQ + 64*PDQ*PPDQ*RDRP )
 
 + X1DRP*X2DRP
  * ( 128*AM^2*P(4)*RP(4)*QDQ - 128*AM^2*P(4)*Q(4)*RPDQ + 256*AM^2
  *PP(4)*R(4)*PDRP - 256*AM^2*PP(4)*R(4)*PPDR + 128*AM^2*PP(4)*R(4)
  *PPDQ - 128*AM^2*PP(4)*R(4)*RDQ - 128*AM^2*PP(4)*Q(4)*PDRP
  + 128*AM^2*PP(4)*Q(4)*PPDR - 128*AM^2*PP(4)^2*RDQ + 128*AM^2*R(4)
  *Q(4)*PDRP - 128*AM^2*R(4)*Q(4)*PPDR + 128*AM^2*R(4)^2*PPDQ
  - 128*AM^2*RP(4)*Q(4)*PDQ - 64*AM^2*PDRP*QDQ + 128*AM^2*PDQ*RPDQ
   + 64*AM^2*PPDR*QDQ - 512*AM^4*PP(4)*R(4) + 256*AM^4*PP(4)*Q(4)
  - 256*AM^4*R(4)*Q(4) + 128*AM^4*Q(4)^2 + 128*P(4)*PP(4)*PPDRP*RDQ
   - 64*P(4)*PP(4)*RDRP*QDQ + 128*P(4)*PP(4)*RDQ*RPDQ - 64*P(4)*R(4)
  *PPDRP*QDQ - 128*P(4)*R(4)*PPDQ*RDRP + 128*P(4)*R(4)*PPDQ*RPDQ
  + 128*P(4)*RP(4)*PPDR*QDQ - 256*P(4)*RP(4)*PPDQ*RDQ - 128*P(4)*Q(4)
  *PPDR*RPDQ + 128*P(4)*Q(4)*PPDRP*RDQ + 128*P(4)*Q(4)*PPDQ*RDRP
  + 256*PP(4)*R(4)*PDPP*RDRP - 128*PP(4)*R(4)*PDPP*RPDQ + 256*PP(4)
  *R(4)*PDR*PPDRP + 128*PP(4)*R(4)*PDR*RPDQ + 128*PP(4)*R(4)*PDRP*QDQ
   - 128*PP(4)*R(4)*PDQ*PPDRP + 128*PP(4)*R(4)*PDQ*RDRP - 256*PP(4)
  *R(4)*PDQ*RPDQ + 128*PP(4)*RP(4)*PDPP*RDQ - 64*PP(4)*RP(4)*PDR*QDQ
   + 128*PP(4)*RP(4)*PDQ*RDQ - 128*PP(4)*Q(4)*PDPP*RDRP - 128*PP(4)
  *Q(4)*PDR*PPDRP - 128*PP(4)*Q(4)*PDRP*RDQ - 64*R(4)*RP(4)*PDPP*QDQ
   - 128*R(4)*RP(4)*PDR*PPDQ + 128*R(4)*RP(4)*PDQ*PPDQ + 128*R(4)*Q(4)
  *PDPP*RDRP + 128*R(4)*Q(4)*PDR*PPDRP - 128*R(4)*Q(4)*PDRP*PPDQ
  + 128*RP(4)*Q(4)*PDPP*RDQ + 128*RP(4)*Q(4)*PDR*PPDQ - 128*RP(4)*Q(4)
  *PDQ*PPDR - 128*Q(4)^2*PDPP*RDRP - 128*Q(4)^2*PDR*PPDRP
  + 128*Q(4)^2*PDRP*PPDR + 64*PDPP*RDRP*QDQ - 64*PDPP*RDQ*RPDQ
  + 64*PDR*PPDRP*QDQ - 64*PDR*PPDQ*RPDQ - 128*PDRP*PPDR*QDQ
  + 128*PDRP*PPDQ*RDQ + 128*PDQ*PPDR*RPDQ - 64*PDQ*PPDRP*RDQ
  - 64*PDQ*PPDQ*RDRP )
 
 + X1DRP*X3DPP
  * ( 64*AM^2*P(4)*PP(4)*PDQ + 64*AM^2*P(4)*PP(4)*RDQ - 64*AM^2*P(4)
  *PP(4)*RPDQ + 64*AM^2*P(4)*PP(4)*QDQ - 128*AM^2*P(4)*R(4)*PDPP
  - 128*AM^2*P(4)*R(4)*PDR - 128*AM^2*P(4)*R(4)*PDRP + 64*AM^2*P(4)
  *R(4)*PDQ + 128*AM^2*P(4)*R(4)*PPDR + 128*AM^2*P(4)*R(4)*PPDRP
  - 128*AM^2*P(4)*R(4)*PPDQ + 128*AM^2*P(4)*R(4)*RDRP - 64*AM^2*P(4)
  *R(4)*RDQ - 128*AM^2*P(4)*R(4)*RPDQ - 64*AM^2*P(4)*RP(4)*PDQ
  + 64*AM^2*P(4)*RP(4)*PPDQ + 64*AM^2*P(4)*RP(4)*RDQ + 64*AM^2*P(4)
  *Q(4)*PDPP + 64*AM^2*P(4)*Q(4)*PDR + 64*AM^2*P(4)*Q(4)*PDRP
  - 64*AM^2*P(4)*Q(4)*PPDR - 64*AM^2*P(4)*Q(4)*PPDRP - 64*AM^2*P(4)
  *Q(4)*PPDQ - 64*AM^2*P(4)*Q(4)*RDRP + 64*AM^2*P(4)*Q(4)*RPDQ
  - 64*AM^2*P(4)^2*PPDQ - 64*AM^2*P(4)^2*RDQ + 64*AM^2*P(4)^2*RPDQ
   + 64*AM^2*PP(4)*R(4)*PDQ + 64*AM^2*PP(4)*R(4)*RDQ + 64*AM^2*PP(4)
  *R(4)*RPDQ - 64*AM^2*PP(4)*R(4)*QDQ + 64*AM^2*PP(4)*RP(4)*QDQ
  - 64*AM^2*PP(4)*Q(4)*PDQ + 64*AM^2*PP(4)*Q(4)*RDQ - 128*AM^2*PP(4)
  *Q(4)*RPDQ + 64*AM^2*R(4)*RP(4)*PDQ - 64*AM^2*R(4)*RP(4)*PPDQ
  - 64*AM^2*R(4)*RP(4)*RDQ - 64*AM^2*R(4)*Q(4)*PDPP - 64*AM^2*R(4)
  *Q(4)*PDR - 64*AM^2*R(4)*Q(4)*PDRP + 64*AM^2*R(4)*Q(4)*PPDR
  + 64*AM^2*R(4)*Q(4)*PPDRP + 64*AM^2*R(4)*Q(4)*PPDQ + 64*AM^2*R(4)
  *Q(4)*RDRP - 64*AM^2*R(4)*Q(4)*RPDQ + 64*AM^2*R(4)^2*PDQ
  - 64*AM^2*R(4)^2*PPDQ + 64*AM^2*R(4)^2*RPDQ - 64*AM^2*RP(4)*Q(4)
  *PDQ + 64*AM^2*RP(4)*Q(4)*RDQ + 64*AM^2*Q(4)^2*PDPP + 64*AM^2*Q(4)^2
  *PDRP - 64*AM^2*Q(4)^2*PPDR - 64*AM^2*Q(4)^2*RDRP - 32*AM^2*PDPP
  *QDQ + 32*AM^2*PDR*QDQ - 32*AM^2*PDRP*QDQ + 64*AM^2*PDQ*PPDQ
  + 32*AM^2*PPDR*QDQ - 32*AM^2*PPDRP*QDQ - 64*AM^2*PPDQ*RDQ
  + 64*AM^2*PPDQ*RPDQ + 32*AM^2*RDRP*QDQ + 256*AM^4*P(4)*R(4)
  - 128*AM^4*P(4)*Q(4) + 128*AM^4*R(4)*Q(4) - 128*AM^4*Q(4)^2
  + 64*AM^4*QDQ - 256*P(4)*R(4)*PDR*PPDRP + 128*P(4)*R(4)*PDQ*PPDRP
   - 128*P(4)*R(4)*PPDRP*RDQ + 128*P(4)*R(4)*PPDRP*QDQ + 128*P(4)*Q(4)
  *PDR*PPDRP - 128*P(4)*Q(4)*PPDRP*RDQ - 128*P(4)^2*PPDRP*RDQ
  - 128*R(4)*Q(4)*PDR*PPDRP - 128*R(4)*Q(4)*PDQ*PPDRP + 128*R(4)^2
  *PDQ*PPDRP + 128*Q(4)^2*PDR*PPDRP - 64*PDR*PPDRP*QDQ + 128*PDQ*PPDRP
  *RDQ )
 
 + X1DRP*X3DRP
  * ( 128*AM^2*P(4)*PP(4)*RDQ - 256*AM^2*P(4)*R(4)*PDRP + 256*AM^2
  *P(4)*R(4)*PPDR - 128*AM^2*P(4)*R(4)*PPDQ - 128*AM^2*P(4)*R(4)*RPDQ
   + 64*AM^2*P(4)*RP(4)*QDQ + 128*AM^2*P(4)*Q(4)*PDRP - 128*AM^2*P(4)
  *Q(4)*PPDR - 64*AM^2*PP(4)*R(4)*QDQ + 128*AM^2*PP(4)*Q(4)*RDQ
  + 128*AM^2*R(4)*RP(4)*PDQ - 128*AM^2*R(4)*Q(4)*PDRP + 128*AM^2*R(4)
  *Q(4)*PPDR - 128*AM^2*RP(4)*Q(4)*PDQ + 128*AM^2*Q(4)^2*PDRP
  - 128*AM^2*Q(4)^2*PPDR - 64*AM^2*PDRP*QDQ + 64*AM^2*PDQ*RPDQ
  + 64*AM^2*PPDR*QDQ - 64*AM^2*PPDQ*RDQ + 512*AM^4*P(4)*R(4)
  - 256*AM^4*P(4)*Q(4) + 256*AM^4*R(4)*Q(4) - 192*AM^4*Q(4)^2
  + 64*AM^4*QDQ - 256*P(4)*R(4)*PDPP*RDRP + 128*P(4)*R(4)*PDPP*RPDQ
   - 256*P(4)*R(4)*PDR*PPDRP + 128*P(4)*R(4)*PDQ*PPDRP - 128*P(4)*R(4)
  *PPDRP*RDQ + 64*P(4)*R(4)*PPDRP*QDQ - 128*P(4)*R(4)*PPDQ*RDRP
  + 128*P(4)*R(4)*PPDQ*RPDQ - 128*P(4)*RP(4)*PDPP*RDQ + 64*P(4)*RP(4)
  *PPDR*QDQ - 128*P(4)*RP(4)*PPDQ*RDQ + 128*P(4)*Q(4)*PDPP*RDRP
  + 128*P(4)*Q(4)*PDR*PPDRP - 64*P(4)*Q(4)*PPDR*RPDQ - 64*P(4)*Q(4)
  *PPDRP*RDQ + 64*P(4)*Q(4)*PPDQ*RDRP - 128*P(4)^2*PPDRP*RDQ
  + 64*PP(4)*R(4)*PDRP*QDQ + 128*PP(4)*R(4)*PDQ*RDRP - 128*PP(4)*R(4)
  *PDQ*RPDQ - 64*PP(4)*RP(4)*PDR*QDQ + 128*PP(4)*RP(4)*PDQ*RDQ
  + 64*PP(4)*Q(4)*PDR*RPDQ - 64*PP(4)*Q(4)*PDRP*RDQ - 64*PP(4)*Q(4)
  *PDQ*RDRP - 128*R(4)*Q(4)*PDPP*RDRP + 64*R(4)*Q(4)*PDPP*RPDQ
  - 128*R(4)*Q(4)*PDR*PPDRP - 64*R(4)*Q(4)*PDRP*PPDQ - 64*R(4)*Q(4)
  *PDQ*PPDRP + 128*R(4)^2*PDQ*PPDRP - 64*RP(4)*Q(4)*PDPP*RDQ
  + 64*RP(4)*Q(4)*PDR*PPDQ - 64*RP(4)*Q(4)*PDQ*PPDR + 64*Q(4)^2*PDPP
  *RDRP + 64*Q(4)^2*PDR*PPDRP + 64*Q(4)^2*PDRP*PPDR - 64*PDR*PPDQ*RPDQ
   - 64*PDRP*PPDR*QDQ + 64*PDRP*PPDQ*RDQ + 64*PDQ*PPDR*RPDQ
  + 64*PDQ*PPDRP*RDQ )
 
 + X1DRP*X4DPP
  * ( 64*AM^2*P(4)*PP(4)*PPDQ + 64*AM^2*P(4)*PP(4)*RDQ - 64*AM^2*P(4)
  *PP(4)*RPDQ - 64*AM^2*P(4)*R(4)*PPDQ + 64*AM^2*P(4)*R(4)*RDQ
  + 64*AM^2*P(4)*R(4)*RPDQ - 64*AM^2*P(4)*R(4)*QDQ + 64*AM^2*P(4)*RP(4)
  *QDQ + 64*AM^2*P(4)*Q(4)*PPDQ + 64*AM^2*P(4)*Q(4)*RDQ - 128*AM^2
  *P(4)*Q(4)*RPDQ + 128*AM^2*PP(4)*R(4)*PDPP + 128*AM^2*PP(4)*R(4)
  *PDR + 128*AM^2*PP(4)*R(4)*PDRP - 128*AM^2*PP(4)*R(4)*PPDR
  - 128*AM^2*PP(4)*R(4)*PPDRP + 64*AM^2*PP(4)*R(4)*PPDQ - 128*AM^2
  *PP(4)*R(4)*RDRP - 64*AM^2*PP(4)*R(4)*RDQ + 64*AM^2*PP(4)*RP(4)*PDQ
   - 64*AM^2*PP(4)*RP(4)*PPDQ - 64*AM^2*PP(4)*RP(4)*RDQ - 64*AM^2*PP(4)
  *Q(4)*PDPP - 64*AM^2*PP(4)*Q(4)*PDR - 64*AM^2*PP(4)*Q(4)*PDRP
  - 64*AM^2*PP(4)*Q(4)*PDQ + 64*AM^2*PP(4)*Q(4)*PPDR + 64*AM^2*PP(4)
  *Q(4)*PPDRP + 64*AM^2*PP(4)*Q(4)*RDRP + 64*AM^2*PP(4)*Q(4)*RPDQ
  - 64*AM^2*PP(4)^2*PDQ - 64*AM^2*PP(4)^2*RDQ + 64*AM^2*PP(4)^2*RPDQ
   - 64*AM^2*R(4)*RP(4)*PDQ + 64*AM^2*R(4)*RP(4)*PPDQ - 64*AM^2*R(4)
  *RP(4)*RDQ + 64*AM^2*R(4)*RP(4)*QDQ + 64*AM^2*R(4)*Q(4)*PDPP
  + 64*AM^2*R(4)*Q(4)*PDR + 64*AM^2*R(4)*Q(4)*PDRP + 64*AM^2*R(4)*Q(4)
  *PDQ - 64*AM^2*R(4)*Q(4)*PPDR - 64*AM^2*R(4)*Q(4)*PPDRP
  - 64*AM^2*R(4)*Q(4)*RDRP - 64*AM^2*R(4)*Q(4)*RPDQ - 64*AM^2*R(4)^2
  *PDQ + 64*AM^2*R(4)^2*PPDQ + 64*AM^2*R(4)^2*RPDQ - 64*AM^2*RP(4)
  *Q(4)*PPDQ - 64*AM^2*RP(4)*Q(4)*RDQ - 64*AM^2*Q(4)^2*PDPP
  - 64*AM^2*Q(4)^2*PDR + 64*AM^2*Q(4)^2*PPDRP + 64*AM^2*Q(4)^2*RDRP
   + 32*AM^2*PDPP*QDQ + 32*AM^2*PDR*QDQ - 32*AM^2*PDRP*QDQ
  - 64*AM^2*PDQ*RDQ + 64*AM^2*PDQ*RPDQ + 32*AM^2*PPDR*QDQ
  - 32*AM^2*PPDRP*QDQ - 32*AM^2*RDRP*QDQ + 64*AM^2*RDQ*RPDQ
  - 256*AM^4*PP(4)*R(4) + 128*AM^4*PP(4)*Q(4) - 128*AM^4*R(4)*Q(4)
   + 64*AM^4*Q(4)^2 + 128*P(4)*PP(4)*PPDRP*RDQ - 64*P(4)*PP(4)*RDRP
  *QDQ + 128*P(4)*PP(4)*RDQ*RPDQ + 64*P(4)*RP(4)*PPDR*QDQ
  - 128*P(4)*RP(4)*PPDQ*RDQ - 64*P(4)*Q(4)*PPDR*RPDQ + 64*P(4)*Q(4)
  *PPDRP*RDQ + 64*P(4)*Q(4)*PPDQ*RDRP + 256*PP(4)*R(4)*PDR*PPDRP
  + 128*PP(4)*R(4)*PDR*RPDQ + 64*PP(4)*R(4)*PDRP*QDQ - 128*PP(4)*R(4)
  *PDQ*PPDRP - 128*PP(4)*R(4)*PDQ*RPDQ - 128*PP(4)*Q(4)*PDR*PPDRP
  - 64*PP(4)*Q(4)*PDR*RPDQ - 64*PP(4)*Q(4)*PDRP*RDQ + 64*PP(4)*Q(4)
  *PDQ*RDRP - 64*R(4)*RP(4)*PDPP*QDQ - 128*R(4)*RP(4)*PDR*PPDQ
  + 128*R(4)*RP(4)*PDQ*PPDQ + 64*R(4)*Q(4)*PDPP*RPDQ + 128*R(4)*Q(4)
  *PDR*PPDRP - 64*R(4)*Q(4)*PDRP*PPDQ - 64*R(4)*Q(4)*PDQ*PPDRP
  + 64*RP(4)*Q(4)*PDPP*RDQ + 64*RP(4)*Q(4)*PDR*PPDQ - 64*RP(4)*Q(4)
  *PDQ*PPDR - 64*Q(4)^2*PDPP*RDRP - 64*Q(4)^2*PDR*PPDRP + 64*Q(4)^2
  *PDRP*PPDR + 64*PDPP*RDRP*QDQ - 64*PDPP*RDQ*RPDQ - 64*PDRP*PPDR*QDQ
   + 64*PDRP*PPDQ*RDQ + 64*PDQ*PPDR*RPDQ - 64*PDQ*PPDQ*RDRP )
 
 + X1DRP*X4DRP
  * ( - 128*AM^2*P(4)*R(4)*RPDQ - 64*AM^2*P(4)*RP(4)*QDQ + 128*AM^2
  *P(4)*Q(4)*RPDQ + 64*AM^2*PP(4)*R(4)*QDQ - 128*AM^2*PP(4)*RP(4)*RDQ
   - 128*AM^2*PP(4)*Q(4)*RDQ + 256*AM^2*R(4)*RP(4)*PDRP + 128*AM^2
  *R(4)*RP(4)*PDQ - 256*AM^2*R(4)*RP(4)*PPDR + 128*AM^2*R(4)*RP(4)
  *PPDQ + 128*AM^2*R(4)*Q(4)*PDRP - 128*AM^2*R(4)*Q(4)*PPDR
  - 128*AM^2*RP(4)*Q(4)*PDRP + 128*AM^2*RP(4)*Q(4)*PPDR - 128*AM^2
  *Q(4)^2*PDRP + 128*AM^2*Q(4)^2*PPDR + 64*AM^2*PDRP*QDQ - 64*AM^2
  *PDQ*RPDQ - 64*AM^2*PPDR*QDQ + 64*AM^2*PPDQ*RDQ - 512*AM^4*R(4)*RP(4)
   - 256*AM^4*R(4)*Q(4) + 256*AM^4*RP(4)*Q(4) + 192*AM^4*Q(4)^2
  - 64*AM^4*QDQ + 64*P(4)*PP(4)*RDRP*QDQ - 128*P(4)*PP(4)*RDQ*RPDQ
   - 64*P(4)*RP(4)*PPDR*QDQ + 128*P(4)*RP(4)*PPDRP*RDQ + 128*P(4)*RP(4)
  *PPDQ*RDQ + 64*P(4)*Q(4)*PPDR*RPDQ + 64*P(4)*Q(4)*PPDRP*RDQ
  - 64*P(4)*Q(4)*PPDQ*RDRP - 128*PP(4)*R(4)*PDR*RPDQ - 64*PP(4)*R(4)
  *PDRP*QDQ + 128*PP(4)*R(4)*PDQ*RPDQ + 64*PP(4)*Q(4)*PDR*RPDQ
  + 64*PP(4)*Q(4)*PDRP*RDQ - 64*PP(4)*Q(4)*PDQ*RDRP + 256*R(4)*RP(4)
  *PDPP*RDRP + 128*R(4)*RP(4)*PDPP*RDQ - 128*R(4)*RP(4)*PDPP*RPDQ
  - 64*R(4)*RP(4)*PDPP*QDQ + 256*R(4)*RP(4)*PDR*PPDRP + 128*R(4)*RP(4)
  *PDR*PPDQ - 128*R(4)*RP(4)*PDQ*PPDRP - 128*R(4)*RP(4)*PDQ*PPDQ
  + 128*R(4)*Q(4)*PDPP*RDRP + 64*R(4)*Q(4)*PDPP*RPDQ + 128*R(4)*Q(4)
  *PDR*PPDRP + 64*R(4)*Q(4)*PDRP*PPDQ - 64*R(4)*Q(4)*PDQ*PPDRP
  - 128*R(4)^2*PDPP*RPDQ - 128*RP(4)*Q(4)*PDPP*RDRP + 64*RP(4)*Q(4)
  *PDPP*RDQ - 128*RP(4)*Q(4)*PDR*PPDRP - 64*RP(4)*Q(4)*PDR*PPDQ
  + 64*RP(4)*Q(4)*PDQ*PPDR + 128*RP(4)^2*PDPP*RDQ - 64*Q(4)^2*PDPP
  *RDRP - 64*Q(4)^2*PDR*PPDRP - 64*Q(4)^2*PDRP*PPDR - 64*PDPP*RDQ*RPDQ
   + 64*PDRP*PPDR*QDQ - 64*PDRP*PPDQ*RDQ - 64*PDQ*PPDR*RPDQ
  + 64*PDQ*PPDQ*RDRP )
 
 + X1DRP^2
  * ( - 128*AM^2*PP(4)*R(4)*RDQ + 64*AM^2*PP(4)*R(4)*QDQ - 128*AM^2
  *R(4)*Q(4)*PDRP + 128*AM^2*R(4)*Q(4)*PPDR - 128*AM^2*R(4)*Q(4)*PPDQ
   + 128*AM^2*R(4)^2*PDRP - 128*AM^2*R(4)^2*PPDR + 128*AM^2*R(4)^2
  *PPDQ + 32*AM^2*PDRP*QDQ - 32*AM^2*PPDR*QDQ + 64*AM^2*PPDQ*RDQ
  + 256*AM^4*R(4)*Q(4) - 256*AM^4*R(4)^2 - 64*AM^4*QDQ + 128*P(4)*R(4)
  *PPDRP*RDQ - 64*P(4)*R(4)*PPDRP*QDQ + 128*R(4)*RP(4)*PDPP*RDQ
  - 64*R(4)*RP(4)*PDPP*QDQ - 128*R(4)*Q(4)*PDPP*RDRP + 128*R(4)*Q(4)
  *PDPP*RPDQ - 128*R(4)*Q(4)*PDR*PPDRP + 128*R(4)*Q(4)*PDQ*PPDRP
  + 128*R(4)^2*PDPP*RDRP - 128*R(4)^2*PDPP*RPDQ + 128*R(4)^2*PDR*PPDRP
   - 128*R(4)^2*PDQ*PPDRP + 32*PDPP*RDRP*QDQ - 64*PDPP*RDQ*RPDQ
  + 32*PDR*PPDRP*QDQ - 64*PDQ*PPDRP*RDQ )
 
 + X2DPP*X2DRP
  * ( - 64*AM^2*P(4)*PP(4)*PPDQ - 64*AM^2*P(4)*PP(4)*RDQ - 64*AM^2
  *P(4)*PP(4)*RPDQ - 64*AM^2*P(4)*R(4)*QDQ - 64*AM^2*P(4)*RP(4)*PPDQ
   - 64*AM^2*P(4)*RP(4)*RDQ - 64*AM^2*P(4)*RP(4)*RPDQ - 64*AM^2*P(4)
  *Q(4)*PPDQ - 64*AM^2*P(4)*Q(4)*RPDQ + 64*AM^2*PP(4)*R(4)*PDQ
  - 64*AM^2*PP(4)*R(4)*PPDQ + 64*AM^2*PP(4)*R(4)*RPDQ - 64*AM^2*PP(4)
  *R(4)*QDQ + 128*AM^2*PP(4)*RP(4)*PDPP + 128*AM^2*PP(4)*RP(4)*PDR
   + 128*AM^2*PP(4)*RP(4)*PDRP + 128*AM^2*PP(4)*RP(4)*PDQ
  - 128*AM^2*PP(4)*RP(4)*PPDR - 128*AM^2*PP(4)*RP(4)*PPDRP
  - 64*AM^2*PP(4)*RP(4)*PPDQ - 128*AM^2*PP(4)*RP(4)*RDRP - 128*AM^2
  *PP(4)*RP(4)*RDQ - 64*AM^2*PP(4)*RP(4)*RPDQ + 64*AM^2*PP(4)*Q(4)
  *PDPP + 64*AM^2*PP(4)*Q(4)*PDR + 64*AM^2*PP(4)*Q(4)*PDRP
  + 64*AM^2*PP(4)*Q(4)*PDQ - 64*AM^2*PP(4)*Q(4)*PPDR - 64*AM^2*PP(4)
  *Q(4)*PPDRP - 64*AM^2*PP(4)*Q(4)*RDRP + 64*AM^2*PP(4)*Q(4)*RDQ
  + 64*AM^2*PP(4)^2*PDQ + 64*AM^2*PP(4)^2*RDQ + 64*AM^2*PP(4)^2*RPDQ
   + 64*AM^2*R(4)*RP(4)*PDQ + 64*AM^2*R(4)*RP(4)*PPDQ - 64*AM^2*R(4)
  *RP(4)*RPDQ - 64*AM^2*R(4)*RP(4)*QDQ + 128*AM^2*R(4)*Q(4)*PDQ
  + 64*AM^2*R(4)*Q(4)*PPDQ + 64*AM^2*R(4)*Q(4)*RPDQ + 64*AM^2*RP(4)
  *Q(4)*PDPP + 64*AM^2*RP(4)*Q(4)*PDR + 64*AM^2*RP(4)*Q(4)*PDRP
  + 64*AM^2*RP(4)*Q(4)*PDQ - 64*AM^2*RP(4)*Q(4)*PPDR - 64*AM^2*RP(4)
  *Q(4)*PPDRP - 64*AM^2*RP(4)*Q(4)*RDRP + 64*AM^2*RP(4)*Q(4)*RDQ
  + 64*AM^2*RP(4)^2*PDQ + 64*AM^2*RP(4)^2*PPDQ + 64*AM^2*RP(4)^2*RDQ
   + 64*AM^2*Q(4)^2*PDPP + 64*AM^2*Q(4)^2*PDRP - 64*AM^2*Q(4)^2*PPDR
   - 64*AM^2*Q(4)^2*RDRP - 32*AM^2*PDPP*QDQ + 32*AM^2*PDR*QDQ
  - 32*AM^2*PDRP*QDQ - 64*AM^2*PDQ*RDQ + 32*AM^2*PPDR*QDQ
  - 32*AM^2*PPDRP*QDQ - 64*AM^2*PPDQ*RDQ + 32*AM^2*RDRP*QDQ
  - 64*AM^2*RDQ*RPDQ - 256*AM^4*PP(4)*RP(4) - 128*AM^4*PP(4)*Q(4)
  - 128*AM^4*RP(4)*Q(4) - 128*AM^4*Q(4)^2 + 64*AM^4*QDQ + 256*PP(4)
  *RP(4)*PDR*PPDRP + 128*PP(4)*RP(4)*PDR*PPDQ + 128*PP(4)*RP(4)*PDR
  *RPDQ + 128*PP(4)*RP(4)*PDR*QDQ + 128*PP(4)*Q(4)*PDR*PPDRP
  - 128*PP(4)*Q(4)*PDR*RPDQ - 128*PP(4)^2*PDR*RPDQ + 128*RP(4)*Q(4)
  *PDR*PPDRP - 128*RP(4)*Q(4)*PDR*PPDQ - 128*RP(4)^2*PDR*PPDQ
  + 128*Q(4)^2*PDR*PPDRP - 64*PDR*PPDRP*QDQ + 128*PDR*PPDQ*RPDQ )
 
 + X2DPP*X3DPP
  * ( - 64*AM^2*P(4)*PP(4)*QDQ - 128*AM^2*P(4)*R(4)*RPDQ - 256*AM^2
  *P(4)*RP(4)*PDPP - 128*AM^2*P(4)*RP(4)*PPDQ + 256*AM^2*P(4)*RP(4)
  *RDRP + 128*AM^2*P(4)*RP(4)*RDQ - 128*AM^2*P(4)*Q(4)*PDPP
  + 128*AM^2*P(4)*Q(4)*RDRP + 128*AM^2*PP(4)*RP(4)*PDQ + 128*AM^2*PP(4)
  *Q(4)*PDQ + 64*AM^2*R(4)*RP(4)*QDQ - 128*AM^2*R(4)*Q(4)*RPDQ
  - 128*AM^2*RP(4)*Q(4)*PDPP + 128*AM^2*RP(4)*Q(4)*RDRP - 128*AM^2
  *Q(4)^2*PDPP + 128*AM^2*Q(4)^2*RDRP + 64*AM^2*PDPP*QDQ - 64*AM^2
  *PDQ*PPDQ - 64*AM^2*RDRP*QDQ + 64*AM^2*RDQ*RPDQ + 512*AM^4*P(4)*RP(4)
   + 256*AM^4*P(4)*Q(4) + 256*AM^4*RP(4)*Q(4) + 192*AM^4*Q(4)^2
  - 64*AM^4*QDQ + 128*P(4)*PP(4)*PDR*RPDQ - 64*P(4)*PP(4)*RDRP*QDQ
   + 128*P(4)*PP(4)*RDQ*RPDQ - 256*P(4)*RP(4)*PDR*PPDRP - 128*P(4)
  *RP(4)*PDR*PPDQ - 256*P(4)*RP(4)*PDRP*PPDR - 128*P(4)*RP(4)*PDQ*PPDR
   - 128*P(4)*RP(4)*PPDR*RPDQ - 64*P(4)*RP(4)*PPDR*QDQ - 128*P(4)*RP(4)
  *PPDRP*RDQ - 128*P(4)*RP(4)*PPDQ*RDQ - 128*P(4)*Q(4)*PDR*PPDRP
  - 128*P(4)*Q(4)*PDRP*PPDR + 64*P(4)*Q(4)*PPDR*RPDQ - 64*P(4)*Q(4)
  *PPDRP*RDQ + 64*P(4)*Q(4)*PPDQ*RDRP + 128*P(4)^2*PPDR*RPDQ
  + 64*PP(4)*R(4)*PDRP*QDQ - 128*PP(4)*R(4)*PDQ*RPDQ + 64*PP(4)*Q(4)
  *PDR*RPDQ - 64*PP(4)*Q(4)*PDRP*RDQ + 64*PP(4)*Q(4)*PDQ*RDRP
  - 64*R(4)*RP(4)*PDPP*QDQ + 128*R(4)*RP(4)*PDQ*PPDRP + 128*R(4)*RP(4)
  *PDQ*PPDQ + 64*R(4)*Q(4)*PDPP*RPDQ - 64*R(4)*Q(4)*PDRP*PPDQ
  + 64*R(4)*Q(4)*PDQ*PPDRP + 64*RP(4)*Q(4)*PDPP*RDQ - 128*RP(4)*Q(4)
  *PDR*PPDRP - 64*RP(4)*Q(4)*PDR*PPDQ - 128*RP(4)*Q(4)*PDRP*PPDR
  + 64*RP(4)*Q(4)*PDQ*PPDR + 128*RP(4)^2*PDQ*PPDR - 64*Q(4)^2*PDPP
  *RDRP - 64*Q(4)^2*PDR*PPDRP - 64*Q(4)^2*PDRP*PPDR + 64*PDPP*RDRP
  *QDQ - 64*PDPP*RDQ*RPDQ + 64*PDRP*PPDQ*RDQ - 64*PDQ*PPDR*RPDQ
  - 64*PDQ*PPDQ*RDRP )
 
 + X2DPP*X3DRP
  * ( - 64*AM^2*P(4)*PP(4)*PDQ - 64*AM^2*P(4)*PP(4)*RDQ - 64*AM^2*P(4)
  *PP(4)*RPDQ - 64*AM^2*P(4)*PP(4)*QDQ - 64*AM^2*P(4)*R(4)*PDQ
  + 64*AM^2*P(4)*R(4)*PPDQ - 64*AM^2*P(4)*R(4)*RPDQ - 64*AM^2*P(4)
  *R(4)*QDQ - 128*AM^2*P(4)*RP(4)*PDPP - 128*AM^2*P(4)*RP(4)*PDR
  - 128*AM^2*P(4)*RP(4)*PDRP - 64*AM^2*P(4)*RP(4)*PDQ + 128*AM^2*P(4)
  *RP(4)*PPDR + 128*AM^2*P(4)*RP(4)*PPDRP + 128*AM^2*P(4)*RP(4)*RDRP
   - 64*AM^2*P(4)*RP(4)*RPDQ - 64*AM^2*P(4)*Q(4)*PDPP - 64*AM^2*P(4)
  *Q(4)*PDR - 64*AM^2*P(4)*Q(4)*PDRP + 64*AM^2*P(4)*Q(4)*PPDR
  + 64*AM^2*P(4)*Q(4)*PPDRP + 64*AM^2*P(4)*Q(4)*PPDQ + 64*AM^2*P(4)
  *Q(4)*RDRP + 64*AM^2*P(4)*Q(4)*RDQ + 64*AM^2*P(4)^2*PPDQ
  + 64*AM^2*P(4)^2*RDQ + 64*AM^2*P(4)^2*RPDQ - 64*AM^2*PP(4)*R(4)*QDQ
   + 64*AM^2*PP(4)*RP(4)*PDQ - 64*AM^2*PP(4)*RP(4)*RDQ - 64*AM^2*PP(4)
  *RP(4)*RPDQ + 64*AM^2*PP(4)*Q(4)*PDQ - 64*AM^2*PP(4)*Q(4)*RPDQ
  + 64*AM^2*R(4)*RP(4)*PDQ + 64*AM^2*R(4)*RP(4)*PPDQ - 64*AM^2*R(4)
  *RP(4)*RPDQ + 64*AM^2*R(4)*Q(4)*PDQ + 128*AM^2*R(4)*Q(4)*PPDQ
  - 64*AM^2*R(4)*Q(4)*RPDQ - 64*AM^2*RP(4)*Q(4)*PDPP - 64*AM^2*RP(4)
  *Q(4)*PDR - 64*AM^2*RP(4)*Q(4)*PDRP + 64*AM^2*RP(4)*Q(4)*PPDR
  + 64*AM^2*RP(4)*Q(4)*PPDRP + 64*AM^2*RP(4)*Q(4)*PPDQ + 64*AM^2*RP(4)
  *Q(4)*RDRP + 64*AM^2*RP(4)*Q(4)*RDQ + 64*AM^2*RP(4)^2*PDQ
  + 64*AM^2*RP(4)^2*PPDQ + 64*AM^2*RP(4)^2*RDQ - 64*AM^2*Q(4)^2*PDPP
   - 64*AM^2*Q(4)^2*PDR + 64*AM^2*Q(4)^2*PPDRP + 64*AM^2*Q(4)^2*RDRP
   + 32*AM^2*PDPP*QDQ + 32*AM^2*PDR*QDQ - 32*AM^2*PDRP*QDQ
  - 64*AM^2*PDQ*PPDQ - 64*AM^2*PDQ*RDQ + 32*AM^2*PPDR*QDQ
  - 32*AM^2*PPDRP*QDQ - 64*AM^2*PPDQ*RDQ - 32*AM^2*RDRP*QDQ
  + 256*AM^4*P(4)*RP(4) + 128*AM^4*P(4)*Q(4) + 128*AM^4*RP(4)*Q(4)
   + 64*AM^4*Q(4)^2 + 128*P(4)*PP(4)*PDR*RPDQ - 64*P(4)*PP(4)*RDRP
  *QDQ + 128*P(4)*PP(4)*RDQ*RPDQ - 256*P(4)*RP(4)*PDR*PPDRP
  - 128*P(4)*RP(4)*PDR*PPDQ + 64*P(4)*RP(4)*PPDR*QDQ - 128*P(4)*RP(4)
  *PPDRP*RDQ - 128*P(4)*RP(4)*PPDQ*RDQ - 128*P(4)*Q(4)*PDR*PPDRP
  - 64*P(4)*Q(4)*PPDR*RPDQ - 64*P(4)*Q(4)*PPDRP*RDQ + 64*P(4)*Q(4)
  *PPDQ*RDRP + 64*PP(4)*R(4)*PDRP*QDQ - 128*PP(4)*R(4)*PDQ*RPDQ
  + 64*PP(4)*Q(4)*PDR*RPDQ - 64*PP(4)*Q(4)*PDRP*RDQ + 64*PP(4)*Q(4)
  *PDQ*RDRP - 64*R(4)*RP(4)*PDPP*QDQ + 128*R(4)*RP(4)*PDQ*PPDRP
  + 128*R(4)*RP(4)*PDQ*PPDQ + 64*R(4)*Q(4)*PDPP*RPDQ - 64*R(4)*Q(4)
  *PDRP*PPDQ + 64*R(4)*Q(4)*PDQ*PPDRP + 64*RP(4)*Q(4)*PDPP*RDQ
  - 128*RP(4)*Q(4)*PDR*PPDRP - 64*RP(4)*Q(4)*PDR*PPDQ - 64*RP(4)*Q(4)
  *PDQ*PPDR - 64*Q(4)^2*PDPP*RDRP - 64*Q(4)^2*PDR*PPDRP + 64*Q(4)^2
  *PDRP*PPDR + 64*PDPP*RDRP*QDQ - 64*PDPP*RDQ*RPDQ - 64*PDRP*PPDR*QDQ
   + 64*PDRP*PPDQ*RDQ + 64*PDQ*PPDR*RPDQ - 64*PDQ*PPDQ*RDRP )
 
 + X2DPP*X4DPP
  * ( 64*AM^2*P(4)*PP(4)*QDQ - 128*AM^2*P(4)*RP(4)*PPDQ - 128*AM^2
  *P(4)*Q(4)*PPDQ + 128*AM^2*PP(4)*R(4)*RPDQ + 256*AM^2*PP(4)*RP(4)
  *PDPP + 128*AM^2*PP(4)*RP(4)*PDQ - 256*AM^2*PP(4)*RP(4)*RDRP
  - 128*AM^2*PP(4)*RP(4)*RDQ + 128*AM^2*PP(4)*Q(4)*PDPP - 128*AM^2
  *PP(4)*Q(4)*RDRP - 64*AM^2*R(4)*RP(4)*QDQ + 128*AM^2*R(4)*Q(4)*RPDQ
   + 128*AM^2*RP(4)*Q(4)*PDPP - 128*AM^2*RP(4)*Q(4)*RDRP + 128*AM^2
  *Q(4)^2*PDPP - 128*AM^2*Q(4)^2*RDRP - 64*AM^2*PDPP*QDQ + 64*AM^2
  *PDQ*PPDQ + 64*AM^2*RDRP*QDQ - 64*AM^2*RDQ*RPDQ - 512*AM^4*PP(4)
  *RP(4) - 256*AM^4*PP(4)*Q(4) - 256*AM^4*RP(4)*Q(4) - 192*AM^4*Q(4)^2
   + 64*AM^4*QDQ - 128*P(4)*PP(4)*PPDR*RPDQ + 64*P(4)*PP(4)*RDRP*QDQ
   - 128*P(4)*PP(4)*RDQ*RPDQ - 64*P(4)*R(4)*PPDRP*QDQ + 128*P(4)*R(4)
  *PPDQ*RPDQ - 64*P(4)*Q(4)*PPDR*RPDQ + 64*P(4)*Q(4)*PPDRP*RDQ
  - 64*P(4)*Q(4)*PPDQ*RDRP + 256*PP(4)*RP(4)*PDR*PPDRP + 128*PP(4)
  *RP(4)*PDR*PPDQ + 128*PP(4)*RP(4)*PDR*RPDQ + 64*PP(4)*RP(4)*PDR*QDQ
   + 256*PP(4)*RP(4)*PDRP*PPDR + 128*PP(4)*RP(4)*PDRP*RDQ
  + 128*PP(4)*RP(4)*PDQ*PPDR + 128*PP(4)*RP(4)*PDQ*RDQ + 128*PP(4)
  *Q(4)*PDR*PPDRP - 64*PP(4)*Q(4)*PDR*RPDQ + 128*PP(4)*Q(4)*PDRP*PPDR
   + 64*PP(4)*Q(4)*PDRP*RDQ - 64*PP(4)*Q(4)*PDQ*RDRP - 128*PP(4)^2
  *PDR*RPDQ + 64*R(4)*RP(4)*PDPP*QDQ - 128*R(4)*RP(4)*PDRP*PPDQ
  - 128*R(4)*RP(4)*PDQ*PPDQ - 64*R(4)*Q(4)*PDPP*RPDQ - 64*R(4)*Q(4)
  *PDRP*PPDQ + 64*R(4)*Q(4)*PDQ*PPDRP - 64*RP(4)*Q(4)*PDPP*RDQ
  + 128*RP(4)*Q(4)*PDR*PPDRP - 64*RP(4)*Q(4)*PDR*PPDQ + 128*RP(4)*Q(4)
  *PDRP*PPDR + 64*RP(4)*Q(4)*PDQ*PPDR - 128*RP(4)^2*PDR*PPDQ
  + 64*Q(4)^2*PDPP*RDRP + 64*Q(4)^2*PDR*PPDRP + 64*Q(4)^2*PDRP*PPDR
   - 64*PDPP*RDRP*QDQ + 64*PDPP*RDQ*RPDQ + 64*PDR*PPDQ*RPDQ
  - 64*PDQ*PPDRP*RDQ + 64*PDQ*PPDQ*RDRP )
 
 + X2DPP*X4DRP
  * ( - 128*AM^2*P(4)*RP(4)*RPDQ - 64*AM^2*P(4)*RP(4)*QDQ
  + 128*AM^2*PP(4)*RP(4)*RPDQ + 64*AM^2*PP(4)*RP(4)*QDQ + 128*AM^2
  *R(4)*RP(4)*RPDQ + 64*AM^2*R(4)*RP(4)*QDQ + 128*AM^2*RP(4)*Q(4)*PDPP
   + 128*AM^2*RP(4)*Q(4)*PDR + 128*AM^2*RP(4)*Q(4)*PDRP + 128*AM^2
  *RP(4)*Q(4)*PDQ - 128*AM^2*RP(4)*Q(4)*PPDR - 128*AM^2*RP(4)*Q(4)
  *PPDRP - 128*AM^2*RP(4)*Q(4)*PPDQ - 128*AM^2*RP(4)*Q(4)*RDRP
  - 128*AM^2*RP(4)*Q(4)*RDQ + 128*AM^2*RP(4)^2*PDPP + 128*AM^2*RP(4)^2
  *PDR + 128*AM^2*RP(4)^2*PDRP + 128*AM^2*RP(4)^2*PDQ - 128*AM^2*RP(4)^2
  *PPDR - 128*AM^2*RP(4)^2*PPDRP - 128*AM^2*RP(4)^2*PPDQ - 128*AM^2
  *RP(4)^2*RDRP - 128*AM^2*RP(4)^2*RDQ + 32*AM^2*PDPP*QDQ
  + 32*AM^2*PDR*QDQ + 32*AM^2*PDRP*QDQ - 64*AM^2*PDQ*RPDQ
  - 32*AM^2*PPDR*QDQ - 32*AM^2*PPDRP*QDQ + 64*AM^2*PPDQ*RPDQ
  - 32*AM^2*RDRP*QDQ + 64*AM^2*RDQ*RPDQ - 256*AM^4*RP(4)*Q(4)
  - 256*AM^4*RP(4)^2 - 64*AM^4*QDQ - 256*PP(4)*RP(4)*PDR*RPDQ
  - 128*PP(4)*RP(4)*PDR*QDQ + 256*RP(4)*Q(4)*PDR*PPDRP + 256*RP(4)
  *Q(4)*PDR*PPDQ + 256*RP(4)^2*PDR*PPDRP + 256*RP(4)^2*PDR*PPDQ
  + 64*PDR*PPDRP*QDQ - 128*PDR*PPDQ*RPDQ )
 
 + X2DPP^2
  * ( 128*AM^2*R(4)*RP(4)*RPDQ + 64*AM^2*R(4)*RP(4)*QDQ + 128*AM^2
  *RP(4)*Q(4)*PDPP - 128*AM^2*RP(4)*Q(4)*RDRP - 128*AM^2*RP(4)*Q(4)
  *RDQ + 128*AM^2*RP(4)^2*PDPP - 128*AM^2*RP(4)^2*RDRP - 128*AM^2*RP(4)^2
  *RDQ + 32*AM^2*PDPP*QDQ - 32*AM^2*RDRP*QDQ + 64*AM^2*RDQ*RPDQ
  - 256*AM^4*RP(4)*Q(4) - 256*AM^4*RP(4)^2 - 64*AM^4*QDQ - 128*P(4)
  *RP(4)*PPDR*RPDQ - 64*P(4)*RP(4)*PPDR*QDQ - 128*PP(4)*RP(4)*PDR*RPDQ
   - 64*PP(4)*RP(4)*PDR*QDQ + 128*RP(4)*Q(4)*PDR*PPDRP + 128*RP(4)
  *Q(4)*PDR*PPDQ + 128*RP(4)*Q(4)*PDRP*PPDR + 128*RP(4)*Q(4)*PDQ*PPDR
   + 128*RP(4)^2*PDR*PPDRP + 128*RP(4)^2*PDR*PPDQ + 128*RP(4)^2*PDRP
  *PPDR + 128*RP(4)^2*PDQ*PPDR + 32*PDR*PPDRP*QDQ - 64*PDR*PPDQ*RPDQ
   + 32*PDRP*PPDR*QDQ - 64*PDQ*PPDR*RPDQ )
 
 + X2DRP*X3DPP
  * ( - 128*AM^2*P(4)*PP(4)*PDPP - 128*AM^2*P(4)*PP(4)*PDR
  - 128*AM^2*P(4)*PP(4)*PDRP - 64*AM^2*P(4)*PP(4)*PDQ + 128*AM^2*P(4)
  *PP(4)*PPDR + 128*AM^2*P(4)*PP(4)*PPDRP - 64*AM^2*P(4)*PP(4)*PPDQ
   + 128*AM^2*P(4)*PP(4)*RDRP - 64*AM^2*P(4)*R(4)*PDQ - 64*AM^2*P(4)
  *R(4)*PPDQ + 64*AM^2*P(4)*R(4)*RPDQ - 64*AM^2*P(4)*R(4)*QDQ
  - 64*AM^2*P(4)*RP(4)*PDQ - 64*AM^2*P(4)*RP(4)*PPDQ - 64*AM^2*P(4)
  *RP(4)*RDQ - 64*AM^2*P(4)*RP(4)*QDQ - 64*AM^2*P(4)*Q(4)*PDPP
  - 64*AM^2*P(4)*Q(4)*PDR - 64*AM^2*P(4)*Q(4)*PDRP + 64*AM^2*P(4)*Q(4)
  *PPDR + 64*AM^2*P(4)*Q(4)*PPDRP + 64*AM^2*P(4)*Q(4)*RDRP
  + 64*AM^2*P(4)*Q(4)*RDQ + 64*AM^2*P(4)*Q(4)*RPDQ + 64*AM^2*P(4)^2
  *PPDQ + 64*AM^2*P(4)^2*RDQ + 64*AM^2*P(4)^2*RPDQ + 64*AM^2*PP(4)
  *R(4)*PDQ - 64*AM^2*PP(4)*R(4)*PPDQ + 64*AM^2*PP(4)*R(4)*RPDQ
  + 64*AM^2*PP(4)*RP(4)*PDQ - 64*AM^2*PP(4)*RP(4)*PPDQ - 64*AM^2*PP(4)
  *RP(4)*RDQ - 64*AM^2*PP(4)*Q(4)*PDPP - 64*AM^2*PP(4)*Q(4)*PDR
  - 64*AM^2*PP(4)*Q(4)*PDRP + 64*AM^2*PP(4)*Q(4)*PPDR + 64*AM^2*PP(4)
  *Q(4)*PPDRP + 64*AM^2*PP(4)*Q(4)*RDRP + 64*AM^2*PP(4)*Q(4)*RDQ
  + 64*AM^2*PP(4)*Q(4)*RPDQ + 64*AM^2*PP(4)^2*PDQ + 64*AM^2*PP(4)^2
  *RDQ + 64*AM^2*PP(4)^2*RPDQ - 64*AM^2*R(4)*RP(4)*QDQ + 64*AM^2*R(4)
  *Q(4)*PDQ - 64*AM^2*R(4)*Q(4)*PPDQ + 128*AM^2*R(4)*Q(4)*RPDQ
  + 64*AM^2*RP(4)*Q(4)*PDQ - 64*AM^2*RP(4)*Q(4)*PPDQ - 64*AM^2*Q(4)^2
  *PDR - 64*AM^2*Q(4)^2*PDRP + 64*AM^2*Q(4)^2*PPDR + 64*AM^2*Q(4)^2
  *PPDRP - 32*AM^2*PDPP*QDQ + 32*AM^2*PDR*QDQ + 32*AM^2*PDRP*QDQ
  - 64*AM^2*PDQ*RDQ - 64*AM^2*PDQ*RPDQ - 32*AM^2*PPDR*QDQ
  - 32*AM^2*PPDRP*QDQ + 32*AM^2*RDRP*QDQ - 64*AM^2*RDQ*RPDQ
  + 256*AM^4*P(4)*PP(4) + 128*AM^4*P(4)*Q(4) + 128*AM^4*PP(4)*Q(4)
   + 64*AM^4*Q(4)^2 - 256*P(4)*PP(4)*PDR*PPDRP - 128*P(4)*PP(4)*PDR
  *RPDQ - 128*P(4)*PP(4)*PPDRP*RDQ + 64*P(4)*PP(4)*RDRP*QDQ
  - 128*P(4)*PP(4)*RDQ*RPDQ + 128*P(4)*RP(4)*PDR*PPDQ - 64*P(4)*RP(4)
  *PPDR*QDQ + 128*P(4)*RP(4)*PPDQ*RDQ - 128*P(4)*Q(4)*PDR*PPDRP
  + 64*P(4)*Q(4)*PPDR*RPDQ - 64*P(4)*Q(4)*PPDRP*RDQ - 64*P(4)*Q(4)
  *PPDQ*RDRP - 64*PP(4)*R(4)*PDRP*QDQ + 128*PP(4)*R(4)*PDQ*PPDRP
  + 128*PP(4)*R(4)*PDQ*RPDQ - 128*PP(4)*Q(4)*PDR*PPDRP - 64*PP(4)*Q(4)
  *PDR*RPDQ + 64*PP(4)*Q(4)*PDRP*RDQ - 64*PP(4)*Q(4)*PDQ*RDRP
  + 64*R(4)*RP(4)*PDPP*QDQ - 128*R(4)*RP(4)*PDQ*PPDQ - 64*R(4)*Q(4)
  *PDPP*RPDQ + 64*R(4)*Q(4)*PDRP*PPDQ + 64*R(4)*Q(4)*PDQ*PPDRP
  - 64*RP(4)*Q(4)*PDPP*RDQ + 64*RP(4)*Q(4)*PDR*PPDQ + 64*RP(4)*Q(4)
  *PDQ*PPDR + 64*Q(4)^2*PDPP*RDRP - 64*Q(4)^2*PDR*PPDRP - 64*Q(4)^2
  *PDRP*PPDR - 64*PDPP*RDRP*QDQ + 64*PDPP*RDQ*RPDQ + 64*PDRP*PPDR*QDQ
   - 64*PDRP*PPDQ*RDQ - 64*PDQ*PPDR*RPDQ + 64*PDQ*PPDQ*RDRP )
 
 + X2DRP*X3DRP
  * ( - 256*AM^2*P(4)*PP(4)*PDRP + 256*AM^2*P(4)*PP(4)*PPDR
  + 128*AM^2*P(4)*PP(4)*RDQ - 128*AM^2*P(4)*PP(4)*RPDQ - 128*AM^2*P(4)
  *R(4)*PPDQ - 64*AM^2*P(4)*RP(4)*QDQ - 128*AM^2*P(4)*Q(4)*PDRP
  + 128*AM^2*P(4)*Q(4)*PPDR + 64*AM^2*PP(4)*R(4)*QDQ + 128*AM^2*PP(4)
  *RP(4)*PDQ - 128*AM^2*PP(4)*Q(4)*PDRP + 128*AM^2*PP(4)*Q(4)*PPDR
   - 128*AM^2*R(4)*Q(4)*PPDQ + 128*AM^2*RP(4)*Q(4)*PDQ - 128*AM^2*Q(4)^2
  *PDRP + 128*AM^2*Q(4)^2*PPDR + 64*AM^2*PDRP*QDQ - 64*AM^2*PDQ*RPDQ
   - 64*AM^2*PPDR*QDQ + 64*AM^2*PPDQ*RDQ + 512*AM^4*P(4)*PP(4)
  + 256*AM^4*P(4)*Q(4) + 256*AM^4*PP(4)*Q(4) + 192*AM^4*Q(4)^2
  - 64*AM^4*QDQ - 256*P(4)*PP(4)*PDPP*RDRP - 256*P(4)*PP(4)*PDR*PPDRP
   - 128*P(4)*PP(4)*PDR*RPDQ - 128*P(4)*PP(4)*PDQ*RDRP - 128*P(4)*PP(4)
  *PPDRP*RDQ - 128*P(4)*PP(4)*PPDQ*RDRP - 64*P(4)*PP(4)*RDRP*QDQ
  - 128*P(4)*PP(4)*RDQ*RPDQ + 128*P(4)*RP(4)*PDR*PPDQ - 64*P(4)*RP(4)
  *PPDR*QDQ + 128*P(4)*RP(4)*PPDQ*RDQ - 128*P(4)*Q(4)*PDPP*RDRP
  - 128*P(4)*Q(4)*PDR*PPDRP + 64*P(4)*Q(4)*PPDR*RPDQ - 64*P(4)*Q(4)
  *PPDRP*RDQ + 64*P(4)*Q(4)*PPDQ*RDRP + 128*P(4)^2*PPDQ*RDRP
  - 64*PP(4)*R(4)*PDRP*QDQ + 128*PP(4)*R(4)*PDQ*PPDRP + 128*PP(4)*R(4)
  *PDQ*RPDQ - 128*PP(4)*Q(4)*PDPP*RDRP - 128*PP(4)*Q(4)*PDR*PPDRP
  - 64*PP(4)*Q(4)*PDR*RPDQ + 64*PP(4)*Q(4)*PDRP*RDQ + 64*PP(4)*Q(4)
  *PDQ*RDRP + 128*PP(4)^2*PDQ*RDRP + 64*R(4)*RP(4)*PDPP*QDQ
  - 128*R(4)*RP(4)*PDQ*PPDQ - 64*R(4)*Q(4)*PDPP*RPDQ + 64*R(4)*Q(4)
  *PDRP*PPDQ + 64*R(4)*Q(4)*PDQ*PPDRP - 64*RP(4)*Q(4)*PDPP*RDQ
  + 64*RP(4)*Q(4)*PDR*PPDQ + 64*RP(4)*Q(4)*PDQ*PPDR - 64*Q(4)^2*PDPP
  *RDRP - 64*Q(4)^2*PDR*PPDRP - 64*Q(4)^2*PDRP*PPDR + 64*PDPP*RDQ*RPDQ
   + 64*PDRP*PPDR*QDQ - 64*PDRP*PPDQ*RDQ - 64*PDQ*PPDR*RPDQ
  - 64*PDQ*PPDQ*RDRP )
 
 + X2DRP*X4DPP
  * ( - 128*AM^2*P(4)*PP(4)*PPDQ - 64*AM^2*P(4)*PP(4)*QDQ
  + 128*AM^2*PP(4)*R(4)*PPDQ + 64*AM^2*PP(4)*R(4)*QDQ + 128*AM^2*PP(4)
  *RP(4)*PPDQ + 64*AM^2*PP(4)*RP(4)*QDQ + 128*AM^2*PP(4)*Q(4)*PDPP
   + 128*AM^2*PP(4)*Q(4)*PDR + 128*AM^2*PP(4)*Q(4)*PDRP + 128*AM^2
  *PP(4)*Q(4)*PDQ - 128*AM^2*PP(4)*Q(4)*PPDR - 128*AM^2*PP(4)*Q(4)
  *PPDRP - 128*AM^2*PP(4)*Q(4)*RDRP - 128*AM^2*PP(4)*Q(4)*RDQ
  - 128*AM^2*PP(4)*Q(4)*RPDQ + 128*AM^2*PP(4)^2*PDPP + 128*AM^2*PP(4)^2
  *PDR + 128*AM^2*PP(4)^2*PDRP + 128*AM^2*PP(4)^2*PDQ - 128*AM^2*PP(4)^2
  *PPDR - 128*AM^2*PP(4)^2*PPDRP - 128*AM^2*PP(4)^2*RDRP - 128*AM^2
  *PP(4)^2*RDQ - 128*AM^2*PP(4)^2*RPDQ + 32*AM^2*PDPP*QDQ
  + 32*AM^2*PDR*QDQ + 32*AM^2*PDRP*QDQ - 64*AM^2*PDQ*PPDQ
  - 32*AM^2*PPDR*QDQ - 32*AM^2*PPDRP*QDQ + 64*AM^2*PPDQ*RDQ
  + 64*AM^2*PPDQ*RPDQ - 32*AM^2*RDRP*QDQ - 256*AM^4*PP(4)*Q(4)
  - 256*AM^4*PP(4)^2 - 64*AM^4*QDQ - 256*PP(4)*RP(4)*PDR*PPDQ
  - 128*PP(4)*RP(4)*PDR*QDQ + 256*PP(4)*Q(4)*PDR*PPDRP + 256*PP(4)
  *Q(4)*PDR*RPDQ + 256*PP(4)^2*PDR*PPDRP + 256*PP(4)^2*PDR*RPDQ
  + 64*PDR*PPDRP*QDQ - 128*PDR*PPDQ*RPDQ )
 
 + X2DRP*X4DRP
  * ( - 128*AM^2*P(4)*PP(4)*RPDQ + 64*AM^2*P(4)*RP(4)*QDQ
  - 128*AM^2*P(4)*Q(4)*RPDQ - 64*AM^2*PP(4)*R(4)*QDQ + 256*AM^2*PP(4)
  *RP(4)*PDRP + 128*AM^2*PP(4)*RP(4)*PDQ - 256*AM^2*PP(4)*RP(4)*PPDR
   - 128*AM^2*PP(4)*RP(4)*RDQ + 128*AM^2*PP(4)*Q(4)*PDRP - 128*AM^2
  *PP(4)*Q(4)*PPDR + 128*AM^2*R(4)*RP(4)*PPDQ + 128*AM^2*R(4)*Q(4)
  *PPDQ + 128*AM^2*RP(4)*Q(4)*PDRP - 128*AM^2*RP(4)*Q(4)*PPDR
  + 128*AM^2*Q(4)^2*PDRP - 128*AM^2*Q(4)^2*PPDR - 64*AM^2*PDRP*QDQ
   + 64*AM^2*PDQ*RPDQ + 64*AM^2*PPDR*QDQ - 64*AM^2*PPDQ*RDQ
  - 512*AM^4*PP(4)*RP(4) - 256*AM^4*PP(4)*Q(4) - 256*AM^4*RP(4)*Q(4)
   - 192*AM^4*Q(4)^2 + 64*AM^4*QDQ - 64*P(4)*R(4)*PPDRP*QDQ
  + 128*P(4)*R(4)*PPDQ*RPDQ + 64*P(4)*RP(4)*PPDR*QDQ - 128*P(4)*RP(4)
  *PPDQ*RDRP - 128*P(4)*RP(4)*PPDQ*RDQ - 64*P(4)*Q(4)*PPDR*RPDQ
  + 64*P(4)*Q(4)*PPDRP*RDQ - 64*P(4)*Q(4)*PPDQ*RDRP - 128*PP(4)*R(4)
  *PDPP*RPDQ + 64*PP(4)*R(4)*PDRP*QDQ - 128*PP(4)*R(4)*PDQ*RPDQ
  + 256*PP(4)*RP(4)*PDPP*RDRP + 128*PP(4)*RP(4)*PDPP*RDQ + 256*PP(4)
  *RP(4)*PDR*PPDRP + 128*PP(4)*RP(4)*PDR*PPDQ + 128*PP(4)*RP(4)*PDR
  *RPDQ + 64*PP(4)*RP(4)*PDR*QDQ + 128*PP(4)*RP(4)*PDQ*RDRP
  + 128*PP(4)*RP(4)*PDQ*RDQ + 128*PP(4)*Q(4)*PDPP*RDRP + 128*PP(4)
  *Q(4)*PDR*PPDRP - 64*PP(4)*Q(4)*PDR*RPDQ - 64*PP(4)*Q(4)*PDRP*RDQ
   + 64*PP(4)*Q(4)*PDQ*RDRP - 128*PP(4)^2*PDR*RPDQ - 64*R(4)*Q(4)*PDPP
  *RPDQ - 64*R(4)*Q(4)*PDRP*PPDQ + 64*R(4)*Q(4)*PDQ*PPDRP
  + 128*RP(4)*Q(4)*PDPP*RDRP + 64*RP(4)*Q(4)*PDPP*RDQ + 128*RP(4)*Q(4)
  *PDR*PPDRP - 64*RP(4)*Q(4)*PDR*PPDQ - 64*RP(4)*Q(4)*PDQ*PPDR
  - 128*RP(4)^2*PDR*PPDQ + 64*Q(4)^2*PDPP*RDRP + 64*Q(4)^2*PDR*PPDRP
   + 64*Q(4)^2*PDRP*PPDR + 64*PDR*PPDQ*RPDQ - 64*PDRP*PPDR*QDQ
  + 64*PDRP*PPDQ*RDQ + 64*PDQ*PPDR*RPDQ - 64*PDQ*PPDRP*RDQ )
 
 + X2DRP^2
  * ( 128*AM^2*PP(4)*R(4)*PPDQ + 64*AM^2*PP(4)*R(4)*QDQ + 128*AM^2
  *PP(4)*Q(4)*PDRP - 128*AM^2*PP(4)*Q(4)*PPDR - 128*AM^2*PP(4)*Q(4)
  *RDQ + 128*AM^2*PP(4)^2*PDRP - 128*AM^2*PP(4)^2*PPDR - 128*AM^2*PP(4)^2
  *RDQ + 32*AM^2*PDRP*QDQ - 32*AM^2*PPDR*QDQ + 64*AM^2*PPDQ*RDQ
  - 256*AM^4*PP(4)*Q(4) - 256*AM^4*PP(4)^2 - 64*AM^4*QDQ - 128*P(4)
  *PP(4)*PPDQ*RDRP - 64*P(4)*PP(4)*RDRP*QDQ - 128*PP(4)*RP(4)*PDR*PPDQ
   - 64*PP(4)*RP(4)*PDR*QDQ + 128*PP(4)*Q(4)*PDPP*RDRP + 128*PP(4)
  *Q(4)*PDR*PPDRP + 128*PP(4)*Q(4)*PDR*RPDQ + 128*PP(4)*Q(4)*PDQ*RDRP
   + 128*PP(4)^2*PDPP*RDRP + 128*PP(4)^2*PDR*PPDRP + 128*PP(4)^2*PDR
  *RPDQ + 128*PP(4)^2*PDQ*RDRP + 32*PDPP*RDRP*QDQ + 32*PDR*PPDRP*QDQ
   - 64*PDR*PPDQ*RPDQ - 64*PDQ*PPDQ*RDRP )
 
 + X3DPP*X3DRP
  * ( - 128*AM^2*P(4)*PP(4)*PDQ - 64*AM^2*P(4)*PP(4)*QDQ - 128*AM^2
  *P(4)*R(4)*PDQ - 64*AM^2*P(4)*R(4)*QDQ - 128*AM^2*P(4)*RP(4)*PDQ
   - 64*AM^2*P(4)*RP(4)*QDQ + 128*AM^2*P(4)*Q(4)*PDPP + 128*AM^2*P(4)
  *Q(4)*PDR + 128*AM^2*P(4)*Q(4)*PDRP - 128*AM^2*P(4)*Q(4)*PPDR
  - 128*AM^2*P(4)*Q(4)*PPDRP + 128*AM^2*P(4)*Q(4)*PPDQ - 128*AM^2*P(4)
  *Q(4)*RDRP + 128*AM^2*P(4)*Q(4)*RDQ + 128*AM^2*P(4)*Q(4)*RPDQ
  + 128*AM^2*P(4)^2*PDPP + 128*AM^2*P(4)^2*PDR + 128*AM^2*P(4)^2*PDRP
   - 128*AM^2*P(4)^2*PPDR - 128*AM^2*P(4)^2*PPDRP + 128*AM^2*P(4)^2
  *PPDQ - 128*AM^2*P(4)^2*RDRP + 128*AM^2*P(4)^2*RDQ + 128*AM^2*P(4)^2
  *RPDQ + 32*AM^2*PDPP*QDQ + 32*AM^2*PDR*QDQ + 32*AM^2*PDRP*QDQ
  - 64*AM^2*PDQ*PPDQ - 64*AM^2*PDQ*RDQ - 64*AM^2*PDQ*RPDQ
  - 32*AM^2*PPDR*QDQ - 32*AM^2*PPDRP*QDQ - 32*AM^2*RDRP*QDQ
  - 256*AM^4*P(4)*Q(4) - 256*AM^4*P(4)^2 - 64*AM^4*QDQ - 256*P(4)*R(4)
  *PDQ*PPDRP - 128*P(4)*R(4)*PPDRP*QDQ + 256*P(4)*Q(4)*PDR*PPDRP
  + 256*P(4)*Q(4)*PPDRP*RDQ + 256*P(4)^2*PDR*PPDRP + 256*P(4)^2*PPDRP
  *RDQ + 64*PDR*PPDRP*QDQ - 128*PDQ*PPDRP*RDQ )
 
 + X3DPP*X4DPP
  * ( - 256*AM^2*P(4)*PP(4)*PDPP - 128*AM^2*P(4)*PP(4)*PDQ
  - 128*AM^2*P(4)*PP(4)*PPDQ + 256*AM^2*P(4)*PP(4)*RDRP - 128*AM^2
  *P(4)*Q(4)*PDPP + 128*AM^2*P(4)*Q(4)*RDRP + 128*AM^2*P(4)^2*PPDQ
   - 128*AM^2*PP(4)*Q(4)*PDPP + 128*AM^2*PP(4)*Q(4)*RDRP + 128*AM^2
  *PP(4)^2*PDQ - 128*AM^2*R(4)*RP(4)*QDQ + 128*AM^2*R(4)*Q(4)*RPDQ
   + 128*AM^2*RP(4)*Q(4)*RDQ - 64*AM^2*PDPP*QDQ + 64*AM^2*RDRP*QDQ
   - 128*AM^2*RDQ*RPDQ + 512*AM^4*P(4)*PP(4) + 256*AM^4*P(4)*Q(4)
  + 256*AM^4*PP(4)*Q(4) + 128*AM^4*Q(4)^2 - 256*P(4)*PP(4)*PDR*PPDRP
   - 128*P(4)*PP(4)*PDR*RPDQ - 256*P(4)*PP(4)*PDRP*PPDR - 128*P(4)
  *PP(4)*PDRP*RDQ - 128*P(4)*PP(4)*PPDR*RPDQ - 128*P(4)*PP(4)*PPDRP
  *RDQ + 128*P(4)*PP(4)*RDRP*QDQ - 256*P(4)*PP(4)*RDQ*RPDQ
  + 128*P(4)*R(4)*PDRP*PPDQ - 64*P(4)*R(4)*PPDRP*QDQ + 128*P(4)*R(4)
  *PPDQ*RPDQ + 128*P(4)*RP(4)*PDR*PPDQ - 64*P(4)*RP(4)*PPDR*QDQ
  + 128*P(4)*RP(4)*PPDQ*RDQ - 128*P(4)*Q(4)*PDR*PPDRP - 128*P(4)*Q(4)
  *PDRP*PPDR - 128*P(4)*Q(4)*PPDQ*RDRP - 64*PP(4)*R(4)*PDRP*QDQ
  + 128*PP(4)*R(4)*PDQ*PPDRP + 128*PP(4)*R(4)*PDQ*RPDQ - 64*PP(4)*RP(4)
  *PDR*QDQ + 128*PP(4)*RP(4)*PDQ*PPDR + 128*PP(4)*RP(4)*PDQ*RDQ
  - 128*PP(4)*Q(4)*PDR*PPDRP - 128*PP(4)*Q(4)*PDRP*PPDR - 128*PP(4)
  *Q(4)*PDQ*RDRP + 128*R(4)*RP(4)*PDPP*QDQ - 256*R(4)*RP(4)*PDQ*PPDQ
   - 128*R(4)*Q(4)*PDPP*RPDQ + 128*R(4)*Q(4)*PDRP*PPDQ + 128*R(4)*Q(4)
  *PDQ*PPDRP - 128*RP(4)*Q(4)*PDPP*RDQ + 128*RP(4)*Q(4)*PDR*PPDQ
  + 128*RP(4)*Q(4)*PDQ*PPDR + 128*Q(4)^2*PDPP*RDRP - 128*Q(4)^2*PDR
  *PPDRP - 128*Q(4)^2*PDRP*PPDR - 128*PDPP*RDRP*QDQ + 128*PDPP*RDQ
  *RPDQ + 64*PDR*PPDRP*QDQ - 64*PDR*PPDQ*RPDQ + 64*PDRP*PPDR*QDQ
  - 64*PDRP*PPDQ*RDQ - 64*PDQ*PPDR*RPDQ - 64*PDQ*PPDRP*RDQ
  + 128*PDQ*PPDQ*RDRP )
 
 + X3DPP*X4DRP
  * ( 64*AM^2*P(4)*PP(4)*PDQ + 64*AM^2*P(4)*PP(4)*RDQ - 64*AM^2*P(4)
  *PP(4)*RPDQ + 64*AM^2*P(4)*R(4)*PDQ - 64*AM^2*P(4)*R(4)*PPDQ
  - 64*AM^2*P(4)*R(4)*RPDQ - 128*AM^2*P(4)*RP(4)*PDPP - 128*AM^2*P(4)
  *RP(4)*PDR - 128*AM^2*P(4)*RP(4)*PDRP - 64*AM^2*P(4)*RP(4)*PDQ
  + 128*AM^2*P(4)*RP(4)*PPDR + 128*AM^2*P(4)*RP(4)*PPDRP + 128*AM^2
  *P(4)*RP(4)*RDRP - 64*AM^2*P(4)*RP(4)*RPDQ - 64*AM^2*P(4)*Q(4)*PDPP
   - 64*AM^2*P(4)*Q(4)*PDR - 64*AM^2*P(4)*Q(4)*PDRP + 64*AM^2*P(4)
  *Q(4)*PPDR + 64*AM^2*P(4)*Q(4)*PPDRP - 64*AM^2*P(4)*Q(4)*PPDQ
  + 64*AM^2*P(4)*Q(4)*RDRP - 64*AM^2*P(4)*Q(4)*RDQ - 64*AM^2*P(4)^2
  *PPDQ - 64*AM^2*P(4)^2*RDQ + 64*AM^2*P(4)^2*RPDQ - 64*AM^2*PP(4)
  *R(4)*QDQ + 64*AM^2*PP(4)*RP(4)*PDQ + 64*AM^2*PP(4)*RP(4)*RDQ
  + 64*AM^2*PP(4)*RP(4)*RPDQ + 64*AM^2*PP(4)*RP(4)*QDQ + 64*AM^2*PP(4)
  *Q(4)*PDQ + 128*AM^2*PP(4)*Q(4)*RDQ - 64*AM^2*PP(4)*Q(4)*RPDQ
  + 64*AM^2*R(4)*RP(4)*PDQ - 64*AM^2*R(4)*RP(4)*PPDQ + 64*AM^2*R(4)
  *RP(4)*RPDQ + 64*AM^2*R(4)*RP(4)*QDQ + 64*AM^2*R(4)*Q(4)*PDQ
  - 64*AM^2*R(4)*Q(4)*RPDQ - 64*AM^2*RP(4)*Q(4)*PDPP - 64*AM^2*RP(4)
  *Q(4)*PDR - 64*AM^2*RP(4)*Q(4)*PDRP + 64*AM^2*RP(4)*Q(4)*PPDR
  + 64*AM^2*RP(4)*Q(4)*PPDRP - 64*AM^2*RP(4)*Q(4)*PPDQ + 64*AM^2*RP(4)
  *Q(4)*RDRP - 64*AM^2*RP(4)*Q(4)*RDQ + 64*AM^2*RP(4)^2*PDQ
  - 64*AM^2*RP(4)^2*PPDQ - 64*AM^2*RP(4)^2*RDQ - 64*AM^2*Q(4)^2*PDPP
   - 64*AM^2*Q(4)^2*PDR + 64*AM^2*Q(4)^2*PPDRP + 64*AM^2*Q(4)^2*RDRP
   + 32*AM^2*PDPP*QDQ + 32*AM^2*PDR*QDQ - 32*AM^2*PDRP*QDQ
  + 32*AM^2*PPDR*QDQ - 32*AM^2*PPDRP*QDQ - 64*AM^2*PPDQ*RDQ
  + 64*AM^2*PPDQ*RPDQ - 32*AM^2*RDRP*QDQ + 64*AM^2*RDQ*RPDQ
  + 256*AM^4*P(4)*RP(4) + 128*AM^4*P(4)*Q(4) + 128*AM^4*RP(4)*Q(4)
   + 64*AM^4*Q(4)^2 + 128*P(4)*PP(4)*PDR*RPDQ - 64*P(4)*PP(4)*RDRP
  *QDQ + 128*P(4)*PP(4)*RDQ*RPDQ - 256*P(4)*RP(4)*PDR*PPDRP
  - 128*P(4)*RP(4)*PDR*PPDQ + 64*P(4)*RP(4)*PPDR*QDQ - 128*P(4)*RP(4)
  *PPDRP*RDQ - 128*P(4)*RP(4)*PPDQ*RDQ - 128*P(4)*Q(4)*PDR*PPDRP
  - 64*P(4)*Q(4)*PPDR*RPDQ - 64*P(4)*Q(4)*PPDRP*RDQ + 64*P(4)*Q(4)
  *PPDQ*RDRP + 64*PP(4)*R(4)*PDRP*QDQ - 128*PP(4)*R(4)*PDQ*RPDQ
  + 64*PP(4)*Q(4)*PDR*RPDQ - 64*PP(4)*Q(4)*PDRP*RDQ + 64*PP(4)*Q(4)
  *PDQ*RDRP - 64*R(4)*RP(4)*PDPP*QDQ + 128*R(4)*RP(4)*PDQ*PPDRP
  + 128*R(4)*RP(4)*PDQ*PPDQ + 64*R(4)*Q(4)*PDPP*RPDQ - 64*R(4)*Q(4)
  *PDRP*PPDQ + 64*R(4)*Q(4)*PDQ*PPDRP + 64*RP(4)*Q(4)*PDPP*RDQ
  - 128*RP(4)*Q(4)*PDR*PPDRP - 64*RP(4)*Q(4)*PDR*PPDQ - 64*RP(4)*Q(4)
  *PDQ*PPDR - 64*Q(4)^2*PDPP*RDRP - 64*Q(4)^2*PDR*PPDRP + 64*Q(4)^2
  *PDRP*PPDR + 64*PDPP*RDRP*QDQ - 64*PDPP*RDQ*RPDQ - 64*PDRP*PPDR*QDQ
   + 64*PDRP*PPDQ*RDQ + 64*PDQ*PPDR*RPDQ - 64*PDQ*PPDQ*RDRP )
 
 + X3DPP^2
  * ( - 128*AM^2*P(4)*PP(4)*PDQ - 64*AM^2*P(4)*PP(4)*QDQ + 128*AM^2
  *P(4)*Q(4)*PDPP + 128*AM^2*P(4)*Q(4)*PPDQ - 128*AM^2*P(4)*Q(4)*RDRP
   + 128*AM^2*P(4)^2*PDPP + 128*AM^2*P(4)^2*PPDQ - 128*AM^2*P(4)^2
  *RDRP + 32*AM^2*PDPP*QDQ - 64*AM^2*PDQ*PPDQ - 32*AM^2*RDRP*QDQ
  - 256*AM^4*P(4)*Q(4) - 256*AM^4*P(4)^2 - 64*AM^4*QDQ - 128*P(4)*R(4)
  *PDQ*PPDRP - 64*P(4)*R(4)*PPDRP*QDQ - 128*P(4)*RP(4)*PDQ*PPDR
  - 64*P(4)*RP(4)*PPDR*QDQ + 128*P(4)*Q(4)*PDR*PPDRP + 128*P(4)*Q(4)
  *PDRP*PPDR + 128*P(4)*Q(4)*PPDR*RPDQ + 128*P(4)*Q(4)*PPDRP*RDQ
  + 128*P(4)^2*PDR*PPDRP + 128*P(4)^2*PDRP*PPDR + 128*P(4)^2*PPDR*RPDQ
   + 128*P(4)^2*PPDRP*RDQ + 32*PDR*PPDRP*QDQ + 32*PDRP*PPDR*QDQ
  - 64*PDQ*PPDR*RPDQ - 64*PDQ*PPDRP*RDQ )
 
 + X3DRP*X4DPP
  * ( - 128*AM^2*P(4)*PP(4)*PDPP - 128*AM^2*P(4)*PP(4)*PDR
  - 128*AM^2*P(4)*PP(4)*PDRP - 64*AM^2*P(4)*PP(4)*PDQ + 128*AM^2*P(4)
  *PP(4)*PPDR + 128*AM^2*P(4)*PP(4)*PPDRP - 64*AM^2*P(4)*PP(4)*PPDQ
   + 128*AM^2*P(4)*PP(4)*RDRP + 64*AM^2*P(4)*R(4)*PDQ - 64*AM^2*P(4)
  *R(4)*PPDQ - 64*AM^2*P(4)*R(4)*RPDQ + 64*AM^2*P(4)*RP(4)*PDQ
  - 64*AM^2*P(4)*RP(4)*PPDQ + 64*AM^2*P(4)*RP(4)*RDQ - 64*AM^2*P(4)
  *Q(4)*PDPP - 64*AM^2*P(4)*Q(4)*PDR - 64*AM^2*P(4)*Q(4)*PDRP
  + 64*AM^2*P(4)*Q(4)*PPDR + 64*AM^2*P(4)*Q(4)*PPDRP + 64*AM^2*P(4)
  *Q(4)*RDRP - 64*AM^2*P(4)*Q(4)*RDQ - 64*AM^2*P(4)*Q(4)*RPDQ
  + 64*AM^2*P(4)^2*PPDQ - 64*AM^2*P(4)^2*RDQ - 64*AM^2*P(4)^2*RPDQ
   + 64*AM^2*PP(4)*R(4)*PDQ + 64*AM^2*PP(4)*R(4)*PPDQ - 64*AM^2*PP(4)
  *R(4)*RPDQ + 64*AM^2*PP(4)*R(4)*QDQ + 64*AM^2*PP(4)*RP(4)*PDQ
  + 64*AM^2*PP(4)*RP(4)*PPDQ + 64*AM^2*PP(4)*RP(4)*RDQ + 64*AM^2*PP(4)
  *RP(4)*QDQ - 64*AM^2*PP(4)*Q(4)*PDPP - 64*AM^2*PP(4)*Q(4)*PDR
  - 64*AM^2*PP(4)*Q(4)*PDRP + 64*AM^2*PP(4)*Q(4)*PPDR + 64*AM^2*PP(4)
  *Q(4)*PPDRP + 64*AM^2*PP(4)*Q(4)*RDRP - 64*AM^2*PP(4)*Q(4)*RDQ
  - 64*AM^2*PP(4)*Q(4)*RPDQ + 64*AM^2*PP(4)^2*PDQ - 64*AM^2*PP(4)^2
  *RDQ - 64*AM^2*PP(4)^2*RPDQ - 64*AM^2*R(4)*RP(4)*QDQ + 64*AM^2*R(4)
  *Q(4)*PDQ - 64*AM^2*R(4)*Q(4)*PPDQ + 64*AM^2*RP(4)*Q(4)*PDQ
  - 64*AM^2*RP(4)*Q(4)*PPDQ + 128*AM^2*RP(4)*Q(4)*RDQ - 64*AM^2*Q(4)^2
  *PDR - 64*AM^2*Q(4)^2*PDRP + 64*AM^2*Q(4)^2*PPDR + 64*AM^2*Q(4)^2
  *PPDRP - 32*AM^2*PDPP*QDQ + 32*AM^2*PDR*QDQ + 32*AM^2*PDRP*QDQ
  - 32*AM^2*PPDR*QDQ - 32*AM^2*PPDRP*QDQ + 64*AM^2*PPDQ*RDQ
  + 64*AM^2*PPDQ*RPDQ + 32*AM^2*RDRP*QDQ - 64*AM^2*RDQ*RPDQ
  + 256*AM^4*P(4)*PP(4) + 128*AM^4*P(4)*Q(4) + 128*AM^4*PP(4)*Q(4)
   + 64*AM^4*Q(4)^2 - 256*P(4)*PP(4)*PDR*PPDRP - 128*P(4)*PP(4)*PDR
  *RPDQ - 128*P(4)*PP(4)*PPDRP*RDQ + 64*P(4)*PP(4)*RDRP*QDQ
  - 128*P(4)*PP(4)*RDQ*RPDQ + 128*P(4)*RP(4)*PDR*PPDQ - 64*P(4)*RP(4)
  *PPDR*QDQ + 128*P(4)*RP(4)*PPDQ*RDQ - 128*P(4)*Q(4)*PDR*PPDRP
  + 64*P(4)*Q(4)*PPDR*RPDQ - 64*P(4)*Q(4)*PPDRP*RDQ - 64*P(4)*Q(4)
  *PPDQ*RDRP - 64*PP(4)*R(4)*PDRP*QDQ + 128*PP(4)*R(4)*PDQ*PPDRP
  + 128*PP(4)*R(4)*PDQ*RPDQ - 128*PP(4)*Q(4)*PDR*PPDRP - 64*PP(4)*Q(4)
  *PDR*RPDQ + 64*PP(4)*Q(4)*PDRP*RDQ - 64*PP(4)*Q(4)*PDQ*RDRP
  + 64*R(4)*RP(4)*PDPP*QDQ - 128*R(4)*RP(4)*PDQ*PPDQ - 64*R(4)*Q(4)
  *PDPP*RPDQ + 64*R(4)*Q(4)*PDRP*PPDQ + 64*R(4)*Q(4)*PDQ*PPDRP
  - 64*RP(4)*Q(4)*PDPP*RDQ + 64*RP(4)*Q(4)*PDR*PPDQ + 64*RP(4)*Q(4)
  *PDQ*PPDR + 64*Q(4)^2*PDPP*RDRP - 64*Q(4)^2*PDR*PPDRP - 64*Q(4)^2
  *PDRP*PPDR - 64*PDPP*RDRP*QDQ + 64*PDPP*RDQ*RPDQ + 64*PDRP*PPDR*QDQ
   - 64*PDRP*PPDQ*RDQ - 64*PDQ*PPDR*RPDQ + 64*PDQ*PPDQ*RDRP )
 
 + X3DRP*X4DRP
  * ( - 256*AM^2*P(4)*RP(4)*PDRP - 128*AM^2*P(4)*RP(4)*PDQ
  + 256*AM^2*P(4)*RP(4)*PPDR - 128*AM^2*P(4)*RP(4)*RPDQ - 128*AM^2
  *P(4)*Q(4)*PDRP + 128*AM^2*P(4)*Q(4)*PPDR + 128*AM^2*P(4)^2*RPDQ
   - 128*AM^2*PP(4)*R(4)*QDQ + 128*AM^2*PP(4)*Q(4)*RDQ + 128*AM^2*R(4)
  *Q(4)*PPDQ - 128*AM^2*RP(4)*Q(4)*PDRP + 128*AM^2*RP(4)*Q(4)*PPDR
   + 128*AM^2*RP(4)^2*PDQ - 64*AM^2*PDRP*QDQ + 64*AM^2*PPDR*QDQ
  - 128*AM^2*PPDQ*RDQ + 512*AM^4*P(4)*RP(4) + 256*AM^4*P(4)*Q(4)
  + 256*AM^4*RP(4)*Q(4) + 128*AM^4*Q(4)^2 + 128*P(4)*PP(4)*PDR*RPDQ
   - 64*P(4)*PP(4)*RDRP*QDQ + 128*P(4)*PP(4)*RDQ*RPDQ + 128*P(4)*R(4)
  *PDPP*RPDQ - 64*P(4)*R(4)*PPDRP*QDQ + 128*P(4)*R(4)*PPDQ*RPDQ
  - 256*P(4)*RP(4)*PDPP*RDRP - 128*P(4)*RP(4)*PDPP*RDQ - 256*P(4)*RP(4)
  *PDR*PPDRP - 128*P(4)*RP(4)*PDR*PPDQ + 128*P(4)*RP(4)*PPDR*QDQ
  - 128*P(4)*RP(4)*PPDRP*RDQ - 128*P(4)*RP(4)*PPDQ*RDRP - 256*P(4)
  *RP(4)*PPDQ*RDQ - 128*P(4)*Q(4)*PDPP*RDRP - 128*P(4)*Q(4)*PDR*PPDRP
   - 128*P(4)*Q(4)*PPDR*RPDQ + 128*PP(4)*R(4)*PDRP*QDQ - 256*PP(4)
  *R(4)*PDQ*RPDQ - 64*PP(4)*RP(4)*PDR*QDQ + 128*PP(4)*RP(4)*PDQ*RDRP
   + 128*PP(4)*RP(4)*PDQ*RDQ + 128*PP(4)*Q(4)*PDR*RPDQ - 128*PP(4)
  *Q(4)*PDRP*RDQ + 128*PP(4)*Q(4)*PDQ*RDRP - 64*R(4)*RP(4)*PDPP*QDQ
   + 128*R(4)*RP(4)*PDQ*PPDRP + 128*R(4)*RP(4)*PDQ*PPDQ + 128*R(4)
  *Q(4)*PDPP*RPDQ - 128*R(4)*Q(4)*PDRP*PPDQ + 128*R(4)*Q(4)*PDQ*PPDRP
   - 128*RP(4)*Q(4)*PDPP*RDRP - 128*RP(4)*Q(4)*PDR*PPDRP - 128*RP(4)
  *Q(4)*PDQ*PPDR - 128*Q(4)^2*PDPP*RDRP - 128*Q(4)^2*PDR*PPDRP
  + 128*Q(4)^2*PDRP*PPDR + 64*PDPP*RDRP*QDQ - 64*PDPP*RDQ*RPDQ
  + 64*PDR*PPDRP*QDQ - 64*PDR*PPDQ*RPDQ - 128*PDRP*PPDR*QDQ
  + 128*PDRP*PPDQ*RDQ + 128*PDQ*PPDR*RPDQ - 64*PDQ*PPDRP*RDQ
  - 64*PDQ*PPDQ*RDRP )
 
 + X3DRP^2
  * ( - 128*AM^2*P(4)*RP(4)*PDQ - 64*AM^2*P(4)*RP(4)*QDQ + 128*AM^2
  *P(4)*Q(4)*PDRP - 128*AM^2*P(4)*Q(4)*PPDR + 128*AM^2*P(4)*Q(4)*RPDQ
   + 128*AM^2*P(4)^2*PDRP - 128*AM^2*P(4)^2*PPDR + 128*AM^2*P(4)^2
  *RPDQ + 32*AM^2*PDRP*QDQ - 64*AM^2*PDQ*RPDQ - 32*AM^2*PPDR*QDQ
  - 256*AM^4*P(4)*Q(4) - 256*AM^4*P(4)^2 - 64*AM^4*QDQ - 128*P(4)*PP(4)
  *PDQ*RDRP - 64*P(4)*PP(4)*RDRP*QDQ - 128*P(4)*R(4)*PDQ*PPDRP
  - 64*P(4)*R(4)*PPDRP*QDQ + 128*P(4)*Q(4)*PDPP*RDRP + 128*P(4)*Q(4)
  *PDR*PPDRP + 128*P(4)*Q(4)*PPDRP*RDQ + 128*P(4)*Q(4)*PPDQ*RDRP
  + 128*P(4)^2*PDPP*RDRP + 128*P(4)^2*PDR*PPDRP + 128*P(4)^2*PPDRP
  *RDQ + 128*P(4)^2*PPDQ*RDRP + 32*PDPP*RDRP*QDQ + 32*PDR*PPDRP*QDQ
   - 64*PDQ*PPDRP*RDQ - 64*PDQ*PPDQ*RDRP )
 
 + X4DPP*X4DRP
  * ( 64*AM^2*P(4)*PP(4)*PPDQ + 64*AM^2*P(4)*PP(4)*RDQ - 64*AM^2*P(4)
  *PP(4)*RPDQ + 64*AM^2*P(4)*PP(4)*QDQ - 64*AM^2*P(4)*R(4)*QDQ
  - 64*AM^2*P(4)*RP(4)*PPDQ + 64*AM^2*P(4)*RP(4)*RDQ + 64*AM^2*P(4)
  *RP(4)*RPDQ + 64*AM^2*P(4)*RP(4)*QDQ - 64*AM^2*P(4)*Q(4)*PPDQ
  + 128*AM^2*P(4)*Q(4)*RDQ - 64*AM^2*P(4)*Q(4)*RPDQ - 64*AM^2*PP(4)
  *R(4)*PDQ + 64*AM^2*PP(4)*R(4)*PPDQ + 64*AM^2*PP(4)*R(4)*RPDQ
  + 128*AM^2*PP(4)*RP(4)*PDPP + 128*AM^2*PP(4)*RP(4)*PDR + 128*AM^2
  *PP(4)*RP(4)*PDRP + 128*AM^2*PP(4)*RP(4)*PDQ - 128*AM^2*PP(4)*RP(4)
  *PPDR - 128*AM^2*PP(4)*RP(4)*PPDRP - 64*AM^2*PP(4)*RP(4)*PPDQ
  - 128*AM^2*PP(4)*RP(4)*RDRP - 128*AM^2*PP(4)*RP(4)*RDQ - 64*AM^2
  *PP(4)*RP(4)*RPDQ + 64*AM^2*PP(4)*Q(4)*PDPP + 64*AM^2*PP(4)*Q(4)
  *PDR + 64*AM^2*PP(4)*Q(4)*PDRP - 64*AM^2*PP(4)*Q(4)*PDQ
  - 64*AM^2*PP(4)*Q(4)*PPDR - 64*AM^2*PP(4)*Q(4)*PPDRP - 64*AM^2*PP(4)
  *Q(4)*RDRP - 64*AM^2*PP(4)*Q(4)*RDQ - 64*AM^2*PP(4)^2*PDQ
  - 64*AM^2*PP(4)^2*RDQ + 64*AM^2*PP(4)^2*RPDQ - 64*AM^2*R(4)*RP(4)
  *PDQ + 64*AM^2*R(4)*RP(4)*PPDQ + 64*AM^2*R(4)*RP(4)*RPDQ
  + 64*AM^2*R(4)*Q(4)*PPDQ + 64*AM^2*R(4)*Q(4)*RPDQ + 64*AM^2*RP(4)
  *Q(4)*PDPP + 64*AM^2*RP(4)*Q(4)*PDR + 64*AM^2*RP(4)*Q(4)*PDRP
  - 64*AM^2*RP(4)*Q(4)*PDQ - 64*AM^2*RP(4)*Q(4)*PPDR - 64*AM^2*RP(4)
  *Q(4)*PPDRP - 64*AM^2*RP(4)*Q(4)*RDRP - 64*AM^2*RP(4)*Q(4)*RDQ
  - 64*AM^2*RP(4)^2*PDQ + 64*AM^2*RP(4)^2*PPDQ - 64*AM^2*RP(4)^2*RDQ
   + 64*AM^2*Q(4)^2*PDPP + 64*AM^2*Q(4)^2*PDRP - 64*AM^2*Q(4)^2*PPDR
   - 64*AM^2*Q(4)^2*RDRP - 32*AM^2*PDPP*QDQ + 32*AM^2*PDR*QDQ
  - 32*AM^2*PDRP*QDQ + 64*AM^2*PDQ*PPDQ - 64*AM^2*PDQ*RDQ
  + 64*AM^2*PDQ*RPDQ + 32*AM^2*PPDR*QDQ - 32*AM^2*PPDRP*QDQ
  + 32*AM^2*RDRP*QDQ - 256*AM^4*PP(4)*RP(4) - 128*AM^4*PP(4)*Q(4)
  - 128*AM^4*RP(4)*Q(4) - 128*AM^4*Q(4)^2 + 64*AM^4*QDQ + 256*PP(4)
  *RP(4)*PDR*PPDRP + 128*PP(4)*RP(4)*PDR*PPDQ + 128*PP(4)*RP(4)*PDR
  *RPDQ + 128*PP(4)*RP(4)*PDR*QDQ + 128*PP(4)*Q(4)*PDR*PPDRP
  - 128*PP(4)*Q(4)*PDR*RPDQ - 128*PP(4)^2*PDR*RPDQ + 128*RP(4)*Q(4)
  *PDR*PPDRP - 128*RP(4)*Q(4)*PDR*PPDQ - 128*RP(4)^2*PDR*PPDQ
  + 128*Q(4)^2*PDR*PPDRP - 64*PDR*PPDRP*QDQ + 128*PDR*PPDQ*RPDQ )
 
 + X4DPP^2
  * ( - 128*AM^2*P(4)*PP(4)*PPDQ - 64*AM^2*P(4)*PP(4)*QDQ
  + 128*AM^2*PP(4)*Q(4)*PDPP + 128*AM^2*PP(4)*Q(4)*PDQ - 128*AM^2*PP(4)
  *Q(4)*RDRP + 128*AM^2*PP(4)^2*PDPP + 128*AM^2*PP(4)^2*PDQ
  - 128*AM^2*PP(4)^2*RDRP + 32*AM^2*PDPP*QDQ - 64*AM^2*PDQ*PPDQ
  - 32*AM^2*RDRP*QDQ - 256*AM^4*PP(4)*Q(4) - 256*AM^4*PP(4)^2
  - 64*AM^4*QDQ - 128*PP(4)*R(4)*PDRP*PPDQ - 64*PP(4)*R(4)*PDRP*QDQ
   - 128*PP(4)*RP(4)*PDR*PPDQ - 64*PP(4)*RP(4)*PDR*QDQ + 128*PP(4)
  *Q(4)*PDR*PPDRP + 128*PP(4)*Q(4)*PDR*RPDQ + 128*PP(4)*Q(4)*PDRP*PPDR
   + 128*PP(4)*Q(4)*PDRP*RDQ + 128*PP(4)^2*PDR*PPDRP + 128*PP(4)^2
  *PDR*RPDQ + 128*PP(4)^2*PDRP*PPDR + 128*PP(4)^2*PDRP*RDQ
  + 32*PDR*PPDRP*QDQ - 64*PDR*PPDQ*RPDQ + 32*PDRP*PPDR*QDQ
  - 64*PDRP*PPDQ*RDQ )
 
 + X4DRP^2
  * ( - 128*AM^2*P(4)*RP(4)*RPDQ - 64*AM^2*P(4)*RP(4)*QDQ
  + 128*AM^2*RP(4)*Q(4)*PDRP + 128*AM^2*RP(4)*Q(4)*PDQ - 128*AM^2*RP(4)
  *Q(4)*PPDR + 128*AM^2*RP(4)^2*PDRP + 128*AM^2*RP(4)^2*PDQ
  - 128*AM^2*RP(4)^2*PPDR + 32*AM^2*PDRP*QDQ - 64*AM^2*PDQ*RPDQ
  - 32*AM^2*PPDR*QDQ - 256*AM^4*RP(4)*Q(4) - 256*AM^4*RP(4)^2
  - 64*AM^4*QDQ - 128*PP(4)*RP(4)*PDR*RPDQ - 64*PP(4)*RP(4)*PDR*QDQ
   - 128*R(4)*RP(4)*PDPP*RPDQ - 64*R(4)*RP(4)*PDPP*QDQ + 128*RP(4)
  *Q(4)*PDPP*RDRP + 128*RP(4)*Q(4)*PDPP*RDQ + 128*RP(4)*Q(4)*PDR*PPDRP
   + 128*RP(4)*Q(4)*PDR*PPDQ + 128*RP(4)^2*PDPP*RDRP + 128*RP(4)^2
  *PDPP*RDQ + 128*RP(4)^2*PDR*PPDRP + 128*RP(4)^2*PDR*PPDQ
  + 32*PDPP*RDRP*QDQ - 64*PDPP*RDQ*RPDQ + 32*PDR*PPDRP*QDQ
  - 64*PDR*PPDQ*RPDQ ) + 0.
 

End run. Time 55 sec.
