Schoonschip, 68000 version of June 27, 1991. Public version.
Date: Fri Aug  9 1991 19:52:37.  Memory: start 0001B84C, length 476348.

Command line: Stand.e +1 Xax


C e+e- => WW. 1. W selfenergy, minimal subtraction terms.

> P ninput

Begin. Time 1 sec.
> P output
> P stats

Terms out 28, in 28.

Terms in output 50
Running time 9 sec			Used	Maximum
Generated terms 3598 	Input space 	8324 	100000
Equal terms 2925     	Output space 	1544 	250000
Cancellations 623   	Nr of expr.  	27 	255
Multiplications 20784	String space 	46 	4096
Records written 0 	Merging		0 	0

 
IWW = 
 + q(mu)*q(nu)*i*Pi^2
  * ( 22/27 - 20/27*C^2 - 11/27*C^-2 )
 
 + q(mu)*q(nu)*i*Pi^2*N_^-1
  * ( 44/9 - 40/9*C^2 - 22/9*C^-2 )
 
 + D(mu,nu)*i*Pi^2
  * ( 20/27*C^2*qDq + 11/27*C^-2*qDq - 22/27*qDq )
 
 + D(mu,nu)*i*Pi^2*N_^-1
  * ( 40/9*C^2*qDq + 3*C^-2*Mu^2 + 3*C^-2*Md^2 + 22/9*C^-2*qDq
  - 44/9*qDq )
 
 + Log(Mu)*q(mu)*q(nu)*i*Pi^2
  * ( - 32/9*C^2*Mu^2*qDq^-1 - 17/9*C^-2*Mu^2*qDq^-1 + 40/9*Mu^2*qDq^-1 )
 
 + Log(Mu)*D(mu,nu)*i*Pi^2
  * ( 32/9*C^2*Mu^2 + 17/9*C^-2*Mu^2 - 40/9*Mu^2 )
 
 + Log(Md)*q(mu)*q(nu)*i*Pi^2
  * ( - 8/9*C^2*Md^2*qDq^-1 - 5/9*C^-2*Md^2*qDq^-1 + 4/9*Md^2*qDq^-1 )
 
 + Log(Md)*D(mu,nu)*i*Pi^2
  * ( 8/9*C^2*Md^2 + 5/9*C^-2*Md^2 - 4/9*Md^2 )
 
 + B0f(qDq,Mu,Mu)*q(mu)*q(nu)
  * ( - 20/9 + 16/9*C^2 - 32/9*C^2*Mu^2*qDq^-1 + 17/18*C^-2
  - 17/9*C^-2*Mu^2*qDq^-1 + 40/9*Mu^2*qDq^-1 )
 
 + B0f(qDq,Mu,Mu)*D(mu,nu)
  * ( 32/9*C^2*Mu^2 - 16/9*C^2*qDq + 7/18*C^-2*Mu^2 - 17/18*C^-2*qDq
   - 40/9*Mu^2 + 20/9*qDq )
 
 + B0f(qDq,Md,Md)*q(mu)*q(nu)
  * ( - 2/9 + 4/9*C^2 - 8/9*C^2*Md^2*qDq^-1 + 5/18*C^-2 - 5/9*C^-2
  *Md^2*qDq^-1 + 4/9*Md^2*qDq^-1 )
 
 + B0f(qDq,Md,Md)*D(mu,nu)
  * ( 8/9*C^2*Md^2 - 4/9*C^2*qDq - 17/18*C^-2*Md^2 - 5/18*C^-2*qDq
   - 4/9*Md^2 + 2/9*qDq ) + 0.
 
> P input
C Minimal subtraction terms.
> P ninput
> P output

Terms out 50, in 50.

Terms in output 8
Running time 9 sec			Used	Maximum
Generated terms 8 	Input space 	6836 	100000
Equal terms 0     	Output space 	246 	250000
Cancellations 0   	Nr of expr.  	14 	255
Multiplications 148	String space 	46 	4096
Records written 0 	Merging		0 	0

 
IWW = 
 + q(mu)*q(nu)*i*Pi^2*N_^-1
  * ( 44/9 - 40/9*C^2 - 22/9*C^-2 )
 
 + D(mu,nu)*i*Pi^2*N_^-1
  * ( 40/9*C^2*qDq + 3*C^-2*Mu^2 + 3*C^-2*Md^2 + 22/9*C^-2*qDq
  - 44/9*qDq ) + 0.
 
> P input
C Zero weak mixing angle.
L 1	Id,C^n~=1
	*end

Terms out 8, in 8.

Terms in output 4
Running time 9 sec			Used	Maximum
Generated terms 8 	Input space 	6120 	100000
Equal terms 4     	Output space 	150 	250000
Cancellations 0   	Nr of expr.  	9 	255
Multiplications 28	String space 	46 	4096
Records written 0 	Merging		0 	0

 
IWW = - 2*q(mu)*q(nu)*i*Pi^2*N_^-1
 
 + D(mu,nu)*i*Pi^2*N_^-1
  * ( 3*Mu^2 + 3*Md^2 + 2*qDq ) + 0.
 

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


C e+e- => WW. 2. W selfenergy due to a fermion generation.

> P ninput

Begin. Time 2 sec.
> P stats

Terms out 48, in 48.

Terms in output 32
Running time 15 sec			Used	Maximum
Generated terms 5652 	Input space 	8424 	100000
Equal terms 5020     	Output space 	1340 	250000
Cancellations 600   	Nr of expr.  	28 	255
Multiplications 38932	String space 	46 	4096
Records written 0 	Merging		0 	0

 
IWW(mu,nu) = 
 - 4/9*q(mu)*q(nu)*i*Pi^2
 
 - 8/3*q(mu)*q(nu)*i*Pi^2*N_^-1
 
 + D(mu,nu)*i*Pi^2
  * ( 4/9*qDq )
 
 + D(mu,nu)*i*Pi^2*N_^-1
  * ( 3*Mu^2 + 3*Md^2 + Me^2 + Mn^2 + 8/3*qDq )
 
 + Log(Mu)*q(mu)*q(nu)*i*Pi^2
  * ( - Mu^2*qDq^-1 )
 
 + Log(Mu)*D(mu,nu)*i*Pi^2
  * ( Mu^2 )
 
 + Log(Md)*q(mu)*q(nu)*i*Pi^2
  * ( - Md^2*qDq^-1 )
 
 + Log(Md)*D(mu,nu)*i*Pi^2
  * ( Md^2 )
 
 + Log(Me)*q(mu)*q(nu)*i*Pi^2
  * ( - 1/3*Me^2*qDq^-1 )
 
 + Log(Me)*D(mu,nu)*i*Pi^2
  * ( 1/3*Me^2 )
 
 + Log(Mn)*q(mu)*q(nu)*i*Pi^2
  * ( - 1/3*Mn^2*qDq^-1 )
 
 + Log(Mn)*D(mu,nu)*i*Pi^2
  * ( 1/3*Mn^2 )
 
 + B0f(qDq,Mu,Mu)*q(mu)*q(nu)
  * ( 1/2 - Mu^2*qDq^-1 )
 
 + B0f(qDq,Mu,Mu)*D(mu,nu)
  * ( - 1/2*Mu^2 - 1/2*qDq )
 
 + B0f(qDq,Md,Md)*q(mu)*q(nu)
  * ( 1/2 - Md^2*qDq^-1 )
 
 + B0f(qDq,Md,Md)*D(mu,nu)
  * ( - 1/2*Md^2 - 1/2*qDq )
 
 + B0f(qDq,Me,Me)*q(mu)*q(nu)
  * ( 1/6 - 1/3*Me^2*qDq^-1 )
 
 + B0f(qDq,Me,Me)*D(mu,nu)
  * ( - 1/6*Me^2 - 1/6*qDq )
 
 + B0f(qDq,Mn,Mn)*q(mu)*q(nu)
  * ( 1/6 - 1/3*Mn^2*qDq^-1 )
 
 + B0f(qDq,Mn,Mn)*D(mu,nu)
  * ( - 1/6*Mn^2 - 1/6*qDq ) + 0.
 

Begin. Time 16 sec.

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


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


C e+e- => WW. 3. Approximation for high energy of selfenergy correction.
  Uses output from 2.

> P ninput

Begin. Time 1 sec.
 
IZZ = 
 - 4/9*q(mu)*q(nu)*Wave*i*Pi^2
 
 - 8/3*q(mu)*q(nu)*Wave*i*Pi^2*N_^-1
 
 + D(mu,nu)*i*Pi^2*N_^-1
  * ( 3*Mu^2 )
 
 + Log(Mu)*q(mu)*q(nu)*Wave*i*Pi^2
  * ( Mu^2*E^-2 )
 
 + B0f(qDq,Mu,Mu)*q(mu)*q(nu)*Wave
  * ( 1/2 + Mu^2*E^-2 )
 
 + B0f(qDq,Mu,Mu)*D(mu,nu)
  * ( - 3/2*Mu^2 )
 
 + 1/2*B0f(qDq,Md,Md)*q(mu)*q(nu)*Wave
 
 + 1/6*B0f(qDq,Me,Me)*q(mu)*q(nu)*Wave
 
 + 1/6*B0f(qDq,Mn,Mn)*q(mu)*q(nu)*Wave + 0.
 

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


C e+e- => WW. 4. WWW vertex contribution due to a fermion generation.

> P ninput

Begin. Time 2 sec.
> P stats

Terms out 34, in 34.

Terms in output 69
Running time 3 sec			Used	Maximum
Generated terms 69 	Input space 	6924 	100000
Equal terms 0     	Output space 	5110 	250000
Cancellations 0   	Nr of expr.  	17 	255
Multiplications 257	String space 	40 	4096
Records written 0 	Merging		0 	0


Terms out 69, in 69.

Terms in output 244
Running time 4 sec			Used	Maximum
Generated terms 246 	Input space 	8656 	100000
Equal terms 2     	Output space 	17354 	250000
Cancellations 0   	Nr of expr.  	37 	255
Multiplications 826	String space 	40 	4096
Records written 0 	Merging		0 	0


Terms out 244, in 244.

Terms in output 627
Running time 16 sec			Used	Maximum
Generated terms 1857 	Input space 	7784 	100000
Equal terms 988     	Output space 	22398 	250000
Cancellations 242   	Nr of expr.  	34 	255
Multiplications 24476	String space 	40 	4096
Records written 2 	Merging		0 	0


Terms out 627, in 627.

Terms in output 290
Running time 20 sec			Used	Maximum
Generated terms 897 	Input space 	8136 	100000
Equal terms 580     	Output space 	11472 	250000
Cancellations 27   	Nr of expr.  	46 	255
Multiplications 4296	String space 	46 	4096
Records written 4 	Merging		0 	0

> P output

Terms out 290, in 290.

Terms in output 76
Running time 22 sec			Used	Maximum
Generated terms 456 	Input space 	7704 	100000
Equal terms 238     	Output space 	2868 	250000
Cancellations 142   	Nr of expr.  	36 	255
Multiplications 3148	String space 	46 	4096
Records written 4 	Merging		0 	0

 
IWWpWm(mu) = 
 + p(mu)*i*Pi^2
  * ( 8/3 + 4/3*M^-2*E^2 )
 
 + p(mu)*i*Pi^4
  * ( - 16*M^-2*g0*E^2 - 32*g0 )
 
 + C11(Mu,Md,Mu)*p(mu)
  * ( 3/2*E^2 )
 
 + C11(Md,Mu,Md)*p(mu)
  * ( 3/2*E^2 )
 
 + C11(Me,Mn,Me)*p(mu)
  * ( 1/2*E^2 )
 
 + C11(Mn,Me,Mn)*p(mu)
  * ( 1/2*E^2 )
 
 + C21(Mu,Md,Mu)*p(mu)
  * ( - 3/2*M^2 + 3*E^2 )
 
 + C21(Md,Mu,Md)*p(mu)
  * ( - 3/2*M^2 + 3*E^2 )
 
 + C21(Me,Mn,Me)*p(mu)
  * ( - 1/2*M^2 + E^2 )
 
 + C21(Mn,Me,Mn)*p(mu)
  * ( - 1/2*M^2 + E^2 )
 
 + C22(Mu,Md,Mu)*p(mu)
  * ( - 3/2*M^2 - 3/2*E^2 )
 
 + C22(Md,Mu,Md)*p(mu)
  * ( - 3/2*M^2 - 3/2*E^2 )
 
 + C22(Me,Mn,Me)*p(mu)
  * ( - 1/2*M^2 - 1/2*E^2 )
 
 + C22(Mn,Me,Mn)*p(mu)
  * ( - 1/2*M^2 - 1/2*E^2 )
 
 + C23(Mu,Md,Mu)*p(mu)
  * ( 3*M^2 )
 
 + C23(Md,Mu,Md)*p(mu)
  * ( 3*M^2 )
 
 + C23(Me,Mn,Me)*p(mu)
  * ( M^2 )
 
 + C23(Mn,Me,Mn)*p(mu)
  * ( M^2 )
 
 + C24(Mu,Md,Mu)*p(mu)
  * ( - 3 - 3*M^-2*E^2 )
 
 + C24(Md,Mu,Md)*p(mu)
  * ( - 3 - 3*M^-2*E^2 )
 
 + C24(Me,Mn,Me)*p(mu)
  * ( - 1 - M^-2*E^2 )
 
 + C24(Mn,Me,Mn)*p(mu)
  * ( - 1 - M^-2*E^2 )
 
 + C31(Mu,Md,Mu)*p(mu)
  * ( - 3/2*M^2 + 3/2*E^2 )
 
 + C31(Md,Mu,Md)*p(mu)
  * ( - 3/2*M^2 + 3/2*E^2 )
 
 + C31(Me,Mn,Me)*p(mu)
  * ( - 1/2*M^2 + 1/2*E^2 )
 
 + C31(Mn,Me,Mn)*p(mu)
  * ( - 1/2*M^2 + 1/2*E^2 )
 
 + C32(Mu,Md,Mu)*p(mu)
  * ( 3/2*M^2 - 3/2*E^2 )
 
 + C32(Md,Mu,Md)*p(mu)
  * ( 3/2*M^2 - 3/2*E^2 )
 
 + C32(Me,Mn,Me)*p(mu)
  * ( 1/2*M^2 - 1/2*E^2 )
 
 + C32(Mn,Me,Mn)*p(mu)
  * ( 1/2*M^2 - 1/2*E^2 )
 
 + C33(Mu,Md,Mu)*p(mu)
  * ( 9/2*M^2 )
 
 + C33(Md,Mu,Md)*p(mu)
  * ( 9/2*M^2 )
 
 + C33(Me,Mn,Me)*p(mu)
  * ( 3/2*M^2 )
 
 + C33(Mn,Me,Mn)*p(mu)
  * ( 3/2*M^2 )
 
 + C34(Mu,Md,Mu)*p(mu)
  * ( - 9/2*M^2 )
 
 + C34(Md,Mu,Md)*p(mu)
  * ( - 9/2*M^2 )
 
 + C34(Me,Mn,Me)*p(mu)
  * ( - 3/2*M^2 )
 
 + C34(Mn,Me,Mn)*p(mu)
  * ( - 3/2*M^2 )
 
 + C35(Mu,Md,Mu)*p(mu)
  * ( 3 - 3*M^-2*E^2 )
 
 + C35(Md,Mu,Md)*p(mu)
  * ( 3 - 3*M^-2*E^2 )
 
 + C35(Me,Mn,Me)*p(mu)
  * ( 1 - M^-2*E^2 )
 
 + C35(Mn,Me,Mn)*p(mu)
  * ( 1 - M^-2*E^2 )
 
 + C36(Mu,Md,Mu)*p(mu)
  * ( - 3 + 3*M^-2*E^2 )
 
 + C36(Md,Mu,Md)*p(mu)
  * ( - 3 + 3*M^-2*E^2 )
 
 + C36(Me,Mn,Me)*p(mu)
  * ( - 1 + M^-2*E^2 )
 
 + C36(Mn,Me,Mn)*p(mu)
  * ( - 1 + M^-2*E^2 ) + 0.
 

Begin. Time 22 sec.

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


End run. Time 22 sec.
Schoonschip, 68000 version of June 27, 1991. Public version.
Date: Fri Aug  9 1991 19:53:34.  Memory: start 0001B84C, length 476348.


C e+e- => WW. 5. Approximation for high energy of WWW vertex correction.
  Uses output of 4.

> P ninput

Begin. Time 2 sec.
> P output
 
IZWW = 
 + p(mu)*i*Pi^2
  * ( - 4/9 + 5/2*M^2*Mu^4*r^-4*s^-1 + 5/6*M^4*r^-4 - 10/3*M^4*r^-2
  *s^-1 - 10/3*M^6*r^-4*s^-1 + 1/4*M^-4*Mu^4*r^-2*s - 2*M^-2*Mu^4*r^-2
   + 4/9*M^-2*s - 5/8*Mu^4*r^-4 + 5/2*Mu^4*r^-2*s^-1 + 1/3*r^-2*s )
 
 + p(mu)*i*Pi^2*N_^-1
  * ( 16/3 + 8/3*M^-2*s )
 
 + p(mu)*g0*i*Pi^4
  * ( - 32 - 16*M^-2*s )
 
 + Log(Mu)*p(mu)*i*Pi^2
  * ( - 5/2*M^2*Mu^4*r^-4*s^-1 - 1/4*M^-4*Mu^4*r^-2*s + 1/4*M^-2*Mu^2
  *r^-2*s + 2*M^-2*Mu^4*r^-2 - Mu^2*r^-2 + 5/8*Mu^4*r^-4 - 5/2*Mu^4
  *r^-2*s^-1 )
 
 + C0(Mu,0,Mu)*p(mu)
  * ( 3/2*M^2*Mu^2*r^-2 - 63/16*M^2*Mu^4*r^-4 + 27/4*M^2*Mu^4*r^-2
  *s^-1 - 3/4*M^2*Mu^6*r^-4*s^-1 + 81/16*M^4*Mu^2*r^-4 - 45/4*M^4*Mu^2
  *r^-2*s^-1 + 27/4*M^4*Mu^4*r^-4*s^-1 + 15/8*M^4*Mu^6*r^-6*s^-1
  - 15/2*M^4*Mu^6*r^-4*s^-2 - 45/4*M^6*Mu^2*r^-4*s^-1 - 45/8*M^6*Mu^4
  *r^-6*s^-1 + 45/2*M^6*Mu^4*r^-4*s^-2 - 15/2*M^6*Mu^6*r^-6*s^-2
  - 33/16*M^6*r^-4 + 21/4*M^6*r^-2*s^-1 + 45/8*M^8*Mu^2*r^-6*s^-1
  - 45/2*M^8*Mu^2*r^-4*s^-2 + 45/2*M^8*Mu^4*r^-6*s^-2 + 21/4*M^8*r^-4
  *s^-1 - 45/2*M^10*Mu^2*r^-6*s^-2 - 15/8*M^10*r^-6*s^-1 + 15/2*M^10
  *r^-4*s^-2 + 15/2*M^12*r^-6*s^-2 + 3/4*M^-2*Mu^6*r^-2 - 9/4*Mu^4
  *r^-2 + 15/16*Mu^6*r^-4 - 3/4*Mu^6*r^-2*s^-1 )
 
 + C0(Me,0,Me)*p(mu)
  * ( - 11/16*M^6*r^-4 + 7/4*M^6*r^-2*s^-1 + 7/4*M^8*r^-4*s^-1
  - 5/8*M^10*r^-6*s^-1 + 5/2*M^10*r^-4*s^-2 + 5/2*M^12*r^-6*s^-2 )
 
 + C0(0,Mu,0)*p(mu)
  * ( - 3/4*M^2*Mu^2*r^-2 - 81/16*M^2*Mu^4*r^-4 + 45/4*M^2*Mu^4*r^-2
  *s^-1 + 3/4*M^2*Mu^6*r^-4*s^-1 - 99/16*M^4*Mu^2*r^-4 + 63/4*M^4*Mu^2
  *r^-2*s^-1 + 45/4*M^4*Mu^4*r^-4*s^-1 - 15/8*M^4*Mu^6*r^-6*s^-1
  + 15/2*M^4*Mu^6*r^-4*s^-2 + 63/4*M^6*Mu^2*r^-4*s^-1 - 45/8*M^6*Mu^4
  *r^-6*s^-1 + 45/2*M^6*Mu^4*r^-4*s^-2 + 15/2*M^6*Mu^6*r^-6*s^-2
  - 33/16*M^6*r^-4 + 21/4*M^6*r^-2*s^-1 - 45/8*M^8*Mu^2*r^-6*s^-1
  + 45/2*M^8*Mu^2*r^-4*s^-2 + 45/2*M^8*Mu^4*r^-6*s^-2 + 21/4*M^8*r^-4
  *s^-1 + 45/2*M^10*Mu^2*r^-6*s^-2 - 15/8*M^10*r^-6*s^-1 + 15/2*M^10
  *r^-4*s^-2 + 15/2*M^12*r^-6*s^-2 - 3/4*M^-2*Mu^4*r^-2*s
  - 3/4*M^-2*Mu^6*r^-2 + 3*Mu^2 - 3/4*Mu^2*r^-2*s - 3/2*Mu^4*r^-2
  - 15/16*Mu^6*r^-4 + 3/4*Mu^6*r^-2*s^-1 )
 
 + C0(0,Me,0)*p(mu)
  * ( - 11/16*M^6*r^-4 + 7/4*M^6*r^-2*s^-1 + 7/4*M^8*r^-4*s^-1
  - 5/8*M^10*r^-6*s^-1 + 5/2*M^10*r^-4*s^-2 + 5/2*M^12*r^-6*s^-2 )
 
 + B0f(qDq,Mu,Mu)*p(mu)
  * ( - 1 - 43/16*M^2*Mu^2*r^-4 + 19/4*M^2*Mu^2*r^-2*s^-1
  - 3/4*M^2*Mu^4*r^-4*s^-1 + 1/2*M^2*r^-2 + 19/4*M^4*Mu^2*r^-4*s^-1
   + 15/8*M^4*Mu^4*r^-6*s^-1 - 15/2*M^4*Mu^4*r^-4*s^-2 + 7/4*M^4*r^-4
   - 4*M^4*r^-2*s^-1 - 15/4*M^6*Mu^2*r^-6*s^-1 + 15*M^6*Mu^2*r^-4*s^-2
   - 15/2*M^6*Mu^4*r^-6*s^-2 - 4*M^6*r^-4*s^-1 + 15*M^8*Mu^2*r^-6*s^-2
   + 15/8*M^8*r^-6*s^-1 - 15/2*M^8*r^-4*s^-2 - 15/2*M^10*r^-6*s^-2
   + 1/8*M^-2*Mu^2*r^-2*s + 3/4*M^-2*Mu^4*r^-2 - 1/2*M^-2*s
  - 3/2*Mu^2*r^-2 + 15/16*Mu^4*r^-4 - 3/4*Mu^4*r^-2*s^-1 - 1/4*r^-2
  *s )
 
 + B0f(qDq,Me,Me)*p(mu)
  * ( - 1/3 + 1/6*M^2*r^-2 + 7/12*M^4*r^-4 - 4/3*M^4*r^-2*s^-1
  - 4/3*M^6*r^-4*s^-1 + 5/8*M^8*r^-6*s^-1 - 5/2*M^8*r^-4*s^-2
  - 5/2*M^10*r^-6*s^-2 - 1/6*M^-2*s - 1/12*r^-2*s )
 
 + B0f(qDq,0,0)*p(mu)
  * ( - 4/3 + 51/16*M^2*Mu^2*r^-4 - 27/4*M^2*Mu^2*r^-2*s^-1
  - 3/4*M^2*Mu^4*r^-4*s^-1 + 2/3*M^2*r^-2 - 27/4*M^4*Mu^2*r^-4*s^-1
   + 15/8*M^4*Mu^4*r^-6*s^-1 - 15/2*M^4*Mu^4*r^-4*s^-2 + 7/3*M^4*r^-4
   - 16/3*M^4*r^-2*s^-1 + 15/4*M^6*Mu^2*r^-6*s^-1 - 15*M^6*Mu^2*r^-4
  *s^-2 - 15/2*M^6*Mu^4*r^-6*s^-2 - 16/3*M^6*r^-4*s^-1 - 15*M^8*Mu^2
  *r^-6*s^-2 + 5/2*M^8*r^-6*s^-1 - 10*M^8*r^-4*s^-2 - 10*M^10*r^-6
  *s^-2 + 3/8*M^-2*Mu^2*r^-2*s + 3/4*M^-2*Mu^4*r^-2 - 2/3*M^-2*s
  + 3/4*Mu^2*r^-2 + 15/16*Mu^4*r^-4 - 3/4*Mu^4*r^-2*s^-1 - 1/3*r^-2
  *s )
 
 + B0f(pDp,Mu,0)*p(mu)
  * ( - 1/2*M^2*Mu^2*r^-4 + 2*M^2*Mu^2*r^-2*s^-1 - M^2*Mu^4*r^-4*s^-1
   - M^2*r^-2 + 2*M^4*Mu^2*r^-4*s^-1 - 15/4*M^4*Mu^4*r^-6*s^-1
  + 15*M^4*Mu^4*r^-4*s^-2 - 7/2*M^4*r^-4 + 8*M^4*r^-2*s^-1
  + 15*M^6*Mu^4*r^-6*s^-2 + 8*M^6*r^-4*s^-1 - 15/4*M^8*r^-6*s^-1
  + 15*M^8*r^-4*s^-2 + 15*M^10*r^-6*s^-2 - 1/4*M^-4*Mu^4*r^-2*s
  - 1/4*M^-2*Mu^2*r^-2*s + 1/2*M^-2*Mu^4*r^-2 - 1/4*Mu^2*r^-2
  - 5/4*Mu^4*r^-4 - Mu^4*r^-2*s^-1 + 1/2*r^-2*s )
 
 + B0f(pDp,Me,0)*p(mu)
  * ( - 1/3*M^2*r^-2 - 7/6*M^4*r^-4 + 8/3*M^4*r^-2*s^-1 + 8/3*M^6*r^-4
  *s^-1 - 5/4*M^8*r^-6*s^-1 + 5*M^8*r^-4*s^-2 + 5*M^10*r^-6*s^-2
  + 1/6*r^-2*s ) + 0.
 
> P output
 
IZWW = 
 + p(mu)*i*Pi^2
  * ( M^-4*Mu^4 - 4*M^-2*Mu^4*E^-2 + 4/9*M^-2*E^2 )
 
 + p(mu)*i*Pi^2*N_^-1
  * ( 16/3 + 8/3*M^-2*E^2 )
 
 + p(mu)*g0*i*Pi^4
  * ( - 32 - 16*M^-2*E^2 )
 
 + Log(Mu)*p(mu)*i*Pi^2
  * ( - M^-4*Mu^4 + M^-2*Mu^2 + 4*M^-2*Mu^4*E^-2 )
 
 + C0(Mu,0,Mu)*p(mu)
  * ( 3*M^-2*Mu^6*E^-2 )
 
 + C0(0,Mu,0)*p(mu)
  * ( - 3*M^-2*Mu^4 - 3*M^-2*Mu^6*E^-2 )
 
 + B0f(qDq,Mu,Mu)*p(mu)
  * ( 1/2*M^-2*Mu^2 + 3*M^-2*Mu^4*E^-2 - 1/2*M^-2*E^2 )
 
 + B0f(qDq,Me,Me)*p(mu)
  * ( - 1/6*M^-2*E^2 )
 
 + B0f(qDq,0,0)*p(mu)
  * ( 3/2*M^-2*Mu^2 + 3*M^-2*Mu^4*E^-2 - 2/3*M^-2*E^2 )
 
 + B0f(pDp,Mu,0)*p(mu)
  * ( - M^-4*Mu^4 - M^-2*Mu^2 - 2*M^-2*Mu^4*E^-2 ) + 0.
 
 
IZWW = 
 + p(mu)*g0
  * ( 1 + 2*M^2*E^-2 )
 
 + p(mu)*Alw*Pi^-1
  * ( 5/9 - 3/8*Mu^2*E^-2 )
 
 + p(mu)*Alw*Pi^-1*N_^-1
  * ( - 2/3 - 4/3*M^2*E^-2 )
 
 - 1/3*Log(Mu)*p(mu)*Alw*Pi^-1
 
 + Log(eps)*p(mu)*Alw*Pi^-1
  * ( 1/3 - 3/4*Mu^2*E^-2 ) + 0.
 

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

C e+e- => WW. 6. Approximation for large equal masses of selfenerg correction.
  Uses common file Self.

> P ninput

Begin. Time 1 sec.
 
IZZ = 
 - 4/9*q(mu)*q(nu)*Wave*i*Pi^2
 
 - 8/3*q(mu)*q(nu)*Wave*i*Pi^2*N_^-1
 
 + D(mu,nu)*i*Pi^2*N_^-1
  * ( 8*Mx^2 )
 
 - 4/3*Log(Mx)*q(mu)*q(nu)*Wave*i*Pi^2
 
 + Log(Mx)*D(mu,nu)*i*Pi^2
  * ( 4*Mx^2 ) + 0.
 

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


C e+e- => WW. 7. Approximation for large equal masses of WWW vertex correction.
  Uses common file Vertex.
> P ninput

Begin. Time 2 sec.
 
IZWWMx = 
 + p(mu)*i*Pi^2
  * ( - 4/9 + 5/6*M^4*r^-4 - 10/3*M^4*r^-2*s^-1 - 10/3*M^6*r^-4*s^-1
   + 4/9*M^-2*s + 1/3*r^-2*s )
 
 + p(mu)*i*Pi^2*N_^-1
  * ( 16/3 + 8/3*M^-2*s )
 
 + p(mu)*i*Pi^4
  * ( - 16*M^-2*g0*s - 32*g0 )
 
 + Log(Mx)*p(mu)*i*Pi^2
  * ( 8/3 + 4/3*M^-2*s )
 
 + C0(Mx,Mx,Mx)*p(mu)
  * ( 8*Mx^2 + 2*M^2*r^-2*Mx^2 - 3*M^4*r^-4*Mx^2 + 12*M^4*r^-2*s^-1
  *Mx^2 - 11/2*M^6*r^-4 + 12*M^6*r^-4*s^-1*Mx^2 + 14*M^6*r^-2*s^-1
   + 14*M^8*r^-4*s^-1 - 5*M^10*r^-6*s^-1 + 20*M^10*r^-4*s^-2
  + 20*M^12*r^-6*s^-2 - 2*r^-2*s*Mx^2 ) + 0.
 

End run. Time 6 sec.
