Schoonschip, 68000 version of June 27, 1991. Public version.
Date: Fri Aug  9 1991 17:15:54.  Memory: start 0001B84C, length 476348.

Command line: +1 Vectors.e Ve_out


C Vectors 1. Consequence of flagpole addition to vector boson masses.

C  CONSEQUENCE OF FLAGPOLE ADDITION TO VECTOR BOSON MASSES,
C  AND NEUTRINo-ELECTRON SCATTERING CROSS SECTION AT ZERO ENERGY.
C  WCM2S IS THE SHIFT IN THE SQUARE OF THE CHARGED VECTOR BOSON MASS.
C  W0M2S SIMILARLY FOR THE NEUTRAL VECTOR BOSON.
C  WSG, WSZ, WSP AND WSGZ ARE THE SELF ENERGY ADDITIONS FOR PHOTON,
C  NEUTRAL W, CHARGED W, AND PHOTON-NEUTRAL W TRANSITION.
> P stat
	S  MC,M0,MP,MU,MD,MT,MN
	F  LOG
	F  SGV,SZV,SWPV,SGZV
	B   DDPI2,GG2,PI2
	Z  WSG(AK2)=COUPW*SGV(AK2,TO2,BO2,HN2,TM2)
	Z  WSZ(AK2)=COUPW*SZV(AK2,TO2,BO2,HN2,TM2)
	Z  WSP(AK2)=COUPW*SECWV(AK2,TO2,BO2,HN2,TM2)
	Z  WSGZ(AK2)=COUPW*SGZV(AK2,TO2,BO2,HN2,TM2)
L 1	Id,SGV(AK2~,MU~,MD~,MN~,MT~) = AK2*SNT**2*(8.*B21(AK2,MT,MT)
	      - 4.*B0(AK2,MT,MT)) + 4.*SNT**2*AK2/3.*(8.*B21(AK2,MU,MU)
	      - 4.*B0(AK2,MU,MU)) + AK2*SNT**2/3.*(8.*B21(AK2,MD,MD)
	      - 4.*B0(AK2,MD,MD))
L 1	Al,SZV(AK2~,MU~,MD~,MN~,MT~)=AK2/16./CST**2*((4.*SNT**2-1.)**2+1)*
	      (8.*B21(AK2,MT,MT)-4.*B0(AK2,MT,MT))
	      + AK2/8./CST**2*(8.*B21(AK2,MN,MN)-4.*B0(AK2,MN,MN))
	      + AK2*3./16./CST**2*((1.-8./3.*SNT**2)**2+1)*(8.*B21(AK2,MU,MU)
	      - 4.*B0(AK2,MU,MU)) + 3.*AK2/16./CST**2*((4./3.*SNT**2-1.)**2+1)*
	      (8.*B21(AK2,MD,MD)-4.*B0(AK2,MD,MD))
	      -0.5/CST**2*(MT*B0(AK2,MT,MT)+3.*MU*B0(AK2,MU,MU)+
	         3.*MD*B0(AK2,MD,MD)+MN*B0(AK2,MN,MN))
L 1	Al,SECWV(AK2~,MU~,MD~,MN~,MT~)=2.*AK2*(B21(AK2,MN,MT)+B1(AK2,MN,MT))
	      - MN*B0(AK2,MN,MT) + (MT-MN)*
	         B1(AK2,MN,MT)+6.*AK2*(B21(AK2,MU,MD)+B1(AK2,MU,MD))
	      + 3.*(MD-MU)*B1(AK2,MU,MD)-3.*MU*B0(AK2,MU,MD)
L 1	Al,SGZV(AK2~,MU~,MD~,MN~,MT~) = -AK2*SNT/CST*(4.*SNT**2-1.)*
	      (2.*B21(AK2,MT,MT)-B0(AK2,MT,MT))
	      + 2.*AK2*SNT/CST*(1.-8.*SNT**2/3.)*(2.*B21(AK2,MU,MU)
	      - B0(AK2,MU,MU)) - AK2*SNT/CST*(4.*SNT**2/3.-1.)*
	      (2.*B21(AK2,MD,MD)-B0(AK2,MD,MD))
L 4	Id,COUPW=GG2/16./PI2
L 5	Id,Multi,SNT**2=1.-CST**2
L 6	Id,Multi,CST**2=1.-SNT**2
L 7	Id,Multi,SNT**2=1.-CST**2
L 8	Id,SNT**-2*CST**-2=1./SNT**2+1./CST**2
L 9	Id,Multi,SNT**2=1.-CST**2
L10	Id,Multi,CST**2=1.-SNT**2
L11	Id,Multi,SNT**2=1.-CST**2
	Keeo WSG,WSZ,WSP,WSGZ
	*next

Terms in output 58
Running time 1 sec			Used	Maximum
Generated terms 154 	Input space 	3216 	100000
Equal terms 84     	Output space 	2152 	250000
Cancellations 12   	Nr of expr.  	26 	255
Multiplications 762	String space 	0 	4096
Records written 0 	Merging		0 	0

 
WSG(AK2) = 
 + B21(AK2,TO2,TO2)*GG2*PI2^-1
  * ( 2/3*AK2 - 2/3*AK2*CST^2 )
 
 + B21(AK2,BO2,BO2)*GG2*PI2^-1
  * ( 1/6*AK2 - 1/6*AK2*CST^2 )
 
 + B21(AK2,TM2,TM2)*GG2*PI2^-1
  * ( 1/2*AK2 - 1/2*AK2*CST^2 )
 
 + B0(AK2,TO2,TO2)*GG2*PI2^-1
  * ( - 1/3*AK2 + 1/3*AK2*CST^2 )
 
 + B0(AK2,BO2,BO2)*GG2*PI2^-1
  * ( - 1/12*AK2 + 1/12*AK2*CST^2 )
 
 + B0(AK2,TM2,TM2)*GG2*PI2^-1
  * ( - 1/4*AK2 + 1/4*AK2*CST^2 )
 
WSZ(AK2) = 
 + B21(AK2,TO2,TO2)*GG2*PI2^-1
  * ( - 5/6*AK2 + 2/3*AK2*CST^2 + 17/48*AK2*CST^-2 )
 
 + B21(AK2,BO2,BO2)*GG2*PI2^-1
  * ( - 1/12*AK2 + 1/6*AK2*CST^2 + 5/48*AK2*CST^-2 )
 
 + B21(AK2,HN2,HN2)*GG2*PI2^-1
  * ( 1/16*AK2*CST^-2 )
 
 + B21(AK2,TM2,TM2)*GG2*PI2^-1
  * ( - 3/4*AK2 + 1/2*AK2*CST^2 + 5/16*AK2*CST^-2 )
 
 + B0(AK2,TO2,TO2)*GG2*PI2^-1
  * ( 5/12*AK2 - 1/3*AK2*CST^2 - 17/96*AK2*CST^-2 - 3/32*TO2*CST^-2 )
 
 + B0(AK2,BO2,BO2)*GG2*PI2^-1
  * ( 1/24*AK2 - 1/12*AK2*CST^2 - 5/96*AK2*CST^-2 - 3/32*BO2*CST^-2 )
 
 + B0(AK2,HN2,HN2)*GG2*PI2^-1
  * ( - 1/32*AK2*CST^-2 - 1/32*HN2*CST^-2 )
 
 + B0(AK2,TM2,TM2)*GG2*PI2^-1
  * ( 3/8*AK2 - 1/4*AK2*CST^2 - 5/32*AK2*CST^-2 - 1/32*TM2*CST^-2 )
 
WSP(AK2) = 
 + B21(AK2,TO2,BO2)*GG2*PI2^-1
  * ( 3/8*AK2 )
 
 + B21(AK2,HN2,TM2)*GG2*PI2^-1
  * ( 1/8*AK2 )
 
 + B0(AK2,TO2,BO2)*GG2*PI2^-1
  * ( - 3/16*TO2 )
 
 + B0(AK2,HN2,TM2)*GG2*PI2^-1
  * ( - 1/16*HN2 )
 
 + B1(AK2,TO2,BO2)*GG2*PI2^-1
  * ( 3/8*AK2 - 3/16*TO2 + 3/16*BO2 )
 
 + B1(AK2,HN2,TM2)*GG2*PI2^-1
  * ( 1/8*AK2 - 1/16*HN2 + 1/16*TM2 )
 
WSGZ(AK2) = 
 + B21(AK2,TO2,TO2)*GG2*PI2^-1
  * ( 2/3*AK2*SNT*CST - 5/12*AK2*SNT*CST^-1 )
 
 + B21(AK2,BO2,BO2)*GG2*PI2^-1
  * ( 1/6*AK2*SNT*CST - 1/24*AK2*SNT*CST^-1 )
 
 + B21(AK2,TM2,TM2)*GG2*PI2^-1
  * ( 1/2*AK2*SNT*CST - 3/8*AK2*SNT*CST^-1 )
 
 + B0(AK2,TO2,TO2)*GG2*PI2^-1
  * ( - 1/3*AK2*SNT*CST + 5/24*AK2*SNT*CST^-1 )
 
 + B0(AK2,BO2,BO2)*GG2*PI2^-1
  * ( - 1/12*AK2*SNT*CST + 1/48*AK2*SNT*CST^-1 )
 
 + B0(AK2,TM2,TM2)*GG2*PI2^-1
  * ( - 1/4*AK2*SNT*CST + 3/16*AK2*SNT*CST^-1 ) + 0.
 
	B   DDPI2,GG2,PI2
	Z  DELMA=WSP(AK2)-MC*CST*WSGZ(AK2)/AK2/SNT-MC*WSG(AK2)/AK2
	Z  W0AD=MC*SNT/CST**3*WSGZ(AK2)/AK2
	Z  ELNEU=2.*WSZ(AK2)*CST**2/MC-2.*WSP(AK2)/MC
L 2	Id,AK2=0.
L 2	Al,B0(AK2,M1~,M2~)=B0(0,M1,M2)
L 2	Al,B1(AK2,M1~,M2~)=B1(0,M1,M2)
L 2	Al,B21(AK2,M1~,M2~)=B21(0,M1,M2)
L 3	Id,B0(0,M1~,M1~)=DDPI2-LOG(M1)
L 3	Al,B1(0,M1~,M1~)=-DDPI2/2+LOG(M1)/2.
L 3	Al,B21(0,M1~,M1~)=DDPI2/3.-LOG(M1)/3.
L 3	Al,B0(0,0,M1~)=DDPI2-LOG(M1)+1
L 3	Al,B1(0,0,M1~)=-DDPI2/2.+LOG(M1)/2.-0.25
L 3	Al,B21(0,0,M1~)=DDPI2/3.-LOG(M1)/3.+1./9.
L 4	Id,B0(0,M1~,M2~)=DDPI2-LOG(M2)-F1(M1,M2)
L 4	Al,B1(0,M1~,M2~)=-DDPI2/2.+LOG(M2)/2.+0.5*F2(M1,M2)
L 4	Al,B21(0,M1~,M2~)=DDPI2/3.-LOG(M2)/3.-F3(M1,M2)/3.
C  F1(M1,M2) = FUNCTION F1 OF  Y = M1**2/(M1**2-M2**2)
C  1/Y = 1 - M2**2/M1**2
L 5	Id,F1(M1~,M2~)=(1.-M2/M1)*(0.5+F2(M1,M2))
L 7	Id,F2(M1~,M2~)=(1.-M2/M1)*(1./3.+F3(M1,M2))
	*yep

Terms in output 48
Running time 2 sec			Used	Maximum
Generated terms 176 	Input space 	3410 	101376
Equal terms 118     	Output space 	1596 	248624
Cancellations 10   	Nr of expr.  	32 	255
Multiplications 1026	String space 	0 	4096
Records written 0 	Merging		0 	0

L 1	Id,3,BO2**N~*F3(TO2,BO2)=(F3(TO2,BO2)*TO2+(TO2-BO2)/3.
	      -TO2*F2(TO2,BO2))*BO2**N/BO2
L 1	Al,3,TM2**N~*F3(HN2,TM2)=(F3(HN2,TM2)*HN2+(HN2-TM2)/3.
	      -HN2*F2(HN2,TM2))*TM2**N/TM2
L 6	Id,2,BO2**N~*F2(TO2,BO2)=(F2(TO2,BO2)*TO2+(TO2-BO2)/2.
	      -TO2*F1(TO2,BO2))*BO2**N/BO2
L 6	Al,2,TM2**N~*F2(HN2,TM2)=(F2(HN2,TM2)*HN2+(HN2-TM2)/2.
	       -HN2*F1(HN2,TM2))*TM2**N/TM2
	*yep

Terms out 48, in 48.

Terms in output 36
Running time 2 sec			Used	Maximum
Generated terms 96 	Input space 	2502 	101376
Equal terms 48     	Output space 	1304 	248624
Cancellations 12   	Nr of expr.  	16 	255
Multiplications 288	String space 	0 	4096
Records written 0 	Merging		0 	0

L 1	Id,Multi,SNT**2=1.-CST**2
L 2	Id,Multi,CST**2=1.-SNT**2
L 3	Id,Multi,SNT**2=1.-CST**2
L 4	Id,SNT**-2*CST**-2=1./SNT**2+1./CST**2
L 5	Id,Multi,SNT**2=1.-CST**2
L 6	Id,Multi,CST**2=1.-SNT**2
L 7	Id,Multi,SNT**2=1.-CST**2
	Keep WSG,WSP,WSGZ,WSZ,DELMA,W0AD
	*next

Terms out 36, in 36.

Terms in output 40
Running time 2 sec			Used	Maximum
Generated terms 44 	Input space 	1916 	101376
Equal terms 4     	Output space 	1376 	248624
Cancellations 0   	Nr of expr.  	19 	255
Multiplications 104	String space 	0 	4096
Records written 0 	Merging		0 	0

 
DELMA = 
 + DDPI2*GG2*PI2^-1
  * ( 1/12*MC - 3/32*TO2 - 3/32*BO2 - 1/32*HN2 - 1/32*TM2 )
 
 + GG2*PI2^-1
  * ( 3/64*TO2 - 3/64*BO2 + 1/64*HN2 - 1/64*TM2 )
 
 + LOG(TO2)*GG2*PI2^-1
  * ( - 1/24*MC )
 
 + LOG(BO2)*GG2*PI2^-1
  * ( - 1/48*MC + 3/32*TO2 + 3/32*BO2 )
 
 + LOG(TM2)*GG2*PI2^-1
  * ( - 1/48*MC + 1/32*HN2 + 1/32*TM2 )
 
 + F1(TO2,BO2)*GG2*PI2^-1
  * ( 3/32*TO2 )
 
 + F1(HN2,TM2)*GG2*PI2^-1
  * ( 1/32*HN2 )
 
W0AD = 
 + DDPI2*GG2*PI2^-1
  * ( 2/9*MC + 5/36*MC*CST^-4 - 13/36*MC*CST^-2 )
 
 + LOG(TO2)*GG2*PI2^-1
  * ( - 1/9*MC - 5/72*MC*CST^-4 + 13/72*MC*CST^-2 )
 
 + LOG(BO2)*GG2*PI2^-1
  * ( - 1/36*MC - 1/144*MC*CST^-4 + 5/144*MC*CST^-2 )
 
 + LOG(TM2)*GG2*PI2^-1
  * ( - 1/12*MC - 1/16*MC*CST^-4 + 7/48*MC*CST^-2 )
 
ELNEU = 
 + GG2*PI2^-1
  * ( - 3/32*MC^-1*TO2 + 3/32*MC^-1*BO2 - 1/32*MC^-1*HN2 + 1/32*MC^-1
  *TM2 )
 
 + LOG(TO2)*GG2*PI2^-1
  * ( 3/16*MC^-1*TO2 )
 
 + LOG(BO2)*GG2*PI2^-1
  * ( - 3/16*MC^-1*TO2 )
 
 + LOG(HN2)*GG2*PI2^-1
  * ( 1/16*MC^-1*HN2 )
 
 + LOG(TM2)*GG2*PI2^-1
  * ( - 1/16*MC^-1*HN2 )
 
 + F1(TO2,BO2)*GG2*PI2^-1
  * ( - 3/16*MC^-1*TO2 )
 
 + F1(HN2,TM2)*GG2*PI2^-1
  * ( - 1/16*MC^-1*HN2 ) + 0.
 
	F  AA0
	Z  WCM2S=DELMA-WSP(-MC)
	Z  W0M2S=DELMA/CST**2+W0AD-WSZ(-M0)
L 2	Id,Multi,M0=MC/CST**2
L 2	Al,Multi,M0**-1=CST**2/MC
L 3	Id,B21(AK2~,M1~,M2~)=-(-AA0(M2)-M1*B0(AK2,M1,M2)
	      - 2.*(M1-M2-AK2)*B1(AK2,M1,M2) - 0.5*(M1+M2+AK2/3.))/3./AK2
L 6	Id,B1(AK2~,M1~,M2~)=(0.5*AA0(M1)-0.5*AA0(M2)+0.5*(M1-M2-AK2)*
	       B0(AK2,M1,M2))/AK2
L 9	Id,AA0(M1~)=-M1*DDPI2+M1*LOG(M1)-M1
L10	Id,Multi,M0=MC/CST**2
L10	Al,Multi,M0**-1=CST**2/MC
	*yep

Terms in output 116
Running time 3 sec			Used	Maximum
Generated terms 526 	Input space 	3598 	102020
Equal terms 282     	Output space 	3608 	247980
Cancellations 128   	Nr of expr.  	24 	255
Multiplications 2681	String space 	0 	4096
Records written 0 	Merging		0 	0

	B  DDPI2,GG2,PI2
L 1	Id,B0(AK2~,M1~,0)=B0(AK2,0,M1)
L 2	Id,B0(AK2~,M1~,M2~)=DDPI2-LOG(M2)+B0R(AK2,M1,M2)
L 3	Id,LOG(TO2)=LOG(TO2,BO2)+LOG(BO2)
L 3	Al,LOG(HN2)=LOG(HN2,TM2)+LOG(TM2)
L 4	Id,Multi,SNT**2=1.-CST**2
L 5	Id,Multi,CST**2=1.-SNT**2
L 6	Id,Multi,SNT**2=1.-CST**2
L 7	Id,SNT**-2*CST**-2=1./SNT**2+1./CST**2
L 8	Id,Multi,SNT**2=1.-CST**2
L 9	Id,Multi,CST**2=1.-SNT**2
L10	Id,Multi,SNT**2=1.-CST**2
	Keep WCM2S,W0M2S
	*next

Terms out 116, in 116.

Terms in output 65
Running time 3 sec			Used	Maximum
Generated terms 270 	Input space 	3112 	102020
Equal terms 135     	Output space 	1970 	247980
Cancellations 70   	Nr of expr.  	25 	255
Multiplications 784	String space 	0 	4096
Records written 0 	Merging		0 	0

 
WCM2S = 
 + GG2*PI2^-1
  * ( 1/36*MC + 1/16*MC^-1*TO2*BO2 - 1/32*MC^-1*TO2^2 - 1/32*MC^-1
  *BO2^2 + 1/48*MC^-1*HN2*TM2 - 1/96*MC^-1*HN2^2 - 1/96*MC^-1*TM2^2
   + 3/64*TO2 - 3/64*BO2 + 1/64*HN2 - 1/64*TM2 )
 
 + LOG(TO2,BO2)*GG2*PI2^-1
  * ( - 1/24*MC - 1/32*MC^-1*TO2*BO2 + 1/32*MC^-1*TO2^2 - 1/16*TO2 )
 
 + LOG(HN2,TM2)*GG2*PI2^-1
  * ( - 1/96*MC^-1*HN2*TM2 + 1/96*MC^-1*HN2^2 - 1/48*HN2 )
 
 + F1(TO2,BO2)*GG2*PI2^-1
  * ( 3/32*TO2 )
 
 + F1(HN2,TM2)*GG2*PI2^-1
  * ( 1/32*HN2 )
 
 + B0R(-MC,TO2,BO2)*GG2*PI2^-1
  * ( - 1/16*MC - 1/16*MC^-1*TO2*BO2 + 1/32*MC^-1*TO2^2 + 1/32*MC^-1
  *BO2^2 + 1/32*TO2 + 1/32*BO2 )
 
 + B0R(-MC,HN2,TM2)*GG2*PI2^-1
  * ( - 1/48*MC - 1/48*MC^-1*HN2*TM2 + 1/96*MC^-1*HN2^2 + 1/96*MC^-1
  *TM2^2 + 1/96*HN2 + 1/96*TM2 )
 
W0M2S = 
 + GG2*PI2^-1
  * ( 2/27*MC + 5/108*MC*CST^-4 - 5/54*MC*CST^-2 + 3/64*TO2*CST^-2
   - 3/64*BO2*CST^-2 + 1/64*HN2*CST^-2 - 1/64*TM2*CST^-2 )
 
 + LOG(TO2,BO2)*GG2*PI2^-1
  * ( - 1/96*MC*CST^-4 - 3/32*TO2*CST^-2 )
 
 + LOG(HN2,TM2)*GG2*PI2^-1
  * ( 1/96*MC*CST^-4 - 1/32*HN2*CST^-2 )
 
 + F1(TO2,BO2)*GG2*PI2^-1
  * ( 3/32*TO2*CST^-2 )
 
 + F1(HN2,TM2)*GG2*PI2^-1
  * ( 1/32*HN2*CST^-2 )
 
 + B0R(-M0,TO2,TO2)*GG2*PI2^-1
  * ( - 1/9*MC - 17/288*MC*CST^-4 + 5/36*MC*CST^-2 + 5/18*TO2
  - 2/9*TO2*CST^2 - 7/288*TO2*CST^-2 )
 
 + B0R(-M0,BO2,BO2)*GG2*PI2^-1
  * ( - 1/36*MC - 5/288*MC*CST^-4 + 1/72*MC*CST^-2 + 1/36*BO2
  - 1/18*BO2*CST^2 + 17/288*BO2*CST^-2 )
 
 + B0R(-M0,HN2,HN2)*GG2*PI2^-1
  * ( - 1/96*MC*CST^-4 + 1/96*HN2*CST^-2 )
 
 + B0R(-M0,TM2,TM2)*GG2*PI2^-1
  * ( - 1/12*MC - 5/96*MC*CST^-4 + 1/8*MC*CST^-2 + 1/4*TM2
  - 1/6*TM2*CST^2 - 7/96*TM2*CST^-2 ) + 0.
 
	B  GG2,PI2
	Z  CONTC=WCM2S-HAC
	Z  CONT0=W0M2S-HA0
L 2	Id,HAC=GG2/16./PI2*(4.*MC/9.-0.5*(TO2-BO2)**2/MC
	      -1./6.*(TM2-HN2)**2/MC+3./4.*(TO2-BO2)
	      +1./4.*(HN2-TM2)
	      +(-2./3.*MC-TO2+0.5*TO2*(TO2-BO2)/MC)*LOG(TO2,BO2)
	      +(-1./3.*HN2+1./6.*HN2*(HN2-TM2)/MC)*LOG(HN2,TM2)
	      +3./2.*TO2*F1(TO2,BO2)+0.5*HN2*F1(HN2,TM2)
	      +(-MC+0.5*(TO2-BO2)**2/MC+0.5*(TO2+BO2))*B0R(-MC,TO2,BO2)
	   +(-1./3.*MC+1./6.*(HN2-TM2)**2/MC+1./6.*(HN2+TM2))*B0R(-MC,HN2,TM2))
L 2	Al,HA0=GG2/PI2/CST**2*(MC/108./CST**2*(8.*CST**4-10.*CST**2+5.)
	      +1./64.*(3.*(TO2-BO2)+HN2-TM2)
	      +1./16.*(-1./6.*MC/CST**2-3./2.*TO2)*LOG(TO2,BO2)
	      +1./16.*(1./6.*MC/CST**2-0.5*HN2)*LOG(HN2,TM2)
	      +1./32.*(3.*TO2*F1(TO2,BO2)+HN2*F1(HN2,TM2))
	      +(MC/288./CST**2*(-32.*CST**4+40.*CST**2-17.)
	      +TO2/288.*(-64.*CST**4+80.*CST**2-7.))*B0R(-M0,TO2,TO2)
	      +(MC/288./CST**2*(-8.*CST**4+4.*CST**2-5.)
	      +BO2/288.*(-16.*CST**4+8.*CST**2+17.))*B0R(-M0,BO2,BO2)
	      +1./96.*(-MC/CST**2+HN2)*B0R(-M0,HN2,HN2)
	      +1./96.*(MC/CST**2*(-8.*CST**4+12.*CST**2-5.)
	      +TM2*(-16.*CST**4+24.*CST**2-7.))*B0R(-M0,TM2,TM2))
	Keep WCM2S,W0M2S
	*next

Terms in output 0
Running time 4 sec			Used	Maximum
Generated terms 134 	Input space 	4010 	101196
Equal terms 69     	Output space 	0 	248804
Cancellations 65   	Nr of expr.  	16 	255
Multiplications 474	String space 	0 	4096
Records written 0 	Merging		0 	0

 
CONTC = 0.
 
CONT0 = 0. + 0.
 
	Z  WHM2S=WCM2S
	Z  WH0MS=W0M2S
C  LIMIT OF HIGH EQUAL MASSES OF THE FERMIONS.
L 2	Id,B0R(AK2~,M1~,M2~)=-AK2/6./M2
L 3	Id,BO2=TO2
L 3	Al,TM2=HN2
L 4	Id,M0=MC/CST**2
L 4	Al,Multi,M0**-1=CST**2/MC
L 5	Id,Multi,BO2**-1=TO2**-1
L 5	Al,Multi,TM2**-1=HN2**-1
L 5	Al,LOG(TM2)=LOG(HN2)
L 5	Al,LOG(TO2,BO2)=0.
L 5	Al,F1(HN2,TM2)=0.
L 5	Al,F1(TO2,BO2)=0.
	Keep WCM2S,W0M2S
	*next

Terms in output 13
Running time 4 sec			Used	Maximum
Generated terms 55 	Input space 	1984 	101196
Equal terms 31     	Output space 	436 	248804
Cancellations 11   	Nr of expr.  	24 	255
Multiplications 371	String space 	0 	4096
Records written 0 	Merging		0 	0

 
WHM2S =  + 1/24*MC*GG2*PI2^-1 - 1/96*MC^2*GG2*PI2^-1*TO2^-1
  - 1/288*MC^2*GG2*PI2^-1*HN2^-1
 
 + LOG(HN2,TM2)
  * ( - 1/48*GG2*PI2^-1*HN2 )
 
WH0MS = 
  + 1/24*MC*GG2*PI2^-1*CST^-4 - 11/864*MC^2*GG2*PI2^-1*TO2^-1*CST^-6
   + 11/432*MC^2*GG2*PI2^-1*TO2^-1*CST^-4 - 5/216*MC^2*GG2*PI2^-1*TO2^-1
  *CST^-2 - 1/96*MC^2*GG2*PI2^-1*HN2^-1*CST^-6 + 1/48*MC^2*GG2*PI2^-1
  *HN2^-1*CST^-4 - 1/72*MC^2*GG2*PI2^-1*HN2^-1*CST^-2
 
 + LOG(HN2,TM2)
  * ( 1/96*MC*GG2*PI2^-1*CST^-4 - 1/32*GG2*PI2^-1*HN2*CST^-2 ) + 0.
 
	B  GG2,PI2,MC,M0
	Z  WCM2L=WCM2S
L 2	Id,B0R(AK2~,M1~,M2~)=LOG(M2,-AK2)+2.
L 3	Id,LOG(M1~,M2~)=LOG(M1,MC)-LOG(M2,MC)
L 4	Id,LOG(M1~)=LOG(M1,MC)+LOG(MC)
L 5	Id,LOG(MC,MC)=0.
	Keep WCM2S,W0M2S,WCM2L
	*next

Terms in output 30
Running time 4 sec			Used	Maximum
Generated terms 51 	Input space 	1768 	101196
Equal terms 19     	Output space 	1124 	248804
Cancellations 2   	Nr of expr.  	15 	255
Multiplications 245	String space 	0 	4096
Records written 0 	Merging		0 	0

 
WCM2L = 
 + GG2*PI2^-1
  * ( 7/64*TO2 + 1/64*BO2 + 7/192*HN2 + 1/192*TM2 )
 
 - 5/36*GG2*PI2^-1*MC
 
 + GG2*PI2^-1*MC^-1
  * ( - 1/16*TO2*BO2 + 1/32*TO2^2 + 1/32*BO2^2 - 1/48*HN2*TM2
  + 1/96*HN2^2 + 1/96*TM2^2 )
 
 + LOG(TO2,MC)*GG2*PI2^-1
  * ( - 1/16*TO2 )
 
 - 1/24*LOG(TO2,MC)*GG2*PI2^-1*MC
 
 + LOG(TO2,MC)*GG2*PI2^-1*MC^-1
  * ( - 1/32*TO2*BO2 + 1/32*TO2^2 )
 
 + LOG(BO2,MC)*GG2*PI2^-1
  * ( 3/32*TO2 + 1/32*BO2 )
 
 - 1/48*LOG(BO2,MC)*GG2*PI2^-1*MC
 
 + LOG(BO2,MC)*GG2*PI2^-1*MC^-1
  * ( - 1/32*TO2*BO2 + 1/32*BO2^2 )
 
 + LOG(HN2,MC)*GG2*PI2^-1
  * ( - 1/48*HN2 )
 
 + LOG(HN2,MC)*GG2*PI2^-1*MC^-1
  * ( - 1/96*HN2*TM2 + 1/96*HN2^2 )
 
 + LOG(TM2,MC)*GG2*PI2^-1
  * ( 1/32*HN2 + 1/96*TM2 )
 
 - 1/48*LOG(TM2,MC)*GG2*PI2^-1*MC
 
 + LOG(TM2,MC)*GG2*PI2^-1*MC^-1
  * ( - 1/96*HN2*TM2 + 1/96*TM2^2 )
 
 + F1(TO2,BO2)*GG2*PI2^-1
  * ( 3/32*TO2 )
 
 + F1(HN2,TM2)*GG2*PI2^-1
  * ( 1/32*HN2 ) + 0.
 
	B  GG2,PI2,MC,M0
	Z  W0M2L=W0M2S
L 2	Id,B0R(AK2~,M1~,M2~)=LOG(M2,-AK2)+2.
L 3	Id,LOG(M1~,M2~)=LOG(M1,M0)-LOG(M2,M0)
L 4	Id,LOG(M1~)=LOG(M1,M0)+LOG(M0)
L 5	Id,LOG(M0,M0)=0.
	Keep WCM2S,W0M2S,WCM2L,W0M2L
	*next

Terms in output 36
Running time 4 sec			Used	Maximum
Generated terms 57 	Input space 	2438 	101880
Equal terms 20     	Output space 	1128 	248120
Cancellations 1   	Nr of expr.  	16 	255
Multiplications 316	String space 	0 	4096
Records written 0 	Merging		0 	0

 
W0M2L = 
 + GG2*PI2^-1
  * ( 5/9*TO2 - 4/9*TO2*CST^2 - 1/576*TO2*CST^-2 + 1/18*BO2
  - 1/9*BO2*CST^2 + 41/576*BO2*CST^-2 + 7/192*HN2*CST^-2 + 1/2*TM2
   - 1/3*TM2*CST^2 - 31/192*TM2*CST^-2 )
 
 + GG2*PI2^-1*MC
  * ( - 10/27 - 25/108*CST^-4 + 25/54*CST^-2 )
 
 + LOG(TO2,M0)*GG2*PI2^-1
  * ( 5/18*TO2 - 2/9*TO2*CST^2 - 17/144*TO2*CST^-2 )
 
 + LOG(TO2,M0)*GG2*PI2^-1*MC
  * ( - 1/9 - 5/72*CST^-4 + 5/36*CST^-2 )
 
 + LOG(BO2,M0)*GG2*PI2^-1
  * ( 3/32*TO2*CST^-2 + 1/36*BO2 - 1/18*BO2*CST^2 + 17/288*BO2*CST^-2 )
 
 + LOG(BO2,M0)*GG2*PI2^-1*MC
  * ( - 1/36 - 1/144*CST^-4 + 1/72*CST^-2 )
 
 + LOG(HN2,M0)*GG2*PI2^-1
  * ( - 1/48*HN2*CST^-2 )
 
 + LOG(TM2,M0)*GG2*PI2^-1
  * ( 1/32*HN2*CST^-2 + 1/4*TM2 - 1/6*TM2*CST^2 - 7/96*TM2*CST^-2 )
 
 + LOG(TM2,M0)*GG2*PI2^-1*MC
  * ( - 1/12 - 1/16*CST^-4 + 1/8*CST^-2 )
 
 + F1(TO2,BO2)*GG2*PI2^-1
  * ( 3/32*TO2*CST^-2 )
 
 + F1(HN2,TM2)*GG2*PI2^-1
  * ( 1/32*HN2*CST^-2 ) + 0.
 
	N  10,R0
	B  GG2,PI2,MC
	S  LCST2
	Z  WCM2N=WCM2L/2./MC1
	Z  W0M2N=W0M2L/2./MC1*CST
L 2	Id,GG2*PI2**-1=0.0390389874
L 3	Id,LOG(M1~,M0)=LOG(M1,MC)+LCST2
L 4	Id,LOG(TO2,MC)=-11.44717349
L 4	Al,LOG(BO2,MC)=-11.44717349
L 4	Al,LOG(TM2,MC)=-23.8328534
L 5	Id,Numer,CST2,0.762,CST,0.8729261134,MC,5.852269263E9
	     ,MC1,7.650012588851E4,LCST2,-0.2718087233
	Keep WCM2S,W0M2S,WCM2L,W0M2L
	*next

Terms in output 24
Running time 5 sec			Used	Maximum
Generated terms 87 	Input space 	3350 	102644
Equal terms 63     	Output space 	674 	247356
Cancellations 0   	Nr of expr.  	19 	255
Multiplications 484	String space 	0 	4096
Records written 0 	Merging		0 	0

 
WCM2N = 
  + .1602365846D+4 - .6336787075D-7*TO2 + .2846825998D-16*TO2*BO2
  - .1423412999D-16*TO2^2 - .8728877955D-7*BO2 - .1423412999D-16*BO2^2
   - .1807319285D-6*HN2 + .9915654016D-17*HN2*TM2 + .4541620756D-18
  *HN2^2 - .6201589535D-7*TM2 - .1036981609D-16*TM2^2
 
 + LOG(HN2,MC)
  * ( - .5315757511D-8*HN2 - .4541620756D-18*HN2*TM2 + .4541620756D-18
  *HN2^2 )
 
 + F1(TO2,BO2)
  * ( .239209088D-7*TO2 )
 
 + F1(HN2,TM2)
  * ( .7973636266D-8*HN2 )
 
W0M2N = 
  + .1704243313D+4 - .152003223D-6*TO2 - .1498822521D-6*BO2
  - .2078690973D-6*HN2 - .1390203323D-6*TM2
 
 + LOG(HN2,MC)
  * ( - .6089584707D-8*HN2 )
 
 + F1(TO2,BO2)
  * ( .2740313118D-7*TO2 )
 
 + F1(HN2,TM2)
  * ( .9134377061D-8*HN2 ) + 0.
 
	N
	B  GG2,PI2,MC
	Z  CHECC=WCM2L-HANDC
	Z  CHEC0=W0M2L-HAND0
L 2	Id,HANDC=-GG2*MC*PI2**-1*(5./36.+1./48.*(2.*LOG(TO2,MC)
	      +LOG(BO2,MC)+LOG(TM2,MC)) )
L 2	Al,HAND0=-GG2*MC*PI2**-1*CST2**-2*(1./108.*(40.*CST2**2-50.*CST2+25.)
	      +1./72.*(8.*CST2**2-10.*CST2+5.)*LOG(TO2,M0)
	      +1./72.*(2.*CST2**2-CST2+0.5)*LOG(BO2,M0)
	      +1./48.*(4.*CST2**2-6.*CST2+3.)*LOG(TM2,M0))
L 5	Id,CST2=CST**2
L 5	Al,Multi,CST2**-1=CST**-2
L 6	Id,Numer,TO2,0.,BO2,0.,HN2,0.,TM2,0.
	Keep WCM2S,W0M2S
	*next

Terms in output 0
Running time 5 sec			Used	Maximum
Generated terms 32 	Input space 	3810 	102644
Equal terms 16     	Output space 	0 	247356
Cancellations 16   	Nr of expr.  	19 	255
Multiplications 277	String space 	0 	4096
Records written 0 	Merging		0 	0

 
CHECC = 0.
 
CHEC0 = 0. + 0.
 
	B  GG2,PI2
	Z  WCM2H=WCM2S
	Z   W0M2H=W0M2S
L 2	Id,F1(HN2,TM2)=F1(TM2,HN2)+LOG(HN2,TM2)
L 2	Al,B0R(AK2~,HN2,TM2)=B0R(AK2,TM2,HN2)-LOG(HN2,TM2)
L 3	Id,LOG(HN2,TM2)=-LOG(TM2,HN2)
L 4	Id,B0R(AK2~,M1~,M2~)=-F1(M1,M2)-AK2*INV(M1,M2)*(F1(M1,M2)-F2(M1,M2))
L 6	Id,LOG(M1~,M2~)=(1.-M2/M1)*F1(M1,M2)+1.-M2/M1
	*yep

Terms in output 111
Running time 5 sec			Used	Maximum
Generated terms 194 	Input space 	2118 	101196
Equal terms 60     	Output space 	3386 	248804
Cancellations 23   	Nr of expr.  	18 	255
Multiplications 739	String space 	0 	4096
Records written 0 	Merging		0 	0

L 1	Id,F1(M1~,M2~)=0.5*ANV(M1,M2)/M1+1./3.*(ANV(M1,M2)/M1)**2
	      +1./4.*(ANV(M1,M2)/M1)**3
L 1	Al,F2(M1~,M2~)=1./3.*ANV(M1,M2)/M1+1./4.*(ANV(M1,M2)/M1)**2
	      +1./5.*(ANV(M1,M2)/M1)**3
L 3	Id,Adiso,INV(M1~,M2~)*ANV(M1~,M2~)=1.
L 4	Id,ANV(M1~,M2~)=M1-M2
L 5	Id,LOG(HN2,TM2)=-LOG(TM2,HN2)
L 6	Id,LOG(M1~,M2~)=1.-M2/M1+0.5*(1.-2.*M2/M1+M2**2/M1**2)
L 8	Id,M0=MC/CST**2
L 8	Al,Multi,M0**-1=CST**2/MC
> P output
	*yep

Terms out 111, in 111.

Terms in output 54
Running time 7 sec			Used	Maximum
Generated terms 898 	Input space 	2388 	101196
Equal terms 785     	Output space 	1414 	248804
Cancellations 59   	Nr of expr.  	22 	255
Multiplications 5917	String space 	0 	4096
Records written 0 	Merging		0 	0

 
WCM2H = 
 + GG2*PI2^-1
  * ( 1/2880*MC - 1/96*MC*TO2^-4*BO2^4 + 239/5760*MC*TO2^-3*BO2^3
  - 59/960*MC*TO2^-2*BO2^2 + 97/1920*MC*TO2^-1*BO2 + 257/5760*MC*HN2
  *TM2^-1 - 119/2880*MC*HN2^2*TM2^-2 + 133/5760*MC*HN2^3*TM2^-3
  - 1/192*MC*HN2^4*TM2^-4 - 1/320*MC^2*TO2^-3*BO2^2 + 11/960*MC^2*TO2^-2
  *BO2 - 3/160*MC^2*TO2^-1 + 11/2880*MC^2*HN2*TM2^-2 - 1/960*MC^2*HN2^2
  *TM2^-3 - 1/160*MC^2*TM2^-1 - 1/160*TO2 - 1/160*TO2^-3*BO2^4
  + 1/40*TO2^-2*BO2^3 - 3/80*TO2^-1*BO2^2 + 1/40*BO2 + 1/120*HN2
  - 1/80*HN2^2*TM2^-1 + 1/120*HN2^3*TM2^-2 - 1/480*HN2^4*TM2^-3
  - 1/480*TM2 )
 
W0M2H = 
 + GG2*PI2^-1
  * ( - 1/384*MC*TO2^-4*BO2^4*CST^-4 + 1/72*MC*TO2^-3*BO2^3*CST^-4
   - 1/32*MC*TO2^-2*BO2^2*CST^-4 + 1/24*MC*TO2^-1*BO2*CST^-4
  + 1/24*MC*HN2*TM2^-1*CST^-4 - 1/32*MC*HN2^2*TM2^-2*CST^-4
  + 1/72*MC*HN2^3*TM2^-3*CST^-4 - 1/384*MC*HN2^4*TM2^-4*CST^-4
  - 1/576*MC*CST^-4 - 17/1728*MC^2*TO2^-1*CST^-6 + 5/216*MC^2*TO2^-1
  *CST^-4 - 1/54*MC^2*TO2^-1*CST^-2 - 5/1728*MC^2*BO2^-1*CST^-6
  + 1/432*MC^2*BO2^-1*CST^-4 - 1/216*MC^2*BO2^-1*CST^-2 - 1/576*MC^2
  *HN2^-1*CST^-6 - 5/576*MC^2*TM2^-1*CST^-6 + 1/48*MC^2*TM2^-1*CST^-4
   - 1/72*MC^2*TM2^-1*CST^-2 - 3/64*TO2*CST^-2 - 3/128*TO2^-3*BO2^4
  *CST^-2 + 13/128*TO2^-2*BO2^3*CST^-2 - 23/128*TO2^-1*BO2^2*CST^-2
   + 19/128*BO2*CST^-2 + 19/384*HN2*CST^-2 - 23/384*HN2^2*TM2^-1*CST^-2
   + 13/384*HN2^3*TM2^-2*CST^-2 - 1/128*HN2^4*TM2^-3*CST^-2
  - 1/64*TM2*CST^-2 ) + 0.
 
	B  GG2,PI2,EQ2,EL2
L 1	Id,BO2=TO2+EQ2
L 1	Al,TM2=HN2+EL2
L 2	Id,TO2=BO2-EQ2
L 2	Al,HN2=TM2-EL2
	*end

Terms out 54, in 54.

Terms in output 42
Running time 7 sec			Used	Maximum
Generated terms 284 	Input space 	1620 	101196
Equal terms 221     	Output space 	1462 	248804
Cancellations 21   	Nr of expr.  	17 	255
Multiplications 1220	String space 	0 	4096
Records written 0 	Merging		0 	0

 
WCM2H = 
 + GG2*PI2^-1
  * ( 1/24*MC - 1/96*MC^2*TO2^-1 - 1/288*MC^2*TM2^-1 )
 
 + GG2*PI2^-1*EQ2
  * ( 1/96*MC*TO2^-1 + 1/192*MC^2*TO2^-2 )
 
 + GG2*PI2^-1*EQ2^2
  * ( 1/1920*MC*TO2^-2 - 1/320*MC^2*TO2^-3 )
 
 + GG2*PI2^-1*EQ2^3
  * ( - 1/5760*MC*TO2^-3 )
 
 + GG2*PI2^-1*EQ2^4
  * ( - 1/96*MC*TO2^-4 - 1/160*TO2^-3 )
 
 + GG2*PI2^-1*EL2
  * ( - 1/96*MC*TM2^-1 - 1/576*MC^2*TM2^-2 )
 
 + GG2*PI2^-1*EL2^2
  * ( - 19/5760*MC*TM2^-2 - 1/960*MC^2*TM2^-3 )
 
 + GG2*PI2^-1*EL2^3
  * ( - 13/5760*MC*TM2^-3 )
 
 + GG2*PI2^-1*EL2^4
  * ( - 1/192*MC*TM2^-4 - 1/480*TM2^-3 )
 
W0M2H = 
 + GG2*PI2^-1
  * ( 1/24*MC*CST^-4 - 17/1728*MC^2*TO2^-1*CST^-6 + 5/216*MC^2*TO2^-1
  *CST^-4 - 1/54*MC^2*TO2^-1*CST^-2 - 5/1728*MC^2*BO2^-1*CST^-6
  + 1/432*MC^2*BO2^-1*CST^-4 - 1/216*MC^2*BO2^-1*CST^-2 - 1/576*MC^2
  *HN2^-1*CST^-6 - 5/576*MC^2*TM2^-1*CST^-6 + 1/48*MC^2*TM2^-1*CST^-4
   - 1/72*MC^2*TM2^-1*CST^-2 )
 
 + GG2*PI2^-1*EQ2
  * ( 1/96*MC*TO2^-1*CST^-4 )
 
 + GG2*PI2^-1*EQ2^2
  * ( - 1/192*MC*TO2^-2*CST^-4 - 1/64*TO2^-1*CST^-2 )
 
 + GG2*PI2^-1*EQ2^3
  * ( 1/288*MC*TO2^-3*CST^-4 + 1/128*TO2^-2*CST^-2 )
 
 + GG2*PI2^-1*EQ2^4
  * ( - 1/384*MC*TO2^-4*CST^-4 - 3/128*TO2^-3*CST^-2 )
 
 + GG2*PI2^-1*EL2
  * ( - 1/96*MC*TM2^-1*CST^-4 )
 
 + GG2*PI2^-1*EL2^2
  * ( - 1/192*MC*TM2^-2*CST^-4 - 1/192*TM2^-1*CST^-2 )
 
 + GG2*PI2^-1*EL2^3
  * ( - 1/288*MC*TM2^-3*CST^-4 - 1/384*TM2^-2*CST^-2 )
 
 + GG2*PI2^-1*EL2^4
  * ( - 1/384*MC*TM2^-4*CST^-4 - 1/128*TM2^-3*CST^-2 ) + 0.
 

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


C Vectors 2. Vector-boson self-energies, infinite parts.

C  SELF-ENERGIES, INFINITE PARTS.
C  ALSO  DM2, DMU, DE, DSNT2 CONSIDERATIONS.
> P stat
	F  SGV,SZV,SWPV,SGZV
	B   DDPI2,GG2,PI2
	Z  WSG=COUPW*(SG
	      +SGV(UP2,DO2,ELM2)+SGV(CH2,ST2,UM2)+SGV(TO2,BO2,TM2))
	Z  WSZ=COUPW*(SZ
	      +SZV(UP2,DO2,ELM2)+SZV(CH2,ST2,UM2)+SZV(TO2,BO2,TM2))
	Z  WSP=COUPW*(SWP
	      +SWPV(UP2,DO2,ELM2)+SWPV(CH2,ST2,UM2)+SWPV(TO2,BO2,TM2))
	Z  WSGZ=COUPW*(SGZ
	      +SGZV(UP2,DO2,ELM2)+SGZV(CH2,ST2,UM2)+SGZV(TO2,BO2,TM2))
L 2	Id,SG=SNT2*S*(12.*(CB21+0.5*CB1)-4.*CB0-2./3.)
L 2	Al,SZ=(12.*CST2-4.+CSTM2)*S*(CB21-0.25*CB0)
	       + S*(HZB21+HZB1+0.25*HZB0)/CST2
	       + (W0M2-HM2)*(0.5*HZB1+0.25*HZB0)/CST2 + W0M2*HZB0/CST2
	       + WCM2*(2./CST2-4.)*CB0 - 2.*S*CST2/3.-4.*S*CB0*CST2
L 2	Al,SGZ=CST*SNT*((12.-2./CST2)*S*(CB21-0.25*CB0)
	        - (4.*S+2.*WCM2/CST2)*CB0 - 2.*S/3.)
L 2	Al,   SWP=(8.*CST2+1.)*(S*(CNB21+CNB1+0.25*CNB0)
	        + (W0M2-WCM2)*(0.5*CNB1+0.25*CNB0))
	       + 8.*SNT2*(S*(CPB21+CPB1+0.25*CPB0)-WCM2*(0.5*CPB1+0.25*CPB0))
	       + S*(CHB21+CHB1+0.25*CHB0)+(WCM2-HM2)*(0.5*CHB1+0.25*CHB0)
	       + CNB0*(WCM2*(CSTM2-3.)-4.*S*CST2) - CPB0*SNT2*4.*S
	       + WCM2*CHB0-2.*S/3.
L 5	Id,SGV(UP2~,DO2~,TM2~)=-S*SNT2*(8.*B21-4.*B0+32.*B21/3.-16.*B0/3.
	      +8.*B21/3.-4.*B0/3.)
L 5	Al,SZV(UP2~,DO2~,TM2~)=S*(-3.*((1.-8.*SNT**2/3.)**2+1.)*(8.*B21
	   -4.*B0)/16/CST**2 - 3.*((4.*SNT**2/3.-1.)**2+1.)
	     *(8.*B21-4.*B0)/16./CST**2) - 0.5*(3.*UP2*B0+3.*DO2*B0)/CST**2
	            +S*(-(8.*B21-4.*B0)/8./CST**2
	   - ((4.*SNT**2-1.)**2+1.)*(8.*B21-4.*B0)/16./CST**2)
	    - 0.5*(HN2*B0+TM2*B0)/CST**2
L 5	Al,SWPV(UP2~,DO2~,TM2~)=-2.*S*(3.*B21+3.*B1)+3.*(DO2-UP2)*B1-3.*UP2*B0
	              -2.*S*(B21+B1)+(TM2-HN2)*B1-HN2*B0
L 5	Al,SGZV(UP2~,DO2~,TM2~)=-S*SNT/CST*(2.*(1.-8.*SNT**2/3.)*(2.*B21-B0)
	      -(4.*SNT**2/3.-1.)*(2.*B21-B0))
	              -S*SNT/CST*(-(4.*SNT**2-1.)*(2.*B21-B0))
L 9	Id,CB0=B0
L 9	Al,CB1=B1
L 9	Al,CB21=B21
L 9	Al,HZB0=B0
L 9	Al,HZB1=B1
L 9	Al,HZB21=B21
L 9	Al,CNB0=B0
L 9	Al,CNB1=B1
L 9	Al,CNB21=B21
L 9	Al,CPB0=B0
L 9	Al,CPB1=B1
L 9	Al,CPB21=B21
L10	Id,CHB0=B0
L10	Al,CHB1=B1
L10	Al,CHB21=B21
L10	Al,W0M2=WCM2/CST**2
L11	Id,CSTM2=1./CST**2
L11	Al,COUPW=GG2/16./PI2
L12	Id,Multi,SNT**2=1.-CST**2
L13	Id,Multi,CST**2=1.-SNT**2
L14	Id,Multi,SNT**2=1.-CST**2
	Keep WSG,WSZ,WSP,WSGZ
> P output
	*next

Terms in output 75
Running time 1 sec			Used	Maximum
Generated terms 397 	Input space 	5624 	100000
Equal terms 319     	Output space 	2004 	250000
Cancellations 3   	Nr of expr.  	43 	255
Multiplications 2187	String space 	0 	4096
Records written 0 	Merging		0 	0

 
WSG = + GG2*PI2^-1
  * ( - 1/24*SNT2*S - 13/4*SNT2*S*B21 + 7/4*SNT2*S*B0 + 3/8*SNT2*S
  *B1 )
 
WSZ = 
 + GG2*PI2^-1
  * ( - 3/32*UP2*CST^-2*B0 - 3/32*DO2*CST^-2*B0 - 1/32*ELM2*CST^-2
  *B0 - 3/32*CH2*CST^-2*B0 - 3/32*ST2*CST^-2*B0 - 1/32*UM2*CST^-2*B0
   - 3/32*TO2*CST^-2*B0 - 3/32*BO2*CST^-2*B0 - 1/32*TM2*CST^-2*B0
  - 1/24*S*CST2 + 3/4*S*CST2*B21 - 7/16*S*CST2*B0 + 1/16*S*CST2^-1
  *B21 + 1/64*S*CST2^-1*B0 + 1/16*S*CST2^-1*B1 - 4*S*CST^2*B21
  + 2*S*CST^2*B0 - 39/16*S*CST^-2*B21 + 79/64*S*CST^-2*B0
  + 19/4*S*B21 - 39/16*S*B0 + 5/64*CST2^-1*WCM2*CST^-2*B0
  + 1/32*CST2^-1*WCM2*CST^-2*B1 + 1/8*CST2^-1*WCM2*B0 - 1/64*CST2^-1
  *HM2*B0 - 1/32*CST2^-1*HM2*B1 - 1/4*WCM2*B0 - 3/32*CST^-2*B0*HN2 )
 
WSP = 
 + GG2*PI2^-1
  * ( - 3/16*UP2*B0 - 3/16*UP2*B1 + 3/16*DO2*B1 + 1/16*ELM2*B1
  - 3/16*CH2*B0 - 3/16*CH2*B1 + 3/16*ST2*B1 + 1/16*UM2*B1
  - 3/16*TO2*B0 - 3/16*TO2*B1 + 3/16*BO2*B1 + 1/16*TM2*B1
  + 1/2*SNT2*S*B21 - 1/8*SNT2*S*B0 + 1/2*SNT2*S*B1 - 1/8*SNT2*WCM2
  *B0 - 1/4*SNT2*WCM2*B1 - 1/24*S + 1/2*S*CST2*B21 - 1/8*S*CST2*B0
   + 1/2*S*CST2*B1 - 11/8*S*B21 + 1/32*S*B0 - 11/8*S*B1 + 1/8*CST2
  *WCM2*CST^-2*B0 + 1/4*CST2*WCM2*CST^-2*B1 - 1/8*CST2*WCM2*B0
  - 1/4*CST2*WCM2*B1 + 5/64*WCM2*CST^-2*B0 + 1/32*WCM2*CST^-2*B1
  - 1/8*WCM2*B0 - 1/64*HM2*B0 - 1/32*HM2*B1 - 3/16*B0*HN2
  - 3/16*HN2*B1 )
 
WSGZ = 
 + GG2*PI2^-1
  * ( - 1/8*S*CST2^-1*CST*SNT*B21 + 1/32*S*CST2^-1*CST*SNT*B0
  - 1/24*S*CST*SNT - 13/4*S*CST*SNT*B21 + 25/16*S*CST*SNT*B0
  + 5/2*S*CST^-1*SNT*B21 - 5/4*S*CST^-1*SNT*B0 - 1/8*CST2^-1*WCM2*CST
  *SNT*B0 ) + 0.
 
	F  WV,WA,WNV
	S  ELM2,UM2
	B   DDPI2,GG2,PI2,S
	Z  DS2M=-(2.*DW0M*CST/WCM+DM2A)*CST**2/SNT**2
	Z  DS2=-0.25*(AA1*DBB-BB1*DAA)/SNT**2
	Z  WSGP=WSG
	Z  WSZP=WSZ
	Z  WSPP=WSP
	Z  WSGZP=WSGZ
	Z  DEWA=2.*DM2A-2.*DG2AF
	Z  DEW=DEWV+DEVX+DEBX+PRCOT
L 3	Id,DG2AF=-0.5*DEC-DS2A
L 4	Id,DS2A=-(2.*DW0M*CST/WCM+DM2A)*CST**2/SNT**2
L 6	Id,DEC=DEWVC+DEVXC+PRCC+W0GC
L 7	Id,DEWVC=4.*WV(ELM2)+4.*WV(UM2)
L 7	Al,DEVXC=-DDPI2*(SNT**2-5/8/CST**2-0.25)*4.*GG2/16/PI2
	     +2.*GG2*0.375*DDPI2*(UM2+ELM2)/16/PI2/WCM2
L 7	Al,PRCC=-2.*WSG *SYBS
L 7	Al,W0GC=-VT*WSGZ*SABS*CST/SNT/WCM2
L 9	Id,DEWV=2.*(WV(UM2)+WA(UM2)+WV(ELM2)+WA(ELM2)+2.*WNV(UM2)+2.*WNV(ELM2))
L 9	Al,DEVX=-(1.25+0.125/CST**2)*DDPI2*COFF
	        -(UM2+ELM2)*DDPI2/16/WCM2*COFF
L 9	Al,DEBX=0.125*SNT**2*DDPI2*CFFF
L 9	Al,PRCOT=2.*WSP *SIBS/WCM2
L11	Id,WV(ELM2~)=GG2*((VT**2+1.)*B1/8/CST**2+0.5*B1+0.75*ELM2*B1/WCM2)
	      /32./PI2
L11	Al,WA(ELM2~)=GG2*(-VT*B1/4/CST**2+0.5*B1-0.25*ELM2*B1/WCM2)/32/PI2
L11	Al,WNV(ELM2~)=GG2*(0.25*B1/CST**2+0.5*B1+ELM2*B1/4/WCM2)/32/PI2
L14	Id,COFF=-8.*GG2/16/PI2
L14	Al,CFFF=-2.*8.*GG2/16/PI2
L15	Id,S**N~*SIBS=0.
L15	Al,S**N~*SABS=0.
L15	Al,S**N~*SYBS=1.
L16	Id,SIBS=1
L16	Al,SYBS=0
L16	Al,SABS=1
L16	Al,VT=4.*SNT**2-1
L17	Id,DAA=2.*BB1*WEA+RESA*COF+VTNG
L17	Al,DBB=2.*AA1*WEA+RESB*COF
L18	Id,RESA=CST*(SNT**2+0.5+9./16./CST**4 -7./4./CST**2)*ALDEL
	      -(12.*SNT**2-2.)*ELM2/32./WCM2/CST*DDPI2
L18	Al,RESB=CST*(-1.5-7./16./CST**4+5./4./CST**2)*ALDEL
	      -(-4.*SNT**2-2.)*ELM2/32./WCM2/CST*DDPI2
L20	Id,COF=-GG2*CST/4./PI2
L21	Id,WEA=GG2*(-(4.*SNT**2-1)*B1/4/CST**2+0.5*B1-0.25*ELM2/WCM2*B1)
	     /32/PI2
	*yep

Terms in output 150
Running time 2 sec			Used	Maximum
Generated terms 183 	Input space 	4448 	101036
Equal terms 33     	Output space 	4086 	248964
Cancellations 0   	Nr of expr.  	50 	255
Multiplications 786	String space 	0 	4096
Records written 0 	Merging		0 	0

L 1	Id,VTNG=(3.*C24-C24)*16.*WCM2*GG2/16./PI2/S*SNT**2
	    + 4.*CST*SNT*(WSGZ+S*WSGZ*CST**2/WCM2)/S
L 4	Id,AA1=4.*SNT**2-1.
L 4	Al,BB1=-1.
L 4	Al,C24=0.25*DDPI2
L 5	Id,DM2A=-2.*DWCM/WCM
L 6	Id,DWCM=-0.5*WSP*SUBS/WCM
L 6	Al,DW0M=-0.5*WSZ*CST*SABS/WCM
L 8	Id,S**N~*SUBS=WCM2**N
L 8	Al,S**N~*SABS=WCM2**N/CST**N/CST**N
L 9	Id,SUBS=1.
L 9	Al,SABS=1.
L10	Id,Multi,WCM**-2=1./WCM2
L10	Al,Multi,WCM**2=WCM2
L11	Id,ALDEL=-DDPI2
L12	Id,B0=DDPI2
L12	Al,B1=-DDPI2/2.
L12	Al,B21=DDPI2/3.
L12	Al,CB0=DDPI2
L12	Al,CB1=-DDPI2/2.
L12	Al,CB21=DDPI2/3.
L13	Id,GG2*DDPI2=GG3
L14	Id,GG2=0.
L15	Id,GG3=GG2*DDPI2
L16	Id,Multi,SNT2=SNT**2
L16	Al,Multi,CST2=CST**2
L16	Al,Multi,SNT2**-1=SNT**-2
L16	Al,Multi,CST2**-1=CST**-2
L17	Id,SNT**-2*CST**-2=1./SNT**2+1./CST**2
L18	Id,Multi,SNT**2=1-CST**2
L19	Id,Multi,CST**2=1.-SNT**2
L20	Id,Multi,SNT**2=1-CST**2
L21	Id,SNT**-2*CST**-2=1./SNT**2+1./CST**2
> P output
	Keep DS2M,DS2,DEW,DEWA
	*next

Terms out 150, in 150.

Terms in output 64
Running time 4 sec			Used	Maximum
Generated terms 666 	Input space 	3194 	101036
Equal terms 501     	Output space 	1780 	248964
Cancellations 101   	Nr of expr.  	45 	255
Multiplications 5143	String space 	0 	4096
Records written 0 	Merging		0 	0

 
DS2M = + DDPI2*GG2*PI2^-1
  * ( 41/96 - 11/48*CST^2 )
 
DS2 = + DDPI2*GG2*PI2^-1
  * ( 41/96 - 11/48*CST^2 )
 
 + DDPI2*GG2*PI2^-1*S
  * ( 41/96*WCM2^-1*CST^2 - 23/48*WCM2^-1*CST^4 )
 
WSGP = + DDPI2*GG2*PI2^-1*S
  * ( 23/48 - 23/48*CST^2 )
 
WSZP = 
 + DDPI2*GG2*PI2^-1
  * ( - 3/32*UP2*CST^-2 - 3/32*DO2*CST^-2 - 1/32*ELM2*CST^-2
  - 3/32*CH2*CST^-2 - 3/32*ST2*CST^-2 - 1/32*UM2*CST^-2 - 3/32*TO2
  *CST^-2 - 3/32*BO2*CST^-2 - 1/32*TM2*CST^-2 - 1/4*WCM2 + 1/16*WCM2
  *CST^-4 + 1/8*WCM2*CST^-2 - 3/32*CST^-2*HN2 )
 
 + DDPI2*GG2*PI2^-1*S
  * ( - 41/48 + 23/48*CST^2 + 41/96*CST^-2 )
 
WSPP = 
 + DDPI2*GG2*PI2^-1
  * ( - 3/32*UP2 - 3/32*DO2 - 1/32*ELM2 - 3/32*CH2 - 3/32*ST2
  - 1/32*UM2 - 3/32*TO2 - 3/32*BO2 - 1/32*TM2 - 1/8*WCM2 + 1/16*WCM2
  *CST^-2 - 3/32*HN2 )
 
 + 5/96*DDPI2*GG2*PI2^-1*S
 
WSGZP = + DDPI2*GG2*PI2^-1
  * ( - 1/8*WCM2*CST^-1*SNT )
 
 + DDPI2*GG2*PI2^-1*S
  * ( 23/48*CST*SNT - 41/96*CST^-1*SNT )
 
DEWA = 
 + DDPI2*GG2*PI2^-1
  * ( 1/4 - 3/16*UP2*WCM2^-1 - 3/16*DO2*WCM2^-1 - 1/16*ELM2*WCM2^-1
   - 3/16*CH2*WCM2^-1 - 3/16*ST2*WCM2^-1 - 1/16*UM2*WCM2^-1
  - 3/16*TO2*WCM2^-1 - 3/16*BO2*WCM2^-1 - 1/16*TM2*WCM2^-1
  - 3/16*WCM2^-1*HN2 + 1/8*CST^-2 )
 
DEW = 
 + DDPI2*GG2*PI2^-1
  * ( 1/4 - 3/16*UP2*WCM2^-1 - 3/16*DO2*WCM2^-1 - 1/16*ELM2*WCM2^-1
   - 3/16*CH2*WCM2^-1 - 3/16*ST2*WCM2^-1 - 1/16*UM2*WCM2^-1
  - 3/16*TO2*WCM2^-1 - 3/16*BO2*WCM2^-1 - 1/16*TM2*WCM2^-1
  - 3/16*WCM2^-1*HN2 + 1/8*CST^-2 ) + 0.
 
	B  DDPI2,GG2,PI2,S
	Z  DS22=DS2-DS2M
L 2	Id,Multi,SNT**2=1.-CST**2
L 3	Id,Multi,CST**2=1.-SNT**2
L 4	Id,Multi,SNT**2=1-CST**2
	Keep DEW,DEWA
	*next

Terms in output 2
Running time 4 sec			Used	Maximum
Generated terms 20 	Input space 	976 	100500
Equal terms 12     	Output space 	76 	249500
Cancellations 6   	Nr of expr.  	17 	255
Multiplications 76	String space 	0 	4096
Records written 0 	Merging		0 	0

 
DS22 = + DDPI2*GG2*PI2^-1*S
  * ( 41/96*WCM2^-1*CST^2 - 23/48*WCM2^-1*CST^4 ) + 0.
 
	B  DDPI2,GG2,PI2,S
	Z  DEWX=DEW-DEWA
	*end

Terms in output 0
Running time 4 sec			Used	Maximum
Generated terms 24 	Input space 	482 	100292
Equal terms 12     	Output space 	0 	249708
Cancellations 12   	Nr of expr.  	11 	255
Multiplications 74	String space 	0 	4096
Records written 0 	Merging		0 	0

 
DEWX = 0. + 0.
 

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


C Vectors 3. Vector-boson self-energies. Comparison of various expressions.

> P stat
	S  K2,M,M0,ME,MH,MN,MP
	F   B21,B1,B0
	Z  SG=SNT2*S*(12.*(CB21+0.5*CB1)-4.*CB0-2./3.)
	       -S*SNT2*(8.*EB21+4.*EB1-2.*EB0)
	Z   SGT = SNT2*( - K2*(12*B21(M,M) - 7*B0(M,M) - 2/3)
	      + K2*(8*B21(ME,ME)-4*B0(ME,ME)) )
	Z   SGP=SNT2*EA1C
	       +2.*SNT2*CA2
	       +2.*SNT2*WCM2*CB0
	       +4.*SNT2*CB22
	        -2.*SNT2*CB22
	        -2.*SNT2*CA
	      +SNT2*(4.*EA-8.*EB22+2.*S*EB0)
	Z  SZ=(12.*CST2-4.+CSTM2)*S*(CB21-0.25*CB0)
	       + S*(HZB21+HZB1+0.25*HZB0)/CST2
	       + (W0M2-HM2)*(0.5*HZB1+0.25*HZB0)/CST2 + W0M2*HZB0/CST2
	       + WCM2*(2./CST2-4.)*CB0 - 2.*S*CST2/3.-4.*S*CB0*CST2
	       -S*((4.*SNT2-1.)**2+1.)*(8.*EB21+4.*EB1-2.*EB0)/16./CST2
	       - 0.5*EM2*EB0/CST2-0.125*S*(8.*OB21+4.*OB1-2.*OB0)/CST2
	Z   SZT = K2*(4-1/CST2 - 12*CST2)*B21(M,M) + 2*K2*CST2/3
	      + (K2*(7*CST2-1+0.25/CST2) + WCM2*(2/CST2-4))*B0(M,M)
	      - K2/CST2*B21(M0,MH)
	      + 0.5*(W0M2-HM2-2*K2)/CST2*B1(M0,MH)
	      + 0.25*(5*W0M2-HM2-K2)/CST2*B0(M0,MH)
	      + K2/16/CST2*((4*SNT2-1)**2+1)*(8*B21(ME,ME)-4*B0(ME,ME))
	      + K2/8/CST2*(8*B21(MN,MN)-4*B0(MN,MN))
	      - EM2/2/CST2*B0(ME,ME)
	Z   SZP=CST2*EA1C
	       +2.*CST2*CA2
	       +2.*SNT4*CSTM2*WCM2*CB0
	       +CSTM4*WCM2*HNB0
	       +CSTM2*HNB22
	       +CSTM2*(CST2-SNT2)**2*CB22
	        -2.*CST2*CB22
	        -0.25*CSTM2*(HA+NA)+2.*(SNT2-0.25*CSTM2)*CA
	       +1./16./CST2*(-16.*OB22+4.*S*OB0)
	    + 0.25/CST2*(                      -2.*((4.*SNT2-1.)**2+1.)*EB22
	       +EM2*((4.*SNT2-1.)**2-1.)*EB0+0.5*((4.*SNT2-1)**2+1.)
	        *(2.*EA-(2.*EM2-S)*EB0)    )
	Z  SGZ=CST*SNT*((12.-2./CST2)*S*(CB21-0.25*CB0)
	        - (4.*S+2.*WCM2/CST2)*CB0 - 2.*S/3.)
	       + SNT*CST*(4.*SNT2-1.)*S*(8.*EB21+4.*EB1-2.*EB0) /4./CST2
	Z   SGZT = K2*SNT*(2/CST - 12*CST)*B21(M,M)
	      + SNT*(7*K2*CST - K2/2/CST - 2*WCM2/CST)*B0(M,M) + 2*K2/3*SNT*CST
	      - K2*SNT/CST*(4*SNT2-1)*(2*B21(ME,ME) - B0(ME,ME))
	Z  SGZP =CST*SNT*EA1C
	        +2.*SNT*CST*CA2
	         -2.*SNT3*CSTM1*WCM2*CB0
	        +2.*SNT*CSTM1*(CST2-SNT2)*CB22
	         -2.*SNT*CST*CB22
	        +SNT*CSTM1*(SNT2-CST2)*CA
	       +2.*SNT*CST/CST2*(4.*SNT2-1.)*EB22
	       - SNT*CST/CST2*(4.*SNT2-1.)*EA
	      - 0.5*SNT*CST/CST2*(4.*SNT2-1.)*S*EB0
	Z     SWP=(8.*CST2+1.)*(S*(CNB21+CNB1+0.25*CNB0)
	        + (W0M2-WCM2)*(0.5*CNB1+0.25*CNB0))
	       + 8.*SNT2*(S*(CPB21+CPB1+0.25*CPB0)-WCM2*(0.5*CPB1+0.25*CPB0))
	       + S*(CHB21+CHB1+0.25*CHB0)+(WCM2-HM2)*(0.5*CHB1+0.25*CHB0)
	       + CNB0*(WCM2*(CSTM2-3.)-4.*S*CST2) - CPB0*SNT2*4.*S
	       + WCM2*CHB0-2.*S/3.
	       -2.*S*(ENB21+ENB1+0.25*ENB0) + 2.*EM2*(0.5*ENB1+0.25*ENB0)
	      -0.5*(EM2-S)*ENB0
	Z   SWT = (8*CST2+1)*(-K2*B21(M0,M) + 0.5*(W0M2-WCM2-2*K2)*(B1(M0,M)
	      + 0.5*B0(M0,M))
	      +0.25*K2*B0(M0,M))  + (WCM2*(1/CST2-3) + 4*K2*CST2)*B0(M0,M)
	      + 2*K2/3
	      - 8*SNT2*K2*(B21(MP,M) + B1(MP,M) - 0.25*B0(MP,M))
	      - 2*SNT2*WCM2*(2*B1(MP,M) + B0(MP,M))
	      - K2*B21(M,MH) + 0.5*(WCM2-HM2-2*K2)*B1(M,MH)
	      + 0.25*(5*WCM2 - HM2 - K2)*B0(M,MH)
	      + 2*K2*(B21(MN,ME) + B1(MN,ME)) + EM2*B1(MN,ME)
	Z  SWPW = -CST2*((W0M2+WCM2+4.*S)*CNB0-ZA-CA-10.*CNB22
	       -2.*(W0M2+WCM2-S/3.))
	             -SNT2*((WCM2+4.*S)*CPB0-CA-10.*CPB22-2.*(WCM2-S/3.))
	      -3.*CA-2.*WCM2 + CST2*(-3.*ZA-2.*W0M2)
	  +       WCM2*(SNT4*CNB0/CST2+SNT2*CPB0)
	        + WCM2*CHB0
	       + CHB22
	      +CNB22
	          -2.*(CST2*CNB22+SNT2*CPB22)
	          -0.25*(ZA+HA+2.*CA)
	      + 0.25*(-8.*ENB22+2.*EA-2.*(EM2-S)*ENB0)
L 4	Id   HNB21=HZB21
L 4	Al  HNB22=HZB22
L 4	Al   HNB1=HZB1
L 4	Al   HNB0=HZB0
L 4	Al  NA=ZA
L 5	Id   K2 = - S
L 6	Id  B21(M,M)=CB21
L 6	Al   B1(M,M) = CB1
L 6	Al   B0(M,M) = CB0
L 7	Id   B21(ME,ME) = EB21
L 7	Al   B1(ME,ME) = EB1
L 7	Al   B0(ME,ME) = EB0
L 8	Id   B21(M0,MH) = HZB21
L 8	Al    B1(M0,MH) = HZB1
L 8	Al   B0(M0,MH) = HZB0
L 9	Id   B21(MN,MN) = OB21
L 9	Al   B1(MN,MN) = OB1
L 9	Al   B0(MN,MN) = OB0
L10	Id   B21(M0,M) = CNB21
L10	Al   B1(M0,M) = CNB1
L10	Al   B0(M0,M) = CNB0
L11	Id   B21(MP,M) = CPB21
L11	Al   B1(MP,M) = CPB1
L11	Al   B0(MP,M) = CPB0
L12	Id   B21(M,MH) = CHB21
L12	Al   B1(M,MH) = CHB1
L12	Al   B0(M,MH) = CHB0
L13	Id   B21(MN,ME) = ENB21
L13	Al   B1(MN,ME) = ENB1
L13	Al   B0(MN,ME) = ENB0
	*yep

Terms in output 222
Running time 2 sec			Used	Maximum
Generated terms 272 	Input space 	9582 	100000
Equal terms 43     	Output space 	5860 	250000
Cancellations 7   	Nr of expr.  	52 	255
Multiplications 1059	String space 	0 	4096
Records written 0 	Merging		0 	0

L 1	Id  ALF2=0.25*HM2/WCM2
L 2	Id  EA1C=-2.*((WCM2+2.*S)*CB0-CA-5.*CB22- (-1./3.*S+2.*WCM2))
L 2	Al  EB1C=-2.*(-5.*CB21-5.*CB1+CB0+1./3.)
L 2	Al  EH2NH=2.*NA-HA+(W0M2-2.*HM2-2.*S)*HNB0
L 5	Id  ER1C=CB1+2.*CB0
L 5	Al  ER1NH=HNB1+2.*HNB0
L 5	Al  ER3NH=HNB0+2.*HNB1
L 5	Al  CA2=-3.*CA-2.*WCM2
L 5	Al  W0M2=WCM2/CST2
L 6	Id  SNT2=1.-CST2
L 6	Al  SNT4=(1.-CST2)**2
L 6	Al  SNT3=SNT**3
L 8	Id  C2S22=(2.*CST2-1.)**2
L 8	Al  CSTM1=1./CST
L 8	Al  CSTM2=1./CST2
L 8	Al  CSTM3=1./CST**3
L 8	Al  CSTM4=1./CST2**2
L10	Id  CST2=CST**2
L10	Al,Multi,CST2**-1=CST**-2
L11	Id,Multi,SNT**2=1-CST**2
L12	Id  CB22=(0.5*CA-WCM2*CB0-0.5*S*CB1-0.5*(2.*WCM2-S/3))/3
L12	Al  EB22=(0.5*EA-EM2*EB0-0.5*S*EB1-0.5*(2.*EM2-S/3.))/3.
L12	Al CNB22=(0.5*CA-W0M2*CNB0-0.5*(W0M2-WCM2+S)*CNB1-0.5*(W0M2+WCM2-S/3))/3
L12	Al  CHB22=(0.5*HA-WCM2*CHB0-0.5*(WCM2-HM2+S)*CHB1-0.5*(WCM2+HM2-S/3))/3
L12	Al  HZB22=(0.5*HA-W0M2*HZB0-0.5*(W0M2-HM2+S)*HZB1-0.5*(W0M2+HM2-S/3))/3
L12	Al  CPB22=(0.5*CA-0.5*(-WCM2+S)*CPB1-0.5*(WCM2-S/3))/3
L12	Al  ENB22=(0.5*EA-0.5*(-EM2+S)*ENB1-0.5*(EM2-S/3.))/3.
L12	Al  OB22=(-0.5*S*OB1+S/6.)/3.
L15	Id  CB21=(-CA-WCM2*CB0-2.*S*CB1-0.5*(2.*WCM2-S/3.))/3/S
L15	Al  EB21=(-EA-EM2*EB0-2.*S*EB1-0.5*(2.*EM2-S/3.))/3/S
L15	Al  CNB21=(-CA-W0M2*CNB0-2*(W0M2-WCM2+S)*CNB1-0.5*(W0M2+WCM2-S/3))/3/S
L15	Al  CPB21=(-CA-2.*(-WCM2+S)*CPB1-0.5*(WCM2-S/3))/3/S
L15	Al  ENB21=(-EA-2.*(-EM2+S)*ENB1-0.5*(EM2-S/3.))/3./S
L15	Al  OB21=(-2.*S*OB1+S/6.)/3./S
L15	Al  CHB21=(-HA-WCM2*CHB0-2.*(WCM2-HM2+S)*CHB1-0.5*(WCM2+HM2-S/3))/3/S
L15	Al  HZB21=(-HA-W0M2*HZB0-2.*(W0M2-HM2+S)*HZB1-0.5*(W0M2+HM2-S/3))/3/S
L18	Id  CB1= - 0.5*CB0
L18	Al  EB1=-0.5*EB0
L18	Al  CNB1=-(0.5*ZA-0.5*CA+0.5*(W0M2-WCM2+S)*CNB0)/S
L18	Al  CHB1=-(0.5*CA-0.5*HA+0.5*(WCM2-HM2+S)*CHB0)/S
L18	Al  HZB1=-(0.5*ZA-0.5*HA+0.5*(W0M2-HM2+S)*HZB0)/S
L18	Al  CPB1=-(-0.5*CA+0.5*(-WCM2+S)*CPB0)/S
L18	Al  ENB1=-(-0.5*EA+0.5*(-EM2+S)*ENB0)/S
L18	Al  OB1=-0.5*OB0
L21	Id  W0M2=WCM2/CST**2
	Keep SZ,SZT,SZP,SG,SGT,SGP,SGZ,SGZT,SGZP,SWP,SWT,SWPW
> P noutp
	*next

Terms out 222, in 222.

Terms in output 363
Running time 4 sec			Used	Maximum
Generated terms 1030 	Input space 	6126 	100000
Equal terms 636     	Output space 	9282 	250000
Cancellations 31   	Nr of expr.  	54 	255
Multiplications 4228	String space 	0 	4096
Records written 0 	Merging		0 	0

> P output
	Z  SGG=SG-SGP
	Z   SZZ=SZ-SZP
	Z  SGZZ=SGZ-SGZP
	Z  SWPP=SWP-SWPW
	Z   VER1=SGT-SGP
	Z   VER2=SZT-SZP
	Z   VER3=SGZT-SGZP
	Z    VER4=SWT-SWPW
	*end

Terms in output 0
Running time 5 sec			Used	Maximum
Generated terms 484 	Input space 	5526 	104944
Equal terms 242     	Output space 	0 	245056
Cancellations 242   	Nr of expr.  	28 	255
Multiplications 1468	String space 	0 	4096
Records written 0 	Merging		0 	0

 
SGG = 0.
 
SZZ = 0.
 
SGZZ = 0.
 
SWPP = 0.
 
VER1 = 0.
 
VER2 = 0.
 
VER3 = 0.
 
VER4 = 0. + 0.
 

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


C Vectors 4. Photon-W0 ward identity.

> P stats
C  NOTATIONS ARE  N=NEUTRAL,C=CHARGED,P=PHOTON,H=HIGGS,R=MIXING
C      S=-K**2
	Z  EANP1=CST*SNT*EA1C
	Z  EBNP1=CST*SNT*EB1C
	Z  EANP2=2.*SNT*CST*CA2
	Z  EANP3=-2.*SNT3*CSTM1*WCM2*CB0
	Z  EANP6=2.*SNT*CSTM1*(CST2-SNT2)*CB22
	Z  EBNP6=0.5*SNT*CSTM1*(CST2-SNT2)*(CB0+4.*CB1+4.*CB21)
	Z  EANP7=-2.*SNT*CST*CB22
	Z  EBNP7=-2.*CST*SNT*(CB1+CB21)
	Z  EANP8=SNT*CSTM1*(SNT2-CST2)*CA
	Z  ERP1=SNT*ER1C
	Z  ERP4=-SNT*CB1
L 2	Id  ALF2=0.25*HM2/WCM2
L 3	Id  EA1C=-2.*((WCM2+2.*S)*CB0-CA-5.*CB22- (-1./3.*S+2.*WCM2))
L 6	Id  EB1C=-2.*(-5.*CB21-5.*CB1+CB0+1./3.)
L 8	Id  EH2NH=2.*NA-HA+(W0M2-2.*HM2-2.*S)*HNB0
L10	Id  ER1C=CB1+2.*CB0
L11	Id  ER1NH=HNB1+2.*HNB0
L12	Id  ER3NH=HNB0+2.*HNB1
L13	Id  CA2=-3.*CA-2.*WCM2
L14	Id  W0M2=WCM2/CST2
L15	Id  SNT2=1.-CST2
L15	Al  SNT4=(1.-CST2)**2
L17	Id  SNT3=SNT**3
L18	Id  CSTM1=1./CST
L19	Id  CSTM2=1./CST2
L19	Al  CSTM4=1./CST2**2
L20	Id  CSTM3=1./CST**3
L21	Id  CST2=CST**2
L22	Id,Multi,CST2**-1=CST**-2
L23	Id  CB22=(0.5*CA-WCM2*CB0-0.5*S*CB1-0.5*(2.*WCM2-S/3))/3
L23	Al CNB22=(0.5*CA-W0M2*CNB0-0.5*(W0M2-WCM2+S)*CNB1-0.5*(W0M2+WCM2-S/3))/3
L23	Al  CHB22=(0.5*HA-WCM2*CHB0-0.5*(WCM2-HM2+S)*CHB1-0.5*(WCM2+HM2-S/3))/3
L23	Al  HNB22=(0.5*HA-W0M2*HNB0-0.5*(W0M2-HM2+S)*HNB1-0.5*(W0M2+HM2-S/3))/3
L23	Al  CPB22=(0.5*CA-0.5*(-WCM2+S)*CPB1-0.5*(WCM2-S/3))/3
L26	Id  CB21=(-CA-WCM2*CB0-2.*S*CB1-0.5*(2.*WCM2-S/3.))/3/S
L26	Al  CNB21=(-CA-W0M2*CNB0-2*(W0M2-WCM2+S)*CNB1-0.5*(W0M2+WCM2-S/3))/3/S
L26	Al  CPB21=(-CA-2.*(-WCM2+S)*CPB1-0.5*(WCM2-S/3))/3/S
L26	Al  CHB21=(-HA-WCM2*CHB0-2.*(WCM2-HM2+S)*CHB1-0.5*(WCM2+HM2-S/3))/3/S
L26	Al  HNB21=(-HA-W0M2*HNB0-2.*(W0M2-HM2+S)*HNB1-0.5*(W0M2+HM2-S/3))/3/S
L29	Id  CB1= - 0.5*CB0
L29	Al  CNB1=-(0.5*NA-0.5*CA+0.5*(W0M2-WCM2+S)*CNB0)/S
L29	Al  CHB1=-(0.5*CA-0.5*HA+0.5*(WCM2-HM2+S)*CHB0)/S
L29	Al  HNB1=-(0.5*NA-0.5*HA+0.5*(W0M2-HM2+S)*HNB0)/S
L29	Al  CPB1=-(-0.5*CA+0.5*(-WCM2+S)*CPB0)/S
L32	Id  W0M2=WCM2/CST**2
	Keep  EANP1,EBNP1,EANP2,EANP3,EANP6,EBNP6,EANP7,EBNP7,
	    EANP8,ERP1,ERP4
	*next

Terms in output 47
Running time 1 sec			Used	Maximum
Generated terms 74 	Input space 	5414 	100000
Equal terms 26     	Output space 	1392 	250000
Cancellations 1   	Nr of expr.  	54 	255
Multiplications 325	String space 	0 	4096
Records written 0 	Merging		0 	0

 
EANP1 =  + 2/3*CST*SNT*WCM2 - 16/3*CST*SNT*WCM2*CB0 - 19/6*CST*SNT
  *CB0*S + 11/3*CST*SNT*CA - 1/9*CST*SNT*S
 
EBNP1 =  - 1/9*CST*SNT - 10/3*CST*SNT*WCM2*CB0*S^-1 - 10/3*CST*SNT
  *WCM2*S^-1 - 11/3*CST*SNT*CB0 - 10/3*CST*SNT*CA*S^-1
 
EANP2 =  - 4*CST*SNT*WCM2 - 6*CST*SNT*CA
 
EANP3 =  - 2*CST^-1*SNT^3*WCM2*CB0
 
EANP6 = 
  - 4/3*CST*SNT*WCM2 - 4/3*CST*SNT*WCM2*CB0 + 1/3*CST*SNT*CB0*S
  + 2/3*CST*SNT*CA + 2/9*CST*SNT*S + 2/3*CST^-1*SNT*WCM2 + 2/3*CST^-1
  *SNT*WCM2*CB0 - 1/6*CST^-1*SNT*CB0*S - 1/3*CST^-1*SNT*CA
  - 1/9*CST^-1*SNT*S
 
EBNP6 = 
  + 2/9*CST*SNT - 4/3*CST*SNT*WCM2*CB0*S^-1 - 4/3*CST*SNT*WCM2*S^-1
   + 1/3*CST*SNT*CB0 - 4/3*CST*SNT*CA*S^-1 - 1/9*CST^-1*SNT
  + 2/3*CST^-1*SNT*WCM2*CB0*S^-1 + 2/3*CST^-1*SNT*WCM2*S^-1
  - 1/6*CST^-1*SNT*CB0 + 2/3*CST^-1*SNT*CA*S^-1
 
EANP7 =  + 2/3*CST*SNT*WCM2 + 2/3*CST*SNT*WCM2*CB0 - 1/6*CST*SNT*CB0
  *S - 1/3*CST*SNT*CA - 1/9*CST*SNT*S
 
EBNP7 =  - 1/9*CST*SNT + 2/3*CST*SNT*WCM2*CB0*S^-1 + 2/3*CST*SNT*WCM2
  *S^-1 + 1/3*CST*SNT*CB0 + 2/3*CST*SNT*CA*S^-1
 
EANP8 =  - 2*CST*SNT*CA + CST^-1*SNT*CA
 
ERP1 =  + 3/2*SNT*CB0
 
ERP4 =  + 1/2*SNT*CB0 + 0.
 
	Z  REANP=-S*(EANP1+EANP2+EANP3+EANP6+EANP7+EANP8)
	Z  REBNP=S**2*(EBNP1+EBNP6+EBNP7)
	Z  RERNP=-S*WCM2/CST*(ERP1+ERP4)
	Keep  REANP,REBNP,RERNP
	*next

Terms in output 20
Running time 1 sec			Used	Maximum
Generated terms 47 	Input space 	1462 	100876
Equal terms 25     	Output space 	604 	249124
Cancellations 2   	Nr of expr.  	22 	255
Multiplications 166	String space 	0 	4096
Records written 0 	Merging		0 	0

 
REANP = 
  + 6*CST*SNT*WCM2*CB0*S + 4*CST*SNT*WCM2*S + 3*CST*SNT*CB0*S^2
  + 4*CST*SNT*CA*S - 2/3*CST^-1*SNT*WCM2*CB0*S - 2/3*CST^-1*SNT*WCM2
  *S + 1/6*CST^-1*SNT*CB0*S^2 - 2/3*CST^-1*SNT*CA*S + 1/9*CST^-1*SNT
  *S^2 + 2*CST^-1*SNT^3*WCM2*CB0*S
 
REBNP = 
  - 4*CST*SNT*WCM2*CB0*S - 4*CST*SNT*WCM2*S - 3*CST*SNT*CB0*S^2
  - 4*CST*SNT*CA*S + 2/3*CST^-1*SNT*WCM2*CB0*S + 2/3*CST^-1*SNT*WCM2
  *S - 1/6*CST^-1*SNT*CB0*S^2 + 2/3*CST^-1*SNT*CA*S - 1/9*CST^-1*SNT
  *S^2
 
RERNP =  - 2*CST^-1*SNT*WCM2*CB0*S + 0.
 
	Z  RESNP=REANP+REBNP+RERNP
L 2	Id  SNT**3=SNT-SNT*CST**2
	*end

Terms in output 0
Running time 1 sec			Used	Maximum
Generated terms 21 	Input space 	674 	100348
Equal terms 12     	Output space 	0 	249652
Cancellations 9   	Nr of expr.  	13 	255
Multiplications 67	String space 	0 	4096
Records written 0 	Merging		0 	0

 
RESNP = 0. + 0.
 

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


C Vectors 5. Neutral vector boson ward identity.

> P stats
C  NOTATIONS ARE  N=NEUTRAL,C=CHARGED,P=PHOTON,H=HIGGS,R=MIXING
C      S=-K**2
	Z  EAN1=CST2*EA1C
	Z  EBN1=CST2*EB1C
	Z  EAN2=2.*CST2*CA2
	Z  EAN3=2.*SNT4*CSTM2*WCM2*CB0
	Z  EAN4=CSTM4*WCM2*HNB0
	Z  EAN5=CSTM2*HNB22
	Z  EBN5=0.25*CSTM2*(HNB0+4.*HNB1+4.*HNB21)
	Z  EAN6=CSTM2*(CST2-SNT2)**2*CB22
	Z  EBN6=0.25*CSTM2*(CST2-SNT2)**2*(CB0+4.*CB1+4.*CB21)
	Z  EAN7=-2.*CST2*CB22
	Z  EBN7=-2.*CST2*(CB1+CB21)
	Z  EAN8=-0.25*CSTM2*(HA+NA)+2.*(SNT2-0.25*CSTM2)*CA
	Z  EATA=-ALF2*(NA+2.*CA)+CA+0.5*CSTM2*NA-4.*CA
	    -2.*CSTM2*NA-2.*WCM2-CSTM2*W0M2-3.*ALF2*HA
	Z  EHN2=0.5*(CA-2.*(S+0.5*WCM2)*CB0)
	Z  EHN3=0.25*CSTM2*EH2NH
	Z  EHN5=4.*ALF2**2*WCM2*HNB0
	Z  EHN6=0.5*WCM2*CB0
	Z  EHN7=-CSTM2*(NA+0.5*W0M2)-2.*CA-WCM2
	Z  EHN8=-0.5*ALF2*HA
	Z  EHN9=-ALF2*CA-3./2.*ALF2*NA
	Z  ERN1=-SNT2*CSTM1*ER1C
	Z  ERN2=-0.5*CSTM3*ER1NH
	Z  ERN3=ALF2*CSTM1*ER3NH
	Z  ERN4=-CST*CB1
L 3	Id  ALF2=0.25*HM2/WCM2
L 4	Id  EA1C=-2.*((WCM2+2.*S)*CB0-CA-5.*CB22- (-1./3.*S+2.*WCM2))
L 7	Id  EB1C=-2.*(-5.*CB21-5.*CB1+CB0+1./3.)
L 9	Id  EH2NH=2.*NA-HA+(W0M2-2.*HM2-2.*S)*HNB0
L11	Id  ER1C=CB1+2.*CB0
L12	Id  ER1NH=HNB1+2.*HNB0
L13	Id  ER3NH=HNB0+2.*HNB1
L14	Id  CA2=-3.*CA-2.*WCM2
L15	Id  W0M2=WCM2/CST2
L16	Id  SNT2=1.-CST2
L16	Al  SNT4=(1.-CST2)**2
L18	Id  SNT3=SNT**3
L19	Id  CSTM1=1./CST
L20	Id  CSTM2=1./CST2
L20	Al  CSTM4=1./CST2**2
L21	Id  CSTM3=1./CST**3
L22	Id  CST2=CST**2
L23	Id,Multi,CST2**-1=CST**-2
L24	Id  CB22=(0.5*CA-WCM2*CB0-0.5*S*CB1-0.5*(2.*WCM2-S/3))/3
L24	Al CNB22=(0.5*CA-W0M2*CNB0-0.5*(W0M2-WCM2+S)*CNB1-0.5*(W0M2+WCM2-S/3))/3
L24	Al  CHB22=(0.5*HA-WCM2*CHB0-0.5*(WCM2-HM2+S)*CHB1-0.5*(WCM2+HM2-S/3))/3
L24	Al  HNB22=(0.5*HA-W0M2*HNB0-0.5*(W0M2-HM2+S)*HNB1-0.5*(W0M2+HM2-S/3))/3
L24	Al  CPB22=(0.5*CA-0.5*(-WCM2+S)*CPB1-0.5*(WCM2-S/3))/3
L27	Id  CB21=(-CA-WCM2*CB0-2.*S*CB1-0.5*(2.*WCM2-S/3.))/3/S
L27	Al  CNB21=(-CA-W0M2*CNB0-2*(W0M2-WCM2+S)*CNB1-0.5*(W0M2+WCM2-S/3))/3/S
L27	Al  CPB21=(-CA-2.*(-WCM2+S)*CPB1-0.5*(WCM2-S/3))/3/S
L27	Al  CHB21=(-HA-WCM2*CHB0-2.*(WCM2-HM2+S)*CHB1-0.5*(WCM2+HM2-S/3))/3/S
L27	Al  HNB21=(-HA-W0M2*HNB0-2.*(W0M2-HM2+S)*HNB1-0.5*(W0M2+HM2-S/3))/3/S
L30	Id  CB1= - 0.5*CB0
L30	Al  CNB1=-(0.5*NA-0.5*CA+0.5*(W0M2-WCM2+S)*CNB0)/S
L30	Al  CHB1=-(0.5*CA-0.5*HA+0.5*(WCM2-HM2+S)*CHB0)/S
L30	Al  HNB1=-(0.5*NA-0.5*HA+0.5*(W0M2-HM2+S)*HNB0)/S
L30	Al  CPB1=-(-0.5*CA+0.5*(-WCM2+S)*CPB0)/S
L33	Id  W0M2=WCM2/CST**2
	Keep  EAN1,EBN1,EAN2,EAN3,EAN4,EAN5,EBN5,EAN6,EBN6,EAN7,
	    EBN7,EAN8,EATA,EHN2,EHN3,EHN5,EHN6,EHN7,EHN8,EHN9,ERN1,
	   ERN2,ERN3,ERN4
	*next

Terms in output 127
Running time 1 sec			Used	Maximum
Generated terms 238 	Input space 	6474 	100000
Equal terms 106     	Output space 	3494 	250000
Cancellations 5   	Nr of expr.  	68 	255
Multiplications 1160	String space 	0 	4096
Records written 0 	Merging		0 	0

 
EAN1 =  - 16/3*WCM2*CB0*CST^2 + 2/3*WCM2*CST^2 - 19/6*CB0*S*CST^2
  + 11/3*CA*CST^2 - 1/9*S*CST^2
 
EBN1 =  - 10/3*WCM2*CB0*S^-1*CST^2 - 10/3*WCM2*S^-1*CST^2
  - 11/3*CB0*CST^2 - 10/3*CA*S^-1*CST^2 - 1/9*CST^2
 
EAN2 =  - 4*WCM2*CST^2 - 6*CA*CST^2
 
EAN3 =  - 4*WCM2*CB0 + 2*WCM2*CB0*CST^2 + 2*WCM2*CB0*CST^-2
 
EAN4 =  + WCM2*HNB0*CST^-4
 
EAN5 = 
  - 1/6*WCM2*HNB0*S^-1*CST^-4*HM2 - 1/6*WCM2*HNB0*CST^-4 - 1/12*WCM2
  *HA*S^-1*CST^-4 + 1/12*WCM2*S^-1*CST^-4*NA - 1/6*WCM2*CST^-4
  + 1/12*WCM2^2*HNB0*S^-1*CST^-6 + 1/12*HNB0*S*CST^-2 + 1/12*HNB0*S^-1
  *CST^-2*HM2^2 - 1/6*HNB0*CST^-2*HM2 + 1/12*HA*S^-1*CST^-2*HM2
  + 1/12*HA*CST^-2 + 1/18*S*CST^-2 - 1/12*S^-1*CST^-2*HM2*NA
  + 1/12*CST^-2*NA - 1/6*CST^-2*HM2
 
EBN5 = 
  - 2/3*WCM2*HNB0*S^-2*CST^-4*HM2 - 1/6*WCM2*HNB0*S^-1*CST^-4
  - 1/3*WCM2*HA*S^-2*CST^-4 + 1/3*WCM2*S^-2*CST^-4*NA - 1/6*WCM2*S^-1
  *CST^-4 + 1/3*WCM2^2*HNB0*S^-2*CST^-6 + 1/3*HNB0*S^-2*CST^-2*HM2^2
   - 1/6*HNB0*S^-1*CST^-2*HM2 + 1/12*HNB0*CST^-2 + 1/3*HA*S^-2*CST^-2
  *HM2 - 1/6*HA*S^-1*CST^-2 - 1/3*S^-2*CST^-2*HM2*NA - 1/6*S^-1*CST^-2
  *NA - 1/6*S^-1*CST^-2*HM2 + 1/18*CST^-2
 
EAN6 = 
  + 4/3*WCM2 + 4/3*WCM2*CB0 - 4/3*WCM2*CB0*CST^2 - 1/3*WCM2*CB0*CST^-2
   - 4/3*WCM2*CST^2 - 1/3*WCM2*CST^-2 - 1/3*CB0*S + 1/3*CB0*S*CST^2
   + 1/12*CB0*S*CST^-2 - 2/3*CA + 2/3*CA*CST^2 + 1/6*CA*CST^-2
  - 2/9*S + 2/9*S*CST^2 + 1/18*S*CST^-2
 
EBN6 = 
  - 2/9 + 4/3*WCM2*CB0*S^-1 - 4/3*WCM2*CB0*S^-1*CST^2 - 1/3*WCM2*CB0
  *S^-1*CST^-2 + 4/3*WCM2*S^-1 - 4/3*WCM2*S^-1*CST^2 - 1/3*WCM2*S^-1
  *CST^-2 - 1/3*CB0 + 1/3*CB0*CST^2 + 1/12*CB0*CST^-2 + 4/3*CA*S^-1
   - 4/3*CA*S^-1*CST^2 - 1/3*CA*S^-1*CST^-2 + 2/9*CST^2 + 1/18*CST^-2
 
EAN7 =  + 2/3*WCM2*CB0*CST^2 + 2/3*WCM2*CST^2 - 1/6*CB0*S*CST^2
  - 1/3*CA*CST^2 - 1/9*S*CST^2
 
EBN7 =  + 2/3*WCM2*CB0*S^-1*CST^2 + 2/3*WCM2*S^-1*CST^2 + 1/3*CB0*CST^2
   + 2/3*CA*S^-1*CST^2 - 1/9*CST^2
 
EAN8 =  + 2*CA - 2*CA*CST^2 - 1/2*CA*CST^-2 - 1/4*HA*CST^-2
  - 1/4*CST^-2*NA
 
EATA = 
  - 2*WCM2 - WCM2*CST^-4 - 1/2*WCM2^-1*CA*HM2 - 3/4*WCM2^-1*HA*HM2
   - 1/4*WCM2^-1*HM2*NA - 3*CA - 3/2*CST^-2*NA
 
EHN2 =  - 1/2*WCM2*CB0 - CB0*S + 1/2*CA
 
EHN3 =  + 1/4*WCM2*HNB0*CST^-4 - 1/2*HNB0*S*CST^-2 - 1/2*HNB0*CST^-2
  *HM2 - 1/4*HA*CST^-2 + 1/2*CST^-2*NA
 
EHN5 =  + 1/4*WCM2^-1*HNB0*HM2^2
 
EHN6 =  + 1/2*WCM2*CB0
 
EHN7 =  - WCM2 - 1/2*WCM2*CST^-4 - 2*CA - CST^-2*NA
 
EHN8 =  - 1/8*WCM2^-1*HA*HM2
 
EHN9 =  - 1/4*WCM2^-1*CA*HM2 - 3/8*WCM2^-1*HM2*NA
 
ERN1 =  + 3/2*CB0*CST - 3/2*CB0*CST^-1
 
ERN2 =  + 1/4*WCM2*HNB0*S^-1*CST^-5 - 1/4*HNB0*S^-1*CST^-3*HM2
  - 3/4*HNB0*CST^-3 - 1/4*HA*S^-1*CST^-3 + 1/4*S^-1*CST^-3*NA
 
ERN3 =  + 1/4*WCM2^-1*HNB0*S^-1*CST^-1*HM2^2 + 1/4*WCM2^-1*HA*S^-1
  *CST^-1*HM2 - 1/4*WCM2^-1*S^-1*CST^-1*HM2*NA - 1/4*HNB0*S^-1*CST^-3
  *HM2
 
ERN4 =  + 1/2*CB0*CST + 0.
 
	Z  RESAN=-S*(EAN1+EAN2+EAN3+EAN4+EAN5+EAN6+EAN7+EAN8)
	Z  RESBN=S**2*(EBN1+EBN5+EBN6+EBN7)
	Z  RESHN=W0M2*(EHN2+EHN3+EHN5+EHN6+EHN7+EHN8+EHN9)-0.5*W0M2*EATA
	Z     RESRN=-2.*WCM2/CST*S*(ERN1+ERN2+ERN3+ERN4)
L 5	Id  W0M2=WCM2/CST**2
	Keep  RESAN,RESBN,RESHN,RESRN
	*next

Terms in output 75
Running time 2 sec			Used	Maximum
Generated terms 127 	Input space 	2996 	101968
Equal terms 45     	Output space 	2006 	248032
Cancellations 7   	Nr of expr.  	37 	255
Multiplications 480	String space 	0 	4096
Records written 0 	Merging		0 	0

 
RESAN = 
  + 8/3*WCM2*CB0*S + 4*WCM2*CB0*S*CST^2 - 5/3*WCM2*CB0*S*CST^-2
  - 5/6*WCM2*HNB0*S*CST^-4 + 1/6*WCM2*HNB0*CST^-4*HM2 + 1/12*WCM2*HA
  *CST^-4 - 4/3*WCM2*S + 4*WCM2*S*CST^2 + 1/6*WCM2*S*CST^-4
  + 1/3*WCM2*S*CST^-2 - 1/12*WCM2*CST^-4*NA - 1/12*WCM2^2*HNB0*CST^-6
   + 1/3*CB0*S^2 + 3*CB0*S^2*CST^2 - 1/12*CB0*S^2*CST^-2 + 1/6*HNB0
  *S*CST^-2*HM2 - 1/12*HNB0*S^2*CST^-2 - 1/12*HNB0*CST^-2*HM2^2
  - 4/3*CA*S + 4*CA*S*CST^2 + 1/3*CA*S*CST^-2 + 1/6*HA*S*CST^-2
  - 1/12*HA*CST^-2*HM2 + 1/6*S*CST^-2*NA + 1/6*S*CST^-2*HM2
  + 2/9*S^2 - 1/9*S^2*CST^-2 + 1/12*CST^-2*HM2*NA
 
RESBN = 
  + 4/3*WCM2*CB0*S - 4*WCM2*CB0*S*CST^2 - 1/3*WCM2*CB0*S*CST^-2
  - 1/6*WCM2*HNB0*S*CST^-4 - 2/3*WCM2*HNB0*CST^-4*HM2 - 1/3*WCM2*HA
  *CST^-4 + 4/3*WCM2*S - 4*WCM2*S*CST^2 - 1/6*WCM2*S*CST^-4
  - 1/3*WCM2*S*CST^-2 + 1/3*WCM2*CST^-4*NA + 1/3*WCM2^2*HNB0*CST^-6
   - 1/3*CB0*S^2 - 3*CB0*S^2*CST^2 + 1/12*CB0*S^2*CST^-2 - 1/6*HNB0
  *S*CST^-2*HM2 + 1/12*HNB0*S^2*CST^-2 + 1/3*HNB0*CST^-2*HM2^2
  + 4/3*CA*S - 4*CA*S*CST^2 - 1/3*CA*S*CST^-2 - 1/6*HA*S*CST^-2
  + 1/3*HA*CST^-2*HM2 - 1/6*S*CST^-2*NA - 1/6*S*CST^-2*HM2
  - 2/9*S^2 + 1/9*S^2*CST^-2 - 1/3*CST^-2*HM2*NA
 
RESHN = 
  - WCM2*CB0*S*CST^-2 - 1/2*WCM2*HNB0*S*CST^-4 - 1/2*WCM2*HNB0*CST^-4
  *HM2 - 1/4*WCM2*HA*CST^-4 + 1/4*WCM2*CST^-4*NA + 1/4*WCM2^2*HNB0
  *CST^-6 + 1/4*HNB0*CST^-2*HM2^2 + 1/4*HA*CST^-2*HM2 - 1/4*CST^-2
  *HM2*NA
 
RESRN = 
  - 4*WCM2*CB0*S + 3*WCM2*CB0*S*CST^-2 + 3/2*WCM2*HNB0*S*CST^-4
  + WCM2*HNB0*CST^-4*HM2 + 1/2*WCM2*HA*CST^-4 - 1/2*WCM2*CST^-4*NA
   - 1/2*WCM2^2*HNB0*CST^-6 - 1/2*HNB0*CST^-2*HM2^2 - 1/2*HA*CST^-2
  *HM2 + 1/2*CST^-2*HM2*NA + 0.
 
	Z  RESN=RESAN+RESBN+RESHN+RESRN
	*end

Terms in output 0
Running time 2 sec			Used	Maximum
Generated terms 75 	Input space 	1258 	101016
Equal terms 47     	Output space 	0 	248984
Cancellations 28   	Nr of expr.  	13 	255
Multiplications 229	String space 	0 	4096
Records written 0 	Merging		0 	0

 
RESN = 0. + 0.
 

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


C Vectors 6. Photon ward identity.

> P stats
C  NOTATIONS ARE  N=NEUTRAL,C=CHARGED,P=PHOTON,H=HIGGS,R=MIXING
C      S=-K**2
	Z  EAP1=SNT2*EA1C
	Z  EBP1=SNT2*EB1C
	Z  EAP2=2.*SNT2*CA2
	Z  EAP3=2.*SNT2*WCM2*CB0
	Z  EAP6=4.*SNT2*CB22
	Z  EBP6=SNT2*(CB0+4.*CB1+4.*CB21)
	Z  EAP7=-2.*SNT2*CB22
	Z  EBP7=-2.*SNT2*(CB1+CB21)
	Z  EAP8=-2.*SNT2*CA
L 2	Id  ALF2=0.25*HM2/WCM2
L 3	Id  EA1C=-2.*((WCM2+2.*S)*CB0-CA-5.*CB22- (-1./3.*S+2.*WCM2))
L 6	Id  EB1C=-2.*(-5.*CB21-5.*CB1+CB0+1./3.)
L 8	Id  EH2NH=2.*NA-HA+(W0M2-2.*HM2-2.*S)*HNB0
L10	Id  ER1C=CB1+2.*CB0
L11	Id  ER1NH=HNB1+2.*HNB0
L12	Id  ER3NH=HNB0+2.*HNB1
L13	Id  CA2=-3.*CA-2.*WCM2
L14	Id  W0M2=WCM2/CST2
L15	Id  SNT2=1.-CST2
L15	Al  SNT4=(1.-CST2)**2
L17	Id  SNT3=SNT**3
L18	Id  CSTM1=1./CST
L19	Id  CSTM2=1./CST2
L19	Al  CSTM4=1./CST2**2
L20	Id  CSTM3=1./CST**3
L21	Id  CST2=CST**2
L22	Id,Multi,CST2**-1=CST**-2
L23	Id  CB22=(0.5*CA-WCM2*CB0-0.5*S*CB1-0.5*(2.*WCM2-S/3))/3
L23	Al CNB22=(0.5*CA-W0M2*CNB0-0.5*(W0M2-WCM2+S)*CNB1-0.5*(W0M2+WCM2-S/3))/3
L23	Al  CHB22=(0.5*HA-WCM2*CHB0-0.5*(WCM2-HM2+S)*CHB1-0.5*(WCM2+HM2-S/3))/3
L23	Al  HNB22=(0.5*HA-W0M2*HNB0-0.5*(W0M2-HM2+S)*HNB1-0.5*(W0M2+HM2-S/3))/3
L23	Al  CPB22=(0.5*CA-0.5*(-WCM2+S)*CPB1-0.5*(WCM2-S/3))/3
L26	Id  CB21=(-CA-WCM2*CB0-2.*S*CB1-0.5*(2.*WCM2-S/3.))/3/S
L26	Al  CNB21=(-CA-W0M2*CNB0-2*(W0M2-WCM2+S)*CNB1-0.5*(W0M2+WCM2-S/3))/3/S
L26	Al  CPB21=(-CA-2.*(-WCM2+S)*CPB1-0.5*(WCM2-S/3))/3/S
L26	Al  CHB21=(-HA-WCM2*CHB0-2.*(WCM2-HM2+S)*CHB1-0.5*(WCM2+HM2-S/3))/3/S
L26	Al  HNB21=(-HA-W0M2*HNB0-2.*(W0M2-HM2+S)*HNB1-0.5*(W0M2+HM2-S/3))/3/S
L29	Id  CB1= - 0.5*CB0
L29	Al  CNB1=-(0.5*NA-0.5*CA+0.5*(W0M2-WCM2+S)*CNB0)/S
L29	Al  CHB1=-(0.5*CA-0.5*HA+0.5*(WCM2-HM2+S)*CHB0)/S
L29	Al  HNB1=-(0.5*NA-0.5*HA+0.5*(W0M2-HM2+S)*HNB0)/S
L29	Al  CPB1=-(-0.5*CA+0.5*(-WCM2+S)*CPB0)/S
L32	Id  W0M2=WCM2/CST**2
	Keep  EAP1,EBP1,EAP2,EAP3,EAP6,EAP7,EBP6,EBP7,EAP8
	*next

Terms in output 68
Running time 1 sec			Used	Maximum
Generated terms 90 	Input space 	5114 	100000
Equal terms 22     	Output space 	1736 	250000
Cancellations 0   	Nr of expr.  	51 	255
Multiplications 381	String space 	0 	4096
Records written 0 	Merging		0 	0

 
EAP1 = 
  + 2/3*WCM2 - 16/3*WCM2*CB0 + 16/3*WCM2*CB0*CST^2 - 2/3*WCM2*CST^2
   - 19/6*CB0*S + 19/6*CB0*S*CST^2 + 11/3*CA - 11/3*CA*CST^2
  - 1/9*S + 1/9*S*CST^2
 
EBP1 = 
  - 1/9 - 10/3*WCM2*CB0*S^-1 + 10/3*WCM2*CB0*S^-1*CST^2 - 10/3*WCM2
  *S^-1 + 10/3*WCM2*S^-1*CST^2 - 11/3*CB0 + 11/3*CB0*CST^2
  - 10/3*CA*S^-1 + 10/3*CA*S^-1*CST^2 + 1/9*CST^2
 
EAP2 =  - 4*WCM2 + 4*WCM2*CST^2 - 6*CA + 6*CA*CST^2
 
EAP3 =  + 2*WCM2*CB0 - 2*WCM2*CB0*CST^2
 
EAP6 = 
  - 4/3*WCM2 - 4/3*WCM2*CB0 + 4/3*WCM2*CB0*CST^2 + 4/3*WCM2*CST^2
  + 1/3*CB0*S - 1/3*CB0*S*CST^2 + 2/3*CA - 2/3*CA*CST^2 + 2/9*S
  - 2/9*S*CST^2
 
EBP6 = 
  + 2/9 - 4/3*WCM2*CB0*S^-1 + 4/3*WCM2*CB0*S^-1*CST^2 - 4/3*WCM2*S^-1
   + 4/3*WCM2*S^-1*CST^2 + 1/3*CB0 - 1/3*CB0*CST^2 - 4/3*CA*S^-1
  + 4/3*CA*S^-1*CST^2 - 2/9*CST^2
 
EAP7 = 
  + 2/3*WCM2 + 2/3*WCM2*CB0 - 2/3*WCM2*CB0*CST^2 - 2/3*WCM2*CST^2
  - 1/6*CB0*S + 1/6*CB0*S*CST^2 - 1/3*CA + 1/3*CA*CST^2 - 1/9*S
  + 1/9*S*CST^2
 
EBP7 = 
  - 1/9 + 2/3*WCM2*CB0*S^-1 - 2/3*WCM2*CB0*S^-1*CST^2 + 2/3*WCM2*S^-1
   - 2/3*WCM2*S^-1*CST^2 + 1/3*CB0 - 1/3*CB0*CST^2 + 2/3*CA*S^-1
  - 2/3*CA*S^-1*CST^2 + 1/9*CST^2
 
EAP8 =  - 2*CA + 2*CA*CST^2 + 0.
 
	Z  RESAP=EAP1+EAP2+EAP3+EAP6+EAP7+EAP8
	Z  RESBP=-S*(EBP1+EBP6+EBP7)
	Keep  RESAP,RESBP
	*next

Terms in output 16
Running time 2 sec			Used	Maximum
Generated terms 68 	Input space 	1400 	100952
Equal terms 48     	Output space 	408 	249048
Cancellations 4   	Nr of expr.  	19 	255
Multiplications 217	String space 	0 	4096
Records written 0 	Merging		0 	0

 
RESAP = 
  - 4*WCM2 - 4*WCM2*CB0 + 4*WCM2*CB0*CST^2 + 4*WCM2*CST^2
  - 3*CB0*S + 3*CB0*S*CST^2 - 4*CA + 4*CA*CST^2
 
RESBP = 
  + 4*WCM2 + 4*WCM2*CB0 - 4*WCM2*CB0*CST^2 - 4*WCM2*CST^2
  + 3*CB0*S - 3*CB0*S*CST^2 + 4*CA - 4*CA*CST^2 + 0.
 
	Z  RESP=RESAP+RESBP
	*end

Terms in output 0
Running time 2 sec			Used	Maximum
Generated terms 16 	Input space 	390 	100200
Equal terms 8     	Output space 	0 	249800
Cancellations 8   	Nr of expr.  	11 	255
Multiplications 50	String space 	0 	4096
Records written 0 	Merging		0 	0

 
RESP = 0. + 0.
 

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


C Vectors 7. Charged vector boson ward identity.

> P stats
	B  DEL
	Z  EA1=
	          -CST2*((W0M2+WCM2+4.*S)*CNB0-ZA-CA-10.*CNB22
	       -2.*(W0M2+WCM2-S/3.))
	             -SNT2*((WCM2+4.*S)*CPB0-CA-10.*CPB22-2.*(WCM2-S/3.))
	Z  EB1=
	          -CST2*(-10.*CNB21-10.*CNB1+2.*CNB0+2./3.)
	             -SNT2*(-10.*CPB21-10.*CPB1+2.*CPB0+2./3.)
	Z  EA2 =
	      -3.*CA-2.*WCM2 + CST2*(-3.*ZA-2.*W0M2)
	Z  EA3 =
	          WCM2*(SNT4*CNB0/CST2+SNT2*CPB0)
	Z   EA4 = WCM2*CHB0
	Z  EA5 = CHB22
	Z  EB5 = 0.25*CHB0+CHB1+CHB21
	Z  EA6=CNB22
	Z  EB6=0.25*CNB0+CNB1+CNB21
	Z  EA7 =  -2.*(CST2*CNB22+SNT2*CPB22)
	Z  EB7 =  -2.*(CST2*CNB1+SNT2*CPB1+CST2*CNB21+SNT2*CPB21)
	Z  EA8 =  -0.25*(ZA+HA+2.*CA)
	Z  EATA=-ALF2*(ZA+2.*CA) + CA+0.5*ZA/CST2 -4.*CA-2.*ZA/CST2
	    -2.*WCM2-W0M2/CST2
	   -3.*ALF2*HA
	Z  EH1 =  WCM2*(4.*SNT4*CNB0/CST2+4.*SNT2*CPB0-2.*SNT4/CST2-2.*SNT2)
	Z  EH2  = C2S22*0.25*(2.*ZA-CA+(W0M2-2.*WCM2-2.*S)*CNB0)/CST2
	        +SNT2*(-CA-2.*(WCM2+S)*CPB0)
	       +0.25*(2.*CA-ZA + (WCM2-2.*W0M2-2.*S)*CNB0)
	Z  EH3 =  0.25*(2.*CA-HA+(WCM2-2.*HM2-2.*S)*CHB0)
	Z  EH5 = 4.*ALF2**2*WCM2*CHB0
	Z  EH6=0.5*(CST2-SNT2)*CNB0*WCM2/CST2
	Z  EH7 = (SNT2-0.25/CST2)*(4.*ZA+2.*W0M2) -2.*CA - WCM2
	Z  EH8 = -0.5*ALF2*HA
	Z  EH9 =  -ALF2*(0.5*ZA+2.*CA)
	Z  ET1=0.5*SNT2*(CST2-SNT2)*(CNB1+2.*CNB0)/CST2-SNT2*(CPB1+2.*CPB0)
	Z  ET2 =   -(CHB0+0.5*CHB1)
	Z  ET3 =   ALF2*(CHB0+2.*CHB1)
	Z  ET4 =   CNB1+0.5*CNB0-CST2*CNB1-SNT2*CPB1
	Z  ET5= - SNT2*(3.*CNB0+6.*CNB1)+SNT2*(3.*CPB0+6.*CPB1)
L 3	Id  SNT4=(1-CST2)**2
L 3	Al  CST4=CST2**2
L 5	Id  SNT2=1-CST2
L 6	Id  CSTM4=1./CST2**2
L 6	Al  CSTM2=1./CST2
L 7	Id  ALF2=0.25*HM2/WCM2
L 7	Al  C2S22=(2.*CST2-1.)**2
L 9	Id  CB22=(0.5*CA-WCM2*CB0-0.5*S*CB1-0.5*(2.*WCM2-S/3))/3
L 9	Al CNB22=(0.5*CA-W0M2*CNB0-0.5*(W0M2-WCM2+S)*CNB1-0.5*(W0M2+WCM2-S/3))/3
L 9	Al  CHB22=(0.5*HA-WCM2*CHB0-0.5*(WCM2-HM2+S)*CHB1-0.5*(WCM2+HM2-S/3))/3
L 9	Al  HZB22=(0.5*HA-W0M2*HZB0-0.5*(W0M2-HM2+S)*HZB1-0.5*(W0M2+HM2-S/3))/3
L 9	Al  CPB22=(0.5*CA-0.5*(-WCM2+S)*CPB1-0.5*(WCM2-S/3))/3
L12	Id  CB21=(-CA-WCM2*CB0-2.*S*CB1-0.5*(2.*WCM2-S/3.))/3/S
L12	Al  CNB21=(-CA-W0M2*CNB0-2*(W0M2-WCM2+S)*CNB1-0.5*(W0M2+WCM2-S/3))/3/S
L12	Al  CPB21=(-CA-2.*(-WCM2+S)*CPB1-0.5*(WCM2-S/3))/3/S
L12	Al  CHB21=(-HA-WCM2*CHB0-2.*(WCM2-HM2+S)*CHB1-0.5*(WCM2+HM2-S/3))/3/S
L12	Al  HZB21=(-HA-W0M2*HZB0-2.*(W0M2-HM2+S)*HZB1-0.5*(W0M2+HM2-S/3))/3/S
L15	Id  CB1= - 0.5*CB0
L15	Al  CNB1=-(0.5*ZA-0.5*CA+0.5*(W0M2-WCM2+S)*CNB0)/S
L15	Al  CHB1=-(0.5*CA-0.5*HA+0.5*(WCM2-HM2+S)*CHB0)/S
L15	Al  HZB1=-(0.5*ZA-0.5*HA+0.5*(W0M2-HM2+S)*HZB0)/S
L15	Al  CPB1=-(-0.5*CA+0.5*(-WCM2+S)*CPB0)/S
L18	Id  W0M2=WCM2/CST2
	Keep EA1,EB1,EA2,EA3,EA4,EA5,EB5,EA6,EB6,EA7,EB7,EA8,EATA,EH1,
	  EH2,EH3,EH5,EH6,EH7,EH8,EH9,ET1,ET2,ET3,ET4,ET5
	*next

Terms in output 234
Running time 1 sec			Used	Maximum
Generated terms 469 	Input space 	7504 	100000
Equal terms 199     	Output space 	6180 	250000
Cancellations 36   	Nr of expr.  	58 	255
Multiplications 1805	String space 	0 	4096
Records written 0 	Merging		0 	0

 
EA1 = 
  - 8/3*CST2*CNB0*WCM2 + 5/6*CST2*CNB0*WCM2^2*S^-1 - 19/6*CST2*CNB0
  *S + 11/6*CST2*ZA - 5/6*CST2*ZA*WCM2*S^-1 + 8/3*CST2*CPB0*WCM2
  - 5/6*CST2*CPB0*WCM2^2*S^-1 + 19/6*CST2*CPB0*S + 5/6*CST2^-1*CNB0
  *WCM2^2*S^-1 - 8/3*CNB0*WCM2 - 5/3*CNB0*WCM2^2*S^-1 + 5/6*ZA*WCM2
  *S^-1 + 11/6*CA - 8/3*CPB0*WCM2 + 5/6*CPB0*WCM2^2*S^-1 - 19/6*CPB0
  *S + 2/3*WCM2 - 1/9*S
 
EB1 = 
  - 1/9 - 11/3*CST2*CNB0 - 5/3*CST2*CNB0*WCM2*S^-1 + 10/3*CST2*CNB0
  *WCM2^2*S^-2 - 10/3*CST2*ZA*WCM2*S^-2 - 5/3*CST2*ZA*S^-1
  + 11/3*CST2*CPB0 + 5/3*CST2*CPB0*WCM2*S^-1 - 10/3*CST2*CPB0*WCM2^2
  *S^-2 + 10/3*CST2^-1*CNB0*WCM2^2*S^-2 - 5/3*CNB0*WCM2*S^-1
  - 20/3*CNB0*WCM2^2*S^-2 + 10/3*ZA*WCM2*S^-2 - 5/3*CA*S^-1
  - 11/3*CPB0 - 5/3*CPB0*WCM2*S^-1 + 10/3*CPB0*WCM2^2*S^-2
  - 10/3*WCM2*S^-1
 
EA2 =  - 3*CST2*ZA - 3*CA - 4*WCM2
 
EA3 =  + CST2*CNB0*WCM2 - CST2*CPB0*WCM2 + CST2^-1*CNB0*WCM2
  - 2*CNB0*WCM2 + CPB0*WCM2
 
EA4 =  + WCM2*CHB0
 
EA5 = 
  + 1/12*CA + 1/12*CA*WCM2*S^-1 - 1/12*CA*S^-1*HM2 - 1/6*WCM2
  - 1/6*WCM2*S^-1*CHB0*HM2 - 1/12*WCM2*S^-1*HA - 1/6*WCM2*CHB0
  + 1/12*WCM2^2*S^-1*CHB0 + 1/18*S + 1/12*S*CHB0 + 1/12*S^-1*CHB0*HM2^2
   + 1/12*S^-1*HA*HM2 - 1/6*CHB0*HM2 + 1/12*HA - 1/6*HM2
 
EB5 = 
  + 1/18 + 1/3*CA*WCM2*S^-2 - 1/3*CA*S^-2*HM2 - 1/6*CA*S^-1
  - 2/3*WCM2*S^-2*CHB0*HM2 - 1/3*WCM2*S^-2*HA - 1/6*WCM2*S^-1
  - 1/6*WCM2*S^-1*CHB0 + 1/3*WCM2^2*S^-2*CHB0 + 1/3*S^-2*CHB0*HM2^2
   + 1/3*S^-2*HA*HM2 - 1/6*S^-1*CHB0*HM2 - 1/6*S^-1*HA - 1/6*S^-1*HM2
   + 1/12*CHB0
 
EA6 = 
  + 1/12*CST2^-2*CNB0*WCM2^2*S^-1 - 1/6*CST2^-1*CNB0*WCM2
  - 1/6*CST2^-1*CNB0*WCM2^2*S^-1 + 1/12*CST2^-1*ZA*WCM2*S^-1
  - 1/12*CST2^-1*CA*WCM2*S^-1 - 1/6*CST2^-1*WCM2 - 1/6*CNB0*WCM2
  + 1/12*CNB0*WCM2^2*S^-1 + 1/12*CNB0*S + 1/12*ZA - 1/12*ZA*WCM2*S^-1
   + 1/12*CA + 1/12*CA*WCM2*S^-1 - 1/6*WCM2 + 1/18*S
 
EB6 = 
  + 1/18 + 1/3*CST2^-2*CNB0*WCM2^2*S^-2 - 1/6*CST2^-1*CNB0*WCM2*S^-1
   - 2/3*CST2^-1*CNB0*WCM2^2*S^-2 + 1/3*CST2^-1*ZA*WCM2*S^-2
  - 1/3*CST2^-1*CA*WCM2*S^-2 - 1/6*CST2^-1*WCM2*S^-1 + 1/12*CNB0
  - 1/6*CNB0*WCM2*S^-1 + 1/3*CNB0*WCM2^2*S^-2 - 1/3*ZA*WCM2*S^-2
  - 1/6*ZA*S^-1 + 1/3*CA*WCM2*S^-2 - 1/6*CA*S^-1 - 1/6*WCM2*S^-1
 
EA7 = 
  + 1/3*CST2*CNB0*WCM2 - 1/6*CST2*CNB0*WCM2^2*S^-1 - 1/6*CST2*CNB0
  *S - 1/6*CST2*ZA + 1/6*CST2*ZA*WCM2*S^-1 - 1/3*CST2*CPB0*WCM2
  + 1/6*CST2*CPB0*WCM2^2*S^-1 + 1/6*CST2*CPB0*S - 1/6*CST2^-1*CNB0
  *WCM2^2*S^-1 + 1/3*CNB0*WCM2 + 1/3*CNB0*WCM2^2*S^-1 - 1/6*ZA*WCM2
  *S^-1 - 1/6*CA + 1/3*CPB0*WCM2 - 1/6*CPB0*WCM2^2*S^-1 - 1/6*CPB0
  *S + 2/3*WCM2 - 1/9*S
 
EB7 = 
  - 1/9 + 1/3*CST2*CNB0 + 1/3*CST2*CNB0*WCM2*S^-1 - 2/3*CST2*CNB0*WCM2^2
  *S^-2 + 2/3*CST2*ZA*WCM2*S^-2 + 1/3*CST2*ZA*S^-1 - 1/3*CST2*CPB0
   - 1/3*CST2*CPB0*WCM2*S^-1 + 2/3*CST2*CPB0*WCM2^2*S^-2 - 2/3*CST2^-1
  *CNB0*WCM2^2*S^-2 + 1/3*CNB0*WCM2*S^-1 + 4/3*CNB0*WCM2^2*S^-2
  - 2/3*ZA*WCM2*S^-2 + 1/3*CA*S^-1 + 1/3*CPB0 + 1/3*CPB0*WCM2*S^-1
   - 2/3*CPB0*WCM2^2*S^-2 + 2/3*WCM2*S^-1
 
EA8 =  - 1/4*ZA - 1/2*CA - 1/4*HA
 
EATA = 
  - CST2^-2*WCM2 - 3/2*CST2^-1*ZA - 1/4*ZA*WCM2^-1*HM2 - 3*CA
  - 1/2*CA*WCM2^-1*HM2 - 2*WCM2 - 3/4*WCM2^-1*HA*HM2
 
EH1 = 
  + 4*CST2*CNB0*WCM2 - 4*CST2*CPB0*WCM2 + 4*CST2^-1*CNB0*WCM2
  - 2*CST2^-1*WCM2 - 8*CNB0*WCM2 + 4*CPB0*WCM2 + 2*WCM2
 
EH2 = 
  - 2*CST2*CNB0*WCM2 - 2*CST2*CNB0*S + 2*CST2*ZA + 2*CST2*CPB0*WCM2
   + 2*CST2*CPB0*S + 1/4*CST2^-2*CNB0*WCM2 - 2*CST2^-1*CNB0*WCM2
  - 1/2*CST2^-1*CNB0*S + 1/2*CST2^-1*ZA - 1/4*CST2^-1*CA + 13/4*CNB0
  *WCM2 + 3/2*CNB0*S - 9/4*ZA + 1/2*CA - 2*CPB0*WCM2 - 2*CPB0*S
 
EH3 =  + 1/2*CA + 1/4*WCM2*CHB0 - 1/2*S*CHB0 - 1/2*CHB0*HM2
  - 1/4*HA
 
EH5 =  + 1/4*WCM2^-1*CHB0*HM2^2
 
EH6 =  - 1/2*CST2^-1*CNB0*WCM2 + CNB0*WCM2
 
EH7 = 
  - 4*CST2*ZA - 1/2*CST2^-2*WCM2 - CST2^-1*ZA + 2*CST2^-1*WCM2
  + 4*ZA - 2*CA - 3*WCM2
 
EH8 =  - 1/8*WCM2^-1*HA*HM2
 
EH9 =  - 1/8*ZA*WCM2^-1*HM2 - 1/2*CA*WCM2^-1*HM2
 
ET1 = 
  - 3/2*CST2*CNB0 - 1/2*CST2*CNB0*WCM2*S^-1 + 1/2*CST2*ZA*S^-1
  + 3/2*CST2*CPB0 + 1/2*CST2*CPB0*WCM2*S^-1 + 1/4*CST2^-2*CNB0*WCM2
  *S^-1 - 3/4*CST2^-1*CNB0 - CST2^-1*CNB0*WCM2*S^-1 + 1/4*CST2^-1*ZA
  *S^-1 - 1/4*CST2^-1*CA*S^-1 + 9/4*CNB0 + 5/4*CNB0*WCM2*S^-1
  - 3/4*ZA*S^-1 + 1/4*CA*S^-1 - 3/2*CPB0 - 1/2*CPB0*WCM2*S^-1
 
ET2 =  + 1/4*CA*S^-1 + 1/4*WCM2*S^-1*CHB0 - 1/4*S^-1*CHB0*HM2
  - 1/4*S^-1*HA - 3/4*CHB0
 
ET3 =  - 1/4*CA*WCM2^-1*S^-1*HM2 + 1/4*WCM2^-1*S^-1*CHB0*HM2^2
  + 1/4*WCM2^-1*S^-1*HA*HM2 - 1/4*S^-1*CHB0*HM2
 
ET4 = 
  + 1/2*CST2*CNB0 - 1/2*CST2*CNB0*WCM2*S^-1 + 1/2*CST2*ZA*S^-1
  - 1/2*CST2*CPB0 + 1/2*CST2*CPB0*WCM2*S^-1 - 1/2*CST2^-1*CNB0*WCM2
  *S^-1 + CNB0*WCM2*S^-1 - 1/2*ZA*S^-1 + 1/2*CPB0 - 1/2*CPB0*WCM2*S^-1
 
ET5 = 
  + 3*CST2*CNB0*WCM2*S^-1 - 3*CST2*ZA*S^-1 - 3*CST2*CPB0*WCM2*S^-1
   + 3*CST2^-1*CNB0*WCM2*S^-1 - 6*CNB0*WCM2*S^-1 + 3*ZA*S^-1
  + 3*CPB0*WCM2*S^-1 + 0.
 
	B  DEL,CA
	Z  RESA =- S*(EA1+EA2+EA3+EA4+EA5+EA6+EA7+EA8)
	Z  RESB=
	   + S**2*(EB1+EB5+EB6+EB7)
	Z  RESH=
	  + WCM2*(EH1+EH2+EH3+EH5+EH6+EH7+EH8+EH9)
	  - 0.5*EATA *WCM2
	Z  REST=
	  - 2.*S*WCM2*(ET1+ET2+ET3+ET4+ET5)
	Keep RESA,RESB,RESH,REST
	*next

Terms in output 120
Running time 2 sec			Used	Maximum
Generated terms 234 	Input space 	4476 	103472
Equal terms 108     	Output space 	3116 	246528
Cancellations 6   	Nr of expr.  	38 	255
Multiplications 757	String space 	0 	4096
Records written 0 	Merging		0 	0

 
RESA = 
  + 4/3*CST2*CNB0*WCM2*S - 2/3*CST2*CNB0*WCM2^2 + 10/3*CST2*CNB0*S^2
   + 2/3*CST2*ZA*WCM2 + 4/3*CST2*ZA*S - 4/3*CST2*CPB0*WCM2*S
  + 2/3*CST2*CPB0*WCM2^2 - 10/3*CST2*CPB0*S^2 - 1/12*CST2^-2*CNB0*WCM2^2
   - 5/6*CST2^-1*CNB0*WCM2*S - 1/2*CST2^-1*CNB0*WCM2^2 - 1/12*CST2^-1
  *ZA*WCM2 + 1/6*CST2^-1*WCM2*S + 9/2*CNB0*WCM2*S + 5/4*CNB0*WCM2^2
   - 1/12*CNB0*S^2 - 7/12*ZA*WCM2 + 1/6*ZA*S + 4/3*CPB0*WCM2*S
  - 2/3*CPB0*WCM2^2 + 10/3*CPB0*S^2 + 3*WCM2*S - 5/6*WCM2*S*CHB0
  + 1/6*WCM2*CHB0*HM2 + 1/12*WCM2*HA - 1/12*WCM2^2*CHB0 + 1/6*S*CHB0
  *HM2 + 1/6*S*HA + 1/6*S*HM2 + 1/9*S^2 - 1/12*S^2*CHB0 - 1/12*CHB0
  *HM2^2 - 1/12*HA*HM2
 
 + CA
  * ( 1/12*CST2^-1*WCM2 - 1/6*WCM2 + 5/3*S + 1/12*HM2 )
 
RESB = 
  - 4/3*CST2*CNB0*WCM2*S + 8/3*CST2*CNB0*WCM2^2 - 10/3*CST2*CNB0*S^2
   - 8/3*CST2*ZA*WCM2 - 4/3*CST2*ZA*S + 4/3*CST2*CPB0*WCM2*S
  - 8/3*CST2*CPB0*WCM2^2 + 10/3*CST2*CPB0*S^2 + 1/3*CST2^-2*CNB0*WCM2^2
   - 1/6*CST2^-1*CNB0*WCM2*S + 2*CST2^-1*CNB0*WCM2^2 + 1/3*CST2^-1
  *ZA*WCM2 - 1/6*CST2^-1*WCM2*S - 3/2*CNB0*WCM2*S - 5*CNB0*WCM2^2
  + 1/12*CNB0*S^2 + 7/3*ZA*WCM2 - 1/6*ZA*S - 4/3*CPB0*WCM2*S
  + 8/3*CPB0*WCM2^2 - 10/3*CPB0*S^2 - 3*WCM2*S - 1/6*WCM2*S*CHB0
  - 2/3*WCM2*CHB0*HM2 - 1/3*WCM2*HA + 1/3*WCM2^2*CHB0 - 1/6*S*CHB0
  *HM2 - 1/6*S*HA - 1/6*S*HM2 - 1/9*S^2 + 1/12*S^2*CHB0 + 1/3*CHB0
  *HM2^2 + 1/3*HA*HM2
 
 + CA
  * ( - 1/3*CST2^-1*WCM2 + 2/3*WCM2 - 5/3*S - 1/3*HM2 )
 
RESH = 
  - 2*CST2*CNB0*WCM2*S + 2*CST2*CNB0*WCM2^2 - 2*CST2*ZA*WCM2
  + 2*CST2*CPB0*WCM2*S - 2*CST2*CPB0*WCM2^2 + 1/4*CST2^-2*CNB0*WCM2^2
   - 1/2*CST2^-1*CNB0*WCM2*S + 3/2*CST2^-1*CNB0*WCM2^2 + 1/4*CST2^-1
  *ZA*WCM2 + 3/2*CNB0*WCM2*S - 15/4*CNB0*WCM2^2 + 7/4*ZA*WCM2
  - 2*CPB0*WCM2*S + 2*CPB0*WCM2^2 - 1/2*WCM2*S*CHB0 - 1/2*WCM2*CHB0
  *HM2 - 1/4*WCM2*HA + 1/4*WCM2^2*CHB0 + 1/4*CHB0*HM2^2 + 1/4*HA*HM2
 
 + CA
  * ( - 1/4*CST2^-1*WCM2 + 1/2*WCM2 - 1/4*HM2 )
 
REST = 
  + 2*CST2*CNB0*WCM2*S - 4*CST2*CNB0*WCM2^2 + 4*CST2*ZA*WCM2
  - 2*CST2*CPB0*WCM2*S + 4*CST2*CPB0*WCM2^2 - 1/2*CST2^-2*CNB0*WCM2^2
   + 3/2*CST2^-1*CNB0*WCM2*S - 3*CST2^-1*CNB0*WCM2^2 - 1/2*CST2^-1
  *ZA*WCM2 - 9/2*CNB0*WCM2*S + 15/2*CNB0*WCM2^2 - 7/2*ZA*WCM2
  + 2*CPB0*WCM2*S - 4*CPB0*WCM2^2 + 3/2*WCM2*S*CHB0 + WCM2*CHB0*HM2
   + 1/2*WCM2*HA - 1/2*WCM2^2*CHB0 - 1/2*CHB0*HM2^2 - 1/2*HA*HM2
 
 + CA
  * ( 1/2*CST2^-1*WCM2 - WCM2 + 1/2*HM2 ) + 0.
 
	B  CA,DEL
	Z  RESAL=RESA+RESB+RESH+REST
	*end

Terms in output 0
Running time 2 sec			Used	Maximum
Generated terms 120 	Input space 	1878 	101636
Equal terms 80     	Output space 	0 	248364
Cancellations 40   	Nr of expr.  	13 	255
Multiplications 364	String space 	0 	4096
Records written 0 	Merging		0 	0

 
RESAL = 0. + 0.
 

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


C Vectors 8. Vector boson - vector boson scattering. Tree diagrams.

> P stat
	Oldnew,i=I
	S     L,S,M,COS
	I     IF
	I     LA,AL,BE,GA,DE
	V     K,P,KP,PP
	B     L,PROP1,PROP2,PROP3
	Z     DIA1 = AMPL(IA,IB,IC,ID,K,P,PP,KP)*PROP1
	Z     DIA2 = AMPL(IA,IB,ID,IC,K,P,KP,PP)*PROP2
	Z     DIA3 = AMPL(IC,IB,IA,ID,PP,P,K,KP)*PROP3
	Z     DIA4 = ((Epf(IF,ID,IC)*Epf(IF,IB,IA))*
	      (2*D(AL,GA)*D(BE,DE)-D(AL,DE)*D(BE,GA)-D(AL,BE)*D(GA,DE))
	      + (Epf(IF,ID,IB)*Epf(IF,IC,IA))*
	      (2*D(AL,BE)*D(GA,DE) - D(AL,DE)*D(GA,BE) - D(AL,GA)*D(BE,DE)))
	      *E(K,AL)*E(KP,DE)*E(P,BE)*E(PP,GA)
	Z     HDIA1 = M**2*D(AL,DE)*D(BE,GA)*D(IA,ID)*D(IB,IC)*PR1
	      *E(K,AL)*E(KP,DE)*E(P,BE)*E(PP,GA)
	Z     HDIA2 = M**2*D(AL,GA)*D(BE,DE)*D(IA,IC)*D(IB,ID)*PR2
	      *E(K,AL)*E(KP,DE)*E(P,BE)*E(PP,GA)
	Z     HDIA3 = M**2*D(AL,BE)*D(GA,DE)*D(IA,IB)*D(IC,ID)*PR3
	      *E(K,AL)*E(KP,DE)*E(P,BE)*E(PP,GA)
L 3	Id    AMPL(IA~,IB~,IC~,ID~,K~,P~,PP~,KP~) =
	      (Epf(IF,IA,ID)*Epf(IF,IB,IC))*
	      (D(LA,GA)*(-2*PP(BE) - P(BE)) + D(BE,GA)*(PP(LA) - P(LA)) +
	      D(LA,BE)*(2*P(GA) + PP(GA))) *
	      (D(AL,LA)*(2*K(DE) + KP(DE)) + D(DE,LA)*(-2*KP(AL) - K(AL)) +
	      D(AL,DE)*(KP(LA) - K(LA)) )
	      *E(K,AL)*E(KP,DE)*E(P,BE)*E(PP,GA)
C  ALL MOMENTA INGOING
L 6	Id    E(K~,K~) = 0
L 7	Id    E(K,AL~) = K(AL)*K0/M/LK - I*M*D(AL,4)/LK
L 7	Al    E(P,AL~) = P(AL)*P0/M/LP - I*M*D(AL,4)/LP
L 7	Al    E(KP,AL~) = KP(AL)*KP0/M/LKP - I*M*D(AL,4)/LKP
L 7	Al    E(PP,AL~) = PP(AL)*PP0/M/LPP - I*M*D(AL,4)/LPP
L 8	Id    KDK = - M**2
L 8	Al    PDP = - M**2
L 8	Al    PPDPP = - M**2
L 8	Al    KPDKP = - M**2
	*yep

Terms in output 474
Running time 3 sec			Used	Maximum
Generated terms 912 	Input space 	2646 	100000
Equal terms 392     	Output space 	18804 	250000
Cancellations 46   	Nr of expr.  	32 	255
Multiplications 9052	String space 	0 	4096
Records written 0 	Merging		0 	0

L 1	Id    KP(4) = I*KP0
L 2	Id    KP(AL~) = - K(AL) - P(AL) - PP(AL)
L 3	Id,Dotpr,KP(AL~) = -K(AL) - P(AL) - PP(AL)
L 4	Id    KDK = - M**2
L 4	Al    PDP = - M**2
L 4	Al    PPDPP = - M**2
L 4	Al    KPDKP = - M**2
L 4	Al    KDPP = M**2 - PDK - PDPP
L 5	Id    K(4) = I*K0
L 5	Al    P(4) = I*P0
L 5	Al    PP(4) = I*PP0
	*yep

Terms out 474, in 474.

Terms in output 371
Running time 9 sec			Used	Maximum
Generated terms 2022 	Input space 	1072 	100000
Equal terms 1070     	Output space 	13596 	250000
Cancellations 581   	Nr of expr.  	22 	255
Multiplications 12015	String space 	0 	4096
Records written 2 	Merging		0 	0

C   CENTRE OF MASS SYSTEM
L 1	Id    K0 = S
L 1	Al    LK**-1 = L**-1
L 1	Al    P0 = S
L 1	Al    LP**-1 = L**-1
L 1	Al    PP0 = - S
L 1	Al    LPP**-1 = L**-1
L 1	Al    KP0 = - S
L 1	Al    LKP**-1 = L**-1
L 1	Al    PDK = - 2*L**2 - M**2
L 1	Al    PDPP = L**2*COS + S**2
L 2	Id,Multi,S**2 = L**2 + M**2
	*yep

Terms out 371, in 371.

Terms in output 58
Running time 16 sec			Used	Maximum
Generated terms 4148 	Input space 	868 	100000
Equal terms 3858     	Output space 	2232 	250000
Cancellations 232   	Nr of expr.  	30 	255
Multiplications 28190	String space 	0 	4096
Records written 2 	Merging		0 	0

L 1	Id    Trick
	*yep

Terms out 58, in 58.

Terms in output 95
Running time 16 sec			Used	Maximum
Generated terms 101 	Input space 	148 	100000
Equal terms 6     	Output space 	3368 	250000
Cancellations 0   	Nr of expr.  	8 	255
Multiplications 288	String space 	0 	4096
Records written 2 	Merging		0 	0

	B    COS
L 1	Id     COS = T**2/L**2/2 - 1
C   PROP1 = (T**2+ M**2)**-1
C   PROP2 = ( - T**2 + 4*L**2 + M**2)**-1
C   PROP3 = ( - 4*L**2 - 3*M**2)**-1
C   PR1 = (T**2 + M**2)**-1
C   PR2 = ( - T**2 + 4*L**2 + MM**2)**-1
C   PR3 = ( - 4*L**2 - 4*M**2 + MM**2)**-1
L 2	Id,3,PROP1*T**IA~ = T**IA/T**2 - T**IA/T**2*M**2*PROP1
L 2	Al,3,PROP2*T**IA~ = T**IA/T**2*4*L**2*PROP2 + T**IA/T**2*M**2*PROP2
	      -T**IA/T**2
L 2	Al,3,PROP3*L**IA~ = - 1/4*L**IA/L**2 - 3/4*L**IA/L**2*M**2*PROP3
L 5	Id,3,PR1*T**IA~ = T**IA/T**2 - T**IA/T**2*MM**2*PR1
L 5	Al,3,PR2*T**IA~ = - T**IA/T**2 + T**IA/T**2*4*L**2*PR2
	      + MM**2*T**IA/T**2*PR2
L 5	Al,3,PR3*L**IA~ = - 1/4*L**IA/L**2 - L**IA/L**2*M**2*PR3
	      + 1/4*MM**2*L**IA/L**2*PR3
	Keep,DIA1,DIA2,DIA3,DIA4,HDIA1,HDIA2,HDIA3
	*next

Terms out 95, in 95.

Terms in output 131
Running time 18 sec			Used	Maximum
Generated terms 802 	Input space 	1002 	100000
Equal terms 605     	Output space 	3486 	250000
Cancellations 66   	Nr of expr.  	17 	255
Multiplications 2704	String space 	0 	4096
Records written 2 	Merging		0 	0

 
DIA1 = 
 + D(IA,IB)*D(IC,ID)
  * ( - 11/4 - 2*L^2*M^-4*T^2 - 6*L^2*M^-2 - 2*L^2*PROP1 - 5/4*L^-4
  *M^2*T^2 + 5/4*L^-4*M^4 - 5/4*L^-4*M^6*PROP1 + 1/4*L^-4*T^4
  + 7/2*L^-2*M^2 - 7/2*L^-2*M^4*PROP1 + 1/2*L^-2*M^-2*T^4
  + 1/2*L^-2*T^2 - 5/4*M^2*PROP1 + 1/4*M^-4*T^4 - 1/4*M^-2*T^2 )
 
 + D(IA,IC)*D(IB,ID)
  * ( 11/4 + 2*L^2*M^-4*T^2 + 6*L^2*M^-2 + 2*L^2*PROP1 + 5/4*L^-4*M^2
  *T^2 - 5/4*L^-4*M^4 + 5/4*L^-4*M^6*PROP1 - 1/4*L^-4*T^4
  - 7/2*L^-2*M^2 + 7/2*L^-2*M^4*PROP1 - 1/2*L^-2*M^-2*T^4
  - 1/2*L^-2*T^2 + 5/4*M^2*PROP1 - 1/4*M^-4*T^4 + 1/4*M^-2*T^2 )
 
DIA2 = 
 + D(IA,IB)*D(IC,ID)
  * ( 13/4 + L^2*M^-2 - 2*L^2*PROP2 - 4*L^4*M^-4 + 5/4*L^-4*M^2*T^2
   + 5/4*L^-4*M^4 - 5/4*L^-4*M^6*PROP2 + 1/4*L^-4*T^4 - 3/2*L^-2*M^2
   - 7/2*L^-2*M^4*PROP2 + 1/2*L^-2*M^-2*T^4 - 5/2*L^-2*T^2
  - 5/4*M^2*PROP2 + 1/4*M^-4*T^4 - 15/4*M^-2*T^2 )
 
 + D(IA,ID)*D(IB,IC)
  * ( - 13/4 - L^2*M^-2 + 2*L^2*PROP2 + 4*L^4*M^-4 - 5/4*L^-4*M^2*T^2
   - 5/4*L^-4*M^4 + 5/4*L^-4*M^6*PROP2 - 1/4*L^-4*T^4 + 3/2*L^-2*M^2
   + 7/2*L^-2*M^4*PROP2 - 1/2*L^-2*M^-2*T^4 + 5/2*L^-2*T^2
  + 5/4*M^2*PROP2 - 1/4*M^-4*T^4 + 15/4*M^-2*T^2 )
 
DIA3 = 
 + D(IA,IC)*D(IB,ID)
  * ( - 9/4 + 2*L^2*M^-4*T^2 - 9*L^2*M^-2 - 4*L^4*M^-4 - 27/4*M^2*PROP3
   + 9/2*M^-2*T^2 - 9/2*PROP3*T^2 )
 
 + D(IA,ID)*D(IB,IC)
  * ( 9/4 - 2*L^2*M^-4*T^2 + 9*L^2*M^-2 + 4*L^4*M^-4 + 27/4*M^2*PROP3
   - 9/2*M^-2*T^2 + 9/2*PROP3*T^2 )
 
DIA4 = 
 + D(IA,IB)*D(IC,ID)
  * ( 2*L^2*M^-4*T^2 + 4*L^2*M^-2 + 4*L^4*M^-4 - 1/2*L^-4*T^4
  - L^-2*M^-2*T^4 + 2*L^-2*T^2 - 1/2*M^-4*T^4 + 4*M^-2*T^2 )
 
 + D(IA,IC)*D(IB,ID)
  * ( - 4*L^2*M^-4*T^2 + 4*L^2*M^-2 + 4*L^4*M^-4 + 1/4*L^-4*T^4
  + 1/2*L^-2*M^-2*T^4 - L^-2*T^2 + 1/4*M^-4*T^4 - 5*M^-2*T^2 )
 
 + D(IA,ID)*D(IB,IC)
  * ( 2*L^2*M^-4*T^2 - 8*L^2*M^-2 - 8*L^4*M^-4 + 1/4*L^-4*T^4
  + 1/2*L^-2*M^-2*T^4 - L^-2*T^2 + 1/4*M^-4*T^4 + M^-2*T^2 )
 
HDIA1 = 
 + D(IA,ID)*D(IB,IC)
  * ( - 1 - 1/4*L^-4*M^2*MM^2 + 1/4*L^-4*M^2*PR1*MM^4 + 1/4*L^-4*M^2
  *T^2 - 1/2*L^-2*MM^2 - L^-2*M^2 + L^-2*M^2*PR1*MM^2 + 1/2*L^-2*PR1
  *MM^4 + 1/2*L^-2*T^2 + M^2*PR1 - 1/4*M^-2*MM^2 + 1/4*M^-2*PR1*MM^4
   + 1/4*M^-2*T^2 + PR1*MM^2 )
 
HDIA2 = 
 + D(IA,IC)*D(IB,ID)
  * ( 1 + L^2*M^-2 - 1/4*L^-4*M^2*MM^2 + 1/4*L^-4*M^2*PR2*MM^4
  - 1/4*L^-4*M^2*T^2 - 1/2*L^-2*MM^2 + L^-2*M^2*PR2*MM^2 + 1/2*L^-2
  *PR2*MM^4 - 1/2*L^-2*T^2 + M^2*PR2 - 1/4*M^-2*MM^2 + 1/4*M^-2*PR2
  *MM^4 - 1/4*M^-2*T^2 + PR2*MM^2 )
 
HDIA3 = + D(IA,IB)*D(IC,ID)
  * ( - L^2*M^-2 + M^2*PR3 - 1/4*M^-2*MM^2 + 1/4*M^-2*PR3*MM^4
  - PR3*MM^2 ) + 0.
 
	B     GG
	Z     DIAW = - GG**2*(DIA1 + DIA2 + DIA3 + DIA4)
	Z     DIAH = GG**2*(HDIA1 + HDIA2 + HDIA3)
	Keep,DIAW,DIAH
	*next

Terms in output 70
Running time 18 sec			Used	Maximum
Generated terms 131 	Input space 	2264 	101840
Equal terms 42     	Output space 	1882 	248160
Cancellations 19   	Nr of expr.  	17 	255
Multiplications 409	String space 	0 	4096
Records written 2 	Merging		0 	0

 
DIAW = 
 + D(IA,IB)*D(IC,ID)*GG^2
  * ( - 1/2 + L^2*M^-2 + 2*L^2*PROP1 + 2*L^2*PROP2 - 5/2*L^-4*M^4
  + 5/4*L^-4*M^6*PROP1 + 5/4*L^-4*M^6*PROP2 - 2*L^-2*M^2 + 7/2*L^-2
  *M^4*PROP1 + 7/2*L^-2*M^4*PROP2 + 5/4*M^2*PROP1 + 5/4*M^2*PROP2 )
 
 + D(IA,IC)*D(IB,ID)*GG^2
  * ( - 1/2 - L^2*M^-2 - 2*L^2*PROP1 - 5/4*L^-4*M^2*T^2 + 5/4*L^-4
  *M^4 - 5/4*L^-4*M^6*PROP1 + 7/2*L^-2*M^2 - 7/2*L^-2*M^4*PROP1
  + 3/2*L^-2*T^2 - 5/4*M^2*PROP1 + 27/4*M^2*PROP3 + 1/4*M^-2*T^2
  + 9/2*PROP3*T^2 )
 
 + D(IA,ID)*D(IB,IC)*GG^2
  * ( 1 - 2*L^2*PROP2 + 5/4*L^-4*M^2*T^2 + 5/4*L^-4*M^4 - 5/4*L^-4
  *M^6*PROP2 - 3/2*L^-2*M^2 - 7/2*L^-2*M^4*PROP2 - 3/2*L^-2*T^2
  - 5/4*M^2*PROP2 - 27/4*M^2*PROP3 - 1/4*M^-2*T^2 - 9/2*PROP3*T^2 )
 
DIAH = 
 + D(IA,IB)*D(IC,ID)*GG^2
  * ( - L^2*M^-2 + M^2*PR3 - 1/4*M^-2*MM^2 + 1/4*M^-2*PR3*MM^4
  - PR3*MM^2 )
 
 + D(IA,IC)*D(IB,ID)*GG^2
  * ( 1 + L^2*M^-2 - 1/4*L^-4*M^2*MM^2 + 1/4*L^-4*M^2*PR2*MM^4
  - 1/4*L^-4*M^2*T^2 - 1/2*L^-2*MM^2 + L^-2*M^2*PR2*MM^2 + 1/2*L^-2
  *PR2*MM^4 - 1/2*L^-2*T^2 + M^2*PR2 - 1/4*M^-2*MM^2 + 1/4*M^-2*PR2
  *MM^4 - 1/4*M^-2*T^2 + PR2*MM^2 )
 
 + D(IA,ID)*D(IB,IC)*GG^2
  * ( - 1 - 1/4*L^-4*M^2*MM^2 + 1/4*L^-4*M^2*PR1*MM^4 + 1/4*L^-4*M^2
  *T^2 - 1/2*L^-2*MM^2 - L^-2*M^2 + L^-2*M^2*PR1*MM^2 + 1/2*L^-2*PR1
  *MM^4 + 1/2*L^-2*T^2 + M^2*PR1 - 1/4*M^-2*MM^2 + 1/4*M^-2*PR1*MM^4
   + 1/4*M^-2*T^2 + PR1*MM^2 ) + 0.
 
	B     GG
	Z     DIA = DIAW + DIAH
	*end

Terms in output 54
Running time 18 sec			Used	Maximum
Generated terms 70 	Input space 	1184 	100996
Equal terms 11     	Output space 	1422 	249004
Cancellations 5   	Nr of expr.  	11 	255
Multiplications 212	String space 	0 	4096
Records written 2 	Merging		0 	0

 
DIA = 
 + D(IA,IB)*D(IC,ID)*GG^2
  * ( - 1/2 + 2*L^2*PROP1 + 2*L^2*PROP2 - 5/2*L^-4*M^4 + 5/4*L^-4*M^6
  *PROP1 + 5/4*L^-4*M^6*PROP2 - 2*L^-2*M^2 + 7/2*L^-2*M^4*PROP1
  + 7/2*L^-2*M^4*PROP2 + 5/4*M^2*PROP1 + 5/4*M^2*PROP2 + M^2*PR3
  - 1/4*M^-2*MM^2 + 1/4*M^-2*PR3*MM^4 - PR3*MM^2 )
 
 + D(IA,IC)*D(IB,ID)*GG^2
  * ( 1/2 - 2*L^2*PROP1 - 1/4*L^-4*M^2*MM^2 + 1/4*L^-4*M^2*PR2*MM^4
   - 3/2*L^-4*M^2*T^2 + 5/4*L^-4*M^4 - 5/4*L^-4*M^6*PROP1
  - 1/2*L^-2*MM^2 + 7/2*L^-2*M^2 + L^-2*M^2*PR2*MM^2 - 7/2*L^-2*M^4
  *PROP1 + 1/2*L^-2*PR2*MM^4 + L^-2*T^2 - 5/4*M^2*PROP1 + 27/4*M^2
  *PROP3 + M^2*PR2 - 1/4*M^-2*MM^2 + 1/4*M^-2*PR2*MM^4 + 9/2*PROP3
  *T^2 + PR2*MM^2 )
 
 + D(IA,ID)*D(IB,IC)*GG^2
  * ( - 2*L^2*PROP2 - 1/4*L^-4*M^2*MM^2 + 1/4*L^-4*M^2*PR1*MM^4
  + 3/2*L^-4*M^2*T^2 + 5/4*L^-4*M^4 - 5/4*L^-4*M^6*PROP2 - 1/2*L^-2
  *MM^2 - 5/2*L^-2*M^2 + L^-2*M^2*PR1*MM^2 - 7/2*L^-2*M^4*PROP2
  + 1/2*L^-2*PR1*MM^4 - L^-2*T^2 - 5/4*M^2*PROP2 - 27/4*M^2*PROP3
  + M^2*PR1 - 1/4*M^-2*MM^2 + 1/4*M^-2*PR1*MM^4 - 9/2*PROP3*T^2
  + PR1*MM^2 ) + 0.
 

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


C Vectors 9. Vector boson box diagram.

> P stats
	B  QDP1,QDP2,QDP3,QDP4,QDQ
	V     Q,P1,P2,P3,P4
	Z      BOX=(D(MU,LA)*(P1(KA)-Q(KA)) + D(KA,LA)*(2*Q(MU)+P1(MU))
	        + D(MU,KA)*(-Q(LA)-2*P1(LA)))
	       *(D(NU,KA)*(P2(JD)-P1(JD)-Q(JD))
	        + D(JD,KA)*(2*Q(NU)+2*P1(NU)+P2(NU))
	        + D(NU,JD)*(-Q(KA)-P1(KA)-2*P2(KA)))
	      *(D(JA,JD)*(2*P3(JE)+P4(JE)-Q(JE))
	        + D(JE,JD)*(2*Q(JA)-P3(JA)-2*P4(JA))
	        + D(JA,JE)*(-Q(JD)+P4(JD)-P3(JD)))
	      *(D(JB,JE)*(2*P4(LA)-Q(LA))
	        + D(LA,JE)*(2*Q(JB)-P4(JB))
	        + D(JB,LA)*(-Q(JE)-P4(JE)))
L 1	Al,Multi,P2DP2=-M2
L 3	Id,Multi,P1DP1=-M2
L 3	Al,Multi,P3DP3=-M2
L 3	Al,Multi,P4DP4=-M2
	*end

Terms in output 934
Running time 4 sec			Used	Maximum
Generated terms 2916 	Input space 	1540 	100000
Equal terms 1661     	Output space 	44498 	250000
Cancellations 321   	Nr of expr.  	16 	255
Multiplications 15225	String space 	0 	4096
Records written 0 	Merging		0 	0

 
BOX = 
 + 34*Q(MU)*Q(NU)*Q(JA)*Q(JB)
 
 + 2*Q(MU)*Q(NU)*Q(JA)*P1(JB)
 
 + 2*Q(MU)*Q(NU)*Q(JA)*P2(JB)
 
 + 2*Q(MU)*Q(NU)*Q(JA)*P3(JB)
 
 - 15*Q(MU)*Q(NU)*Q(JA)*P4(JB)
 
 + 7*Q(MU)*Q(NU)*P1(JA)*Q(JB)
 
 - 2*Q(MU)*Q(NU)*P1(JA)*P3(JB)
 
 - 4*Q(MU)*Q(NU)*P1(JA)*P4(JB)
 
 + 7*Q(MU)*Q(NU)*P2(JA)*Q(JB)
 
 - 2*Q(MU)*Q(NU)*P2(JA)*P3(JB)
 
 - 4*Q(MU)*Q(NU)*P2(JA)*P4(JB)
 
 - 10*Q(MU)*Q(NU)*P3(JA)*Q(JB)
 
 - 3*Q(MU)*Q(NU)*P3(JA)*P1(JB)
 
 - 3*Q(MU)*Q(NU)*P3(JA)*P2(JB)
 
 + 2*Q(MU)*Q(NU)*P3(JA)*P4(JB)
 
 - 27*Q(MU)*Q(NU)*P4(JA)*Q(JB)
 
 - 10*Q(MU)*Q(NU)*P4(JA)*P1(JB)
 
 - 10*Q(MU)*Q(NU)*P4(JA)*P2(JB)
 
 + 20*Q(MU)*Q(NU)*P4(JA)*P3(JB)
 
 + 8*Q(MU)*Q(NU)*P4(JA)*P4(JB)
 
 + 27*Q(MU)*P1(NU)*Q(JA)*Q(JB)
 
 + 2*Q(MU)*P1(NU)*Q(JA)*P1(JB)
 
 - 2*Q(MU)*P1(NU)*Q(JA)*P2(JB)
 
 + 2*Q(MU)*P1(NU)*Q(JA)*P3(JB)
 
 - 12*Q(MU)*P1(NU)*Q(JA)*P4(JB)
 
 + 7*Q(MU)*P1(NU)*P1(JA)*Q(JB)
 
 - 2*Q(MU)*P1(NU)*P1(JA)*P3(JB)
 
 - 4*Q(MU)*P1(NU)*P1(JA)*P4(JB)
 
 - Q(MU)*P1(NU)*P2(JA)*Q(JB)
 
 - 2*Q(MU)*P1(NU)*P2(JA)*P3(JB)
 
 - 7*Q(MU)*P1(NU)*P3(JA)*Q(JB)
 
 - 3*Q(MU)*P1(NU)*P3(JA)*P1(JB)
 
 + Q(MU)*P1(NU)*P3(JA)*P2(JB)
 
 + Q(MU)*P1(NU)*P3(JA)*P4(JB)
 
 - 20*Q(MU)*P1(NU)*P4(JA)*Q(JB)
 
 - 10*Q(MU)*P1(NU)*P4(JA)*P1(JB)
 
 + 2*Q(MU)*P1(NU)*P4(JA)*P2(JB)
 
 + 20*Q(MU)*P1(NU)*P4(JA)*P3(JB)
 
 + 6*Q(MU)*P1(NU)*P4(JA)*P4(JB)
 
 + 10*Q(MU)*P2(NU)*Q(JA)*Q(JB)
 
 - 5*Q(MU)*P2(NU)*Q(JA)*P4(JB)
 
 + 3*Q(MU)*P2(NU)*P1(JA)*Q(JB)
 
 - 2*Q(MU)*P2(NU)*P1(JA)*P3(JB)
 
 - 2*Q(MU)*P2(NU)*P1(JA)*P4(JB)
 
 - 2*Q(MU)*P2(NU)*P3(JA)*Q(JB)
 
 - Q(MU)*P2(NU)*P3(JA)*P1(JB)
 
 - 7*Q(MU)*P2(NU)*P4(JA)*Q(JB)
 
 - 4*Q(MU)*P2(NU)*P4(JA)*P1(JB)
 
 + 10*Q(MU)*P2(NU)*P4(JA)*P3(JB)
 
 + 2*Q(MU)*P2(NU)*P4(JA)*P4(JB)
 
 - 7*Q(MU)*P3(NU)*Q(JA)*Q(JB)
 
 - 4*Q(MU)*P3(NU)*Q(JA)*P2(JB)
 
 + 3*Q(MU)*P3(NU)*Q(JA)*P4(JB)
 
 - 8*Q(MU)*P3(NU)*P1(JA)*Q(JB)
 
 + 4*Q(MU)*P3(NU)*P1(JA)*P4(JB)
 
 + 16*Q(MU)*P3(NU)*P2(JA)*Q(JB)
 
 - 8*Q(MU)*P3(NU)*P2(JA)*P4(JB)
 
 - Q(MU)*P3(NU)*P4(JA)*Q(JB)
 
 - 4*Q(MU)*P3(NU)*P4(JA)*P2(JB)
 
 - 7*Q(MU)*P4(NU)*Q(JA)*Q(JB)
 
 - 8*Q(MU)*P4(NU)*Q(JA)*P1(JB)
 
 + 20*Q(MU)*P4(NU)*Q(JA)*P2(JB)
 
 - 8*Q(MU)*P4(NU)*Q(JA)*P3(JB)
 
 - Q(MU)*P4(NU)*Q(JA)*P4(JB)
 
 - 8*Q(MU)*P4(NU)*P1(JA)*P3(JB)
 
 - 2*Q(MU)*P4(NU)*P1(JA)*P4(JB)
 
 - 8*Q(MU)*P4(NU)*P2(JA)*Q(JB)
 
 + 8*Q(MU)*P4(NU)*P2(JA)*P3(JB)
 
 + 6*Q(MU)*P4(NU)*P2(JA)*P4(JB)
 
 + 3*Q(MU)*P4(NU)*P3(JA)*Q(JB)
 
 + 4*Q(MU)*P4(NU)*P3(JA)*P1(JB)
 
 - 8*Q(MU)*P4(NU)*P3(JA)*P2(JB)
 
 + 7*Q(MU)*P4(NU)*P4(JA)*Q(JB)
 
 + 8*Q(MU)*P4(NU)*P4(JA)*P1(JB)
 
 - 12*Q(MU)*P4(NU)*P4(JA)*P2(JB)
 
 + 15*P1(MU)*Q(NU)*Q(JA)*Q(JB)
 
 + P1(MU)*Q(NU)*Q(JA)*P1(JB)
 
 - 8*P1(MU)*Q(NU)*Q(JA)*P4(JB)
 
 - P1(MU)*Q(NU)*P1(JA)*Q(JB)
 
 + 2*P1(MU)*Q(NU)*P1(JA)*P3(JB)
 
 + P1(MU)*Q(NU)*P1(JA)*P4(JB)
 
 + 3*P1(MU)*Q(NU)*P2(JA)*Q(JB)
 
 - 2*P1(MU)*Q(NU)*P2(JA)*P3(JB)
 
 - 2*P1(MU)*Q(NU)*P2(JA)*P4(JB)
 
 - 5*P1(MU)*Q(NU)*P3(JA)*Q(JB)
 
 - P1(MU)*Q(NU)*P3(JA)*P2(JB)
 
 + 2*P1(MU)*Q(NU)*P3(JA)*P4(JB)
 
 - 12*P1(MU)*Q(NU)*P4(JA)*Q(JB)
 
 + P1(MU)*Q(NU)*P4(JA)*P1(JB)
 
 - 4*P1(MU)*Q(NU)*P4(JA)*P2(JB)
 
 + 10*P1(MU)*Q(NU)*P4(JA)*P3(JB)
 
 + 6*P1(MU)*Q(NU)*P4(JA)*P4(JB)
 
 + 8*P1(MU)*P1(NU)*Q(JA)*Q(JB)
 
 - 2*P1(MU)*P1(NU)*Q(JA)*P3(JB)
 
 - 6*P1(MU)*P1(NU)*Q(JA)*P4(JB)
 
 - 2*P1(MU)*P1(NU)*P3(JA)*Q(JB)
 
 + P1(MU)*P1(NU)*P3(JA)*P4(JB)
 
 - 6*P1(MU)*P1(NU)*P4(JA)*Q(JB)
 
 + 10*P1(MU)*P1(NU)*P4(JA)*P3(JB)
 
 + 4*P1(MU)*P1(NU)*P4(JA)*P4(JB)
 
 + 2*P1(MU)*P2(NU)*Q(JA)*Q(JB)
 
 - P1(MU)*P2(NU)*Q(JA)*P3(JB)
 
 - 2*P1(MU)*P2(NU)*Q(JA)*P4(JB)
 
 - P1(MU)*P2(NU)*P4(JA)*Q(JB)
 
 + 5*P1(MU)*P2(NU)*P4(JA)*P3(JB)
 
 + P1(MU)*P2(NU)*P4(JA)*P4(JB)
 
 - 4*P1(MU)*P3(NU)*Q(JA)*Q(JB)
 
 + P1(MU)*P3(NU)*Q(JA)*P1(JB)
 
 - 2*P1(MU)*P3(NU)*Q(JA)*P2(JB)
 
 + 2*P1(MU)*P3(NU)*Q(JA)*P4(JB)
 
 - 6*P1(MU)*P3(NU)*P1(JA)*Q(JB)
 
 + 3*P1(MU)*P3(NU)*P1(JA)*P4(JB)
 
 + 8*P1(MU)*P3(NU)*P2(JA)*Q(JB)
 
 - 4*P1(MU)*P3(NU)*P2(JA)*P4(JB)
 
 + P1(MU)*P3(NU)*P4(JA)*P1(JB)
 
 - 2*P1(MU)*P3(NU)*P4(JA)*P2(JB)
 
 - 4*P1(MU)*P4(NU)*Q(JA)*Q(JB)
 
 - 7*P1(MU)*P4(NU)*Q(JA)*P1(JB)
 
 + 10*P1(MU)*P4(NU)*Q(JA)*P2(JB)
 
 - 4*P1(MU)*P4(NU)*Q(JA)*P3(JB)
 
 - P1(MU)*P4(NU)*Q(JA)*P4(JB)
 
 + 2*P1(MU)*P4(NU)*P1(JA)*Q(JB)
 
 - 4*P1(MU)*P4(NU)*P1(JA)*P3(JB)
 
 - 2*P1(MU)*P4(NU)*P1(JA)*P4(JB)
 
 - 4*P1(MU)*P4(NU)*P2(JA)*Q(JB)
 
 + 4*P1(MU)*P4(NU)*P2(JA)*P3(JB)
 
 + 3*P1(MU)*P4(NU)*P2(JA)*P4(JB)
 
 + 2*P1(MU)*P4(NU)*P3(JA)*Q(JB)
 
 + 3*P1(MU)*P4(NU)*P3(JA)*P1(JB)
 
 - 4*P1(MU)*P4(NU)*P3(JA)*P2(JB)
 
 + 4*P1(MU)*P4(NU)*P4(JA)*Q(JB)
 
 + 5*P1(MU)*P4(NU)*P4(JA)*P1(JB)
 
 - 6*P1(MU)*P4(NU)*P4(JA)*P2(JB)
 
 - 2*P2(MU)*Q(NU)*Q(JA)*Q(JB)
 
 - 4*P2(MU)*Q(NU)*Q(JA)*P1(JB)
 
 - 8*P2(MU)*Q(NU)*P1(JA)*Q(JB)
 
 + 4*P2(MU)*Q(NU)*P1(JA)*P4(JB)
 
 + 4*P2(MU)*Q(NU)*P3(JA)*P1(JB)
 
 + P2(MU)*Q(NU)*P3(JA)*P4(JB)
 
 + 2*P2(MU)*Q(NU)*P4(JA)*Q(JB)
 
 + 12*P2(MU)*Q(NU)*P4(JA)*P1(JB)
 
 + 2*P2(MU)*Q(NU)*P4(JA)*P4(JB)
 
 + 20*P2(MU)*P1(NU)*Q(JA)*Q(JB)
 
 - 10*P2(MU)*P1(NU)*Q(JA)*P4(JB)
 
 - 10*P2(MU)*P1(NU)*P3(JA)*Q(JB)
 
 + 5*P2(MU)*P1(NU)*P3(JA)*P4(JB)
 
 - 20*P2(MU)*P1(NU)*P4(JA)*Q(JB)
 
 + 10*P2(MU)*P1(NU)*P4(JA)*P4(JB)
 
 - 2*P2(MU)*P3(NU)*Q(JA)*Q(JB)
 
 + 4*P2(MU)*P3(NU)*Q(JA)*P1(JB)
 
 + 2*P2(MU)*P3(NU)*Q(JA)*P4(JB)
 
 - 8*P2(MU)*P3(NU)*P1(JA)*Q(JB)
 
 + 4*P2(MU)*P3(NU)*P1(JA)*P4(JB)
 
 + 2*P2(MU)*P3(NU)*P4(JA)*Q(JB)
 
 + 4*P2(MU)*P3(NU)*P4(JA)*P1(JB)
 
 - 2*P2(MU)*P4(NU)*Q(JA)*Q(JB)
 
 - 12*P2(MU)*P4(NU)*Q(JA)*P1(JB)
 
 - 2*P2(MU)*P4(NU)*Q(JA)*P4(JB)
 
 + 8*P2(MU)*P4(NU)*P1(JA)*Q(JB)
 
 - 4*P2(MU)*P4(NU)*P1(JA)*P4(JB)
 
 + 2*P2(MU)*P4(NU)*P3(JA)*Q(JB)
 
 + 4*P2(MU)*P4(NU)*P3(JA)*P1(JB)
 
 + 2*P2(MU)*P4(NU)*P4(JA)*Q(JB)
 
 + 4*P2(MU)*P4(NU)*P4(JA)*P1(JB)
 
 - 2*P3(MU)*Q(NU)*Q(JA)*Q(JB)
 
 - 4*P3(MU)*Q(NU)*Q(JA)*P1(JB)
 
 + 20*P3(MU)*Q(NU)*P1(JA)*Q(JB)
 
 - 10*P3(MU)*Q(NU)*P1(JA)*P4(JB)
 
 - 4*P3(MU)*Q(NU)*P2(JA)*Q(JB)
 
 + 2*P3(MU)*Q(NU)*P2(JA)*P4(JB)
 
 - 2*P3(MU)*Q(NU)*P4(JA)*Q(JB)
 
 - 4*P3(MU)*Q(NU)*P4(JA)*P1(JB)
 
 - 10*P3(MU)*P1(NU)*Q(JA)*Q(JB)
 
 - 4*P3(MU)*P1(NU)*Q(JA)*P1(JB)
 
 + 4*P3(MU)*P1(NU)*Q(JA)*P4(JB)
 
 + 12*P3(MU)*P1(NU)*P1(JA)*Q(JB)
 
 - 6*P3(MU)*P1(NU)*P1(JA)*P4(JB)
 
 + 4*P3(MU)*P1(NU)*P2(JA)*Q(JB)
 
 - 2*P3(MU)*P1(NU)*P2(JA)*P4(JB)
 
 - 2*P3(MU)*P1(NU)*P4(JA)*Q(JB)
 
 - 4*P3(MU)*P1(NU)*P4(JA)*P1(JB)
 
 - 3*P3(MU)*P2(NU)*Q(JA)*Q(JB)
 
 - 2*P3(MU)*P2(NU)*Q(JA)*P1(JB)
 
 + P3(MU)*P2(NU)*Q(JA)*P4(JB)
 
 + 8*P3(MU)*P2(NU)*P1(JA)*Q(JB)
 
 - 4*P3(MU)*P2(NU)*P1(JA)*P4(JB)
 
 - P3(MU)*P2(NU)*P4(JA)*Q(JB)
 
 - 2*P3(MU)*P2(NU)*P4(JA)*P1(JB)
 
 - 2*P4(MU)*Q(NU)*Q(JA)*Q(JB)
 
 + 24*P4(MU)*Q(NU)*Q(JA)*P1(JB)
 
 - 4*P4(MU)*Q(NU)*Q(JA)*P2(JB)
 
 - 4*P4(MU)*Q(NU)*Q(JA)*P3(JB)
 
 + P4(MU)*Q(NU)*Q(JA)*P4(JB)
 
 - 8*P4(MU)*Q(NU)*P1(JA)*Q(JB)
 
 + 12*P4(MU)*Q(NU)*P1(JA)*P3(JB)
 
 + 7*P4(MU)*Q(NU)*P1(JA)*P4(JB)
 
 - 4*P4(MU)*Q(NU)*P2(JA)*P3(JB)
 
 - P4(MU)*Q(NU)*P2(JA)*P4(JB)
 
 - 10*P4(MU)*Q(NU)*P3(JA)*P1(JB)
 
 + 2*P4(MU)*Q(NU)*P3(JA)*P2(JB)
 
 + 2*P4(MU)*Q(NU)*P4(JA)*Q(JB)
 
 - 16*P4(MU)*Q(NU)*P4(JA)*P1(JB)
 
 + 4*P4(MU)*Q(NU)*P4(JA)*P2(JB)
 
 - 10*P4(MU)*P1(NU)*Q(JA)*Q(JB)
 
 + 16*P4(MU)*P1(NU)*Q(JA)*P1(JB)
 
 + 4*P4(MU)*P1(NU)*Q(JA)*P2(JB)
 
 - 12*P4(MU)*P1(NU)*Q(JA)*P3(JB)
 
 - P4(MU)*P1(NU)*Q(JA)*P4(JB)
 
 - 8*P4(MU)*P1(NU)*P1(JA)*Q(JB)
 
 + 4*P4(MU)*P1(NU)*P1(JA)*P3(JB)
 
 + 5*P4(MU)*P1(NU)*P1(JA)*P4(JB)
 
 + 4*P4(MU)*P1(NU)*P2(JA)*P3(JB)
 
 + P4(MU)*P1(NU)*P2(JA)*P4(JB)
 
 + 4*P4(MU)*P1(NU)*P3(JA)*Q(JB)
 
 - 6*P4(MU)*P1(NU)*P3(JA)*P1(JB)
 
 - 2*P4(MU)*P1(NU)*P3(JA)*P2(JB)
 
 + 10*P4(MU)*P1(NU)*P4(JA)*Q(JB)
 
 - 8*P4(MU)*P1(NU)*P4(JA)*P1(JB)
 
 - 4*P4(MU)*P1(NU)*P4(JA)*P2(JB)
 
 - 3*P4(MU)*P2(NU)*Q(JA)*Q(JB)
 
 + 10*P4(MU)*P2(NU)*Q(JA)*P1(JB)
 
 - 4*P4(MU)*P2(NU)*Q(JA)*P3(JB)
 
 - 4*P4(MU)*P2(NU)*P1(JA)*Q(JB)
 
 + 4*P4(MU)*P2(NU)*P1(JA)*P3(JB)
 
 + 3*P4(MU)*P2(NU)*P1(JA)*P4(JB)
 
 + P4(MU)*P2(NU)*P3(JA)*Q(JB)
 
 - 4*P4(MU)*P2(NU)*P3(JA)*P1(JB)
 
 + 3*P4(MU)*P2(NU)*P4(JA)*Q(JB)
 
 - 6*P4(MU)*P2(NU)*P4(JA)*P1(JB)
 
 + D(MU,NU)*D(JA,JB)
  * ( - 4*P1DP3*P1DP4 + 4*P1DP4*P2DP3 - 4*P1DP4*P2DP4 + 4*P1DP4^2 )
 
 + D(MU,NU)*D(JA,JB)*QDQ
  * ( P1DP3 - 5*P1DP4 - P2DP3 + P2DP4 )
 
 + D(MU,NU)*D(JA,JB)*QDQ^2
 
 + D(MU,NU)*D(JA,JB)*QDP1
  * ( 2*P1DP3 - 6*P1DP4 - 2*P2DP3 + 2*P2DP4 )
 
 + 3*D(MU,NU)*D(JA,JB)*QDP1*QDQ
 
 - 2*D(MU,NU)*D(JA,JB)*QDP1*QDP2
 
 + 2*D(MU,NU)*D(JA,JB)*QDP1*QDP3
 
 - 4*D(MU,NU)*D(JA,JB)*QDP1*QDP4
 
 + 2*D(MU,NU)*D(JA,JB)*QDP1^2
 
 + D(MU,NU)*D(JA,JB)*QDP2
  * ( 4*P1DP4 )
 
 - D(MU,NU)*D(JA,JB)*QDP2*QDQ
 
 + 2*D(MU,NU)*D(JA,JB)*QDP2*QDP4
 
 + D(MU,NU)*D(JA,JB)*QDP3
  * ( - 4*P1DP4 )
 
 + D(MU,NU)*D(JA,JB)*QDP3*QDQ
 
 - 2*D(MU,NU)*D(JA,JB)*QDP3*QDP4
 
 + D(MU,NU)*D(JA,JB)*QDP4
  * ( - 2*P1DP3 + 6*P1DP4 + 2*P2DP3 - 2*P2DP4 )
 
 - 3*D(MU,NU)*D(JA,JB)*QDP4*QDQ
 
 + 2*D(MU,NU)*D(JA,JB)*QDP4^2
 
 + D(MU,NU)*Q(JA)*Q(JB)
  * ( - 3*M2 - 16*P1DP2 + 7*P1DP3 + 7*P1DP4 + P2DP3 + P2DP4
  - 2*P3DP4 )
 
 + 3*D(MU,NU)*Q(JA)*Q(JB)*QDQ
 
 + 3*D(MU,NU)*Q(JA)*Q(JB)*QDP1
 
 + 7*D(MU,NU)*Q(JA)*Q(JB)*QDP2
 
 + D(MU,NU)*Q(JA)*Q(JB)*QDP3
 
 + 3*D(MU,NU)*Q(JA)*Q(JB)*QDP4
 
 + D(MU,NU)*Q(JA)*P1(JB)
  * ( 2*M2 + 2*P1DP3 + 2*P1DP4 - 2*P2DP3 + 6*P2DP4 - 4*P3DP4 )
 
 - 2*D(MU,NU)*Q(JA)*P1(JB)*QDQ
 
 - 6*D(MU,NU)*Q(JA)*P1(JB)*QDP1
 
 + 2*D(MU,NU)*Q(JA)*P1(JB)*QDP2
 
 - 2*D(MU,NU)*Q(JA)*P1(JB)*QDP3
 
 - 2*D(MU,NU)*Q(JA)*P1(JB)*QDP4
 
 + D(MU,NU)*Q(JA)*P2(JB)
  * ( - 8*P1DP4 )
 
 + 2*D(MU,NU)*Q(JA)*P2(JB)*QDQ
 
 + 4*D(MU,NU)*Q(JA)*P2(JB)*QDP1
 
 - 4*D(MU,NU)*Q(JA)*P2(JB)*QDP4
 
 + D(MU,NU)*Q(JA)*P3(JB)
  * ( 8*P1DP4 )
 
 - 2*D(MU,NU)*Q(JA)*P3(JB)*QDQ
 
 - 4*D(MU,NU)*Q(JA)*P3(JB)*QDP1
 
 + 4*D(MU,NU)*Q(JA)*P3(JB)*QDP4
 
 + D(MU,NU)*Q(JA)*P4(JB)
  * ( 2*M2 + 8*P1DP2 - 3*P1DP3 + P1DP4 - P2DP3 + P2DP4 )
 
 - 3*D(MU,NU)*Q(JA)*P4(JB)*QDQ
 
 - 5*D(MU,NU)*Q(JA)*P4(JB)*QDP1
 
 - 3*D(MU,NU)*Q(JA)*P4(JB)*QDP2
 
 - D(MU,NU)*Q(JA)*P4(JB)*QDP3
 
 + D(MU,NU)*P1(JA)*Q(JB)
  * ( M2 + 4*P1DP3 + 4*P1DP4 + 4*P2DP3 - 4*P2DP4 - 2*P3DP4 )
 
 - 4*D(MU,NU)*P1(JA)*Q(JB)*QDQ
 
 - 6*D(MU,NU)*P1(JA)*Q(JB)*QDP1
 
 + 4*D(MU,NU)*P1(JA)*Q(JB)*QDP2
 
 - 2*D(MU,NU)*P1(JA)*Q(JB)*QDP3
 
 + 4*D(MU,NU)*P1(JA)*Q(JB)*QDP4
 
 + D(MU,NU)*P1(JA)*P1(JB)
  * ( 2*M2 - 4*P3DP4 )
 
 + 2*D(MU,NU)*P1(JA)*P1(JB)*QDQ
 
 - 4*D(MU,NU)*P1(JA)*P1(JB)*QDP3
 
 + D(MU,NU)*P1(JA)*P3(JB)
  * ( 8*P1DP4 )
 
 - 2*D(MU,NU)*P1(JA)*P3(JB)*QDQ
 
 - 4*D(MU,NU)*P1(JA)*P3(JB)*QDP1
 
 + 4*D(MU,NU)*P1(JA)*P3(JB)*QDP4
 
 + D(MU,NU)*P1(JA)*P4(JB)
  * ( - 2*P1DP3 - 2*P2DP3 + 2*P2DP4 )
 
 + 2*D(MU,NU)*P1(JA)*P4(JB)*QDQ
 
 + 2*D(MU,NU)*P1(JA)*P4(JB)*QDP1
 
 - 2*D(MU,NU)*P1(JA)*P4(JB)*QDP2
 
 - D(MU,NU)*P1(JA)*P4(JB)*QDP4
 
 + D(MU,NU)*P2(JA)*Q(JB)
  * ( - M2 - 8*P1DP3 + 2*P3DP4 )
 
 + 2*D(MU,NU)*P2(JA)*Q(JB)*QDP1
 
 - 2*D(MU,NU)*P2(JA)*Q(JB)*QDP3
 
 + D(MU,NU)*P2(JA)*P1(JB)
  * ( - 2*M2 + 4*P3DP4 )
 
 - 2*D(MU,NU)*P2(JA)*P1(JB)*QDQ
 
 + 4*D(MU,NU)*P2(JA)*P1(JB)*QDP3
 
 + D(MU,NU)*P2(JA)*P3(JB)
  * ( - 8*P1DP4 )
 
 + 2*D(MU,NU)*P2(JA)*P3(JB)*QDQ
 
 + 4*D(MU,NU)*P2(JA)*P3(JB)*QDP1
 
 - 4*D(MU,NU)*P2(JA)*P3(JB)*QDP4
 
 + D(MU,NU)*P2(JA)*P4(JB)
  * ( 4*P1DP3 - 2*P1DP4 )
 
 + 2*D(MU,NU)*P2(JA)*P4(JB)*QDP3
 
 - D(MU,NU)*P2(JA)*P4(JB)*QDP4
 
 + D(MU,NU)*P3(JA)*Q(JB)
  * ( 2*M2 + 8*P1DP2 - 3*P1DP4 - P2DP4 )
 
 - 2*D(MU,NU)*P3(JA)*Q(JB)*QDQ
 
 - 3*D(MU,NU)*P3(JA)*Q(JB)*QDP1
 
 - 3*D(MU,NU)*P3(JA)*Q(JB)*QDP2
 
 - D(MU,NU)*P3(JA)*Q(JB)*QDP4
 
 + D(MU,NU)*P3(JA)*P1(JB)
  * ( - 2*P1DP4 - 2*P2DP4 )
 
 + 3*D(MU,NU)*P3(JA)*P1(JB)*QDQ
 
 + 4*D(MU,NU)*P3(JA)*P1(JB)*QDP1
 
 - 2*D(MU,NU)*P3(JA)*P1(JB)*QDP2
 
 + D(MU,NU)*P3(JA)*P2(JB)
  * ( 4*P1DP4 )
 
 - D(MU,NU)*P3(JA)*P2(JB)*QDQ
 
 - 2*D(MU,NU)*P3(JA)*P2(JB)*QDP1
 
 + 2*D(MU,NU)*P3(JA)*P2(JB)*QDP4
 
 + D(MU,NU)*P3(JA)*P4(JB)
  * ( - M2 - 4*P1DP2 )
 
 + 2*D(MU,NU)*P3(JA)*P4(JB)*QDQ
 
 + 3*D(MU,NU)*P3(JA)*P4(JB)*QDP1
 
 + D(MU,NU)*P3(JA)*P4(JB)*QDP2
 
 + D(MU,NU)*P4(JA)*Q(JB)
  * ( 4*M2 + 16*P1DP2 + P1DP3 - 7*P1DP4 - P2DP3 - P2DP4 )
 
 - 3*D(MU,NU)*P4(JA)*Q(JB)*QDQ
 
 - 5*D(MU,NU)*P4(JA)*Q(JB)*QDP1
 
 - 7*D(MU,NU)*P4(JA)*Q(JB)*QDP2
 
 + D(MU,NU)*P4(JA)*Q(JB)*QDP3
 
 - 3*D(MU,NU)*P4(JA)*Q(JB)*QDP4
 
 + D(MU,NU)*P4(JA)*P1(JB)
  * ( 2*P1DP3 - 6*P1DP4 - 2*P2DP3 - 2*P2DP4 )
 
 + 8*D(MU,NU)*P4(JA)*P1(JB)*QDQ
 
 + 10*D(MU,NU)*P4(JA)*P1(JB)*QDP1
 
 - 6*D(MU,NU)*P4(JA)*P1(JB)*QDP2
 
 + 2*D(MU,NU)*P4(JA)*P1(JB)*QDP3
 
 - 2*D(MU,NU)*P4(JA)*P1(JB)*QDP4
 
 + D(MU,NU)*P4(JA)*P2(JB)
  * ( 8*P1DP4 )
 
 - 2*D(MU,NU)*P4(JA)*P2(JB)*QDQ
 
 - 4*D(MU,NU)*P4(JA)*P2(JB)*QDP1
 
 + 4*D(MU,NU)*P4(JA)*P2(JB)*QDP4
 
 + D(MU,NU)*P4(JA)*P4(JB)
  * ( - 2*M2 - 8*P1DP2 )
 
 + 4*D(MU,NU)*P4(JA)*P4(JB)*QDQ
 
 + 6*D(MU,NU)*P4(JA)*P4(JB)*QDP1
 
 + 2*D(MU,NU)*P4(JA)*P4(JB)*QDP2
 
 + D(MU,JA)*Q(NU)*Q(JB)
  * ( - 4*M2 + 4*P1DP2 - 22*P1DP3 + 6*P1DP4 + 2*P2DP3 - 2*P2DP4
  + 4*P3DP4 )
 
 - 2*D(MU,JA)*Q(NU)*Q(JB)*QDP1
 
 - 2*D(MU,JA)*Q(NU)*Q(JB)*QDP2
 
 - 2*D(MU,JA)*Q(NU)*Q(JB)*QDP3
 
 - 2*D(MU,JA)*Q(NU)*Q(JB)*QDP4
 
 + D(MU,JA)*Q(NU)*P1(JB)
  * ( - 4*M2 + 8*P3DP4 )
 
 - 4*D(MU,JA)*Q(NU)*P1(JB)*QDQ
 
 + 8*D(MU,JA)*Q(NU)*P1(JB)*QDP3
 
 + D(MU,JA)*Q(NU)*P3(JB)
  * ( - 16*P1DP4 )
 
 + 4*D(MU,JA)*Q(NU)*P3(JB)*QDQ
 
 + 8*D(MU,JA)*Q(NU)*P3(JB)*QDP1
 
 - 8*D(MU,JA)*Q(NU)*P3(JB)*QDP4
 
 + D(MU,JA)*Q(NU)*P4(JB)
  * ( M2 - 2*P1DP2 + 11*P1DP3 - 7*P1DP4 - P2DP3 + P2DP4 )
 
 + 3*D(MU,JA)*Q(NU)*P4(JB)*QDP1
 
 + D(MU,JA)*Q(NU)*P4(JB)*QDP2
 
 + 3*D(MU,JA)*Q(NU)*P4(JB)*QDP3
 
 - D(MU,JA)*Q(NU)*P4(JB)*QDP4
 
 + D(MU,JA)*P1(NU)*Q(JB)
  * ( - 2*M2 - 18*P1DP3 + 2*P1DP4 - 2*P2DP3 + 2*P2DP4 + 4*P3DP4 )
 
 + 6*D(MU,JA)*P1(NU)*Q(JB)*QDQ
 
 + 2*D(MU,JA)*P1(NU)*Q(JB)*QDP1
 
 - 2*D(MU,JA)*P1(NU)*Q(JB)*QDP2
 
 + 2*D(MU,JA)*P1(NU)*Q(JB)*QDP3
 
 - 6*D(MU,JA)*P1(NU)*Q(JB)*QDP4
 
 + D(MU,JA)*P1(NU)*P1(JB)
  * ( - 4*M2 + 8*P3DP4 )
 
 - 4*D(MU,JA)*P1(NU)*P1(JB)*QDQ
 
 + 8*D(MU,JA)*P1(NU)*P1(JB)*QDP3
 
 + D(MU,JA)*P1(NU)*P3(JB)
  * ( - 16*P1DP4 )
 
 + 4*D(MU,JA)*P1(NU)*P3(JB)*QDQ
 
 + 8*D(MU,JA)*P1(NU)*P3(JB)*QDP1
 
 - 8*D(MU,JA)*P1(NU)*P3(JB)*QDP4
 
 + D(MU,JA)*P1(NU)*P4(JB)
  * ( 9*P1DP3 - 5*P1DP4 + P2DP3 - P2DP4 )
 
 - 3*D(MU,JA)*P1(NU)*P4(JB)*QDQ
 
 + D(MU,JA)*P1(NU)*P4(JB)*QDP1
 
 + D(MU,JA)*P1(NU)*P4(JB)*QDP2
 
 + D(MU,JA)*P1(NU)*P4(JB)*QDP3
 
 + D(MU,JA)*P1(NU)*P4(JB)*QDP4
 
 + D(MU,JA)*P2(NU)*Q(JB)
  * ( - M2 - 10*P1DP3 + 2*P1DP4 + 2*P3DP4 )
 
 + 2*D(MU,JA)*P2(NU)*Q(JB)*QDQ
 
 - 2*D(MU,JA)*P2(NU)*Q(JB)*QDP4
 
 + D(MU,JA)*P2(NU)*P1(JB)
  * ( - 2*M2 + 4*P3DP4 )
 
 - 2*D(MU,JA)*P2(NU)*P1(JB)*QDQ
 
 + 4*D(MU,JA)*P2(NU)*P1(JB)*QDP3
 
 + D(MU,JA)*P2(NU)*P3(JB)
  * ( - 8*P1DP4 )
 
 + 2*D(MU,JA)*P2(NU)*P3(JB)*QDQ
 
 + 4*D(MU,JA)*P2(NU)*P3(JB)*QDP1
 
 - 4*D(MU,JA)*P2(NU)*P3(JB)*QDP4
 
 + D(MU,JA)*P2(NU)*P4(JB)
  * ( 5*P1DP3 - 3*P1DP4 )
 
 - D(MU,JA)*P2(NU)*P4(JB)*QDQ
 
 + D(MU,JA)*P2(NU)*P4(JB)*QDP1
 
 + D(MU,JA)*P2(NU)*P4(JB)*QDP3
 
 + D(MU,JA)*P3(NU)*Q(JB)
  * ( - 2*M2 + 4*P1DP2 )
 
 - 2*D(MU,JA)*P3(NU)*Q(JB)*QDQ
 
 - 4*D(MU,JA)*P3(NU)*Q(JB)*QDP2
 
 + D(MU,JA)*P3(NU)*P4(JB)
  * ( M2 - 2*P1DP2 )
 
 + D(MU,JA)*P3(NU)*P4(JB)*QDQ
 
 + 2*D(MU,JA)*P3(NU)*P4(JB)*QDP2
 
 + D(MU,JA)*P4(NU)*Q(JB)
  * ( 2*M2 - 4*P1DP2 )
 
 + 2*D(MU,JA)*P4(NU)*Q(JB)*QDQ
 
 + 4*D(MU,JA)*P4(NU)*Q(JB)*QDP2
 
 + D(MU,JA)*P4(NU)*P4(JB)
  * ( - M2 + 2*P1DP2 )
 
 - D(MU,JA)*P4(NU)*P4(JB)*QDQ
 
 - 2*D(MU,JA)*P4(NU)*P4(JB)*QDP2
 
 + D(MU,JB)*D(NU,JA)
  * ( - 2*M2*P1DP2 - 2*M2*P3DP4 + M2^2 + 4*P1DP2*P3DP4 )
 
 + D(MU,JB)*D(NU,JA)*QDQ
  * ( 2*M2 - 2*P1DP2 - 2*P3DP4 )
 
 + D(MU,JB)*D(NU,JA)*QDQ^2
 
 + D(MU,JB)*D(NU,JA)*QDP2
  * ( 2*M2 - 4*P3DP4 )
 
 + 2*D(MU,JB)*D(NU,JA)*QDP2*QDQ
 
 - 4*D(MU,JB)*D(NU,JA)*QDP2*QDP3
 
 + D(MU,JB)*D(NU,JA)*QDP3
  * ( - 2*M2 + 4*P1DP2 )
 
 - 2*D(MU,JB)*D(NU,JA)*QDP3*QDQ
 
 + D(MU,JB)*Q(NU)*Q(JA)
  * ( - 2*M2 + 2*P1DP2 + 3*P1DP3 - 25*P1DP4 - P2DP3 + 3*P2DP4
  + 2*P3DP4 )
 
 + 3*D(MU,JB)*Q(NU)*Q(JA)*QDQ
 
 + 5*D(MU,JB)*Q(NU)*Q(JA)*QDP1
 
 - D(MU,JB)*Q(NU)*Q(JA)*QDP2
 
 + D(MU,JB)*Q(NU)*Q(JA)*QDP3
 
 - 5*D(MU,JB)*Q(NU)*Q(JA)*QDP4
 
 + D(MU,JB)*Q(NU)*P1(JA)
  * ( 3*M2 - 6*P3DP4 )
 
 + 3*D(MU,JB)*Q(NU)*P1(JA)*QDQ
 
 - 6*D(MU,JB)*Q(NU)*P1(JA)*QDP3
 
 + D(MU,JB)*Q(NU)*P2(JA)
  * ( - M2 + 2*P3DP4 )
 
 - D(MU,JB)*Q(NU)*P2(JA)*QDQ
 
 + 2*D(MU,JB)*Q(NU)*P2(JA)*QDP3
 
 + D(MU,JB)*Q(NU)*P3(JA)
  * ( M2 - 2*P1DP2 + 11*P1DP4 - P2DP4 )
 
 - 2*D(MU,JB)*Q(NU)*P3(JA)*QDQ
 
 - D(MU,JB)*Q(NU)*P3(JA)*QDP1
 
 + D(MU,JB)*Q(NU)*P3(JA)*QDP2
 
 + 3*D(MU,JB)*Q(NU)*P3(JA)*QDP4
 
 + D(MU,JB)*Q(NU)*P4(JA)
  * ( 3*M2 - 6*P1DP2 + 3*P1DP3 + 19*P1DP4 - P2DP3 - P2DP4 )
 
 - 4*D(MU,JB)*Q(NU)*P4(JA)*QDQ
 
 + D(MU,JB)*Q(NU)*P4(JA)*QDP1
 
 + 3*D(MU,JB)*Q(NU)*P4(JA)*QDP2
 
 - D(MU,JB)*Q(NU)*P4(JA)*QDP3
 
 + 7*D(MU,JB)*Q(NU)*P4(JA)*QDP4
 
 + D(MU,JB)*P1(NU)*Q(JA)
  * ( - 3*M2 + P1DP3 - 19*P1DP4 + P2DP3 - 3*P2DP4 + 6*P3DP4 )
 
 + 4*D(MU,JB)*P1(NU)*Q(JA)*QDQ
 
 + 7*D(MU,JB)*P1(NU)*Q(JA)*QDP1
 
 - D(MU,JB)*P1(NU)*Q(JA)*QDP2
 
 + 3*D(MU,JB)*P1(NU)*Q(JA)*QDP3
 
 + D(MU,JB)*P1(NU)*Q(JA)*QDP4
 
 + D(MU,JB)*P1(NU)*P1(JA)
  * ( M2 - 2*P3DP4 )
 
 + D(MU,JB)*P1(NU)*P1(JA)*QDQ
 
 - 2*D(MU,JB)*P1(NU)*P1(JA)*QDP3
 
 + D(MU,JB)*P1(NU)*P2(JA)
  * ( M2 - 2*P3DP4 )
 
 + D(MU,JB)*P1(NU)*P2(JA)*QDQ
 
 - 2*D(MU,JB)*P1(NU)*P2(JA)*QDP3
 
 + D(MU,JB)*P1(NU)*P3(JA)
  * ( 9*P1DP4 + P2DP4 )
 
 - 5*D(MU,JB)*P1(NU)*P3(JA)*QDQ
 
 - 3*D(MU,JB)*P1(NU)*P3(JA)*QDP1
 
 + D(MU,JB)*P1(NU)*P3(JA)*QDP2
 
 + D(MU,JB)*P1(NU)*P3(JA)*QDP4
 
 + D(MU,JB)*P1(NU)*P4(JA)
  * ( P1DP3 + 17*P1DP4 + P2DP3 + P2DP4 )
 
 - 13*D(MU,JB)*P1(NU)*P4(JA)*QDQ
 
 - 5*D(MU,JB)*P1(NU)*P4(JA)*QDP1
 
 + 3*D(MU,JB)*P1(NU)*P4(JA)*QDP2
 
 - 3*D(MU,JB)*P1(NU)*P4(JA)*QDP3
 
 + 5*D(MU,JB)*P1(NU)*P4(JA)*QDP4
 
 + D(MU,JB)*P2(NU)*Q(JA)
  * ( - M2 + P1DP3 - 11*P1DP4 + 2*P3DP4 )
 
 + 2*D(MU,JB)*P2(NU)*Q(JA)*QDQ
 
 + 3*D(MU,JB)*P2(NU)*Q(JA)*QDP1
 
 + D(MU,JB)*P2(NU)*Q(JA)*QDP3
 
 - D(MU,JB)*P2(NU)*Q(JA)*QDP4
 
 + D(MU,JB)*P2(NU)*P1(JA)
  * ( M2 - 2*P3DP4 )
 
 + D(MU,JB)*P2(NU)*P1(JA)*QDQ
 
 - 2*D(MU,JB)*P2(NU)*P1(JA)*QDP3
 
 + D(MU,JB)*P2(NU)*P3(JA)
  * ( 5*P1DP4 )
 
 - 2*D(MU,JB)*P2(NU)*P3(JA)*QDQ
 
 - D(MU,JB)*P2(NU)*P3(JA)*QDP1
 
 + D(MU,JB)*P2(NU)*P3(JA)*QDP4
 
 + D(MU,JB)*P2(NU)*P4(JA)
  * ( P1DP3 + 9*P1DP4 )
 
 - 5*D(MU,JB)*P2(NU)*P4(JA)*QDQ
 
 - D(MU,JB)*P2(NU)*P4(JA)*QDP1
 
 - D(MU,JB)*P2(NU)*P4(JA)*QDP3
 
 + 3*D(MU,JB)*P2(NU)*P4(JA)*QDP4
 
 + D(MU,JB)*P3(NU)*Q(JA)
  * ( M2 - 2*P1DP2 )
 
 + D(MU,JB)*P3(NU)*Q(JA)*QDQ
 
 + 2*D(MU,JB)*P3(NU)*Q(JA)*QDP2
 
 + D(MU,JB)*P3(NU)*P4(JA)
  * ( M2 - 2*P1DP2 )
 
 + D(MU,JB)*P3(NU)*P4(JA)*QDQ
 
 + 2*D(MU,JB)*P3(NU)*P4(JA)*QDP2
 
 + D(MU,JB)*P4(NU)*Q(JA)
  * ( - 3*M2 + 6*P1DP2 )
 
 - 3*D(MU,JB)*P4(NU)*Q(JA)*QDQ
 
 - 6*D(MU,JB)*P4(NU)*Q(JA)*QDP2
 
 + D(MU,JB)*P4(NU)*P3(JA)
  * ( M2 - 2*P1DP2 )
 
 + D(MU,JB)*P4(NU)*P3(JA)*QDQ
 
 + 2*D(MU,JB)*P4(NU)*P3(JA)*QDP2
 
 + D(MU,JB)*P4(NU)*P4(JA)
  * ( M2 - 2*P1DP2 )
 
 + D(MU,JB)*P4(NU)*P4(JA)*QDQ
 
 + 2*D(MU,JB)*P4(NU)*P4(JA)*QDP2
 
 + D(NU,JA)*Q(MU)*Q(JB)
  * ( - 2*M2 + 2*P1DP2 + 4*P1DP3 - 4*P1DP4 - 20*P2DP3 + 4*P2DP4
  + 2*P3DP4 )
 
 + 3*D(NU,JA)*Q(MU)*Q(JB)*QDQ
 
 + 4*D(NU,JA)*Q(MU)*Q(JB)*QDP1
 
 - 2*D(NU,JA)*Q(MU)*Q(JB)*QDP2
 
 + 2*D(NU,JA)*Q(MU)*Q(JB)*QDP3
 
 - 4*D(NU,JA)*Q(MU)*Q(JB)*QDP4
 
 + D(NU,JA)*Q(MU)*P2(JB)
  * ( - 4*M2 + 8*P3DP4 )
 
 - 4*D(NU,JA)*Q(MU)*P2(JB)*QDQ
 
 + 8*D(NU,JA)*Q(MU)*P2(JB)*QDP3
 
 + D(NU,JA)*Q(MU)*P3(JB)
  * ( - 2*M2 + 4*P1DP2 - 16*P2DP4 )
 
 + 4*D(NU,JA)*Q(MU)*P3(JB)*QDP2
 
 - 4*D(NU,JA)*Q(MU)*P3(JB)*QDP4
 
 + D(NU,JA)*Q(MU)*P4(JB)
  * ( - 2*P1DP3 + 2*P1DP4 + 10*P2DP3 - 6*P2DP4 )
 
 - 2*D(NU,JA)*Q(MU)*P4(JB)*QDQ
 
 - 2*D(NU,JA)*Q(MU)*P4(JB)*QDP1
 
 + 2*D(NU,JA)*Q(MU)*P4(JB)*QDP2
 
 + D(NU,JA)*Q(MU)*P4(JB)*QDP4
 
 + D(NU,JA)*P1(MU)*Q(JB)
  * ( 6*P1DP3 - 2*P1DP4 - 10*P2DP3 + 2*P2DP4 )
 
 + 2*D(NU,JA)*P1(MU)*Q(JB)*QDQ
 
 + D(NU,JA)*P1(MU)*Q(JB)*QDP1
 
 + 2*D(NU,JA)*P1(MU)*Q(JB)*QDP3
 
 - 2*D(NU,JA)*P1(MU)*Q(JB)*QDP4
 
 + D(NU,JA)*P1(MU)*P1(JB)
  * ( M2 - 2*P3DP4 )
 
 + D(NU,JA)*P1(MU)*P1(JB)*QDQ
 
 - 2*D(NU,JA)*P1(MU)*P1(JB)*QDP3
 
 + D(NU,JA)*P1(MU)*P2(JB)
  * ( - 2*M2 + 4*P3DP4 )
 
 - 2*D(NU,JA)*P1(MU)*P2(JB)*QDQ
 
 + 4*D(NU,JA)*P1(MU)*P2(JB)*QDP3
 
 + D(NU,JA)*P1(MU)*P3(JB)
  * ( 4*P1DP4 - 8*P2DP4 )
 
 - 2*D(NU,JA)*P1(MU)*P3(JB)*QDP1
 
 + 4*D(NU,JA)*P1(MU)*P3(JB)*QDP2
 
 + D(NU,JA)*P1(MU)*P4(JB)
  * ( - 3*P1DP3 + 2*P1DP4 + 5*P2DP3 - 3*P2DP4 )
 
 - D(NU,JA)*P1(MU)*P4(JB)*QDQ
 
 - D(NU,JA)*P1(MU)*P4(JB)*QDP1
 
 + D(NU,JA)*P1(MU)*P4(JB)*QDP2
 
 - D(NU,JA)*P1(MU)*P4(JB)*QDP3
 
 + D(NU,JA)*P1(MU)*P4(JB)*QDP4
 
 + D(NU,JA)*P2(MU)*Q(JB)
  * ( 2*M2 + 16*P1DP3 - 4*P3DP4 )
 
 - 4*D(NU,JA)*P2(MU)*Q(JB)*QDP1
 
 + 4*D(NU,JA)*P2(MU)*Q(JB)*QDP3
 
 + D(NU,JA)*P2(MU)*P1(JB)
  * ( 4*M2 - 8*P3DP4 )
 
 + 4*D(NU,JA)*P2(MU)*P1(JB)*QDQ
 
 - 8*D(NU,JA)*P2(MU)*P1(JB)*QDP3
 
 + D(NU,JA)*P2(MU)*P3(JB)
  * ( 16*P1DP4 )
 
 - 4*D(NU,JA)*P2(MU)*P3(JB)*QDQ
 
 - 8*D(NU,JA)*P2(MU)*P3(JB)*QDP1
 
 + 8*D(NU,JA)*P2(MU)*P3(JB)*QDP4
 
 + D(NU,JA)*P2(MU)*P4(JB)
  * ( - 8*P1DP3 + 4*P1DP4 )
 
 - 4*D(NU,JA)*P2(MU)*P4(JB)*QDP3
 
 + 2*D(NU,JA)*P2(MU)*P4(JB)*QDP4
 
 + D(NU,JA)*P3(MU)*Q(JB)
  * ( 4*M2 - 8*P1DP2 )
 
 + 4*D(NU,JA)*P3(MU)*Q(JB)*QDQ
 
 + 8*D(NU,JA)*P3(MU)*Q(JB)*QDP2
 
 + D(NU,JA)*P3(MU)*P4(JB)
  * ( - 2*M2 + 4*P1DP2 )
 
 - 2*D(NU,JA)*P3(MU)*P4(JB)*QDQ
 
 - 4*D(NU,JA)*P3(MU)*P4(JB)*QDP2
 
 + D(NU,JA)*P4(MU)*P3(JB)
  * ( 4*M2 - 8*P1DP2 )
 
 + 4*D(NU,JA)*P4(MU)*P3(JB)*QDQ
 
 + 8*D(NU,JA)*P4(MU)*P3(JB)*QDP2
 
 + D(NU,JA)*P4(MU)*P4(JB)
  * ( M2 - 2*P1DP2 )
 
 + D(NU,JA)*P4(MU)*P4(JB)*QDQ
 
 + 2*D(NU,JA)*P4(MU)*P4(JB)*QDP2
 
 + D(NU,JB)*Q(MU)*Q(JA)
  * ( - 4*M2 + 4*P1DP2 - 2*P1DP3 + 6*P1DP4 + 2*P2DP3 - 22*P2DP4
  + 4*P3DP4 )
 
 + 2*D(NU,JB)*Q(MU)*Q(JA)*QDP1
 
 + 2*D(NU,JB)*Q(MU)*Q(JA)*QDP2
 
 + 2*D(NU,JB)*Q(MU)*Q(JA)*QDP3
 
 + 2*D(NU,JB)*Q(MU)*Q(JA)*QDP4
 
 + D(NU,JB)*Q(MU)*P1(JA)
  * ( - 2*M2 + 4*P3DP4 )
 
 - 2*D(NU,JB)*Q(MU)*P1(JA)*QDQ
 
 + 4*D(NU,JB)*Q(MU)*P1(JA)*QDP3
 
 + D(NU,JB)*Q(MU)*P2(JA)
  * ( 2*M2 - 4*P3DP4 )
 
 + 2*D(NU,JB)*Q(MU)*P2(JA)*QDQ
 
 - 4*D(NU,JB)*Q(MU)*P2(JA)*QDP3
 
 + D(NU,JB)*Q(MU)*P3(JA)
  * ( M2 - 2*P1DP2 - 2*P1DP4 + 10*P2DP4 )
 
 - 2*D(NU,JB)*Q(MU)*P3(JA)*QDQ
 
 - 2*D(NU,JB)*Q(MU)*P3(JA)*QDP1
 
 + D(NU,JB)*Q(MU)*P4(JA)
  * ( 2*M2 - 4*P1DP2 - 2*P1DP3 - 2*P1DP4 + 2*P2DP3 + 18*P2DP4 )
 
 - 6*D(NU,JB)*Q(MU)*P4(JA)*QDQ
 
 - 6*D(NU,JB)*Q(MU)*P4(JA)*QDP1
 
 + 2*D(NU,JB)*Q(MU)*P4(JA)*QDP2
 
 - 2*D(NU,JB)*Q(MU)*P4(JA)*QDP3
 
 + 2*D(NU,JB)*Q(MU)*P4(JA)*QDP4
 
 + D(NU,JB)*P1(MU)*Q(JA)
  * ( - M2 - P1DP3 + 7*P1DP4 + P2DP3 - 11*P2DP4 + 2*P3DP4 )
 
 - D(NU,JB)*P1(MU)*Q(JA)*QDP1
 
 + 3*D(NU,JB)*P1(MU)*Q(JA)*QDP2
 
 + D(NU,JB)*P1(MU)*Q(JA)*QDP3
 
 + 3*D(NU,JB)*P1(MU)*Q(JA)*QDP4
 
 + D(NU,JB)*P1(MU)*P1(JA)
  * ( - M2 + 2*P3DP4 )
 
 - D(NU,JB)*P1(MU)*P1(JA)*QDQ
 
 + 2*D(NU,JB)*P1(MU)*P1(JA)*QDP3
 
 + D(NU,JB)*P1(MU)*P2(JA)
  * ( M2 - 2*P3DP4 )
 
 + D(NU,JB)*P1(MU)*P2(JA)*QDQ
 
 - 2*D(NU,JB)*P1(MU)*P2(JA)*QDP3
 
 + D(NU,JB)*P1(MU)*P3(JA)
  * ( - 3*P1DP4 + 5*P2DP4 )
 
 - D(NU,JB)*P1(MU)*P3(JA)*QDQ
 
 - D(NU,JB)*P1(MU)*P3(JA)*QDP2
 
 - D(NU,JB)*P1(MU)*P3(JA)*QDP4
 
 + D(NU,JB)*P1(MU)*P4(JA)
  * ( - P1DP3 - 5*P1DP4 + P2DP3 + 9*P2DP4 )
 
 - 3*D(NU,JB)*P1(MU)*P4(JA)*QDQ
 
 - D(NU,JB)*P1(MU)*P4(JA)*QDP1
 
 - D(NU,JB)*P1(MU)*P4(JA)*QDP2
 
 - D(NU,JB)*P1(MU)*P4(JA)*QDP3
 
 - D(NU,JB)*P1(MU)*P4(JA)*QDP4
 
 + D(NU,JB)*P2(MU)*Q(JA)
  * ( 16*P1DP4 )
 
 - 4*D(NU,JB)*P2(MU)*Q(JA)*QDQ
 
 - 8*D(NU,JB)*P2(MU)*Q(JA)*QDP1
 
 + 8*D(NU,JB)*P2(MU)*Q(JA)*QDP4
 
 + D(NU,JB)*P2(MU)*P3(JA)
  * ( - 8*P1DP4 )
 
 + 2*D(NU,JB)*P2(MU)*P3(JA)*QDQ
 
 + 4*D(NU,JB)*P2(MU)*P3(JA)*QDP1
 
 - 4*D(NU,JB)*P2(MU)*P3(JA)*QDP4
 
 + D(NU,JB)*P2(MU)*P4(JA)
  * ( - 16*P1DP4 )
 
 + 4*D(NU,JB)*P2(MU)*P4(JA)*QDQ
 
 + 8*D(NU,JB)*P2(MU)*P4(JA)*QDP1
 
 - 8*D(NU,JB)*P2(MU)*P4(JA)*QDP4
 
 + D(NU,JB)*P4(MU)*Q(JA)
  * ( 4*M2 - 8*P1DP2 )
 
 + 4*D(NU,JB)*P4(MU)*Q(JA)*QDQ
 
 + 8*D(NU,JB)*P4(MU)*Q(JA)*QDP2
 
 + D(NU,JB)*P4(MU)*P3(JA)
  * ( - 2*M2 + 4*P1DP2 )
 
 - 2*D(NU,JB)*P4(MU)*P3(JA)*QDQ
 
 - 4*D(NU,JB)*P4(MU)*P3(JA)*QDP2
 
 + D(NU,JB)*P4(MU)*P4(JA)
  * ( - 4*M2 + 8*P1DP2 )
 
 - 4*D(NU,JB)*P4(MU)*P4(JA)*QDQ
 
 - 8*D(NU,JB)*P4(MU)*P4(JA)*QDP2
 
 + D(JA,JB)*Q(MU)*Q(NU)
  * ( - 3*M2 - 2*P1DP2 + P1DP3 + 7*P1DP4 + P2DP3 + 7*P2DP4
  - 16*P3DP4 )
 
 + 3*D(JA,JB)*Q(MU)*Q(NU)*QDQ
 
 - 3*D(JA,JB)*Q(MU)*Q(NU)*QDP1
 
 - D(JA,JB)*Q(MU)*Q(NU)*QDP2
 
 - 7*D(JA,JB)*Q(MU)*Q(NU)*QDP3
 
 - 3*D(JA,JB)*Q(MU)*Q(NU)*QDP4
 
 + D(JA,JB)*Q(MU)*P1(NU)
  * ( - 4*M2 + P1DP3 + 7*P1DP4 + P2DP3 - P2DP4 - 16*P3DP4 )
 
 + 3*D(JA,JB)*Q(MU)*P1(NU)*QDQ
 
 - 3*D(JA,JB)*Q(MU)*P1(NU)*QDP1
 
 + D(JA,JB)*Q(MU)*P1(NU)*QDP2
 
 - 7*D(JA,JB)*Q(MU)*P1(NU)*QDP3
 
 - 5*D(JA,JB)*Q(MU)*P1(NU)*QDP4
 
 + D(JA,JB)*Q(MU)*P2(NU)
  * ( - 2*M2 + P1DP3 + 3*P1DP4 - 8*P3DP4 )
 
 + 2*D(JA,JB)*Q(MU)*P2(NU)*QDQ
 
 - D(JA,JB)*Q(MU)*P2(NU)*QDP1
 
 - 3*D(JA,JB)*Q(MU)*P2(NU)*QDP3
 
 - 3*D(JA,JB)*Q(MU)*P2(NU)*QDP4
 
 + D(JA,JB)*Q(MU)*P3(NU)
  * ( M2 - 2*P1DP2 + 8*P2DP4 )
 
 - 2*D(JA,JB)*Q(MU)*P3(NU)*QDP2
 
 + 2*D(JA,JB)*Q(MU)*P3(NU)*QDP4
 
 + D(JA,JB)*Q(MU)*P4(NU)
  * ( - M2 + 2*P1DP2 + 4*P1DP3 - 4*P1DP4 - 4*P2DP3 - 4*P2DP4 )
 
 + 4*D(JA,JB)*Q(MU)*P4(NU)*QDQ
 
 + 4*D(JA,JB)*Q(MU)*P4(NU)*QDP1
 
 - 2*D(JA,JB)*Q(MU)*P4(NU)*QDP2
 
 + 4*D(JA,JB)*Q(MU)*P4(NU)*QDP3
 
 - 6*D(JA,JB)*Q(MU)*P4(NU)*QDP4
 
 + D(JA,JB)*P1(MU)*Q(NU)
  * ( - 2*M2 - P1DP3 - P1DP4 + P2DP3 + 3*P2DP4 - 8*P3DP4 )
 
 + 3*D(JA,JB)*P1(MU)*Q(NU)*QDQ
 
 - D(JA,JB)*P1(MU)*Q(NU)*QDP2
 
 - 3*D(JA,JB)*P1(MU)*Q(NU)*QDP3
 
 - 5*D(JA,JB)*P1(MU)*Q(NU)*QDP4
 
 + D(JA,JB)*P1(MU)*P1(NU)
  * ( - 2*M2 - 8*P3DP4 )
 
 + 4*D(JA,JB)*P1(MU)*P1(NU)*QDQ
 
 - 2*D(JA,JB)*P1(MU)*P1(NU)*QDP3
 
 - 6*D(JA,JB)*P1(MU)*P1(NU)*QDP4
 
 + D(JA,JB)*P1(MU)*P2(NU)
  * ( - M2 - 4*P3DP4 )
 
 + 2*D(JA,JB)*P1(MU)*P2(NU)*QDQ
 
 - D(JA,JB)*P1(MU)*P2(NU)*QDP3
 
 - 3*D(JA,JB)*P1(MU)*P2(NU)*QDP4
 
 + D(JA,JB)*P1(MU)*P3(NU)
  * ( - 2*P1DP4 + 4*P2DP4 )
 
 + D(JA,JB)*P1(MU)*P3(NU)*QDP1
 
 - 2*D(JA,JB)*P1(MU)*P3(NU)*QDP2
 
 + D(JA,JB)*P1(MU)*P4(NU)
  * ( 2*P1DP3 - 2*P2DP3 - 2*P2DP4 )
 
 + 2*D(JA,JB)*P1(MU)*P4(NU)*QDQ
 
 + D(JA,JB)*P1(MU)*P4(NU)*QDP1
 
 + 2*D(JA,JB)*P1(MU)*P4(NU)*QDP3
 
 - 2*D(JA,JB)*P1(MU)*P4(NU)*QDP4
 
 + D(JA,JB)*P2(MU)*Q(NU)
  * ( - 8*P1DP4 )
 
 + 2*D(JA,JB)*P2(MU)*Q(NU)*QDQ
 
 + 4*D(JA,JB)*P2(MU)*Q(NU)*QDP1
 
 - 4*D(JA,JB)*P2(MU)*Q(NU)*QDP4
 
 + D(JA,JB)*P2(MU)*P3(NU)
  * ( - 8*P1DP4 )
 
 + 2*D(JA,JB)*P2(MU)*P3(NU)*QDQ
 
 + 4*D(JA,JB)*P2(MU)*P3(NU)*QDP1
 
 - 4*D(JA,JB)*P2(MU)*P3(NU)*QDP4
 
 + D(JA,JB)*P2(MU)*P4(NU)
  * ( 8*P1DP4 )
 
 - 2*D(JA,JB)*P2(MU)*P4(NU)*QDQ
 
 - 4*D(JA,JB)*P2(MU)*P4(NU)*QDP1
 
 + 4*D(JA,JB)*P2(MU)*P4(NU)*QDP4
 
 + D(JA,JB)*P3(MU)*Q(NU)
  * ( 8*P1DP4 )
 
 - 2*D(JA,JB)*P3(MU)*Q(NU)*QDQ
 
 - 4*D(JA,JB)*P3(MU)*Q(NU)*QDP1
 
 + 4*D(JA,JB)*P3(MU)*Q(NU)*QDP4
 
 + D(JA,JB)*P3(MU)*P1(NU)
  * ( 8*P1DP4 )
 
 - 2*D(JA,JB)*P3(MU)*P1(NU)*QDQ
 
 - 4*D(JA,JB)*P3(MU)*P1(NU)*QDP1
 
 + 4*D(JA,JB)*P3(MU)*P1(NU)*QDP4
 
 + D(JA,JB)*P3(MU)*P2(NU)
  * ( 4*P1DP4 )
 
 - D(JA,JB)*P3(MU)*P2(NU)*QDQ
 
 - 2*D(JA,JB)*P3(MU)*P2(NU)*QDP1
 
 + 2*D(JA,JB)*P3(MU)*P2(NU)*QDP4
 
 + D(JA,JB)*P4(MU)*Q(NU)
  * ( - 2*M2 + 4*P1DP2 - 6*P1DP3 - 2*P1DP4 + 2*P2DP3 - 2*P2DP4 )
 
 + 2*D(JA,JB)*P4(MU)*Q(NU)*QDQ
 
 - 2*D(JA,JB)*P4(MU)*Q(NU)*QDP1
 
 - 2*D(JA,JB)*P4(MU)*Q(NU)*QDP2
 
 + 2*D(JA,JB)*P4(MU)*Q(NU)*QDP3
 
 - 6*D(JA,JB)*P4(MU)*Q(NU)*QDP4
 
 + D(JA,JB)*P4(MU)*P1(NU)
  * ( - 2*P1DP3 - 6*P1DP4 - 2*P2DP3 + 2*P2DP4 )
 
 + 8*D(JA,JB)*P4(MU)*P1(NU)*QDQ
 
 + 2*D(JA,JB)*P4(MU)*P1(NU)*QDP1
 
 - 2*D(JA,JB)*P4(MU)*P1(NU)*QDP2
 
 + 6*D(JA,JB)*P4(MU)*P1(NU)*QDP3
 
 - 10*D(JA,JB)*P4(MU)*P1(NU)*QDP4
 
 + D(JA,JB)*P4(MU)*P2(NU)
  * ( - 2*P1DP3 - 2*P1DP4 )
 
 + 3*D(JA,JB)*P4(MU)*P2(NU)*QDQ
 
 + 2*D(JA,JB)*P4(MU)*P2(NU)*QDP3
 
 - 4*D(JA,JB)*P4(MU)*P2(NU)*QDP4
 
 + D(JA,JB)*P4(MU)*P3(NU)
  * ( - 2*M2 + 4*P1DP2 )
 
 - 2*D(JA,JB)*P4(MU)*P3(NU)*QDQ
 
 - 4*D(JA,JB)*P4(MU)*P3(NU)*QDP2
 
 + D(JA,JB)*P4(MU)*P4(NU)
  * ( 2*M2 - 4*P1DP2 )
 
 + 2*D(JA,JB)*P4(MU)*P4(NU)*QDQ
 
 + 4*D(JA,JB)*P4(MU)*P4(NU)*QDP2 + 0.
 

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


C Vectors 10. Example of a gauge field theory. One loop poles.

> P stats
	Oldnew i=I
	S    GG,AA,M,SM
	S     GM,TP,TW1,TW2,LAM,KAP,DIV
	I     A=3,B=3,C=3,E=3,AP=3,BP=3,CP=3,AL,BE,GA,EP
	I     MU,NU,MU1,NU1,MU2,NU2,A1=3,A2=3,A3=3,A1P=3,A2P=3,A3P=3
	I     AL1,AL2,AL3,AL1P,AL2P,AL3P
	I     APP=3,BEP,GAP,ALP,ALQ,ALPP
	V     K,P,Q,KP,KK,QP
	F     NOM,BET,GAM
	F     OUT1,OUT2,IN23,IN24,IN1,DUO2,SIN2,SIN1
	F     QX,QY,X,F,OUT3,IN33,IN34A,IN34B,IN34C
	F     DUO,TRIO
	F     VER3,PROP,VER4
	X     DVV(N)=DT(N+4)*DIV**N*DIV**5
	X     NUM(M1,M2,M3,M4)=1-0.5*DK(M1,M4)*DK(M2,M3)
	X     FOUR(M1,M2,M3,M4) = DT(Integ(- 1 +
	      DK(M1,M2)*DK(M3,M4) + DK(M1,M3)*DK(M2,M4) + DK(M1,M4)*DK(M2,M3)) )
	T     CHF(N)="W,"P,"Z,"P,"W
	T     CHL(N)="W,"P,"Z,"W,"P
	X     WW(A,AL,K,B,BE,P) = D(A,B)*D(AL,BE)*NOM(K,M)
	        + D(A,B)*K(AL)*K(BE)*BET(K)
	X     ZZ(A,AL,K,B,BE,P) = NOM(K,SM)
	X     PP(A,AL,K,B,BE,P) = D(A,B)*GAM(K)
	X     PW(A,AL,K,B,BE,P) = - I*M*TP*K(BE)*NOM(K,GM)*NOM(K,GM)*D(A,B)
	X     XY(A,AL,K,B,BE,P) = D(A,B)*NOM(K,GM)/KAP
	X     PPP=0
	X     PWW=0
	X     PZZ=0
	X     WZZ=0
	X     WWW(A,AL,K,B,BE,P,C,GA,Q) = - I*GG*EP3(A,B,C)*
	       ( D(AL,GA)*(K(BE)-Q(BE)) + D(BE,GA)*(Q(AL)-P(AL))
	        + D(AL,BE)*(P(GA) - K(GA)) )
	X     WWWW(A,AL,B,BE,C,GA,E,EP) = - (D(E,B)*D(C,A) - D(E,A)*D(C,B))
	        *GG**2*(2*D(AL,GA)*D(BE,EP) - D(AL,EP)*D(BE,GA) - D(AL,BE)
	        *D(GA,EP)) - (D(E,C)*D(B,A) - D(E,A)*D(B,C))*GG**2
	        *(2*D(AL,BE)*D(GA,EP) - D(AL,EP)*D(GA,BE) - D(AL,GA)*D(BE,EP))
	X     PPW(B,BE,P,C,GA,Q,A,AL,K) = 0.5*I*GG*EP3(A,B,C)*(P(AL)-Q(AL))
	X     PWZ(B,BE,P,A,AL,K,C,GA,Q) = 0.5*I*GG*D(A,B)*(P(AL)-Q(AL))
	X     WWZ(A,AL,K,B,BE) = - GG*M*D(A,B)*D(AL,BE)
	X     PPZ(A,AL,K,B) = - 2*AA*M*GG*D(A,B)
	X     ZZZ = -6*AA*M*GG
	X     WXY(A,AL,K,B,BE,P,C,GA,Q) = I*GG*EP3(A,B,C)*P(AL)*KAP
	X     XYZ(A,AL,K,B) = - 0.5*M*GG*D(A,B)*LAM
	X     PXY(A,AL,K,B,BE,P,C) = 0.5*M*GG*EP3(A,B,C)*LAM
	X     PPWW(C,GA,E,EP,A,AL,B,BE) = - 0.5*GG**2*D(A,B)*D(C,E)*D(AL,BE)
	X     WWZZ(A,AL,B,BE) = - 0.5*GG**2*D(A,B)*D(AL,BE)
	X     PPPP(A,AL,B,BE,C,GA,E,EP) = -AA*GG**2*(D(A,B)*D(C,E)
	        + D(A,C)*D(B,E) + D(A,E)*D(B,C))
	X     PPZZ(A,AL,B,BE) = - AA*GG**2*D(A,B)
	X     ZZZZ = - 3*AA*GG**2
	X     EP3EP(A,B,C,AP,BP,CP) = D(A,AP)*(D(B,BP)*D(C,CP) - D(B,CP)
	        *D(C,BP)) - D(A,BP)*(D(B,AP)*D(C,CP) - D(B,CP)*D(C,AP))
	        - D(A,CP)*(D(B,BP)*D(C,AP) - D(B,AP)*D(C,BP))
	*fix

Begin. Time 1 sec.
> BLOCK Subs{}
> P input
> B     A123
> Id     INTER =
>        TRIO(5) + DUO(IN34A,5) + DUO(IN34B,5) + DUO(IN34C,5)
>         - IN33("X,"Y,"X,"Y,"X,"Y)
>         - IN33("Y,"X,"Y,"X,"Y,"X)
> Al    INTE2 = DUO2(5) + SIN2(4) - IN23("X,"Y,"X,"Y)
> Id    TRIO(N~) = DS(J1,1,N,(DS(J2,1,N,(DS(J3,1,N,(
>         IN33(CHF(J1),CHL(J1),CHF(J2),CHL(J2),CHF(J3),CHL(J3) )
>           )   )   )   )   )   )
> Al     DUO(IN34A~,N~) = DS(J1,1,N,(DS(J2,J1,N,(
>         IN34A(CHF(J1),CHL(J1),CHL(J2),CHF(J2)  )
>           )   )   )   )
> Al     DUO2(N~) = DS(J1,1,N,(DS(J2,J1,N,(
>         IN23(CHF(J1),CHL(J1),CHL(J2),CHF(J2)  )
>         )   )   )   )
> Al   SIN2(N~) = DS(J1,1,N,(
>           IN24(CHF(J1),CHL(J1) )
>         )   )
> Al   SIN1(N~) = DS(J1,1,N,(IN1(CHF(J1),CHL(J1) ) )  )
> Id    OUT3(N1~,N2~,N3~)*IN33(M11~,M12~,M22~,M23~,M33~,M31~) =
>        VER3(N1,M11,M31,*,A,AL,K,*,A1,AL1,Q,*,A3,AL3,P)*
>        VER3(N2,M12,M22,*,AP,ALP,KP,*,A1P,AL1P,-Q,*,A2,AL2,-QP)*
>        VER3(N3,M23,M33,*,APP,ALPP,KK,*,A2P,AL2P,QP,*,A3P,AL3P,-P)*
>        PROP(M11,M12,*,A1,AL1,Q,*,A1P,AL1P,-Q)*
>        PROP(M22,M23,*,A2,AL2,-QP,*,A2P,AL2P,QP)*
>        PROP(M31,M33,*,A3,AL3,P,*,A3P,AL3P,-P)
> Al     OUT3(N1~,N2~,N3~)*IN34A(M1~,M2~,M3~,M4~) =
>        VER3(N1,M1,M4,*,A,AL,K,*,A1,AL1,Q,*,A2,AL2,P)*
>        VER4(N2,N3,M2,M3,*,AP,ALP,*,APP,ALPP,*,A1P,AL1P,*,A2P,AL2P)*
>        PROP(M1,M2,*,A1,AL1,Q,*,A1P,AL1P,-Q)*
>        PROP(M4,M3,*,A2,AL2,P,*,A2P,AL2P,-P)*FOUR(N2,N3,M2,M3)*
>          NUM(M1,M2,M3,M4)
> Al    OUT3(N1~,N2~,N3~)*IN34B(M1~,M2~,M3~,M4~) =
>        VER3(N2,M1,M4,*,AP,ALP,KP,*,A1,AL1,-Q,*,A2,AL2,-QP)*
>        VER4(N1,N3,M2,M3,*,A,AL,*,APP,ALPP,*,A1P,AL1P,*,A2P,AL2P)*
>        PROP(M1,M2,*,A1,AL1,-Q,*,A1P,AL1P,Q)*
>        PROP(M4,M3,*,A2,AL2,-QP,*,A2P,AL2P,QP)*
>         FOUR(N1,N3,M2,M3)*NUM(M1,M2,M3,M4)
> Al     OUT3(N1~,N2~,N3~)*IN34C(M1~,M2~,M3~,M4~) =
>         VER3(N3,M1,M4,*,APP,ALPP,KK,*,A1,AL1,QP,*,A2,AL2,-P)*
>        VER4(N1,N2,M2,M3,*,A,AL,*,AP,ALP,*,A1P,AL1P,*,A2P,AL2P)*
>        PROP(M1,M2,*,A1,AL1,QP,*,A1P,AL1P,-QP)*
>        PROP(M4,M3,*,A2,AL2,-P,*,A2P,AL2P,P)*
>          FOUR(N1,N2,M2,M3)*NUM(M1,M2,M3,M4)
> Al     OUT2(N1~,N2~)*IN23(M1~,M2~,M3~,M4~) =
>           VER3(N1,M1,M4,*,A,AL,K,*,C,GA,Q,*,B,BE,P)*
>           PROP(M4,M3,*,B,BE,P,*,BP,BEP,-P)*
>           PROP(M1,M2,*,C,GA,Q,*,CP,GAP,-Q)
>         *VER3(N2,M2,M3,*,AP,ALP,-K,*,CP,GAP,-Q,*,BP,BEP,-P)
>           *NUM(M1,M2,M3,M4)
> Al    OUT2(N1~,N2~)*IN24(M1~,M2~) =
>         VER4(N1,N2,M1,M2,*,A,AL,*,AP,ALP,*,C,GA,*,CP,GAP)
>         *PROP(M1,M2,*,C,GA,P,*,CP,GAP,-P)
>         *NUM(M1,M2,M1,M2)*FOUR(N1,N2,M1,M2)
> Al     OUT1(N1~)*IN1(N2~,N3~) =
>       VER3(N1,N2,N3,*,A,AL,K,*,B,BE,P,*,C,GA,-P)*
>         PROP(N2,N3,*,B,BE,P,*,C,GA,-P)*NUM(N2,N3,N2,N3)
> Id    Compo,<X>,VER3,VER4,PROP
> Id     VER3(WWW~,A~,AL~,K~,B~,BE~,P~,C~,GA~,Q~) =
>        WWW(A,AL,K,B,BE,P,C,GA,Q)
> Al     VER4(WWWW~,A~,AL~,B~,BE~,C~,GA~,E~,EP~) =
>         WWWW(A,AL,B,BE,C,GA,E,EP)
> Al     PROP(WW~,A~,AL~,K~,B~,BE~,P~) = WW(A,AL,K,B,BE,P)
> Id    Count,DVV,P,1,Q,1,QP,1,NOM,-2,BET,-4,GAM,-2
> Id,2   NOM(-P,M~) = NOM(P,M)
> Al,2   NOM(-Q,M~) = NOM(Q,M)
> Al,2   NOM(-QP,M~) = NOM(QP,M)
> Al,2   BET(-P) = BET(P)
> Al,2   BET(-Q) = BET(Q)
> Al,2   BET(-QP) = BET(QP)
> Al,2   GAM(-P)=GAM(P)
> Al,2    GAM(-Q) = GAM(Q)
> Al,2    GAM(-QP)=GAM(QP)
> Id   EP3(A,A1,A3)*EP3(AP,A1,A2)*EP3(APP,A2,A3) = -A123
> Id,Adiso,EP3(A~,B~,C~)*EP3(AP~,BP~,CP~) = EP3EP(A,B,C,AP,BP,CP)
> Id   Asymm,EP3,1,2,3
> Id   EP3(APP,AP,A) = - A123
> *yep
> Id    DIV**2*QDQ**2 = PDP**2*DIV**2 + 4*PDP*PDK*DIV
> Al   DIV**3*QDQ**2 = PDP**2*DIV**3 + 4*PDP*PDK*DIV**2
>           + 2*PDP*KDK*DIV + 4*PDK**2*DIV
> Al    DIV*QDQ**2 = PDP**2*DIV
> Al    DIV**2*QDQ = PDP*DIV**2 + 2*PDK*DIV
> Al    DIV**3*QDQ = PDP*DIV**3 + 2*PDK*DIV**2 + KDK*DIV
> Al     DIV*QDQ = PDP*DIV
> Id,Dotpr,Q(MU~) = QX(MU)
> Id    Q(MU~) = QX(MU)
> Id,4   DIV**2*QX(MU~) = - DIV*K(MU) - DIV**2*P(MU)
> Al,4   DIV**3*QX(MU~) = - DIV**2*K(MU) - DIV**3*P(MU)
> Al,4   DIV*QX(MU~) = - P(MU)*DIV
> Id    DIV**2*QPDQP**2 = PDP**2*DIV**2 - 4*PDP*PDKK*DIV
> Al     DIV*QPDQP**2 = PDP**2*DIV
> Al     DIV**2*QPDQP = PDP*DIV**2 - 2*PDKK*DIV
> Al    DIV*QPDQP = DIV*PDP
> Id,Dotpr,QP(MU~) = QY(MU)
> Al    QP(MU~) = QY(MU)
> Id,4  DIV**2*QY(MU~) = - DIV*KK(MU) + DIV**2*P(MU)
> Al,4   DIV*QY(MU~) = DIV*P(MU)
> Id,2   DIV**N~*BET(K~) = DIV**N*TW1*NOM(K,M)*NOM(K,GM)
>        + DT(N-3)*DIV**N/DIV**2*TW2*M**2/PDP**3
> Id,3   DIV**N~*GAM(K~) = DIV**N*NOM(K,GM)
>        + DT(N-3)*DIV**N/DIV**2*M**2*TP/PDP**2
> Id,2   DIV**3*NOM(Q,M~) = DIV**3/PDP - 2*PDK*PDP**-2*DIV**2
>        - DIV*(KDK + M**2)/PDP**2 + 4*DIV*PDK**2/PDP**3
> Al,2   DIV**2*NOM(Q,M~) = DIV**2/PDP - 2*PDK*PDP**-2*DIV
> Id,2   DIV**2*NOM(QP,M~) = DIV**2/PDP + 2*PDKK*PDP**-2*DIV
> Id,4   DIV**3*NOM(P,M~) = DIV**3/PDP - DIV*M**2/PDP**2
> Al,4   DIV**2*NOM(P,M~) = DIV**2/PDP
> Al,6   DIV*NOM(Q~,M~) = DIV/PDP
> Id   DIV**N~ = DK(N,1)*DIV
> Al   Numer,PDP,1
> *yep
> Id,Dotpr,P(MU~) = X(MU)
> Al   P(MU~) = X(MU)
> Id    X(MU~)*X(M1~) = F(2,M1,MU)
> Id,Adiso,F(2,M1~,M2~)*X(MU~) = F(3,M1,M2,MU)
> Id,Adiso,F(3,M1~,M2~,M3~)*X(MU~) = F(4,M1,M2,M3,MU)
> Id    X(MU~) = 0
> Al    F(3,M1~,M2~,M3~) = 0
> C   IN UNITS  I*PI**2/(N-4)
> Id    DIV**N~*F(2,M1~,M2~) = -DK(N,1)*0.5*D(M1,M2)
> Al    DIV**N~*F(4,M1~,M2~,M3~,M4~) = - 1/12*DK(N,1)*
>        (D(M1,M2)*D(M3,M4) + D(M1,M3)*D(M2,M4) + D(M1,M4)*D(M2,M3) )
> Al    DIV**N~ = - 2*DK(N,1)
> *yep
> B   I,GG
> Id   SM**2=4*AA*M**2
> Id   KP(MU~) = - K(MU) - KK(MU)
> Al,Dotpr,KP(MU~) = - K(MU) - KK(MU)
> Id   TW1 = 1/KAP**2 - 1
> Al    TW2 = (1+LAM**2 - LAM/KAP - LAM*KAP)/KAP**2
> Al    TP = 1/KAP**2 - LAM/KAP
> Al,Multi,GM**2 = LAM*M**2/KAP
> Id   EP3(A~,B~,C~)*EP3(AP~,BP~,CP~) = EP3EP(A,B,C,AP,BP,CP)
> Id    A123=EP3(A,AP,APP)
> Id   Asymm,EP3,1,2,3
> ENDBLOCK
> P input
	Z   WSELF = OUT2("W,"W)*INTE2
> Subs{}
> P input
	B     A123
L 1	Id     INTER =
	       TRIO(5) + DUO(IN34A,5) + DUO(IN34B,5) + DUO(IN34C,5)
	        - IN33("X,"Y,"X,"Y,"X,"Y)
	        - IN33("Y,"X,"Y,"X,"Y,"X)
L 1	Al    INTE2 = DUO2(5) + SIN2(4) - IN23("X,"Y,"X,"Y)
L 2	Id    TRIO(N~) = DS(J1,1,N,(DS(J2,1,N,(DS(J3,1,N,(
	        IN33(CHF(J1),CHL(J1),CHF(J2),CHL(J2),CHF(J3),CHL(J3) )
	          )   )   )   )   )   )
L 2	Al     DUO(IN34A~,N~) = DS(J1,1,N,(DS(J2,J1,N,(
	        IN34A(CHF(J1),CHL(J1),CHL(J2),CHF(J2)  )
	          )   )   )   )
L 2	Al     DUO2(N~) = DS(J1,1,N,(DS(J2,J1,N,(
	        IN23(CHF(J1),CHL(J1),CHL(J2),CHF(J2)  )
	        )   )   )   )
L 2	Al   SIN2(N~) = DS(J1,1,N,(
	          IN24(CHF(J1),CHL(J1) )
	        )   )
L 2	Al   SIN1(N~) = DS(J1,1,N,(IN1(CHF(J1),CHL(J1) ) )  )
L 6	Id    OUT3(N1~,N2~,N3~)*IN33(M11~,M12~,M22~,M23~,M33~,M31~) =
	       VER3(N1,M11,M31,*,A,AL,K,*,A1,AL1,Q,*,A3,AL3,P)*
	       VER3(N2,M12,M22,*,AP,ALP,KP,*,A1P,AL1P,-Q,*,A2,AL2,-QP)*
	       VER3(N3,M23,M33,*,APP,ALPP,KK,*,A2P,AL2P,QP,*,A3P,AL3P,-P)*
	       PROP(M11,M12,*,A1,AL1,Q,*,A1P,AL1P,-Q)*
	       PROP(M22,M23,*,A2,AL2,-QP,*,A2P,AL2P,QP)*
	       PROP(M31,M33,*,A3,AL3,P,*,A3P,AL3P,-P)
L 6	Al     OUT3(N1~,N2~,N3~)*IN34A(M1~,M2~,M3~,M4~) =
	       VER3(N1,M1,M4,*,A,AL,K,*,A1,AL1,Q,*,A2,AL2,P)*
	       VER4(N2,N3,M2,M3,*,AP,ALP,*,APP,ALPP,*,A1P,AL1P,*,A2P,AL2P)*
	       PROP(M1,M2,*,A1,AL1,Q,*,A1P,AL1P,-Q)*
	       PROP(M4,M3,*,A2,AL2,P,*,A2P,AL2P,-P)*FOUR(N2,N3,M2,M3)*
	         NUM(M1,M2,M3,M4)
L 6	Al    OUT3(N1~,N2~,N3~)*IN34B(M1~,M2~,M3~,M4~) =
	       VER3(N2,M1,M4,*,AP,ALP,KP,*,A1,AL1,-Q,*,A2,AL2,-QP)*
	       VER4(N1,N3,M2,M3,*,A,AL,*,APP,ALPP,*,A1P,AL1P,*,A2P,AL2P)*
	       PROP(M1,M2,*,A1,AL1,-Q,*,A1P,AL1P,Q)*
	       PROP(M4,M3,*,A2,AL2,-QP,*,A2P,AL2P,QP)*
	        FOUR(N1,N3,M2,M3)*NUM(M1,M2,M3,M4)
L 6	Al     OUT3(N1~,N2~,N3~)*IN34C(M1~,M2~,M3~,M4~) =
	        VER3(N3,M1,M4,*,APP,ALPP,KK,*,A1,AL1,QP,*,A2,AL2,-P)*
	       VER4(N1,N2,M2,M3,*,A,AL,*,AP,ALP,*,A1P,AL1P,*,A2P,AL2P)*
	       PROP(M1,M2,*,A1,AL1,QP,*,A1P,AL1P,-QP)*
	       PROP(M4,M3,*,A2,AL2,-P,*,A2P,AL2P,P)*
	         FOUR(N1,N2,M2,M3)*NUM(M1,M2,M3,M4)
L 6	Al     OUT2(N1~,N2~)*IN23(M1~,M2~,M3~,M4~) =
	          VER3(N1,M1,M4,*,A,AL,K,*,C,GA,Q,*,B,BE,P)*
	          PROP(M4,M3,*,B,BE,P,*,BP,BEP,-P)*
	          PROP(M1,M2,*,C,GA,Q,*,CP,GAP,-Q)
	        *VER3(N2,M2,M3,*,AP,ALP,-K,*,CP,GAP,-Q,*,BP,BEP,-P)
	          *NUM(M1,M2,M3,M4)
L 6	Al    OUT2(N1~,N2~)*IN24(M1~,M2~) =
	        VER4(N1,N2,M1,M2,*,A,AL,*,AP,ALP,*,C,GA,*,CP,GAP)
	        *PROP(M1,M2,*,C,GA,P,*,CP,GAP,-P)
	        *NUM(M1,M2,M1,M2)*FOUR(N1,N2,M1,M2)
L 6	Al     OUT1(N1~)*IN1(N2~,N3~) =
	      VER3(N1,N2,N3,*,A,AL,K,*,B,BE,P,*,C,GA,-P)*
	        PROP(N2,N3,*,B,BE,P,*,C,GA,-P)*NUM(N2,N3,N2,N3)
L 9	Id    Compo,<X>,VER3,VER4,PROP
L10	Id     VER3(WWW~,A~,AL~,K~,B~,BE~,P~,C~,GA~,Q~) =
	       WWW(A,AL,K,B,BE,P,C,GA,Q)
L10	Al     VER4(WWWW~,A~,AL~,B~,BE~,C~,GA~,E~,EP~) =
	        WWWW(A,AL,B,BE,C,GA,E,EP)
L10	Al     PROP(WW~,A~,AL~,K~,B~,BE~,P~) = WW(A,AL,K,B,BE,P)
L14	Id    Count,DVV,P,1,Q,1,QP,1,NOM,-2,BET,-4,GAM,-2
L15	Id,2   NOM(-P,M~) = NOM(P,M)
L15	Al,2   NOM(-Q,M~) = NOM(Q,M)
L15	Al,2   NOM(-QP,M~) = NOM(QP,M)
L15	Al,2   BET(-P) = BET(P)
L15	Al,2   BET(-Q) = BET(Q)
L15	Al,2   BET(-QP) = BET(QP)
L15	Al,2   GAM(-P)=GAM(P)
L15	Al,2    GAM(-Q) = GAM(Q)
L15	Al,2    GAM(-QP)=GAM(QP)
L17	Id   EP3(A,A1,A3)*EP3(AP,A1,A2)*EP3(APP,A2,A3) = -A123
L18	Id,Adiso,EP3(A~,B~,C~)*EP3(AP~,BP~,CP~) = EP3EP(A,B,C,AP,BP,CP)
L21	Id   Asymm,EP3,1,2,3
L22	Id   EP3(APP,AP,A) = - A123
	*yep

Terms in output 59
Running time 8 sec			Used	Maximum
Generated terms 2036 	Input space 	7720 	100000
Equal terms 1819     	Output space 	3448 	250000
Cancellations 158   	Nr of expr.  	58 	255
Multiplications 10917	String space 	0 	4096
Records written 0 	Merging		0 	0

L 1	Id    DIV**2*QDQ**2 = PDP**2*DIV**2 + 4*PDP*PDK*DIV
L 1	Al   DIV**3*QDQ**2 = PDP**2*DIV**3 + 4*PDP*PDK*DIV**2
	          + 2*PDP*KDK*DIV + 4*PDK**2*DIV
L 1	Al    DIV*QDQ**2 = PDP**2*DIV
L 1	Al    DIV**2*QDQ = PDP*DIV**2 + 2*PDK*DIV
L 1	Al    DIV**3*QDQ = PDP*DIV**3 + 2*PDK*DIV**2 + KDK*DIV
L 1	Al     DIV*QDQ = PDP*DIV
L 2	Id,Dotpr,Q(MU~) = QX(MU)
L 3	Id    Q(MU~) = QX(MU)
L 4	Id,4   DIV**2*QX(MU~) = - DIV*K(MU) - DIV**2*P(MU)
L 4	Al,4   DIV**3*QX(MU~) = - DIV**2*K(MU) - DIV**3*P(MU)
L 4	Al,4   DIV*QX(MU~) = - P(MU)*DIV
L 8	Id    DIV**2*QPDQP**2 = PDP**2*DIV**2 - 4*PDP*PDKK*DIV
L 8	Al     DIV*QPDQP**2 = PDP**2*DIV
L 8	Al     DIV**2*QPDQP = PDP*DIV**2 - 2*PDKK*DIV
L 8	Al    DIV*QPDQP = DIV*PDP
L 9	Id,Dotpr,QP(MU~) = QY(MU)
L 9	Al    QP(MU~) = QY(MU)
L10	Id,4  DIV**2*QY(MU~) = - DIV*KK(MU) + DIV**2*P(MU)
L10	Al,4   DIV*QY(MU~) = DIV*P(MU)
L14	Id,2   DIV**N~*BET(K~) = DIV**N*TW1*NOM(K,M)*NOM(K,GM)
	       + DT(N-3)*DIV**N/DIV**2*TW2*M**2/PDP**3
L17	Id,3   DIV**N~*GAM(K~) = DIV**N*NOM(K,GM)
	       + DT(N-3)*DIV**N/DIV**2*M**2*TP/PDP**2
L21	Id,2   DIV**3*NOM(Q,M~) = DIV**3/PDP - 2*PDK*PDP**-2*DIV**2
	       - DIV*(KDK + M**2)/PDP**2 + 4*DIV*PDK**2/PDP**3
L21	Al,2   DIV**2*NOM(Q,M~) = DIV**2/PDP - 2*PDK*PDP**-2*DIV
L24	Id,2   DIV**2*NOM(QP,M~) = DIV**2/PDP + 2*PDKK*PDP**-2*DIV
L26	Id,4   DIV**3*NOM(P,M~) = DIV**3/PDP - DIV*M**2/PDP**2
L26	Al,4   DIV**2*NOM(P,M~) = DIV**2/PDP
L26	Al,6   DIV*NOM(Q~,M~) = DIV/PDP
L32	Id   DIV**N~ = DK(N,1)*DIV
L32	Al   Numer,PDP,1
	*yep

Terms out 59, in 59.

Terms in output 24
Running time 11 sec			Used	Maximum
Generated terms 236 	Input space 	5630 	100000
Equal terms 189     	Output space 	778 	250000
Cancellations 23   	Nr of expr.  	42 	255
Multiplications 3152	String space 	0 	4096
Records written 0 	Merging		0 	0

L 1	Id,Dotpr,P(MU~) = X(MU)
L 1	Al   P(MU~) = X(MU)
L 2	Id    X(MU~)*X(M1~) = F(2,M1,MU)
L 3	Id,Adiso,F(2,M1~,M2~)*X(MU~) = F(3,M1,M2,MU)
L 4	Id,Adiso,F(3,M1~,M2~,M3~)*X(MU~) = F(4,M1,M2,M3,MU)
L 5	Id    X(MU~) = 0
L 5	Al    F(3,M1~,M2~,M3~) = 0
C   IN UNITS  I*PI**2/(N-4)
L 6	Id    DIV**N~*F(2,M1~,M2~) = -DK(N,1)*0.5*D(M1,M2)
L 6	Al    DIV**N~*F(4,M1~,M2~,M3~,M4~) = - 1/12*DK(N,1)*
	       (D(M1,M2)*D(M3,M4) + D(M1,M3)*D(M2,M4) + D(M1,M4)*D(M2,M3) )
L 6	Al    DIV**N~ = - 2*DK(N,1)
	*yep

Terms out 24, in 24.

Terms in output 8
Running time 11 sec			Used	Maximum
Generated terms 28 	Input space 	3596 	100000
Equal terms 19     	Output space 	248 	250000
Cancellations 1   	Nr of expr.  	25 	255
Multiplications 214	String space 	0 	4096
Records written 0 	Merging		0 	0

	B   I,GG
L 1	Id   SM**2=4*AA*M**2
L 2	Id   KP(MU~) = - K(MU) - KK(MU)
L 2	Al,Dotpr,KP(MU~) = - K(MU) - KK(MU)
L 3	Id   TW1 = 1/KAP**2 - 1
L 3	Al    TW2 = (1+LAM**2 - LAM/KAP - LAM*KAP)/KAP**2
L 3	Al    TP = 1/KAP**2 - LAM/KAP
L 3	Al,Multi,GM**2 = LAM*M**2/KAP
L 5	Id   EP3(A~,B~,C~)*EP3(AP~,BP~,CP~) = EP3EP(A,B,C,AP,BP,CP)
L 8	Id    A123=EP3(A,AP,APP)
L 9	Id   Asymm,EP3,1,2,3
	*begin

Terms out 8, in 8.

Terms in output 7
Running time 11 sec			Used	Maximum
Generated terms 12 	Input space 	3138 	100000
Equal terms 5     	Output space 	220 	250000
Cancellations 0   	Nr of expr.  	19 	255
Multiplications 34	String space 	0 	4096
Records written 0 	Merging		0 	0

 
WSELF = 
 + D(A,AP)*D(AL,ALP)*GG^2
  * ( 3/2*M^2 - 3*M^2*LAM*KAP^-1 + 7/2*M^2*KAP^-2 + 2*KAP^-2*KDK
  - 25/3*KDK )
 
 + D(A,AP)*K(AL)*K(ALP)*GG^2
  * ( 25/3 - 2*KAP^-2 ) + 0.
 

Begin. Time 11 sec.
	Z  GHOST = OUT2("Y,"X)*(
	      IN23("X,"Y,"Z,"Z) + IN23("X,"Y,"W,"W)
	      + IN23("X,"Y,"P,"P) + IN23("X,"Y,"P,"W) + IN23("X,"Y,"W,"P) )
	Z  TADP = OUT1("Z)*(SIN1(4) - IN1("X,"Y))
	Z  PSELF = OUT2("P,"P)*INTE2
	Z   PSWTR = OUT2("P,"W)*INTE2
	Z  ZSELF = OUT2("Z,"Z)*INTE2
> Subs{}
> P input
	B     A123
L 2	Id     INTER =
	       TRIO(5) + DUO(IN34A,5) + DUO(IN34B,5) + DUO(IN34C,5)
	        - IN33("X,"Y,"X,"Y,"X,"Y)
	        - IN33("Y,"X,"Y,"X,"Y,"X)
L 2	Al    INTE2 = DUO2(5) + SIN2(4) - IN23("X,"Y,"X,"Y)
L 3	Id    TRIO(N~) = DS(J1,1,N,(DS(J2,1,N,(DS(J3,1,N,(
	        IN33(CHF(J1),CHL(J1),CHF(J2),CHL(J2),CHF(J3),CHL(J3) )
	          )   )   )   )   )   )
L 3	Al     DUO(IN34A~,N~) = DS(J1,1,N,(DS(J2,J1,N,(
	        IN34A(CHF(J1),CHL(J1),CHL(J2),CHF(J2)  )
	          )   )   )   )
L 3	Al     DUO2(N~) = DS(J1,1,N,(DS(J2,J1,N,(
	        IN23(CHF(J1),CHL(J1),CHL(J2),CHF(J2)  )
	        )   )   )   )
L 3	Al   SIN2(N~) = DS(J1,1,N,(
	          IN24(CHF(J1),CHL(J1) )
	        )   )
L 3	Al   SIN1(N~) = DS(J1,1,N,(IN1(CHF(J1),CHL(J1) ) )  )
L 7	Id    OUT3(N1~,N2~,N3~)*IN33(M11~,M12~,M22~,M23~,M33~,M31~) =
	       VER3(N1,M11,M31,*,A,AL,K,*,A1,AL1,Q,*,A3,AL3,P)*
	       VER3(N2,M12,M22,*,AP,ALP,KP,*,A1P,AL1P,-Q,*,A2,AL2,-QP)*
	       VER3(N3,M23,M33,*,APP,ALPP,KK,*,A2P,AL2P,QP,*,A3P,AL3P,-P)*
	       PROP(M11,M12,*,A1,AL1,Q,*,A1P,AL1P,-Q)*
	       PROP(M22,M23,*,A2,AL2,-QP,*,A2P,AL2P,QP)*
	       PROP(M31,M33,*,A3,AL3,P,*,A3P,AL3P,-P)
L 7	Al     OUT3(N1~,N2~,N3~)*IN34A(M1~,M2~,M3~,M4~) =
	       VER3(N1,M1,M4,*,A,AL,K,*,A1,AL1,Q,*,A2,AL2,P)*
	       VER4(N2,N3,M2,M3,*,AP,ALP,*,APP,ALPP,*,A1P,AL1P,*,A2P,AL2P)*
	       PROP(M1,M2,*,A1,AL1,Q,*,A1P,AL1P,-Q)*
	       PROP(M4,M3,*,A2,AL2,P,*,A2P,AL2P,-P)*FOUR(N2,N3,M2,M3)*
	         NUM(M1,M2,M3,M4)
L 7	Al    OUT3(N1~,N2~,N3~)*IN34B(M1~,M2~,M3~,M4~) =
	       VER3(N2,M1,M4,*,AP,ALP,KP,*,A1,AL1,-Q,*,A2,AL2,-QP)*
	       VER4(N1,N3,M2,M3,*,A,AL,*,APP,ALPP,*,A1P,AL1P,*,A2P,AL2P)*
	       PROP(M1,M2,*,A1,AL1,-Q,*,A1P,AL1P,Q)*
	       PROP(M4,M3,*,A2,AL2,-QP,*,A2P,AL2P,QP)*
	        FOUR(N1,N3,M2,M3)*NUM(M1,M2,M3,M4)
L 7	Al     OUT3(N1~,N2~,N3~)*IN34C(M1~,M2~,M3~,M4~) =
	        VER3(N3,M1,M4,*,APP,ALPP,KK,*,A1,AL1,QP,*,A2,AL2,-P)*
	       VER4(N1,N2,M2,M3,*,A,AL,*,AP,ALP,*,A1P,AL1P,*,A2P,AL2P)*
	       PROP(M1,M2,*,A1,AL1,QP,*,A1P,AL1P,-QP)*
	       PROP(M4,M3,*,A2,AL2,-P,*,A2P,AL2P,P)*
	         FOUR(N1,N2,M2,M3)*NUM(M1,M2,M3,M4)
L 7	Al     OUT2(N1~,N2~)*IN23(M1~,M2~,M3~,M4~) =
	          VER3(N1,M1,M4,*,A,AL,K,*,C,GA,Q,*,B,BE,P)*
	          PROP(M4,M3,*,B,BE,P,*,BP,BEP,-P)*
	          PROP(M1,M2,*,C,GA,Q,*,CP,GAP,-Q)
	        *VER3(N2,M2,M3,*,AP,ALP,-K,*,CP,GAP,-Q,*,BP,BEP,-P)
	          *NUM(M1,M2,M3,M4)
L 7	Al    OUT2(N1~,N2~)*IN24(M1~,M2~) =
	        VER4(N1,N2,M1,M2,*,A,AL,*,AP,ALP,*,C,GA,*,CP,GAP)
	        *PROP(M1,M2,*,C,GA,P,*,CP,GAP,-P)
	        *NUM(M1,M2,M1,M2)*FOUR(N1,N2,M1,M2)
L 7	Al     OUT1(N1~)*IN1(N2~,N3~) =
	      VER3(N1,N2,N3,*,A,AL,K,*,B,BE,P,*,C,GA,-P)*
	        PROP(N2,N3,*,B,BE,P,*,C,GA,-P)*NUM(N2,N3,N2,N3)
L10	Id    Compo,<X>,VER3,VER4,PROP
L11	Id     VER3(WWW~,A~,AL~,K~,B~,BE~,P~,C~,GA~,Q~) =
	       WWW(A,AL,K,B,BE,P,C,GA,Q)
L11	Al     VER4(WWWW~,A~,AL~,B~,BE~,C~,GA~,E~,EP~) =
	        WWWW(A,AL,B,BE,C,GA,E,EP)
L11	Al     PROP(WW~,A~,AL~,K~,B~,BE~,P~) = WW(A,AL,K,B,BE,P)
L15	Id    Count,DVV,P,1,Q,1,QP,1,NOM,-2,BET,-4,GAM,-2
L16	Id,2   NOM(-P,M~) = NOM(P,M)
L16	Al,2   NOM(-Q,M~) = NOM(Q,M)
L16	Al,2   NOM(-QP,M~) = NOM(QP,M)
L16	Al,2   BET(-P) = BET(P)
L16	Al,2   BET(-Q) = BET(Q)
L16	Al,2   BET(-QP) = BET(QP)
L16	Al,2   GAM(-P)=GAM(P)
L16	Al,2    GAM(-Q) = GAM(Q)
L16	Al,2    GAM(-QP)=GAM(QP)
L18	Id   EP3(A,A1,A3)*EP3(AP,A1,A2)*EP3(APP,A2,A3) = -A123
L19	Id,Adiso,EP3(A~,B~,C~)*EP3(AP~,BP~,CP~) = EP3EP(A,B,C,AP,BP,CP)
L22	Id   Asymm,EP3,1,2,3
L23	Id   EP3(APP,AP,A) = - A123
	*yep

Terms in output 75
Running time 14 sec			Used	Maximum
Generated terms 316 	Input space 	7998 	100000
Equal terms 232     	Output space 	4030 	250000
Cancellations 9   	Nr of expr.  	59 	255
Multiplications 3749	String space 	0 	4096
Records written 0 	Merging		0 	0

L 1	Id    DIV**2*QDQ**2 = PDP**2*DIV**2 + 4*PDP*PDK*DIV
L 1	Al   DIV**3*QDQ**2 = PDP**2*DIV**3 + 4*PDP*PDK*DIV**2
	          + 2*PDP*KDK*DIV + 4*PDK**2*DIV
L 1	Al    DIV*QDQ**2 = PDP**2*DIV
L 1	Al    DIV**2*QDQ = PDP*DIV**2 + 2*PDK*DIV
L 1	Al    DIV**3*QDQ = PDP*DIV**3 + 2*PDK*DIV**2 + KDK*DIV
L 1	Al     DIV*QDQ = PDP*DIV
L 2	Id,Dotpr,Q(MU~) = QX(MU)
L 3	Id    Q(MU~) = QX(MU)
L 4	Id,4   DIV**2*QX(MU~) = - DIV*K(MU) - DIV**2*P(MU)
L 4	Al,4   DIV**3*QX(MU~) = - DIV**2*K(MU) - DIV**3*P(MU)
L 4	Al,4   DIV*QX(MU~) = - P(MU)*DIV
L 8	Id    DIV**2*QPDQP**2 = PDP**2*DIV**2 - 4*PDP*PDKK*DIV
L 8	Al     DIV*QPDQP**2 = PDP**2*DIV
L 8	Al     DIV**2*QPDQP = PDP*DIV**2 - 2*PDKK*DIV
L 8	Al    DIV*QPDQP = DIV*PDP
L 9	Id,Dotpr,QP(MU~) = QY(MU)
L 9	Al    QP(MU~) = QY(MU)
L10	Id,4  DIV**2*QY(MU~) = - DIV*KK(MU) + DIV**2*P(MU)
L10	Al,4   DIV*QY(MU~) = DIV*P(MU)
L14	Id,2   DIV**N~*BET(K~) = DIV**N*TW1*NOM(K,M)*NOM(K,GM)
	       + DT(N-3)*DIV**N/DIV**2*TW2*M**2/PDP**3
L17	Id,3   DIV**N~*GAM(K~) = DIV**N*NOM(K,GM)
	       + DT(N-3)*DIV**N/DIV**2*M**2*TP/PDP**2
L21	Id,2   DIV**3*NOM(Q,M~) = DIV**3/PDP - 2*PDK*PDP**-2*DIV**2
	       - DIV*(KDK + M**2)/PDP**2 + 4*DIV*PDK**2/PDP**3
L21	Al,2   DIV**2*NOM(Q,M~) = DIV**2/PDP - 2*PDK*PDP**-2*DIV
L24	Id,2   DIV**2*NOM(QP,M~) = DIV**2/PDP + 2*PDKK*PDP**-2*DIV
L26	Id,4   DIV**3*NOM(P,M~) = DIV**3/PDP - DIV*M**2/PDP**2
L26	Al,4   DIV**2*NOM(P,M~) = DIV**2/PDP
L26	Al,6   DIV*NOM(Q~,M~) = DIV/PDP
L32	Id   DIV**N~ = DK(N,1)*DIV
L32	Al   Numer,PDP,1
	*yep

Terms out 75, in 75.

Terms in output 55
Running time 15 sec			Used	Maximum
Generated terms 158 	Input space 	5674 	100000
Equal terms 90     	Output space 	1694 	250000
Cancellations 13   	Nr of expr.  	42 	255
Multiplications 2276	String space 	0 	4096
Records written 0 	Merging		0 	0

L 1	Id,Dotpr,P(MU~) = X(MU)
L 1	Al   P(MU~) = X(MU)
L 2	Id    X(MU~)*X(M1~) = F(2,M1,MU)
L 3	Id,Adiso,F(2,M1~,M2~)*X(MU~) = F(3,M1,M2,MU)
L 4	Id,Adiso,F(3,M1~,M2~,M3~)*X(MU~) = F(4,M1,M2,M3,MU)
L 5	Id    X(MU~) = 0
L 5	Al    F(3,M1~,M2~,M3~) = 0
C   IN UNITS  I*PI**2/(N-4)
L 6	Id    DIV**N~*F(2,M1~,M2~) = -DK(N,1)*0.5*D(M1,M2)
L 6	Al    DIV**N~*F(4,M1~,M2~,M3~,M4~) = - 1/12*DK(N,1)*
	       (D(M1,M2)*D(M3,M4) + D(M1,M3)*D(M2,M4) + D(M1,M4)*D(M2,M3) )
L 6	Al    DIV**N~ = - 2*DK(N,1)
	*yep

Terms out 55, in 55.

Terms in output 46
Running time 16 sec			Used	Maximum
Generated terms 55 	Input space 	3360 	100000
Equal terms 7     	Output space 	1306 	250000
Cancellations 2   	Nr of expr.  	22 	255
Multiplications 280	String space 	0 	4096
Records written 0 	Merging		0 	0

	B   I,GG
L 1	Id   SM**2=4*AA*M**2
L 2	Id   KP(MU~) = - K(MU) - KK(MU)
L 2	Al,Dotpr,KP(MU~) = - K(MU) - KK(MU)
L 3	Id   TW1 = 1/KAP**2 - 1
L 3	Al    TW2 = (1+LAM**2 - LAM/KAP - LAM*KAP)/KAP**2
L 3	Al    TP = 1/KAP**2 - LAM/KAP
L 3	Al,Multi,GM**2 = LAM*M**2/KAP
L 5	Id   EP3(A~,B~,C~)*EP3(AP~,BP~,CP~) = EP3EP(A,B,C,AP,BP,CP)
L 8	Id    A123=EP3(A,AP,APP)
L 9	Id   Asymm,EP3,1,2,3
	*begin

Terms out 46, in 46.

Terms in output 23
Running time 16 sec			Used	Maximum
Generated terms 81 	Input space 	3184 	100000
Equal terms 39     	Output space 	676 	250000
Cancellations 19   	Nr of expr.  	20 	255
Multiplications 260	String space 	0 	4096
Records written 0 	Merging		0 	0

 
GHOST = + D(A,AP)*GG^2
  * ( 2*M^2*LAM*KAP^-2 - 3/2*M^2*LAM^2*KAP^-1 - 3*KAP*KDK
  + KAP^-1*KDK )
 
TADP = + GG
  * ( - 12*AA*M^3*LAM*KAP^-1 + 6*AA*M^3*KAP^-2 - 24*AA^2*M^3
  - 9*M^3 )
 
PSELF = 
 + D(A,AP)*GG^2
  * ( - 6*AA*M^2*LAM*KAP^-1 + 3*AA*M^2*KAP^-2 - 12*AA^2*M^2
  - 9/2*M^2 + 3/2*KAP^-2*KDK - 9/2*KDK )
 
PSWTR = + D(A,AP)*K(ALP)*I*GG^2
  * ( 3/2*M + 3/2*M*LAM*KAP^-1 - 5/2*M*KAP^-2 )
 
ZSELF = + GG^2
  * ( - 18*AA*M^2*LAM*KAP^-1 + 15*AA*M^2*KAP^-2 - 60*AA^2*M^2
  - 27/2*M^2 + 3/2*KAP^-2*KDK - 9/2*KDK ) + 0.
 

Begin. Time 16 sec.
	Z   WWWV = OUT3("W,"W,"W)*(
	    TRIO(5) + DUO(IN34A,5) + DUO(IN34B,5) + DUO(IN34C,5)
	   - IN33("X,"Y,"X,"Y,"X,"Y)
	     - IN33("Y,"X,"Y,"X,"Y,"X) )
> Subs{}
> P input
	B     A123
L 2	Id     INTER =
	       TRIO(5) + DUO(IN34A,5) + DUO(IN34B,5) + DUO(IN34C,5)
	        - IN33("X,"Y,"X,"Y,"X,"Y)
	        - IN33("Y,"X,"Y,"X,"Y,"X)
L 2	Al    INTE2 = DUO2(5) + SIN2(4) - IN23("X,"Y,"X,"Y)
L 3	Id    TRIO(N~) = DS(J1,1,N,(DS(J2,1,N,(DS(J3,1,N,(
	        IN33(CHF(J1),CHL(J1),CHF(J2),CHL(J2),CHF(J3),CHL(J3) )
	          )   )   )   )   )   )
L 3	Al     DUO(IN34A~,N~) = DS(J1,1,N,(DS(J2,J1,N,(
	        IN34A(CHF(J1),CHL(J1),CHL(J2),CHF(J2)  )
	          )   )   )   )
L 3	Al     DUO2(N~) = DS(J1,1,N,(DS(J2,J1,N,(
	        IN23(CHF(J1),CHL(J1),CHL(J2),CHF(J2)  )
	        )   )   )   )
L 3	Al   SIN2(N~) = DS(J1,1,N,(
	          IN24(CHF(J1),CHL(J1) )
	        )   )
L 3	Al   SIN1(N~) = DS(J1,1,N,(IN1(CHF(J1),CHL(J1) ) )  )
L 7	Id    OUT3(N1~,N2~,N3~)*IN33(M11~,M12~,M22~,M23~,M33~,M31~) =
	       VER3(N1,M11,M31,*,A,AL,K,*,A1,AL1,Q,*,A3,AL3,P)*
	       VER3(N2,M12,M22,*,AP,ALP,KP,*,A1P,AL1P,-Q,*,A2,AL2,-QP)*
	       VER3(N3,M23,M33,*,APP,ALPP,KK,*,A2P,AL2P,QP,*,A3P,AL3P,-P)*
	       PROP(M11,M12,*,A1,AL1,Q,*,A1P,AL1P,-Q)*
	       PROP(M22,M23,*,A2,AL2,-QP,*,A2P,AL2P,QP)*
	       PROP(M31,M33,*,A3,AL3,P,*,A3P,AL3P,-P)
L 7	Al     OUT3(N1~,N2~,N3~)*IN34A(M1~,M2~,M3~,M4~) =
	       VER3(N1,M1,M4,*,A,AL,K,*,A1,AL1,Q,*,A2,AL2,P)*
	       VER4(N2,N3,M2,M3,*,AP,ALP,*,APP,ALPP,*,A1P,AL1P,*,A2P,AL2P)*
	       PROP(M1,M2,*,A1,AL1,Q,*,A1P,AL1P,-Q)*
	       PROP(M4,M3,*,A2,AL2,P,*,A2P,AL2P,-P)*FOUR(N2,N3,M2,M3)*
	         NUM(M1,M2,M3,M4)
L 7	Al    OUT3(N1~,N2~,N3~)*IN34B(M1~,M2~,M3~,M4~) =
	       VER3(N2,M1,M4,*,AP,ALP,KP,*,A1,AL1,-Q,*,A2,AL2,-QP)*
	       VER4(N1,N3,M2,M3,*,A,AL,*,APP,ALPP,*,A1P,AL1P,*,A2P,AL2P)*
	       PROP(M1,M2,*,A1,AL1,-Q,*,A1P,AL1P,Q)*
	       PROP(M4,M3,*,A2,AL2,-QP,*,A2P,AL2P,QP)*
	        FOUR(N1,N3,M2,M3)*NUM(M1,M2,M3,M4)
L 7	Al     OUT3(N1~,N2~,N3~)*IN34C(M1~,M2~,M3~,M4~) =
	        VER3(N3,M1,M4,*,APP,ALPP,KK,*,A1,AL1,QP,*,A2,AL2,-P)*
	       VER4(N1,N2,M2,M3,*,A,AL,*,AP,ALP,*,A1P,AL1P,*,A2P,AL2P)*
	       PROP(M1,M2,*,A1,AL1,QP,*,A1P,AL1P,-QP)*
	       PROP(M4,M3,*,A2,AL2,-P,*,A2P,AL2P,P)*
	         FOUR(N1,N2,M2,M3)*NUM(M1,M2,M3,M4)
L 7	Al     OUT2(N1~,N2~)*IN23(M1~,M2~,M3~,M4~) =
	          VER3(N1,M1,M4,*,A,AL,K,*,C,GA,Q,*,B,BE,P)*
	          PROP(M4,M3,*,B,BE,P,*,BP,BEP,-P)*
	          PROP(M1,M2,*,C,GA,Q,*,CP,GAP,-Q)
	        *VER3(N2,M2,M3,*,AP,ALP,-K,*,CP,GAP,-Q,*,BP,BEP,-P)
	          *NUM(M1,M2,M3,M4)
L 7	Al    OUT2(N1~,N2~)*IN24(M1~,M2~) =
	        VER4(N1,N2,M1,M2,*,A,AL,*,AP,ALP,*,C,GA,*,CP,GAP)
	        *PROP(M1,M2,*,C,GA,P,*,CP,GAP,-P)
	        *NUM(M1,M2,M1,M2)*FOUR(N1,N2,M1,M2)
L 7	Al     OUT1(N1~)*IN1(N2~,N3~) =
	      VER3(N1,N2,N3,*,A,AL,K,*,B,BE,P,*,C,GA,-P)*
	        PROP(N2,N3,*,B,BE,P,*,C,GA,-P)*NUM(N2,N3,N2,N3)
L10	Id    Compo,<X>,VER3,VER4,PROP
L11	Id     VER3(WWW~,A~,AL~,K~,B~,BE~,P~,C~,GA~,Q~) =
	       WWW(A,AL,K,B,BE,P,C,GA,Q)
L11	Al     VER4(WWWW~,A~,AL~,B~,BE~,C~,GA~,E~,EP~) =
	        WWWW(A,AL,B,BE,C,GA,E,EP)
L11	Al     PROP(WW~,A~,AL~,K~,B~,BE~,P~) = WW(A,AL,K,B,BE,P)
L15	Id    Count,DVV,P,1,Q,1,QP,1,NOM,-2,BET,-4,GAM,-2
L16	Id,2   NOM(-P,M~) = NOM(P,M)
L16	Al,2   NOM(-Q,M~) = NOM(Q,M)
L16	Al,2   NOM(-QP,M~) = NOM(QP,M)
L16	Al,2   BET(-P) = BET(P)
L16	Al,2   BET(-Q) = BET(Q)
L16	Al,2   BET(-QP) = BET(QP)
L16	Al,2   GAM(-P)=GAM(P)
L16	Al,2    GAM(-Q) = GAM(Q)
L16	Al,2    GAM(-QP)=GAM(QP)
L18	Id   EP3(A,A1,A3)*EP3(AP,A1,A2)*EP3(APP,A2,A3) = -A123
L19	Id,Adiso,EP3(A~,B~,C~)*EP3(AP~,BP~,CP~) = EP3EP(A,B,C,AP,BP,CP)
L22	Id   Asymm,EP3,1,2,3
L23	Id   EP3(APP,AP,A) = - A123
	*yep

Terms in output 364
Running time 46 sec			Used	Maximum
Generated terms 2614 	Input space 	7982 	100000
Equal terms 1426     	Output space 	24300 	250000
Cancellations 824   	Nr of expr.  	59 	255
Multiplications 57298	String space 	0 	4096
Records written 0 	Merging		0 	0

L 1	Id    DIV**2*QDQ**2 = PDP**2*DIV**2 + 4*PDP*PDK*DIV
L 1	Al   DIV**3*QDQ**2 = PDP**2*DIV**3 + 4*PDP*PDK*DIV**2
	          + 2*PDP*KDK*DIV + 4*PDK**2*DIV
L 1	Al    DIV*QDQ**2 = PDP**2*DIV
L 1	Al    DIV**2*QDQ = PDP*DIV**2 + 2*PDK*DIV
L 1	Al    DIV**3*QDQ = PDP*DIV**3 + 2*PDK*DIV**2 + KDK*DIV
L 1	Al     DIV*QDQ = PDP*DIV
L 2	Id,Dotpr,Q(MU~) = QX(MU)
L 3	Id    Q(MU~) = QX(MU)
L 4	Id,4   DIV**2*QX(MU~) = - DIV*K(MU) - DIV**2*P(MU)
L 4	Al,4   DIV**3*QX(MU~) = - DIV**2*K(MU) - DIV**3*P(MU)
L 4	Al,4   DIV*QX(MU~) = - P(MU)*DIV
L 8	Id    DIV**2*QPDQP**2 = PDP**2*DIV**2 - 4*PDP*PDKK*DIV
L 8	Al     DIV*QPDQP**2 = PDP**2*DIV
L 8	Al     DIV**2*QPDQP = PDP*DIV**2 - 2*PDKK*DIV
L 8	Al    DIV*QPDQP = DIV*PDP
L 9	Id,Dotpr,QP(MU~) = QY(MU)
L 9	Al    QP(MU~) = QY(MU)
L10	Id,4  DIV**2*QY(MU~) = - DIV*KK(MU) + DIV**2*P(MU)
L10	Al,4   DIV*QY(MU~) = DIV*P(MU)
L14	Id,2   DIV**N~*BET(K~) = DIV**N*TW1*NOM(K,M)*NOM(K,GM)
	       + DT(N-3)*DIV**N/DIV**2*TW2*M**2/PDP**3
L17	Id,3   DIV**N~*GAM(K~) = DIV**N*NOM(K,GM)
	       + DT(N-3)*DIV**N/DIV**2*M**2*TP/PDP**2
L21	Id,2   DIV**3*NOM(Q,M~) = DIV**3/PDP - 2*PDK*PDP**-2*DIV**2
	       - DIV*(KDK + M**2)/PDP**2 + 4*DIV*PDK**2/PDP**3
L21	Al,2   DIV**2*NOM(Q,M~) = DIV**2/PDP - 2*PDK*PDP**-2*DIV
L24	Id,2   DIV**2*NOM(QP,M~) = DIV**2/PDP + 2*PDKK*PDP**-2*DIV
L26	Id,4   DIV**3*NOM(P,M~) = DIV**3/PDP - DIV*M**2/PDP**2
L26	Al,4   DIV**2*NOM(P,M~) = DIV**2/PDP
L26	Al,6   DIV*NOM(Q~,M~) = DIV/PDP
L32	Id   DIV**N~ = DK(N,1)*DIV
L32	Al   Numer,PDP,1
	*yep

Terms out 364, in 364.

Terms in output 86
Running time 58 sec			Used	Maximum
Generated terms 854 	Input space 	6198 	100000
Equal terms 661     	Output space 	3628 	250000
Cancellations 107   	Nr of expr.  	42 	255
Multiplications 18804	String space 	0 	4096
Records written 2 	Merging		0 	0

L 1	Id,Dotpr,P(MU~) = X(MU)
L 1	Al   P(MU~) = X(MU)
L 2	Id    X(MU~)*X(M1~) = F(2,M1,MU)
L 3	Id,Adiso,F(2,M1~,M2~)*X(MU~) = F(3,M1,M2,MU)
L 4	Id,Adiso,F(3,M1~,M2~,M3~)*X(MU~) = F(4,M1,M2,M3,MU)
L 5	Id    X(MU~) = 0
L 5	Al    F(3,M1~,M2~,M3~) = 0
C   IN UNITS  I*PI**2/(N-4)
L 6	Id    DIV**N~*F(2,M1~,M2~) = -DK(N,1)*0.5*D(M1,M2)
L 6	Al    DIV**N~*F(4,M1~,M2~,M3~,M4~) = - 1/12*DK(N,1)*
	       (D(M1,M2)*D(M3,M4) + D(M1,M3)*D(M2,M4) + D(M1,M4)*D(M2,M3) )
L 6	Al    DIV**N~ = - 2*DK(N,1)
	*yep

Terms out 86, in 86.

Terms in output 30
Running time 58 sec			Used	Maximum
Generated terms 98 	Input space 	3626 	100000
Equal terms 65     	Output space 	1244 	250000
Cancellations 3   	Nr of expr.  	26 	255
Multiplications 776	String space 	0 	4096
Records written 2 	Merging		0 	0

	B   I,GG
L 1	Id   SM**2=4*AA*M**2
L 2	Id   KP(MU~) = - K(MU) - KK(MU)
L 2	Al,Dotpr,KP(MU~) = - K(MU) - KK(MU)
L 3	Id   TW1 = 1/KAP**2 - 1
L 3	Al    TW2 = (1+LAM**2 - LAM/KAP - LAM*KAP)/KAP**2
L 3	Al    TP = 1/KAP**2 - LAM/KAP
L 3	Al,Multi,GM**2 = LAM*M**2/KAP
L 5	Id   EP3(A~,B~,C~)*EP3(AP~,BP~,CP~) = EP3EP(A,B,C,AP,BP,CP)
L 8	Id    A123=EP3(A,AP,APP)
L 9	Id   Asymm,EP3,1,2,3
	*end

Terms out 30, in 30.

Terms in output 12
Running time 59 sec			Used	Maximum
Generated terms 56 	Input space 	3258 	100000
Equal terms 42     	Output space 	504 	250000
Cancellations 2   	Nr of expr.  	19 	255
Multiplications 224	String space 	0 	4096
Records written 2 	Merging		0 	0

 
WWWV = 
 + EP3(A,AP,APP)*D(AL,ALP)*K(ALPP)*I*GG^3
  * ( 32/3 - 6*KAP^-2 )
 
 + EP3(A,AP,APP)*D(AL,ALP)*KK(ALPP)*I*GG^3
  * ( 16/3 - 3*KAP^-2 )
 
 + EP3(A,AP,APP)*D(AL,ALPP)*K(ALP)*I*GG^3
  * ( - 16/3 + 3*KAP^-2 )
 
 + EP3(A,AP,APP)*D(AL,ALPP)*KK(ALP)*I*GG^3
  * ( 16/3 - 3*KAP^-2 )
 
 + EP3(A,AP,APP)*D(ALP,ALPP)*K(AL)*I*GG^3
  * ( - 16/3 + 3*KAP^-2 )
 
 + EP3(A,AP,APP)*D(ALP,ALPP)*KK(AL)*I*GG^3
  * ( - 32/3 + 6*KAP^-2 ) + 0.
 

End run. Time 59 sec.
