Schoonschip, 68000 version of June 27, 1991. Public version.
Date: Fri Aug  9 1991 18:33:39.  Memory: start 0001B84C, length 476348.

Command line: +1 Roparam.e Ro_out


C RO-parameter 1. Divergencies of one-loop diagrams, two external lines.

C ONE-LOOP DIAGRAMS WITH TWO EXTERNAL LINES.
C CALCULATION OF ONE-LOOP DIVERGENCIES.
C CHECKING OF COUNTERTERMS ALSO DONE.

C Running time (CPU only) on Lansing CDC: 27 sec.
C The new character sum techniques give about a factor 2 improvement.

	Oldnew i=I
> P ninp

Begin. Time 2 sec.
> P ninput
> P ninput
> P output
 
TADP = 
 + EP*TIPI2
  * ( - 1/8*M*SM^2 - 1/16*M*SM^2*C^-2 - 1/16*M*SM^2*C^-2*DLP
  - 1/8*M*SM^2*DLP - 1/4*M^3 - 1/8*M^3*C^-4 - 1/8*M^3*C^-4*DLP
  - 1/4*M^3*DLP - 3/16*M^-1*SM^4 - 3/16*M^-1*SM^4*DLP )
 
 + EP*PI2*TIPI2
  * ( - 1/96*M*SM^2 - 1/192*M*SM^2*C^-2 - 1/192*M*SM^2*C^-2*DLP
  - 1/96*M*SM^2*DLP - 1/16*M^3 - 1/32*M^3*C^-4 - 1/32*M^3*C^-4*DLP
   - 1/16*M^3*DLP - 1/64*M^-1*SM^4 - 1/64*M^-1*SM^4*DLP )
 
 + TIPI2
  * ( 1/4*M*SM^2 + 1/8*M*SM^2*C^-2 + 1/8*M*SM^2*C^-2*DLP + 1/4*M*SM^2
  *DLP + 1/2*M^3 + 1/4*M^3*C^-4 + 1/4*M^3*C^-4*DLP + 1/2*M^3*DLP
  + 3/8*M^-1*SM^4 + 3/8*M^-1*SM^4*DLP )
 
 + DEL
  * ( - 1/2*M*SM^2 - 1/4*M*SM^2*C^-2 - 1/4*M*SM^2*C^-2*DLP
  - 1/2*M*SM^2*DLP - 3*M^3 - 3/2*M^3*C^-4 - 3/2*M^3*C^-4*DLP
  - 3*M^3*DLP - 3/4*M^-1*SM^4 - 3/4*M^-1*SM^4*DLP )
 
 + LG(M)*EP*TIPI2
  * ( 1/8*M*SM^2 + 1/8*M*SM^2*DLP + 1/4*M^3 + 1/4*M^3*DLP )
 
 + LG(M)*TIPI2
  * ( - 1/4*M*SM^2 - 1/4*M*SM^2*DLP - 3/2*M^3 - 3/2*M^3*DLP )
 
 + LG(M)*LG(M)*EP*TIPI2
  * ( - 1/16*M*SM^2 - 1/16*M*SM^2*DLP - 3/8*M^3 - 3/8*M^3*DLP )
 
 + LG(M0)*EP*TIPI2
  * ( 1/16*M*SM^2*C^-2 + 1/16*M*SM^2*C^-2*DLP + 1/8*M^3*C^-4
  + 1/8*M^3*C^-4*DLP )
 
 + LG(M0)*TIPI2
  * ( - 1/8*M*SM^2*C^-2 - 1/8*M*SM^2*C^-2*DLP - 3/4*M^3*C^-4
  - 3/4*M^3*C^-4*DLP )
 
 + LG(M0)*LG(M0)*EP*TIPI2
  * ( - 1/32*M*SM^2*C^-2 - 1/32*M*SM^2*C^-2*DLP - 3/16*M^3*C^-4
  - 3/16*M^3*C^-4*DLP )
 
 + LG(SM)*EP*TIPI2
  * ( 3/16*M^-1*SM^4 + 3/16*M^-1*SM^4*DLP )
 
 + LG(SM)*TIPI2
  * ( - 3/8*M^-1*SM^4 - 3/8*M^-1*SM^4*DLP )
 
 + LG(SM)*LG(SM)*EP*TIPI2
  * ( - 3/32*M^-1*SM^4 - 3/32*M^-1*SM^4*DLP ) + 0.
 
 
TADP = 0. + 0.
 
> P input
	Z IAA=SELF("A,"A)
> WORK{IAA}
> P ninput
> P output
 
IAA = 
 + Q(MU)*Q(NU)*DEL
  * ( 3 - 3*C^2 - 3*C^2*DLP + 3*DLP )
 
 + D(MU,NU)*DEL
  * ( 3*C^2*DLP*QDQ + 3*C^2*QDQ - 3*DLP*QDQ - 3*QDQ ) + 0.
 
 
IAA = 0. + 0.
 
> P input
	Z IAF=SELF("A,"F)
> WORK{IAF}
> P ninput
> P output
 
IAF = + Q(MU)*I*DEL
  * ( 2*M*S + 2*M*S*DLP ) + 0.
 
 
IAF = 0. + 0.
 
> P input
	Z IAW=SELF("A,"W)
> WORK{IAW}
> P ninput
> P output
 
IAW = 
 + Q(MU)*Q(NU)*DEL
  * ( 3*C*S + 3*C*S*DLP + 1/6*C^-1*S + 1/6*C^-1*S*DLP )
 
 + D(MU,NU)*DEL
  * ( 2*M^2*C^-1*S + 2*M^2*C^-1*S*DLP - 3*C*S*DLP*QDQ - 3*C*S*QDQ
  - 1/6*C^-1*S*DLP*QDQ - 1/6*C^-1*S*QDQ ) + 0.
 
 
IAW = 0. + 0.
 
> P input
	Z IAZ=SELF("A,"Z)
> WORK{IAZ}
> P ninput
> P output
 
IAZ = 0. + 0.
 
 
IAZ = 0. + 0.
 
> P input
	Z IFF=SELF("F,"F)
> WORK{IFF}
> P ninput
> P output
 
IFF = 
 + EP*TIPI2
  * ( - 1/16*M^2*C^-4*DLP - 1/8*M^2*DLP + 3/64*M^-2*SM^2*DLP*QDQ
  + 3/64*M^-2*SM^2*QDQ - 3/32*M^-2*SM^4 - 3/32*M^-2*SM^4*DLP
  - 1/16*SM^2 - 1/32*SM^2*C^-2 - 1/32*SM^2*C^-2*DLP - 1/16*SM^2*DLP )
 
 + EP*PI2*TIPI2
  * ( - 1/64*M^2*C^-4*DLP - 1/32*M^2*DLP - 1/128*M^-2*SM^4
  - 1/128*M^-2*SM^4*DLP - 1/192*SM^2 - 1/384*SM^2*C^-2 - 1/384*SM^2
  *C^-2*DLP - 1/192*SM^2*DLP )
 
 + TIPI2
  * ( 1/8*M^2*C^-4*DLP + 1/4*M^2*DLP - 1/16*M^-2*SM^2*DLP*QDQ
  - 1/16*M^-2*SM^2*QDQ + 3/16*M^-2*SM^4 + 3/16*M^-2*SM^4*DLP
  + 1/8*SM^2 + 1/16*SM^2*C^-2 + 1/16*SM^2*C^-2*DLP + 1/8*SM^2*DLP )
 
 + DEL
  * ( - 3/2*M^2 - 3/4*M^2*C^-4 - 3/4*M^2*C^-4*DLP - 3/2*M^2*DLP
  - 3/8*M^-2*SM^4 - 3/8*M^-2*SM^4*DLP - 1/4*SM^2 - 1/8*SM^2*C^-2
  - 1/8*SM^2*C^-2*DLP - 1/4*SM^2*DLP - 1/2*C^-2*DLP*QDQ - 1/2*C^-2
  *QDQ - DLP*QDQ - QDQ )
 
 + LG(M)*EP*TIPI2
  * ( 1/8*M^2*DLP + 1/16*SM^2 + 1/16*SM^2*DLP )
 
 + LG(M)*TIPI2
  * ( - 3/4*M^2*DLP - 1/8*SM^2 - 1/8*SM^2*DLP )
 
 + LG(M)*LG(M)*EP*TIPI2
  * ( - 3/16*M^2*DLP - 1/32*SM^2 - 1/32*SM^2*DLP )
 
 + LG(M0)*EP*TIPI2
  * ( 1/16*M^2*C^-4*DLP + 1/32*SM^2*C^-2 + 1/32*SM^2*C^-2*DLP )
 
 + LG(M0)*TIPI2
  * ( - 3/8*M^2*C^-4*DLP - 1/16*SM^2*C^-2 - 1/16*SM^2*C^-2*DLP )
 
 + LG(M0)*LG(M0)*EP*TIPI2
  * ( - 3/32*M^2*C^-4*DLP - 1/64*SM^2*C^-2 - 1/64*SM^2*C^-2*DLP )
 
 + LG(SM)*EP*TIPI2
  * ( - 1/32*M^-2*SM^2*DLP*QDQ - 1/32*M^-2*SM^2*QDQ + 3/32*M^-2*SM^4
   + 3/32*M^-2*SM^4*DLP )
 
 + LG(SM)*TIPI2
  * ( - 3/16*M^-2*SM^4 - 3/16*M^-2*SM^4*DLP )
 
 + LG(SM)*LG(SM)*EP*TIPI2
  * ( - 3/64*M^-2*SM^4 - 3/64*M^-2*SM^4*DLP ) + 0.
 
 
IFF = 
 + EP*TIPI2
  * ( 1/8*M^2 + 1/16*M^2*C^-4 )
 
 + EP*PI2*TIPI2
  * ( 1/32*M^2 + 1/64*M^2*C^-4 )
 
 + TIPI2
  * ( - 1/4*M^2 - 1/8*M^2*C^-4 )
 
 + LG(M)*EP*TIPI2
  * ( - 1/8*M^2 )
 
 + LG(M)*TIPI2
  * ( 3/4*M^2 )
 
 + LG(M)*LG(M)*EP*TIPI2
  * ( 3/16*M^2 )
 
 + LG(M0)*EP*TIPI2
  * ( - 1/16*M^2*C^-4 )
 
 + LG(M0)*TIPI2
  * ( 3/8*M^2*C^-4 )
 
 + LG(M0)*LG(M0)*EP*TIPI2
  * ( 3/32*M^2*C^-4 ) + 0.
 
> P input
	Z IFW=SELF("F,"W)
> WORK{IFW}
> P ninput
> P output
 
IFW = 
 + Q(NU)*I*TIPI2
  * ( 1/16*M^-1*SM^2*C^-1 + 1/16*M^-1*SM^2*C^-1*DLP )
 
 + Q(NU)*I*DEL
  * ( - 2*M*C - 2*M*C*DLP + 3/4*M*C^-3 + 3/4*M*C^-3*DLP + 3/2*M*C^-1
   + 3/2*M*C^-1*DLP )
 
 + Q(NU)*EP*I*TIPI2
  * ( - 3/64*M^-1*SM^2*C^-1 - 3/64*M^-1*SM^2*C^-1*DLP )
 
 + LG(SM)*Q(NU)*EP*I*TIPI2
  * ( 1/32*M^-1*SM^2*C^-1 + 1/32*M^-1*SM^2*C^-1*DLP ) + 0.
 
 
IFW = 0. + 0.
 
> P input
	Z IFZ=SELF("F,"Z)
> WORK{IFZ}
> P ninput
> P output
 
IFZ = 0. + 0.
 
 
IFZ = 0. + 0.
 
> P input
	Z IGH=SELF("G,"G_)
> WORK{IGH}
> P ninput
> P output
 
IGH = 
 + EP*TIPI2
  * ( - 1/16*M^2*C^-4*DLP - 1/8*M^2*DLP + 3/64*M^-2*SM^2*DLP*QDQ
  + 3/64*M^-2*SM^2*QDQ - 3/32*M^-2*SM^4 - 3/32*M^-2*SM^4*DLP
  - 1/16*SM^2 - 1/32*SM^2*C^-2 - 1/32*SM^2*C^-2*DLP - 1/16*SM^2*DLP )
 
 + EP*PI2*TIPI2
  * ( - 1/64*M^2*C^-4*DLP - 1/32*M^2*DLP - 1/128*M^-2*SM^4
  - 1/128*M^-2*SM^4*DLP - 1/192*SM^2 - 1/384*SM^2*C^-2 - 1/384*SM^2
  *C^-2*DLP - 1/192*SM^2*DLP )
 
 + TIPI2
  * ( 1/8*M^2*C^-4*DLP + 1/4*M^2*DLP - 1/16*M^-2*SM^2*DLP*QDQ
  - 1/16*M^-2*SM^2*QDQ + 3/16*M^-2*SM^4 + 3/16*M^-2*SM^4*DLP
  + 1/8*SM^2 + 1/16*SM^2*C^-2 + 1/16*SM^2*C^-2*DLP + 1/8*SM^2*DLP )
 
 + DEL
  * ( - 3/2*M^2 - 3/4*M^2*C^-4 - 3/4*M^2*C^-4*DLP - 3/2*M^2*DLP
  - 3/8*M^-2*SM^4 - 3/8*M^-2*SM^4*DLP - 1/4*SM^2 - 1/8*SM^2*C^-2
  - 1/8*SM^2*C^-2*DLP - 1/4*SM^2*DLP - 1/2*C^-2*DLP*QDQ - 1/2*C^-2
  *QDQ - DLP*QDQ - QDQ )
 
 + LG(M)*EP*TIPI2
  * ( 1/8*M^2*DLP + 1/16*SM^2 + 1/16*SM^2*DLP )
 
 + LG(M)*TIPI2
  * ( - 3/4*M^2*DLP - 1/8*SM^2 - 1/8*SM^2*DLP )
 
 + LG(M)*LG(M)*EP*TIPI2
  * ( - 3/16*M^2*DLP - 1/32*SM^2 - 1/32*SM^2*DLP )
 
 + LG(M0)*EP*TIPI2
  * ( 1/16*M^2*C^-4*DLP + 1/32*SM^2*C^-2 + 1/32*SM^2*C^-2*DLP )
 
 + LG(M0)*TIPI2
  * ( - 3/8*M^2*C^-4*DLP - 1/16*SM^2*C^-2 - 1/16*SM^2*C^-2*DLP )
 
 + LG(M0)*LG(M0)*EP*TIPI2
  * ( - 3/32*M^2*C^-4*DLP - 1/64*SM^2*C^-2 - 1/64*SM^2*C^-2*DLP )
 
 + LG(SM)*EP*TIPI2
  * ( - 1/32*M^-2*SM^2*DLP*QDQ - 1/32*M^-2*SM^2*QDQ + 3/32*M^-2*SM^4
   + 3/32*M^-2*SM^4*DLP )
 
 + LG(SM)*TIPI2
  * ( - 3/16*M^-2*SM^4 - 3/16*M^-2*SM^4*DLP )
 
 + LG(SM)*LG(SM)*EP*TIPI2
  * ( - 3/64*M^-2*SM^4 - 3/64*M^-2*SM^4*DLP ) + 0.
 
 
IGH = 
 + EP*TIPI2
  * ( 1/8*M^2 + 1/16*M^2*C^-4 )
 
 + EP*PI2*TIPI2
  * ( 1/32*M^2 + 1/64*M^2*C^-4 )
 
 + TIPI2
  * ( - 1/4*M^2 - 1/8*M^2*C^-4 )
 
 + LG(M)*EP*TIPI2
  * ( - 1/8*M^2 )
 
 + LG(M)*TIPI2
  * ( 3/4*M^2 )
 
 + LG(M)*LG(M)*EP*TIPI2
  * ( 3/16*M^2 )
 
 + LG(M0)*EP*TIPI2
  * ( - 1/16*M^2*C^-4 )
 
 + LG(M0)*TIPI2
  * ( 3/8*M^2*C^-4 )
 
 + LG(M0)*LG(M0)*EP*TIPI2
  * ( 3/32*M^2*C^-4 ) + 0.
 
> P input
	Z IGV=SELF("G,"U_)
> WORK{IGV}
> P ninput
> P output
 
IGV = 
 + Q(NU)*I*TIPI2
  * ( 1/16*M^-1*SM^2 + 1/16*M^-1*SM^2*DLP )
 
 + Q(NU)*I*DEL
  * ( - 1/2*M + 3/4*M*C^-2 + 3/4*M*C^-2*DLP - 1/2*M*DLP )
 
 + Q(NU)*EP*I*TIPI2
  * ( - 3/64*M^-1*SM^2 - 3/64*M^-1*SM^2*DLP )
 
 + LG(SM)*Q(NU)*EP*I*TIPI2
  * ( 1/32*M^-1*SM^2 + 1/32*M^-1*SM^2*DLP ) + 0.
 
 
IGV = 0. + 0.
 
> P input
	Z IHU=SELF("G_,"U)
> WORK{IHU}
> P ninput
> P output
 
IHU = 
 + Q(NU)*I*TIPI2
  * ( 1/16*M^-1*SM^2 + 1/16*M^-1*SM^2*DLP )
 
 + Q(NU)*I*DEL
  * ( - 1/2*M + 3/4*M*C^-2 + 3/4*M*C^-2*DLP - 1/2*M*DLP )
 
 + Q(NU)*EP*I*TIPI2
  * ( - 3/64*M^-1*SM^2 - 3/64*M^-1*SM^2*DLP )
 
 + LG(SM)*Q(NU)*EP*I*TIPI2
  * ( 1/32*M^-1*SM^2 + 1/32*M^-1*SM^2*DLP ) + 0.
 
 
IHU = 0. + 0.
 
> P input
	Z IUV=SELF("U,"U_)
> WORK{IUV}
> P ninput
> P output
 
IUV = 
 + Q(MU)*Q(NU)*DEL
  * ( 19/6 + 19/6*DLP )
 
 + D(MU,NU)*EP*TIPI2
  * ( 3/64*SM^2 + 3/64*SM^2*DLP )
 
 + D(MU,NU)*TIPI2
  * ( - 1/16*SM^2 - 1/16*SM^2*DLP )
 
 + D(MU,NU)*DEL
  * ( 2*M^2 - M^2*C^-2 - M^2*C^-2*DLP + 2*M^2*DLP - 19/6*DLP*QDQ
  - 19/6*QDQ )
 
 + LG(SM)*D(MU,NU)*EP*TIPI2
  * ( - 1/32*SM^2 - 1/32*SM^2*DLP ) + 0.
 
 
IUV = 0. + 0.
 
> P input
	Z IWW=SELF("W,"W)
> WORK{IWW}
> P ninput
> P output
 
IWW = 
 + Q(MU)*Q(NU)*DEL
  * ( 1/3 + 3*C^2 + 3*C^2*DLP - 1/6*C^-2 - 1/6*C^-2*DLP + 1/3*DLP )
 
 + D(MU,NU)*EP*TIPI2
  * ( 3/64*SM^2*C^-2 + 3/64*SM^2*C^-2*DLP )
 
 + D(MU,NU)*TIPI2
  * ( - 1/16*SM^2*C^-2 - 1/16*SM^2*C^-2*DLP )
 
 + D(MU,NU)*DEL
  * ( 4*M^2 - M^2*C^-4 - M^2*C^-4*DLP - 2*M^2*C^-2 - 2*M^2*C^-2*DLP
   + 4*M^2*DLP - 3*C^2*DLP*QDQ - 3*C^2*QDQ + 1/6*C^-2*DLP*QDQ
  + 1/6*C^-2*QDQ - 1/3*DLP*QDQ - 1/3*QDQ )
 
 + LG(SM)*D(MU,NU)*EP*TIPI2
  * ( - 1/32*SM^2*C^-2 - 1/32*SM^2*C^-2*DLP ) + 0.
 
 
IWW = 0. + 0.
 
> P input
	Z IWZ=SELF("W,"Z)
> WORK{IWZ}
> P ninput
> P output
 
IWZ = 0. + 0.
 
 
IWZ = 0. + 0.
 
> P input
	Z IZZ=SELF("Z,"Z)*ZTAG
C SET QDQ=-SM**2 TO FIND THAT MASS RENORMALIZATION OK.
C NO COUNTER-TERMS PROPORTIONAL TO EP HAVE BEEN INTRODUCED.
C SUCH TERMS HAVE ALSO BEEN NEGLECTED IN THE CALCULATION.
> WORK{IZZ}
> P ninput
> P output
 
IZZ = 
 + EP*TIPI2
  * ( - 1/16*M^2*C^-4*DLP - 1/8*M^2*DLP + 3/64*M^-2*SM^2*DLP*QDQ
  - 3/32*M^-2*SM^4 - 1/16*SM^2 - 1/32*SM^2*C^-2 - 1/32*SM^2*C^-2*DLP
   - 1/16*SM^2*DLP )
 
 + EP*PI2*TIPI2
  * ( - 1/64*M^2*C^-4*DLP - 1/32*M^2*DLP - 1/128*M^-2*SM^4
  - 1/128*M^-2*SM^4*DLP - 1/192*SM^2 - 1/384*SM^2*C^-2 - 1/384*SM^2
  *C^-2*DLP - 1/192*SM^2*DLP )
 
 + TIPI2
  * ( 1/8*M^2*C^-4*DLP + 1/4*M^2*DLP - 1/16*M^-2*SM^2*DLP*QDQ
  - 9/16*M^-2*SM^2*PI*W3^-1*QDQ + 3/4*M^-2*SM^2*QDQ + 39/16*M^-2*SM^4
   + 13/8*M^-2*SM^4*DLP - 9/16*M^-2*SM^4*DLP*PI*W3^-1 - 9/8*M^-2*SM^4
  *PI*W3^-1 + 1/8*SM^2 + 1/16*SM^2*C^-2 + 1/16*SM^2*C^-2*DLP
  + 1/8*SM^2*DLP )
 
 + DEL
  * ( - 9/2*M^2 - 9/4*M^2*C^-4 - 9/4*M^2*C^-4*DLP - 9/2*M^2*DLP
  - 15/8*M^-2*SM^4 - 15/8*M^-2*SM^4*DLP - 1/4*SM^2 - 1/8*SM^2*C^-2
   - 1/8*SM^2*C^-2*DLP - 1/4*SM^2*DLP - 1/2*C^-2*DLP*QDQ - 1/2*C^-2
  *QDQ - DLP*QDQ - QDQ )
 
 + LG(M)*EP*TIPI2
  * ( 1/8*M^2*DLP + 1/16*SM^2 + 1/16*SM^2*DLP )
 
 + LG(M)*TIPI2
  * ( - 3/4*M^2*DLP - 1/8*M^-2*SM^2*QDQ - 1/8*M^-2*SM^4 - 1/8*SM^2
   - 1/8*SM^2*DLP )
 
 + LG(M)*LG(M)*EP*TIPI2
  * ( - 3/16*M^2*DLP - 1/32*SM^2 - 1/32*SM^2*DLP )
 
 + LG(M0)*EP*TIPI2
  * ( 1/16*M^2*C^-4*DLP + 1/32*SM^2*C^-2 + 1/32*SM^2*C^-2*DLP )
 
 + LG(M0)*TIPI2
  * ( - 3/8*M^2*C^-4*DLP - 1/16*M^-2*SM^2*QDQ - 1/16*M^-2*SM^4
  - 1/16*SM^2*C^-2 - 1/16*SM^2*C^-2*DLP )
 
 + LG(M0)*LG(M0)*EP*TIPI2
  * ( - 3/32*M^2*C^-4*DLP - 1/64*SM^2*C^-2 - 1/64*SM^2*C^-2*DLP )
 
 + LG(SM)*EP*TIPI2
  * ( - 1/32*M^-2*SM^2*DLP*QDQ + 3/32*M^-2*SM^4 + 1/32*M^-2*SM^4*DLP )
 
 + LG(SM)*TIPI2
  * ( 3/16*M^-2*SM^2*QDQ - 3/4*M^-2*SM^4 - 15/16*M^-2*SM^4*DLP )
 
 + LG(SM)*LG(SM)*EP*TIPI2
  * ( - 3/64*M^-2*SM^4 - 3/64*M^-2*SM^4*DLP ) + 0.
 
 
IZZ = 
 + EP*TIPI2
  * ( 1/8*M^2 + 1/16*M^2*C^-4 - 3/64*M^-2*SM^2*QDQ - 3/32*M^-2*SM^4 )
 
 + EP*PI2*TIPI2
  * ( 1/32*M^2 + 1/64*M^2*C^-4 )
 
 + TIPI2
  * ( - 1/4*M^2 - 1/8*M^2*C^-4 - 9/16*M^-2*SM^2*PI*W3^-1*QDQ
  + 13/16*M^-2*SM^2*QDQ + 13/16*M^-2*SM^4 - 9/16*M^-2*SM^4*PI*W3^-1 )
 
 + LG(M)*EP*TIPI2
  * ( - 1/8*M^2 )
 
 + LG(M)*TIPI2
  * ( 3/4*M^2 - 1/8*M^-2*SM^2*QDQ - 1/8*M^-2*SM^4 )
 
 + LG(M)*LG(M)*EP*TIPI2
  * ( 3/16*M^2 )
 
 + LG(M0)*EP*TIPI2
  * ( - 1/16*M^2*C^-4 )
 
 + LG(M0)*TIPI2
  * ( 3/8*M^2*C^-4 - 1/16*M^-2*SM^2*QDQ - 1/16*M^-2*SM^4 )
 
 + LG(M0)*LG(M0)*EP*TIPI2
  * ( 3/32*M^2*C^-4 )
 
 + LG(SM)*EP*TIPI2
  * ( 1/32*M^-2*SM^2*QDQ + 1/16*M^-2*SM^4 )
 
 + LG(SM)*TIPI2
  * ( 3/16*M^-2*SM^2*QDQ + 3/16*M^-2*SM^4 ) + 0.
 
> P input
	Z IOP=SELF("P_,"P)
> WORK{IOP}
> P ninput
> P output
 
IOP = + DEL
  * ( 1/2*M^2 - 1/4*M^2*C^-2 - 1/4*M^2*C^-2*DLP + 1/2*M^2*DLP
  - DLP*QDQ - QDQ ) + 0.
 
 
IOP = 0. + 0.
 
> P input
	Z IQR=SELF("R_,"R)
> WORK{IQR}
> P ninput
> P output
 
IQR = 
 + DEL
  * ( M^2 - 1/4*M^2*C^-4 - 1/4*M^2*C^-4*DLP - 1/2*M^2*C^-2
  - 1/2*M^2*C^-2*DLP + M^2*DLP - C^2*DLP*QDQ - C^2*QDQ ) + 0.
 
 
IQR = 0. + 0.
 
> P input
	Z IQT=SELF("R_,"T)
> WORK{IQT}
> P ninput
> P output
 
IQT = + DEL
  * ( M^2*C^-1*S + M^2*C^-1*S*DLP - C*S*DLP*QDQ - C*S*QDQ ) + 0.
 
 
IQT = 0. + 0.
 
> P input
	Z IRS=SELF("R,"T_)
> WORK{IRS}
> P ninput
> P output
 
IRS = + DEL
  * ( - C*S*DLP*QDQ - C*S*QDQ ) + 0.
 
 
IRS = 0. + 0.
 
> P input
	Z IST=SELF("T_,"T)
> WORK{IST}
> P ninput
> P output
 
IST = + DEL
  * ( C^2*DLP*QDQ + C^2*QDQ - DLP*QDQ - QDQ ) + 0.
 
 
IST = 0. + 0.
 
> P input
	Z IXY=SELF("Y_,"Y)
> WORK{IXY}
> P ninput
> P output
 
IXY = + DEL
  * ( 1/2*M^2 - 1/4*M^2*C^-2 - 1/4*M^2*C^-2*DLP + 1/2*M^2*DLP
  - DLP*QDQ - QDQ ) + 0.
 
 
IXY = 0. + 0.
 
> P input
	*end

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


C RO-parameter 2. Divergencies of one-loop diagrams, three external lines.

C ONE-LOOP DIAGRAMS WITH THREE EXTERNAL LINES.
C CALCULATION OF ONE-LOOP DIVERGENCIES.
C COUNTER-TERMS ARE CHECKED.
C CDC CPU time: 35.2 sec.

	Oldnew i=I
> P ninput

Begin. Time 2 sec.
> P ninput
> P input
	Z IUVW(MU,Q,NU,T,AL,K)=VERT("U,"U_,"W)
> WORK{IUVW}
> P ninput
> P output
 
IUVW = 
 + D(AL,BE)*P(GA)*EP^-1*TIPI2
  * ( 7/3*C + 7/3*C*DEL )
 
 + D(AL,BE)*K(GA)*EP^-1*TIPI2
  * ( 7/6*C + 7/6*C*DEL )
 
 + D(AL,GA)*P(BE)*EP^-1*TIPI2
  * ( - 7/6*C - 7/6*C*DEL )
 
 + D(AL,GA)*K(BE)*EP^-1*TIPI2
  * ( 7/6*C + 7/6*C*DEL )
 
 + D(BE,GA)*P(AL)*EP^-1*TIPI2
  * ( - 7/6*C - 7/6*C*DEL )
 
 + D(BE,GA)*K(AL)*EP^-1*TIPI2
  * ( - 7/3*C - 7/3*C*DEL ) + 0.
 
 
IUVW = 0. + 0.
 
> P input
	Z IAUV(MU,Q,NU,T,AL,K)=VERT("A,"U,"U_)
> WORK{IAUV}
> P ninput
> P output
 
IAUV = 
 + D(AL,BE)*P(GA)*EP^-1*TIPI2
  * ( 7/3*S + 7/3*S*DEL )
 
 + D(AL,BE)*K(GA)*EP^-1*TIPI2
  * ( 7/6*S + 7/6*S*DEL )
 
 + D(AL,GA)*P(BE)*EP^-1*TIPI2
  * ( - 7/6*S - 7/6*S*DEL )
 
 + D(AL,GA)*K(BE)*EP^-1*TIPI2
  * ( 7/6*S + 7/6*S*DEL )
 
 + D(BE,GA)*P(AL)*EP^-1*TIPI2
  * ( - 7/6*S - 7/6*S*DEL )
 
 + D(BE,GA)*K(AL)*EP^-1*TIPI2
  * ( - 7/3*S - 7/3*S*DEL ) + 0.
 
 
IAUV = 0. + 0.
 
> P input
	Z IUVZ(MU,Q,NU,T,AL,K)=VERT("U,"U_,"Z)
> WORK{IUVZ}
> P ninput
> P output
 
IUVZ = + D(AL,BE)*EP^-1*TIPI2
  * ( 5/2*M - 3/4*M*C^-2 - 3/4*M*C^-2*DEL + 5/2*M*DEL ) + 0.
 
 
IUVZ = 0. + 0.
 
> P input
	Z IFHU(MU,Q,NU,T,AL,K)=VERT("F,"G_,"U)
> WORK{IFHU}
> P ninput
> P output
 
IFHU = 
 + P(GA)*EP^-1*TIPI2
  * ( 1 - 1/2*C^-2 - 1/2*C^-2*DEL + DEL )
 
 + K(GA)*EP^-1*TIPI2
  * ( 1/2 - 1/4*C^-2 - 1/4*C^-2*DEL + 1/2*DEL ) + 0.
 
 
IFHU = 0. + 0.
 
> P input
	Z IAHU(MU,Q,NU,T,AL,K)=VERT("A,"G_,"U)
> WORK{IAHU}
> P ninput
> P output
 
IAHU = + D(AL,GA)*EP^-1*I*TIPI2
  * ( 3/4*M*C^-2*S + 3/4*M*C^-2*S*DEL - 1/2*M*S - 1/2*M*S*DEL ) + 0.
 
 
IAHU = 0. + 0.
 
> P input
	Z IFFZ(MU,Q,NU,T,AL,K)=VERT("F,"F,"Z)
> WORK{IFFZ}
> P ninput
> P output
 
IFFZ = 
 + EP^-1*TIPI2
  * ( - 3/2*M - 3/4*M*C^-4 - 3/4*M*C^-4*DEL - 3/2*M*DEL - 3/4*M^-3
  *SM^4 - 3/4*M^-3*SM^4*DEL + 1/4*M^-1*SM^2 + 1/8*M^-1*SM^2*C^-2
  + 1/8*M^-1*SM^2*C^-2*DEL + 1/4*M^-1*SM^2*DEL ) + 0.
 
 
IFFZ = 0. + 0.
 
> P input
	Z IZZZ(MU,Q,NU,T,AL,K)=VERT("Z,"Z,"Z)
> WORK{IZZZ}
> P ninput
> P output
 
IZZZ = 
 + EP^-1*TIPI2
  * ( - 9/2*M - 9/4*M*C^-4 - 9/4*M*C^-4*DEL - 9/2*M*DEL - 9/4*M^-3
  *SM^4 - 9/4*M^-3*SM^4*DEL + 3/4*M^-1*SM^2 + 3/8*M^-1*SM^2*C^-2
  + 3/8*M^-1*SM^2*C^-2*DEL + 3/4*M^-1*SM^2*DEL ) + 0.
 
 
IZZZ = 0. + 0.
 
> P input
	Z IAGH(MU,Q,NU,T,AL,K)=VERT("A,"G,"G_)
> WORK{IAGH}
> P ninput
> P output
 
IAGH = + P(AL)*EP^-1*TIPI2
  * ( - 1/2*C^-2*S - 1/2*C^-2*S*DEL )
 
 + K(AL)*EP^-1*TIPI2
  * ( - C^-2*S - C^-2*S*DEL ) + 0.
 
 
IAGH = 0. + 0.
 
> P input
	Z IAGV(MU,Q,NU,T,AL,K)=VERT("A,"G,"U_)
> WORK{IAGV}
> P ninput
> P output
 
IAGV = + D(AL,GA)*EP^-1*I*TIPI2
  * ( - 3/4*M*C^-2*S - 3/4*M*C^-2*S*DEL + 1/2*M*S + 1/2*M*S*DEL ) + 0.
 
 
IAGV = 0. + 0.
 
> P input
	Z IFGV(MU,Q,NU,T,AL,K)=VERT("F,"G,"U_)
> WORK{IFGV}
> P ninput
> P output
 
IFGV = 
 + P(GA)*EP^-1*TIPI2
  * ( - 1 + 1/2*C^-2 + 1/2*C^-2*DEL - DEL )
 
 + K(GA)*EP^-1*TIPI2
  * ( - 1/2 + 1/4*C^-2 + 1/4*C^-2*DEL - 1/2*DEL ) + 0.
 
 
IFGV = 0. + 0.
 
> P input
	Z IFWZ(MU,Q,NU,T,AL,K)=VERT("F,"W,"Z)
> WORK{IFWZ}
> P ninput
> P output
 
IFWZ = 
 + P(BE)*EP^-1*I*TIPI2
  * ( - C - C*DEL + 1/4*C^-3 + 1/4*C^-3*DEL + 1/2*C^-1 + 1/2*C^-1*DEL )
 
 + K(BE)*EP^-1*I*TIPI2
  * ( C + C*DEL - 1/4*C^-3 - 1/4*C^-3*DEL - 1/2*C^-1 - 1/2*C^-1*DEL ) + 0.
 
 
IFWZ = 0. + 0.
 
> P input
	Z IGHZ(MU,Q,NU,T,AL,K)=VERT("G,"G_,"Z)
> WORK{IGHZ}
> P ninput
> P output
 
IGHZ = 
 + EP^-1*TIPI2
  * ( - 3/2*M - 3/4*M*C^-4 - 3/4*M*C^-4*DEL - 3/2*M*DEL - 3/4*M^-3
  *SM^4 - 3/4*M^-3*SM^4*DEL + 1/4*M^-1*SM^2 + 1/8*M^-1*SM^2*C^-2
  + 1/8*M^-1*SM^2*C^-2*DEL + 1/4*M^-1*SM^2*DEL ) + 0.
 
 
IGHZ = 0. + 0.
 
> P input
	Z IGHW(MU,Q,NU,T,AL,K)=VERT("G,"G_,"W)
> WORK{IGHW}
> P ninput
> P output
 
IGHW = + P(GA)*EP^-1*TIPI2
  * ( - 1/2*C^-3 - 1/2*C^-3*DEL )
 
 + K(GA)*EP^-1*TIPI2
  * ( - 1/4*C^-3 - 1/4*C^-3*DEL ) + 0.
 
 
IGHW = 0. + 0.
 
> P input
	Z IGVW(MU,Q,NU,T,AL,K)=VERT("G,"U_,"W)
> WORK{IGVW}
> P ninput
> P output
 
IGVW = 
 + D(BE,GA)*EP^-1*I*TIPI2
  * ( 1/2*M*C + 1/2*M*C*DEL + 3/4*M*C^-3 + 3/4*M*C^-3*DEL
  - 5/4*M*C^-1 - 5/4*M*C^-1*DEL ) + 0.
 
 
IGVW = 0. + 0.
 
> P input
	Z IGVZ(MU,Q,NU,T,AL,K)=VERT("G,"U_,"Z)
> WORK{IGVZ}
> P ninput
> P output
 
IGVZ = 
 + P(BE)*EP^-1*I*TIPI2
  * ( - 1/2 + 1/4*C^-2 + 1/4*C^-2*DEL - 1/2*DEL )
 
 + K(BE)*EP^-1*I*TIPI2
  * ( 1/2 - 1/4*C^-2 - 1/4*C^-2*DEL + 1/2*DEL ) + 0.
 
 
IGVZ = 0. + 0.
 
> P input
	Z IHUW(MU,Q,NU,T,AL,K)=VERT("G_,"U,"W)
> WORK{IHUW}
> P ninput
> P output
 
IHUW = 
 + D(BE,GA)*EP^-1*I*TIPI2
  * ( - 1/2*M*C - 1/2*M*C*DEL - 3/4*M*C^-3 - 3/4*M*C^-3*DEL
  + 5/4*M*C^-1 + 5/4*M*C^-1*DEL ) + 0.
 
 
IHUW = 0. + 0.
 
> P input
	Z IHUZ(MU,Q,NU,T,AL,K)=VERT("G_,"U,"Z)
> WORK{IHUZ}
> P ninput
> P output
 
IHUZ = 
 + P(BE)*EP^-1*I*TIPI2
  * ( - 1/2 + 1/4*C^-2 + 1/4*C^-2*DEL - 1/2*DEL )
 
 + K(BE)*EP^-1*I*TIPI2
  * ( 1/2 - 1/4*C^-2 - 1/4*C^-2*DEL + 1/2*DEL ) + 0.
 
 
IHUZ = 0. + 0.
 
> P input
	Z IWWZ(MU,Q,NU,T,AL,K)=VERT("W,"W,"Z)
> WORK{IWWZ}
> P ninput
> P output
 
IWWZ = 
 + D(AL,BE)*EP^-1*TIPI2
  * ( 4*M - 3/4*M*C^-4 - 3/4*M*C^-4*DEL - 3/2*M*C^-2 - 3/2*M*C^-2*DEL
   + 4*M*DEL ) + 0.
 
 
IWWZ = 0. + 0.
 
> P input
	Z IAFZ(MU,Q,NU,T,AL,K)=VERT("A,"F,"Z)
> WORK{IAFZ}
> P ninput
> P output
 
IAFZ = + P(AL)*EP^-1*I*TIPI2
  * ( S + S*DEL )
 
 + K(AL)*EP^-1*I*TIPI2
  * ( 2*S + 2*S*DEL ) + 0.
 
 
IAFZ = 0. + 0.
 
> P input
	Z IAWZ(MU,Q,NU,T,AL,K)=VERT("A,"W,"Z)
> WORK{IAWZ}
> P ninput
> P output
 
IAWZ = + D(AL,BE)*EP^-1*TIPI2
  * ( 2*M*C^-1*S + 2*M*C^-1*S*DEL ) + 0.
 
 
IAWZ = 0. + 0.
 
> P input
	*end

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


C RO-parameter 3. Divergencies of one-loop diagrams, four external lines.

C ONE-LOOP DIAGRAMS WITH FOUR EXTERNAL LINES.
C CALCULATION OF ONE-LOOP DIVERGENCIES.
C COMPARISON WITH COUTERTERMS INCLUDED.
C CDC CPU time: 178.37 sec.

	Oldnew i=I
> P ninput

Begin. Time 1 sec.
> P ninput
> P ninput

Terms in output 11, Statistics counts 67, 51, 0, 0.
> P output
 
IAAUV = 
 + D(L1,L2)*D(L3,L4)*EP^-1*TIPI2
  * ( 5/3 - 5/3*C^2 - 5/3*C^2*DEL + 5/3*DEL )
 
 + D(L1,L3)*D(L2,L4)*EP^-1*TIPI2
  * ( - 5/6 + 5/6*C^2 + 5/6*C^2*DEL - 5/6*DEL )
 
 + D(L1,L4)*D(L2,L3)*EP^-1*TIPI2
  * ( - 5/6 + 5/6*C^2 + 5/6*C^2*DEL - 5/6*DEL ) + 0.
 
> P input
L 1	Id,DEL=-1.
	*next
 
IAAUV = 0. + 0.
 
	Z IAFGV=VIERP("A,"F,"G,"U_)
> WORK{IAFGV}
> P ninput

Terms in output 6, Statistics counts 57, 42, 0, 0.
> P output
 
IAFGV = + D(L1,L4)*EP^-1*TIPI2
  * ( 1/4*C^-2*S + 1/4*C^-2*S*DEL - 1/2*S - 1/2*S*DEL ) + 0.
 
> P input
L 1	Id,DEL=-1.
	*next
 
IAFGV = 0. + 0.
 
	Z IAFHU=VIERP("A,"F,"G_,"U)
> WORK{IAFHU}
> P ninput

Terms in output 6, Statistics counts 57, 42, 0, 0.
> P output
 
IAFHU = + D(L1,L4)*EP^-1*TIPI2
  * ( 1/4*C^-2*S + 1/4*C^-2*S*DEL - 1/2*S - 1/2*S*DEL ) + 0.
 
> P input
L 1	Id,DEL=-1.
	*next
 
IAFHU = 0. + 0.
 
	Z IAGHW=VIERP("A,"G,"G_,"W)
> WORK{IAGHW}
> P ninput

Terms in output 6, Statistics counts 49, 49, 0, 0.
> P output
 
IAGHW = 
 + D(L1,L4)*EP^-1*TIPI2
  * ( 2*C*S + 2*C*S*DEL + 1/2*C^-3*S + 1/2*C^-3*S*DEL - C^-1*S
  - C^-1*S*DEL ) + 0.
 
> P input
L 1	Id,DEL=-1.
	*next
 
IAGHW = 0. + 0.
 
	Z IAGVZ=VIERP("A,"G,"U_,"Z)
> WORK{IAGVZ}
> P ninput

Terms in output 6, Statistics counts 45, 42, 0, 0.
> P output
 
IAGVZ = + D(L1,L3)*EP^-1*TIPI2
  * ( - 1/4*I*C^-2*S - 1/4*I*C^-2*S*DEL + 1/2*I*S + 1/2*I*S*DEL ) + 0.
 
> P input
L 1	Id,DEL=-1.
	*next
 
IAGVZ = 0. + 0.
 
	Z IAHUZ=VIERP("A,"G_,"U,"Z)
> WORK{IAHUZ}
> P ninput

Terms in output 6, Statistics counts 45, 42, 0, 0.
> P output
 
IAHUZ = + D(L1,L3)*EP^-1*TIPI2
  * ( 1/4*I*C^-2*S + 1/4*I*C^-2*S*DEL - 1/2*I*S - 1/2*I*S*DEL ) + 0.
 
> P input
L 1	Id,DEL=-1.
	*next
 
IAHUZ = 0. + 0.
 
	Z IAUVW=VIERP("A,"U,"U_,"W)
> WORK{IAUVW}
> P ninput

Terms in output 19, Statistics counts 57, 57, 0, 0.
> P output
 
IAUVW = 
 + D(L1,L2)*D(L3,L4)*EP^-1*TIPI2
  * ( - 5/6*C*S - 5/6*C*S*DEL )
 
 + D(L1,L3)*D(L2,L4)*EP^-1*TIPI2
  * ( - 5/6*C*S - 5/6*C*S*DEL )
 
 + D(L1,L4)*D(L2,L3)*EP^-1*TIPI2
  * ( 5/3*C*S + 5/3*C*S*DEL ) + 0.
 
> P input
L 1	Id,DEL=-1.
	*next
 
IAUVW = 0. + 0.
 
	Z IAAGH=VIERP("A,"A,"G,"G_)
> WORK{IAAGH}
> P ninput

Terms in output 4, Statistics counts 59, 43, 0, 0.
> P output
 
IAAGH = + D(L1,L2)*EP^-1*TIPI2
  * ( 3 - 2*C^2 - 2*C^2*DEL - C^-2 - C^-2*DEL + 3*DEL ) + 0.
 
> P input
L 1	Id,DEL=-1.
	*next
 
IAAGH = 0. + 0.
 
	Z IAAUV=VIERP("A,"A,"U,"U_)
> WORK{IAAUV}
> P ninput

Terms in output 11, Statistics counts 67, 51, 0, 0.
> P output
 
IAAUV = 
 + D(L1,L2)*D(L3,L4)*EP^-1*TIPI2
  * ( 5/3 - 5/3*C^2 - 5/3*C^2*DEL + 5/3*DEL )
 
 + D(L1,L3)*D(L2,L4)*EP^-1*TIPI2
  * ( - 5/6 + 5/6*C^2 + 5/6*C^2*DEL - 5/6*DEL )
 
 + D(L1,L4)*D(L2,L3)*EP^-1*TIPI2
  * ( - 5/6 + 5/6*C^2 + 5/6*C^2*DEL - 5/6*DEL ) + 0.
 
> P input
L 1	Id,DEL=-1.
	*next
 
IAAUV = 0. + 0.
 
	Z IFGVW=VIERP("F,"G,"U_,"W)
> WORK{IFGVW}
> P ninput

Terms in output 13, Statistics counts 62, 52, 0, 0.
> P output
 
IFGVW = 
 + D(L3,L4)*EP^-1*TIPI2
  * ( - 1/2*C - 1/2*C*DEL - 1/4*C^-3 - 1/4*C^-3*DEL + 3/4*C^-1
  + 3/4*C^-1*DEL ) + 0.
 
> P input
L 1	Id,DEL=-1.
	*next
 
IFGVW = 0. + 0.
 
	Z IFHUW=VIERP("F,"G_,"U,"W)
> WORK{IFHUW}
> P ninput

Terms in output 13, Statistics counts 62, 52, 0, 0.
> P output
 
IFHUW = 
 + D(L3,L4)*EP^-1*TIPI2
  * ( - 1/2*C - 1/2*C*DEL - 1/4*C^-3 - 1/4*C^-3*DEL + 3/4*C^-1
  + 3/4*C^-1*DEL ) + 0.
 
> P input
L 1	Id,DEL=-1.
	*next
 
IFHUW = 0. + 0.
 
	Z IFFGH=VIERP("F,"F,"G,"G_)
> WORK{IFFGH}
> P ninput

Terms in output 15, Statistics counts 68, 57, 0, 0.
> P output
 
IFFGH = 
 + EP^-1*TIPI2
  * ( - 3/4 - 3/8*M^-4*SM^4 - 3/8*M^-4*SM^4*DEL + 1/4*M^-2*SM^2
  + 1/8*M^-2*SM^2*C^-2 + 1/8*M^-2*SM^2*C^-2*DEL + 1/4*M^-2*SM^2*DEL
   - 3/8*C^-4 - 3/8*C^-4*DEL - 3/4*DEL ) + 0.
 
> P input
L 1	Id,DEL=-1.
	*next
 
IFFGH = 0. + 0.
 
	Z IFFUV=VIERP("F,"F,"U,"U_)
> WORK{IFFUV}
> P ninput

Terms in output 6, Statistics counts 68, 57, 0, 0.
> P output
 
IFFUV = + D(L3,L4)*EP^-1*TIPI2
  * ( 3/2 - 1/4*C^-2 - 1/4*C^-2*DEL + 3/2*DEL ) + 0.
 
> P input
L 1	Id,DEL=-1.
	*next
 
IFFUV = 0. + 0.
 
	Z IFFWW=VIERP("F,"F,"W,"W)
> WORK{IFFWW}
> P ninput

Terms in output 6, Statistics counts 57, 56, 0, 0.
> P output
 
IFFWW = + D(L3,L4)*EP^-1*TIPI2
  * ( 2 - 1/4*C^-4 - 1/4*C^-4*DEL - 1/2*C^-2 - 1/2*C^-2*DEL
  + 2*DEL ) + 0.
 
> P input
L 1	Id,DEL=-1.
	*next
 
IFFWW = 0. + 0.
 
	Z IFFZZ=VIERP("F,"F,"Z,"Z)
> WORK{IFFZZ}
> P ninput

Terms in output 6, Statistics counts 38, 38, 0, 0.
> P output
 
IFFZZ = 
 + EP^-1*TIPI2
  * ( - 3/4 - 3/8*M^-4*SM^4 - 3/8*M^-4*SM^4*DEL + 1/4*M^-2*SM^2
  + 1/8*M^-2*SM^2*C^-2 + 1/8*M^-2*SM^2*C^-2*DEL + 1/4*M^-2*SM^2*DEL
   - 3/8*C^-4 - 3/8*C^-4*DEL - 3/4*DEL ) + 0.
 
> P input
L 1	Id,DEL=-1.
	*next
 
IFFZZ = 0. + 0.
 
	Z IFFFF=VIERP("F,"F,"F,"F)
> WORK{IFFFF}
> P ninput

Terms in output 6, Statistics counts 70, 70, 0, 0.
> P output
 
IFFFF = 
 + EP^-1*TIPI2
  * ( - 9/4 - 9/8*M^-4*SM^4 - 9/8*M^-4*SM^4*DEL + 3/4*M^-2*SM^2
  + 3/8*M^-2*SM^2*C^-2 + 3/8*M^-2*SM^2*C^-2*DEL + 3/4*M^-2*SM^2*DEL
   - 9/8*C^-4 - 9/8*C^-4*DEL - 9/4*DEL ) + 0.
 
> P input
L 1	Id,DEL=-1.
	*next
 
IFFFF = 0. + 0.
 
	Z IGHUV=VIERP("G,"G_,"U,"U_)
> WORK{IGHUV}
> P ninput

Terms in output 9, Statistics counts 94, 94, 0, 0.
> P output
 
IGHUV = + D(L3,L4)*EP^-1*TIPI2
  * ( 3/2 - 1/4*C^-2 - 1/4*C^-2*DEL + 3/2*DEL ) + 0.
 
> P input
L 1	Id,DEL=-1.
	*next
 
IGHUV = 0. + 0.
 
	Z IGHWW=VIERP("G,"G_,"W,"W)
> WORK{IGHWW}
> P ninput

Terms in output 7, Statistics counts 90, 65, 0, 0.
> P output
 
IGHWW = 
 + D(L3,L4)*EP^-1*TIPI2
  * ( - 1 + 2*C^2 + 2*C^2*DEL - 1/4*C^-4 - 1/4*C^-4*DEL + 1/2*C^-2
   + 1/2*C^-2*DEL - DEL ) + 0.
 
> P input
L 1	Id,DEL=-1.
	*next
 
IGHWW = 0. + 0.
 
	Z IGHZZ=VIERP("G,"G_,"Z,"Z)
> WORK{IGHZZ}
> P ninput

Terms in output 15, Statistics counts 80, 57, 0, 0.
> P output
 
IGHZZ = 
 + EP^-1*TIPI2
  * ( - 3/4 - 3/8*M^-4*SM^4 - 3/8*M^-4*SM^4*DEL + 1/4*M^-2*SM^2
  + 1/8*M^-2*SM^2*C^-2 + 1/8*M^-2*SM^2*C^-2*DEL + 1/4*M^-2*SM^2*DEL
   - 3/8*C^-4 - 3/8*C^-4*DEL - 3/4*DEL ) + 0.
 
> P input
L 1	Id,DEL=-1.
	*next
 
IGHZZ = 0. + 0.
 
	Z IGVWZ=VIERP("G,"U_,"W,"Z)
> WORK{IGVWZ}
> P ninput

Terms in output 13, Statistics counts 82, 52, 0, 0.
> P output
 
IGVWZ = 
 + D(L2,L3)*EP^-1*TIPI2
  * ( 1/2*I*C + 1/2*I*C*DEL + 1/4*I*C^-3 + 1/4*I*C^-3*DEL
  - 3/4*I*C^-1 - 3/4*I*C^-1*DEL ) + 0.
 
> P input
L 1	Id,DEL=-1.
	*next
 
IGVWZ = 0. + 0.
 
	Z IGGHH=VIERP("G,"G,"G_,"G_)
> WORK{IGGHH}
> P ninput

Terms in output 9, Statistics counts 92, 92, 0, 0.
> P output
 
IGGHH = 
 + EP^-1*TIPI2
  * ( - 3/2 - 3/4*M^-4*SM^4 - 3/4*M^-4*SM^4*DEL + 1/2*M^-2*SM^2
  + 1/4*M^-2*SM^2*C^-2 + 1/4*M^-2*SM^2*C^-2*DEL + 1/2*M^-2*SM^2*DEL
   - 3/4*C^-4 - 3/4*C^-4*DEL - 3/2*DEL ) + 0.
 
> P input
L 1	Id,DEL=-1.
	*next
 
IGGHH = 0. + 0.
 
	Z IHUWZ=VIERP("G_,"U,"W,"Z)
> WORK{IHUWZ}
> P ninput

Terms in output 13, Statistics counts 82, 52, 0, 0.
> P output
 
IHUWZ = 
 + D(L2,L3)*EP^-1*TIPI2
  * ( - 1/2*I*C - 1/2*I*C*DEL - 1/4*I*C^-3 - 1/4*I*C^-3*DEL
  + 3/4*I*C^-1 + 3/4*I*C^-1*DEL ) + 0.
 
> P input
L 1	Id,DEL=-1.
	*next
 
IHUWZ = 0. + 0.
 
	Z IUUVV=VIERP("U,"U,"U_,"U_)
> WORK{IUUVV}
> P ninput

Terms in output 23, Statistics counts 124, 124, 0, 0.
> P output
 
IUUVV = 
 + D(L1,L2)*D(L3,L4)*EP^-1*TIPI2
  * ( - 5/3 - 5/3*DEL )
 
 + D(L1,L3)*D(L2,L4)*EP^-1*TIPI2
  * ( 5/6 + 5/6*DEL )
 
 + D(L1,L4)*D(L2,L3)*EP^-1*TIPI2
  * ( 5/6 + 5/6*DEL ) + 0.
 
> P input
L 1	Id,DEL=-1.
	*next
 
IUUVV = 0. + 0.
 
	Z IUVZZ=VIERP("U,"U_,"Z,"Z)
> WORK{IUVZZ}
> P ninput

Terms in output 6, Statistics counts 80, 57, 0, 0.
> P output
 
IUVZZ = + D(L1,L2)*EP^-1*TIPI2
  * ( 3/2 - 1/4*C^-2 - 1/4*C^-2*DEL + 3/2*DEL ) + 0.
 
> P input
L 1	Id,DEL=-1.
	*next
 
IUVZZ = 0. + 0.
 
	Z IUVWW=VIERP("U,"U_,"W,"W)
> WORK{IUVWW}
> P ninput

Terms in output 23, Statistics counts 106, 73, 0, 0.
> P output
 
IUVWW = 
 + D(L1,L2)*D(L3,L4)*EP^-1*TIPI2
  * ( 5/3*C^2 + 5/3*C^2*DEL )
 
 + D(L1,L3)*D(L2,L4)*EP^-1*TIPI2
  * ( - 5/6*C^2 - 5/6*C^2*DEL )
 
 + D(L1,L4)*D(L2,L3)*EP^-1*TIPI2
  * ( - 5/6*C^2 - 5/6*C^2*DEL ) + 0.
 
> P input
L 1	Id,DEL=-1.
	*next
 
IUVWW = 0. + 0.
 
	Z IWWZZ=VIERP("W,"W,"Z,"Z)
> WORK{IWWZZ}
> P ninput

Terms in output 6, Statistics counts 56, 56, 0, 0.
> P output
 
IWWZZ = + D(L1,L2)*EP^-1*TIPI2
  * ( 2 - 1/4*C^-4 - 1/4*C^-4*DEL - 1/2*C^-2 - 1/2*C^-2*DEL
  + 2*DEL ) + 0.
 
> P input
L 1	Id,DEL=-1.
	*next
 
IWWZZ = 0. + 0.
 
	Z IZZZZ=VIERP("Z,"Z,"Z,"Z)
> WORK{IZZZZ}
> P ninput

Terms in output 6, Statistics counts 70, 70, 0, 0.
> P output
 
IZZZZ = 
 + EP^-1*TIPI2
  * ( - 9/4 - 9/8*M^-4*SM^4 - 9/8*M^-4*SM^4*DEL + 3/4*M^-2*SM^2
  + 3/8*M^-2*SM^2*C^-2 + 3/8*M^-2*SM^2*C^-2*DEL + 3/4*M^-2*SM^2*DEL
   - 9/8*C^-4 - 9/8*C^-4*DEL - 9/4*DEL ) + 0.
 
> P input
L 1	Id,DEL=-1.
	*next
 
IZZZZ = 0. + 0.
 
	Z IAFFW=VIERP("A,"F,"F,"W)
> WORK{IAFFW}
> P ninput

Terms in output 4, Statistics counts 43, 43, 0, 0.
> P output
 
IAFFW = + D(L1,L4)*EP^-1*TIPI2
  * ( C^-1*S + C^-1*S*DEL ) + 0.
 
> P input
L 1	Id,DEL=-1.
	*next
 
IAFFW = 0. + 0.
 
	Z IAWZZ=VIERP("A,"W,"Z,"Z)
> WORK{IAWZZ}
> P ninput

Terms in output 4, Statistics counts 43, 43, 0, 0.
> P output
 
IAWZZ = + D(L1,L2)*EP^-1*TIPI2
  * ( C^-1*S + C^-1*S*DEL ) + 0.
 
> P input
L 1	Id,DEL=-1.
	*next
 
IAWZZ = 0. + 0.
 
	*end

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


C RO-parameter 4. Divergencies of one-loop diagrams, ghost external lines.

C ONE-LOOP THREE-POINT DIAGRAMS WITH EXTERNAL GHOST LINES.
C CALCULATION OF ONE-LOOP DIVERGENCIES.
C COUNTERTERMS ARE ALSO CHECKED.
C CDC CPU time: 16.09 sec.

	Oldnew i=I
> P ninput

Begin. Time 1 sec.
> P ninput
> P input
	Z IAOP(MU,Q,NU,T,AL,K)=VERT("A,"P_,"P)
> WORK{IAOP}
> P ninput
> P output
 
IAOP = + P(AL)*EP^-1*TIPI2
  * ( S + S*DEL )
 
 + K(AL)*EP^-1*TIPI2
  * ( S + S*DEL ) + 0.
 
 
IAOP = 0. + 0.
 
> P input
	Z IAXY(MU,Q,NU,T,AL,K)=VERT("A,"Y_,"Y)
> WORK{IAXY}
> P ninput
> P output
 
IAXY = + P(AL)*EP^-1*TIPI2
  * ( - S - S*DEL )
 
 + K(AL)*EP^-1*TIPI2
  * ( - S - S*DEL ) + 0.
 
 
IAXY = 0. + 0.
 
> P input
	Z IFOP(MU,Q,NU,T,AL,K)=VERT("F,"P_,"P)
> WORK{IFOP}
> P ninput
> P output
 
IFOP = + EP^-1*TIPI2
  * ( 1/2*I*M + 1/2*I*M*DEL ) + 0.
 
 
IFOP = 0. + 0.
 
> P input
	Z IFXY(MU,Q,NU,T,AL,K)=VERT("F,"Y_,"Y)
> WORK{IFXY}
> P ninput
> P output
 
IFXY = + EP^-1*TIPI2
  * ( - 1/2*I*M - 1/2*I*M*DEL ) + 0.
 
 
IFXY = 0. + 0.
 
> P input
	Z IGPQ(MU,Q,NU,T,AL,K)=VERT("G,"P,"R_)
> WORK{IGPQ}
> P ninput
> P output
 
IGPQ = + EP^-1*TIPI2
  * ( - 1/2*I*M*C^-1 - 1/2*I*M*C^-1*DEL ) + 0.
 
 
IGPQ = 0. + 0.
 
> P input
	Z IGRX(MU,Q,NU,T,AL,K)=VERT("G,"R,"Y_)
> WORK{IGRX}
> P ninput
> P output
 
IGRX = + EP^-1*TIPI2
  * ( 1/2*I*M*C + 1/2*I*M*C*DEL ) + 0.
 
 
IGRX = 0. + 0.
 
> P input
	Z IGTX(MU,Q,NU,T,AL,K)=VERT("G,"T,"Y_)
> WORK{IGTX}
> P ninput
> P output
 
IGTX = + EP^-1*TIPI2
  * ( 1/2*I*M*S + 1/2*I*M*S*DEL ) + 0.
 
 
IGTX = 0. + 0.
 
> P input
	Z IHOR(MU,Q,NU,T,AL,K)=VERT("G_,"P_,"R)
> WORK{IHOR}
> P ninput
> P output
 
IHOR = + EP^-1*TIPI2
  * ( - 1/2*I*M*C - 1/2*I*M*C*DEL ) + 0.
 
 
IHOR = 0. + 0.
 
> P input
	Z IHOT(MU,Q,NU,T,AL,K)=VERT("G_,"P_,"T)
> WORK{IHOT}
> P ninput
> P output
 
IHOT = + EP^-1*TIPI2
  * ( - 1/2*I*M*S - 1/2*I*M*S*DEL ) + 0.
 
 
IHOT = 0. + 0.
 
> P input
	Z IHQY(MU,Q,NU,T,AL,K)=VERT("G_,"R_,"Y)
> WORK{IHQY}
> P ninput
> P output
 
IHQY = + EP^-1*TIPI2
  * ( 1/2*I*M*C^-1 + 1/2*I*M*C^-1*DEL ) + 0.
 
 
IHQY = 0. + 0.
 
> P input
	Z IOPZ(MU,Q,NU,T,AL,K)=VERT("P_,"P,"Z)
> WORK{IOPZ}
> P ninput
> P output
 
IOPZ = + EP^-1*TIPI2
  * ( 1/2*M + 1/2*M*DEL ) + 0.
 
 
IOPZ = 0. + 0.
 
> P input
	Z IOPW(MU,Q,NU,T,AL,K)=VERT("P_,"P,"W)
> WORK{IOPW}
> P ninput
> P output
 
IOPW = + P(GA)*EP^-1*TIPI2
  * ( - C - C*DEL ) + 0.
 
 
IOPW = 0. + 0.
 
> P input
	Z IORV(MU,Q,NU,T,AL,K)=VERT("P_,"R,"U_)
> WORK{IORV}
> P ninput
> P output
 
IORV = + P(GA)*EP^-1*TIPI2
  * ( C + C*DEL ) + 0.
 
 
IORV = 0. + 0.
 
> P input
	Z IOTV(MU,Q,NU,T,AL,K)=VERT("P_,"T,"U_)
> WORK{IOTV}
> P ninput
> P output
 
IOTV = + P(GA)*EP^-1*TIPI2
  * ( S + S*DEL ) + 0.
 
 
IOTV = 0. + 0.
 
> P input
	Z IPQU(MU,Q,NU,T,AL,K)=VERT("P,"R_,"U)
> WORK{IPQU}
> P ninput
> P output
 
IPQU = + P(GA)*EP^-1*TIPI2
  * ( - C - C*DEL )
 
 + K(GA)*EP^-1*TIPI2
  * ( - C - C*DEL ) + 0.
 
 
IPQU = 0. + 0.
 
> P input
	Z IPSU(MU,Q,NU,T,AL,K)=VERT("P,"T_,"U)
> WORK{IPSU}
> P ninput
> P output
 
IPSU = + P(GA)*EP^-1*TIPI2
  * ( - S - S*DEL )
 
 + K(GA)*EP^-1*TIPI2
  * ( - S - S*DEL ) + 0.
 
 
IPSU = 0. + 0.
 
> P input
	Z IQRZ(MU,Q,NU,T,AL,K)=VERT("R_,"R,"Z)
> WORK{IQRZ}
> P ninput
> P output
 
IQRZ = + EP^-1*TIPI2
  * ( 1/2*M + 1/2*M*DEL ) + 0.
 
 
IQRZ = 0. + 0.
 
> P input
	Z IQTZ(MU,Q,NU,T,AL,K)=VERT("R_,"T,"Z)
> WORK{IQTZ}
> P ninput
> P output
 
IQTZ = + EP^-1*TIPI2
  * ( 1/2*M*C^-1*S + 1/2*M*C^-1*S*DEL ) + 0.
 
 
IQTZ = 0. + 0.
 
> P input
	Z IQVY(MU,Q,NU,T,AL,K)=VERT("R_,"U_,"Y)
> WORK{IQVY}
> P ninput
> P output
 
IQVY = + P(BE)*EP^-1*TIPI2
  * ( - C - C*DEL ) + 0.
 
 
IQVY = 0. + 0.
 
> P input
	Z IRUX(MU,Q,NU,T,AL,K)=VERT("R,"U,"Y_)
> WORK{IRUX}
> P ninput
> P output
 
IRUX = + K(BE)*EP^-1*TIPI2
  * ( - C - C*DEL ) + 0.
 
 
IRUX = 0. + 0.
 
> P input
	Z ISVY(MU,Q,NU,T,AL,K)=VERT("T_,"U_,"Y)
> WORK{ISVY}
> P ninput
> P output
 
ISVY = + P(BE)*EP^-1*TIPI2
  * ( - S - S*DEL ) + 0.
 
 
ISVY = 0. + 0.
 
> P input
	Z ITUX(MU,Q,NU,T,AL,K)=VERT("T,"U,"Y_)
> WORK{ITUX}
> P ninput
> P output
 
ITUX = + K(BE)*EP^-1*TIPI2
  * ( - S - S*DEL ) + 0.
 
 
ITUX = 0. + 0.
 
> P input
	Z IWXY(MU,Q,NU,T,AL,K)=VERT("W,"Y_,"Y)
> WORK{IWXY}
> P ninput
> P output
 
IWXY = + P(AL)*EP^-1*TIPI2
  * ( - C - C*DEL )
 
 + K(AL)*EP^-1*TIPI2
  * ( - C - C*DEL ) + 0.
 
 
IWXY = 0. + 0.
 
> P input
	Z IXYZ(MU,Q,NU,T,AL,K)=VERT("Y_,"Y,"Z)
> WORK{IXYZ}
> P ninput
> P output
 
IXYZ = + EP^-1*TIPI2
  * ( 1/2*M + 1/2*M*DEL ) + 0.
 
 
IXYZ = 0. + 0.
 
> P input
	*end

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


C RO-parameter 5. Two-loop self-energy diagrams.

C TWO-LOOP SELF-ENERGY DIAGRAMS.
C THE DIAGRAMS ARE DIVIDED IN 8 TOPOLOGY CLASSES.
C EACH CLASS IS WORKED OUT IN TERMS OF THE F211 ETC.
C SUBSEQUENTLY THE F211 ETC ARE EXPANDED IN TERMS OF THE
C  HIGGS MASS SM.
C CDC CPU time: 111.85 sec.

	Common A0A0,W0A0,W0W0,WPWM

	S PM=1,M,M0,SM,N,C,S,EP,AH
	Oldnew i=I
> P ninput

Begin. Time 2 sec.
> P ninput
> P ninput
 
A0A0 = 
 + F221(M,M,M,M,SM)
  * ( 1/2*M^-2*SM^6*N^-1 - 1/2*M^-2*SM^6*N^-1*C^2 - 3*SM^4*N^-1
  + 3*SM^4*N^-1*C^2 )
 
 + F22(M,M,M,M)
  * ( - 1/2*M^-2*SM^4*N^-1 + 1/2*M^-2*SM^4*N^-1*C^2 + 2*SM^2*N^-1
  - 2*SM^2*N^-1*C^2 )
 
 + F211(M,M,M,SM)
  * ( M^-2*SM^4*N^-1 - M^-2*SM^4*N^-1*C^2 - 2*SM^2*N^-1 + 2*SM^2*N^-1
  *C^2 )
 
 + F21(M,M,SM)
  * ( - 2*N^-1 + 2*N^-1*C^2 )
 
 + F111(M,M,SM)
  * ( 2*N^-1 - 2*N^-1*C^2 ) + 0.
 
> P ninput
 
W0A0 = 
 + F221(M,M,M,M,SM)
  * ( 1/2*M^-2*SM^6*N^-1*C*S - 1/4*M^-2*SM^6*N^-1*C^-1*S - 3*SM^4*N^-1
  *C*S + 3/2*SM^4*N^-1*C^-1*S )
 
 + F22(M,M,M,M)
  * ( - 1/2*M^-2*SM^4*N^-1*C*S + 1/4*M^-2*SM^4*N^-1*C^-1*S
  + 2*SM^2*N^-1*C*S - SM^2*N^-1*C^-1*S )
 
 + F22(M,M,M0,SM)
  * ( - 1/2*SM^2*N^-1*C^-3*S + 3/4*SM^2*N^-1*C^-1*S )
 
 + F211(M,M,M,SM)
  * ( M^-2*SM^4*N^-1*C*S - 1/2*M^-2*SM^4*N^-1*C^-1*S - 2*SM^2*N^-1
  *C*S + 1/2*SM^2*N^-1*C^-3*S - 3/4*SM^2*N^-1*C^-1*S )
 
 + F211(M0,SM,M,M)
  * ( - 3/2*SM^2*N^-1*C^-3*S + 13/4*SM^2*N^-1*C^-1*S )
 
 + F21(M,M,SM)
  * ( - 2*N^-1*C*S + 2*N^-1*C^-1*S )
 
 + F111(M,M,SM)
  * ( 2*N^-1*C*S - 3/2*N^-1*C^-1*S ) + 0.
 
> P ninput
 
W0W0 = 
 + F221(M,M,M,M,SM)
  * ( - 1/2*M^-2*SM^6*N^-1 + 1/2*M^-2*SM^6*N^-1*C^2 + 1/8*M^-2*SM^6
  *N^-1*C^-2 + 3*SM^4*N^-1 - 3*SM^4*N^-1*C^2 - 3/4*SM^4*N^-1*C^-2 )
 
 + F221(M0,SM,M0,SM,M0)
  * ( 1/8*M^-2*M0^2*SM^4*N^-1*C^-2 )
 
 + F221(M0,SM,M0,SM,SM)
  * ( - 3/4*M^-2*M0^2*SM^4*N^-1*C^-2 + 3/8*M^-2*SM^6*N^-1*C^-2
  - 3/4*SM^4*N^-1*C^-4 )
 
 + F22(M,M,M,M)
  * ( 1/2*M^-2*SM^4*N^-1 - 1/2*M^-2*SM^4*N^-1*C^2 - 1/8*M^-2*SM^4*N^-1
  *C^-2 - 2*SM^2*N^-1 + 2*SM^2*N^-1*C^2 + 1/2*SM^2*N^-1*C^-2 )
 
 + F22(M,M,M0,SM)
  * ( 3/2*SM^2*N^-1 + 1/2*SM^2*N^-1*C^-4 - 3/2*SM^2*N^-1*C^-2 )
 
 + F22(M0,SM,M0,SM)
  * ( - 1/4*M^-2*SM^4*N^-1*C^-2 + SM^2*N^-1*C^-4 )
 
 + F211(M,M,M,SM)
  * ( - M^-2*SM^4*N^-1 + M^-2*SM^4*N^-1*C^2 + 1/4*M^-2*SM^4*N^-1*C^-2
   - 3/2*SM^2*N^-1 - 2*SM^2*N^-1*C^2 - 1/2*SM^2*N^-1*C^-4
  + 7/2*SM^2*N^-1*C^-2 )
 
 + F211(M0,SM,M,M)
  * ( 13/2*SM^2*N^-1 + 3/2*SM^2*N^-1*C^-4 - 13/2*SM^2*N^-1*C^-2 )
 
 + F211(M0,SM,M0,SM)
  * ( - 1/4*M^-2*SM^4*N^-1*C^-2 )
 
 + F211(M0,SM,SM,SM)
  * ( 3/4*M^-2*SM^4*N^-1*C^-2 + 3/2*SM^2*N^-1*C^-4 )
 
 + F21(M,M,SM)
  * ( 4*N^-1 - 2*N^-1*C^2 - N^-1*C^-2 )
 
 + F21(M0,SM,SM)
  * ( - 1/2*N^-1*C^-4 )
 
 + F111(M,M,SM)
  * ( - 3*N^-1 + 2*N^-1*C^2 + 2*N^-1*C^-2 )
 
 + F111(M0,SM,SM)
  * ( 1/2*N^-1*C^-4 ) + 0.
 
> P ninput
 
WPWM = 
 + F221(M,M0,M,M0,SM)
  * ( 1/8*M^-2*SM^6*N^-1 - 1/2*SM^4*N^-1 - 1/4*SM^4*N^-1*C^-2 )
 
 + F221(M,SM,M,SM,M)
  * ( 1/8*SM^4*N^-1 )
 
 + F221(M,SM,M,SM,SM)
  * ( 3/8*M^-2*SM^6*N^-1 - 3/2*SM^4*N^-1 )
 
 + F22(PM,M,M,SM)
  * ( 1/2*SM^2*N^-1 - 1/2*SM^2*N^-1*C^2 )
 
 + F22(M,M0,M,M0)
  * ( - 1/8*M^-2*SM^4*N^-1 + 1/4*SM^2*N^-1 + 1/4*SM^2*N^-1*C^-2 )
 
 + F22(M,M0,M,SM)
  * ( - 1/4*SM^2*N^-1 + 1/2*SM^2*N^-1*C^2 + 1/4*SM^2*N^-1*C^-2 )
 
 + F22(M,SM,M,SM)
  * ( - 1/4*M^-2*SM^4*N^-1 + SM^2*N^-1 )
 
 + F211(PM,M,M,SM)
  * ( 5/2*SM^2*N^-1 - 5/2*SM^2*N^-1*C^2 )
 
 + F211(M,M0,M,SM)
  * ( - 5/2*SM^2*N^-1 + 5/2*SM^2*N^-1*C^2 + 3/4*SM^2*N^-1*C^-2 )
 
 + F211(M,M0,M0,SM)
  * ( 1/4*M^-2*SM^4*N^-1 - 5/4*SM^2*N^-1 )
 
 + F211(M,SM,M,M)
  * ( - 1/2*SM^2*N^-1 + 1/2*SM^2*N^-1*C^2 )
 
 + F211(M,SM,M,M0)
  * ( 3/2*SM^2*N^-1 - 1/2*SM^2*N^-1*C^2 - 1/4*SM^2*N^-1*C^-2 )
 
 + F211(M,SM,M,SM)
  * ( - 1/4*M^-2*SM^4*N^-1 )
 
 + F211(M,SM,M0,M0)
  * ( 3/4*SM^2*N^-1 )
 
 + F211(M,SM,SM,SM)
  * ( 3/4*M^-2*SM^4*N^-1 + 3/2*SM^2*N^-1 )
 
 + F21(PM,M,SM)
  * ( N^-1 - N^-1*C^2 )
 
 + F21(M,M0,SM)
  * ( 1/2*N^-1 + N^-1*C^2 - 1/2*N^-1*C^-2 )
 
 + F21(M,SM,SM)
  * ( - 1/2*N^-1 )
 
 + F111(M,M,SM)
  * ( 2*N^-1 - 2*N^-1*C^2 )
 
 + F111(M,M0,SM)
  * ( - 2*N^-1 + 2*N^-1*C^2 )
 
 + F111(M,SM,SM)
  * ( 1/2*N^-1 )
 
 + F111(M0,M0,SM)
  * ( N^-1*C^-2 ) + 0.
 
> P ninput
 
A0A0 = 
 + F311(M,M,M,M,SM)
  * ( 8*M^2*SM^2*N^-1 - 8*M^2*SM^2*N^-1*C^2 - 2*SM^4*N^-1
  + 2*SM^4*N^-1*C^2 )
 
 + F31(M,M,M,M)
  * ( 1/2*SM^2 - 1/2*SM^2*C^2 )
 
 + F31(M,M,M,SM)
  * ( - 1/2*M^2 + M^2*N^-1 - M^2*N^-1*C^2 + 1/2*M^2*C^2 - 1/2*SM^2
   + 1/2*SM^2*C^2 )
 
 + F221(M,M,M,M,SM)
  * ( 1/2*M^-2*SM^6*N^-1 - 1/2*M^-2*SM^6*N^-1*C^2 - 3*SM^4*N^-1
  + 3*SM^4*N^-1*C^2 )
 
 + F22(M,M,M,M)
  * ( - 1/2*M^-2*SM^4*N^-1 + 1/2*M^-2*SM^4*N^-1*C^2 + 2*SM^2*N^-1
  - 2*SM^2*N^-1*C^2 )
 
 + F211(M,M,M,SM)
  * ( 3*M^-2*SM^4*N^-1 - 3*M^-2*SM^4*N^-1*C^2 - 11*SM^2*N^-1
  + 11*SM^2*N^-1*C^2 )
 
 + F21(M,M,SM)
  * ( 1/2 - 2*N^-1 + 2*N^-1*C^2 - 1/2*C^2 )
 
 + F111(M,M,SM)
  * ( 7/2*N^-1 - 7/2*N^-1*C^2 ) + 0.
 
> P ninput
 
W0A0 = 
 + F311(M,M,M,M,SM)
  * ( 8*M^2*SM^2*N^-1*C*S + 3*M^2*SM^2*N^-1*C^-1*S - 2*SM^4*N^-1*C
  *S - SM^4*N^-1*C^-1*S )
 
 + F31(M,M,M,M)
  * ( 2*SM^2*N^-1*C^-1*S + 1/2*SM^2*C*S - 1/2*SM^2*C^-1*S )
 
 + F31(M,M,M,SM)
  * ( M^2*N^-1*C*S - 1/2*M^2*C*S - 2*SM^2*N^-1*C^-1*S - 1/2*SM^2*C
  *S + 1/2*SM^2*C^-1*S )
 
 + F221(M,M,M,M,SM)
  * ( 1/2*M^-2*SM^6*N^-1*C*S - 1/4*M^-2*SM^6*N^-1*C^-1*S - 3*SM^4*N^-1
  *C*S + 3/2*SM^4*N^-1*C^-1*S )
 
 + F22(M,M,M,M)
  * ( - 1/2*M^-2*SM^4*N^-1*C*S + 1/4*M^-2*SM^4*N^-1*C^-1*S
  + 2*SM^2*N^-1*C*S - SM^2*N^-1*C^-1*S )
 
 + F22(M,M,M0,SM)
  * ( - 1/2*SM^2*N^-1*C^-3*S + 3/4*SM^2*N^-1*C^-1*S )
 
 + F211(M,M,M,SM)
  * ( 3*M^-2*SM^4*N^-1*C*S - 3/2*M^-2*SM^4*N^-1*C^-1*S - 11*SM^2*N^-1
  *C*S + 1/2*SM^2*N^-1*C^-3*S + 5/4*SM^2*N^-1*C^-1*S )
 
 + F211(M0,SM,M,M)
  * ( - 3/2*SM^2*N^-1*C^-3*S + 13/4*SM^2*N^-1*C^-1*S )
 
 + F21(M,M,SM)
  * ( - 2*N^-1*C*S + 3*N^-1*C^-1*S + 1/2*C*S )
 
 + F111(M,M,SM)
  * ( 7/2*N^-1*C*S - 7/2*N^-1*C^-1*S ) + 0.
 
> P ninput
 
W0W0 = 
 + F311(M,M,M,M,SM)
  * ( 6*M^2*SM^2*N^-1 + 8*M^2*SM^2*N^-1*C^2 - 2*M^2*SM^2*N^-1*C^-2
   - M^2*SM^2*C^-2 - 2*SM^4*N^-1 - 2*SM^4*N^-1*C^2 + 1/2*SM^4*N^-1
  *C^-2 + 1/2*SM^4*C^-2 )
 
 + F311(M0,M0,SM,M0,SM)
  * ( - 1/4*M^-2*M0^2*SM^4*N^-1*C^-2 + 1/2*SM^4*N^-1*C^-4 )
 
 + F311(M0,SM,SM,M,M)
  * ( - 1/4*M^-2*M0^2*SM^4*N^-1*C^-2 + 1/4*SM^4*C^-4 )
 
 + F311(M0,SM,SM,M0,M0)
  * ( - 1/8*M^-2*M0^2*SM^4*N^-1*C^-2 + 1/8*SM^4*C^-4 )
 
 + F311(M0,SM,SM,SM,SM)
  * ( - 9/8*M^-2*M0^2*SM^4*N^-1*C^-2 + 9/8*SM^4*C^-4 )
 
 + F31(M,M,M,M)
  * ( - SM^2 + 4*SM^2*N^-1 - SM^2*N^-1*C^-2 + 1/2*SM^2*C^2 )
 
 + F31(M,M,M,SM)
  * ( M^2*N^-1*C^2 + 1/2*M^2*N^-1*C^-2 - 1/2*M^2*C^2 - 1/2*M^2*C^-2
   + SM^2 - 4*SM^2*N^-1 + SM^2*N^-1*C^-2 - 1/2*SM^2*C^2 )
 
 + F31(M0,M0,SM,SM)
  * ( 1/2*SM^2*N^-1*C^-4 )
 
 + F221(M,M,M,M,SM)
  * ( - 1/2*M^-2*SM^6*N^-1 + 1/2*M^-2*SM^6*N^-1*C^2 + 1/8*M^-2*SM^6
  *N^-1*C^-2 + 3*SM^4*N^-1 - 3*SM^4*N^-1*C^2 - 3/4*SM^4*N^-1*C^-2 )
 
 + F221(M0,SM,M0,SM,M0)
  * ( 1/8*M^-2*M0^2*SM^4*N^-1*C^-2 )
 
 + F221(M0,SM,M0,SM,SM)
  * ( - 3/4*M^-2*M0^2*SM^4*N^-1*C^-2 + 3/8*M^-2*SM^6*N^-1*C^-2
  - 3/4*SM^4*N^-1*C^-4 )
 
 + F22(M,M,M,M)
  * ( 1/2*M^-2*SM^4*N^-1 - 1/2*M^-2*SM^4*N^-1*C^2 - 1/8*M^-2*SM^4*N^-1
  *C^-2 - 2*SM^2*N^-1 + 2*SM^2*N^-1*C^2 + 1/2*SM^2*N^-1*C^-2 )
 
 + F22(M,M,M0,SM)
  * ( 3/2*SM^2*N^-1 + 1/2*SM^2*N^-1*C^-4 - 3/2*SM^2*N^-1*C^-2 )
 
 + F22(M0,SM,M0,SM)
  * ( - 1/4*M^-2*SM^4*N^-1*C^-2 + SM^2*N^-1*C^-4 )
 
 + F211(M,M,M,SM)
  * ( - 3*M^-2*SM^4*N^-1 + 3*M^-2*SM^4*N^-1*C^2 + 3/4*M^-2*SM^4*N^-1
  *C^-2 + 5/2*SM^2*N^-1 - 11*SM^2*N^-1*C^2 - 1/2*SM^2*N^-1*C^-4
  + 5/2*SM^2*N^-1*C^-2 )
 
 + F211(M0,SM,M,M)
  * ( 13/2*SM^2*N^-1 + 3/2*SM^2*N^-1*C^-4 - 13/2*SM^2*N^-1*C^-2 )
 
 + F211(M0,SM,M0,SM)
  * ( - 1/2*SM^2*N^-1*C^-4 )
 
 + F211(M0,SM,SM,SM)
  * ( 3/4*M^-2*SM^4*N^-1*C^-2 + 3/2*SM^2*N^-1*C^-4 )
 
 + F211(SM,SM,M,M)
  * ( 1/4*M^-2*SM^4*N^-1*C^-2 - SM^2*N^-1*C^-2 )
 
 + F211(SM,SM,M0,M0)
  * ( 1/8*M^-2*SM^4*N^-1*C^-2 - 1/2*SM^2*N^-1*C^-4 )
 
 + F211(SM,SM,SM,SM)
  * ( 9/8*M^-2*SM^4*N^-1*C^-2 )
 
 + F21(M,M,SM)
  * ( 6*N^-1 - 2*N^-1*C^2 - 3/2*N^-1*C^-2 + 1/2*C^2 )
 
 + F21(M0,SM,SM)
  * ( - 3/4*N^-1*C^-4 )
 
 + F111(M,M,SM)
  * ( - 7*N^-1 + 7/2*N^-1*C^2 + 5*N^-1*C^-2 )
 
 + F111(M0,M0,SM)
  * ( 1/2*N^-1*C^-4 )
 
 + F111(M0,SM,SM)
  * ( N^-1*C^-4 ) + 0.
 
> P ninput
 
WPWM = 
 + F311(PM,M,M,M,SM)
  * ( - 2*M^2*SM^2 + 4*M^2*SM^2*N^-1 - 4*M^2*SM^2*N^-1*C^2
  + 2*M^2*SM^2*C^2 + SM^4 - 2*SM^4*N^-1 + 2*SM^4*N^-1*C^2
  - SM^4*C^2 )
 
 + F311(M,M,M0,M,SM)
  * ( 2*M^2*SM^2 - 1/2*M^2*SM^2*N^-1 + 13/2*M^2*SM^2*N^-1*C^2
  - 2*M^2*SM^2*C^2 - 1/2*M^2*SM^2*C^-2 - SM^4 + 1/4*SM^4*N^-1
  - 2*SM^4*N^-1*C^2 + SM^4*C^2 + 1/4*SM^4*C^-2 )
 
 + F311(M,M,SM,M,SM)
  * ( 1/4*SM^4*N^-1 )
 
 + F311(M,M0,M0,M0,SM)
  * ( 2*M^2*SM^2*N^-1 - M^2*SM^2*N^-1*C^-4 + 2*M^2*SM^2*N^-1*C^-2
  - 1/2*M0^2*SM^2 + 7/2*M0^2*SM^2*N^-1 - 1/2*M0^2*SM^2*N^-1*C^-2
  + 1/4*SM^4 - 9/4*SM^4*N^-1 + 1/2*SM^4*N^-1*C^-2 )
 
 + F311(M,SM,SM,M,M)
  * ( 1/4*SM^4 - 1/4*SM^4*N^-1 )
 
 + F311(M,SM,SM,M0,M0)
  * ( 1/8*SM^4 - 1/8*SM^4*N^-1 )
 
 + F311(M,SM,SM,SM,SM)
  * ( 9/8*SM^4 - 9/8*SM^4*N^-1 )
 
 + F31(PM,M,M,M)
  * ( - 3/4*SM^2 + 2*SM^2*N^-1 - 2*SM^2*N^-1*C^2 + 3/4*SM^2*C^2 )
 
 + F31(PM,M,M,SM)
  * ( - M^2 + 2*M^2*N^-1 - 2*M^2*N^-1*C^2 + M^2*C^2 + 3/4*SM^2
  - 2*SM^2*N^-1 + 2*SM^2*N^-1*C^2 - 3/4*SM^2*C^2 )
 
 + F31(M,M,M0,M)
  * ( 1/2*SM^2 - 1/2*SM^2*N^-1 + 2*SM^2*N^-1*C^2 - 3/4*SM^2*C^2 )
 
 + F31(M,M,M0,SM)
  * ( M^2 - 1/4*M^2*N^-1 + M^2*N^-1*C^2 - 5/4*M^2*C^2 - 1/4*M^2*C^-2
   - 1/2*SM^2 + 1/2*SM^2*N^-1 - 2*SM^2*N^-1*C^2 + 3/4*SM^2*C^2 )
 
 + F31(M,M,SM,SM)
  * ( 1/2*SM^2*N^-1 )
 
 + F31(M,M0,M0,M0)
  * ( - 1/4*SM^2 + 2*SM^2*N^-1 - 1/2*SM^2*N^-1*C^-2 )
 
 + F31(M,M0,M0,SM)
  * ( - 1/4*M^2 - 1/2*M^2*N^-1 - 1/4*M^2*N^-1*C^-2 - 1/4*M0^2
  + 3/2*M0^2*N^-1 + 1/4*SM^2 - 2*SM^2*N^-1 + 1/2*SM^2*N^-1*C^-2 )
 
 + F221(M,M0,M,M0,SM)
  * ( 1/8*M^-2*SM^6*N^-1 - 1/2*SM^4*N^-1 - 1/4*SM^4*N^-1*C^-2 )
 
 + F221(M,SM,M,SM,M)
  * ( 1/8*SM^4*N^-1 )
 
 + F221(M,SM,M,SM,SM)
  * ( 3/8*M^-2*SM^6*N^-1 - 3/2*SM^4*N^-1 )
 
 + F22(PM,M,M,SM)
  * ( 1/2*SM^2*N^-1 - 1/2*SM^2*N^-1*C^2 )
 
 + F22(M,M0,M,M0)
  * ( - 1/8*M^-2*SM^4*N^-1 + 1/4*SM^2*N^-1 + 1/4*SM^2*N^-1*C^-2 )
 
 + F22(M,M0,M,SM)
  * ( - 1/4*SM^2*N^-1 + 1/2*SM^2*N^-1*C^2 + 1/4*SM^2*N^-1*C^-2 )
 
 + F22(M,SM,M,SM)
  * ( - 1/4*M^-2*SM^4*N^-1 + SM^2*N^-1 )
 
 + F211(PM,M,M,SM)
  * ( 5/2*SM^2*N^-1 - 5/2*SM^2*N^-1*C^2 )
 
 + F211(M,M,M,SM)
  * ( - 5/2*SM^2*N^-1 + 5/2*SM^2*N^-1*C^2 )
 
 + F211(M,M0,M,SM)
  * ( 1/4*M^-2*SM^4*N^-1 - 3*SM^2*N^-1 + 3/4*SM^2*N^-1*C^-2 )
 
 + F211(M,M0,M0,SM)
  * ( 1/4*M^-2*SM^4*N^-1 - 5/4*SM^2*N^-1 )
 
 + F211(M,SM,M,M)
  * ( - 1/2*SM^2*N^-1 + 1/2*SM^2*N^-1*C^2 )
 
 + F211(M,SM,M,M0)
  * ( 3/2*SM^2*N^-1 - 1/2*SM^2*N^-1*C^2 - 1/4*SM^2*N^-1*C^-2 )
 
 + F211(M,SM,M,SM)
  * ( - 1/2*SM^2*N^-1 )
 
 + F211(M,SM,M0,M0)
  * ( 3/4*SM^2*N^-1 )
 
 + F211(M,SM,SM,SM)
  * ( 3/4*M^-2*SM^4*N^-1 + 3/2*SM^2*N^-1 )
 
 + F211(M0,M0,M0,SM)
  * ( 1/4*M^-2*SM^4*N^-1 - 5/2*SM^2*N^-1 - 1/2*SM^2*N^-1*C^-2 )
 
 + F211(SM,SM,M,M)
  * ( 1/4*M^-2*SM^4*N^-1 - SM^2*N^-1 )
 
 + F211(SM,SM,M0,M0)
  * ( 1/8*M^-2*SM^4*N^-1 - 1/2*SM^2*N^-1*C^-2 )
 
 + F211(SM,SM,SM,SM)
  * ( 9/8*M^-2*SM^4*N^-1 )
 
 + F21(PM,M,SM)
  * ( N^-1 - N^-1*C^2 )
 
 + F21(M,M,SM)
  * ( 1/4 + N^-1 - N^-1*C^2 - 1/4*C^2 )
 
 + F21(M,M0,SM)
  * ( 1/4*N^-1 + 2*N^-1*C^2 - 1/2*N^-1*C^-2 + 1/4*C^2 )
 
 + F21(M,SM,SM)
  * ( - 3/4*N^-1 )
 
 + F21(M0,M0,SM)
  * ( 1/4 + N^-1 - 1/4*N^-1*C^-2 )
 
 + F111(PM,M,SM)
  * ( 2*N^-1 - 2*N^-1*C^2 )
 
 + F111(M,M,SM)
  * ( 7/4*N^-1 - 3/4*N^-1*C^2 )
 
 + F111(M,M0,SM)
  * ( - 3*N^-1 + 11/4*N^-1*C^2 + 1/2*N^-1*C^-2 )
 
 + F111(M,SM,SM)
  * ( N^-1 )
 
 + F111(M0,M0,SM)
  * ( - 5/4*N^-1 + 2*N^-1*C^-2 ) + 0.
 
> P ninput
 
A0A0 = 
 + F311(M,M,M,M,SM)
  * ( 8*M^2*SM^2*N^-1 - 8*M^2*SM^2*N^-1*C^2 - 2*SM^4*N^-1
  + 2*SM^4*N^-1*C^2 )
 
 + F31(M,M,M,M)
  * ( 1/2*SM^2 - 1/2*SM^2*C^2 )
 
 + F31(M,M,M,SM)
  * ( - 1/2*M^2 + M^2*N^-1 - M^2*N^-1*C^2 + 1/2*M^2*C^2 - 1/2*SM^2
   + 1/2*SM^2*C^2 )
 
 + F221(M,M,M,M,SM)
  * ( 1/2*M^-2*SM^6*N^-1 - 1/2*M^-2*SM^6*N^-1*C^2 - 3*SM^4*N^-1
  + 3*SM^4*N^-1*C^2 )
 
 + F22(M,M,M,M)
  * ( - 1/2*M^-2*SM^4*N^-1 + 1/2*M^-2*SM^4*N^-1*C^2 + 2*SM^2*N^-1
  - 2*SM^2*N^-1*C^2 )
 
 + F211(M,M,M,SM)
  * ( - 1/2*M^-2*SM^4 + 3*M^-2*SM^4*N^-1 - 3*M^-2*SM^4*N^-1*C^2
  + 1/2*M^-2*SM^4*C^2 + 2*SM^2 - 12*SM^2*N^-1 + 12*SM^2*N^-1*C^2
  - 2*SM^2*C^2 )
 
 + F21(M,M,SM)
  * ( - N^-1 + N^-1*C^2 )
 
 + F111(M,M,SM)
  * ( - 1/2 + 3*N^-1 - 3*N^-1*C^2 + 1/2*C^2 ) + 0.
 
> P ninput
 
W0A0 = 
 + F311(M,M,M,M,SM)
  * ( 8*M^2*SM^2*N^-1*C*S + 3*M^2*SM^2*N^-1*C^-1*S - 2*SM^4*N^-1*C
  *S - SM^4*N^-1*C^-1*S )
 
 + F31(M,M,M,M)
  * ( 2*SM^2*N^-1*C^-1*S + 1/2*SM^2*C*S - 1/2*SM^2*C^-1*S )
 
 + F31(M,M,M,SM)
  * ( M^2*N^-1*C*S - 1/2*M^2*C*S - 2*SM^2*N^-1*C^-1*S - 1/2*SM^2*C
  *S + 1/2*SM^2*C^-1*S )
 
 + F221(M,M,M,M,SM)
  * ( 1/2*M^-2*SM^6*N^-1*C*S - 1/4*M^-2*SM^6*N^-1*C^-1*S - 3*SM^4*N^-1
  *C*S + 3/2*SM^4*N^-1*C^-1*S )
 
 + F22(M,M,M,M)
  * ( - 1/2*M^-2*SM^4*N^-1*C*S + 1/4*M^-2*SM^4*N^-1*C^-1*S
  + 2*SM^2*N^-1*C*S - SM^2*N^-1*C^-1*S )
 
 + F22(M,M,M0,SM)
  * ( - 1/2*SM^2*N^-1*C^-3*S + 3/4*SM^2*N^-1*C^-1*S )
 
 + F211(M,M,M,SM)
  * ( 3*M^-2*SM^4*N^-1*C*S - 3/2*M^-2*SM^4*N^-1*C^-1*S - 1/2*M^-2*SM^4
  *C*S + 1/4*M^-2*SM^4*C^-1*S - 12*SM^2*N^-1*C*S + 1/2*SM^2*N^-1*C^-3
  *S + 5/4*SM^2*N^-1*C^-1*S + 2*SM^2*C*S - 1/2*SM^2*C^-1*S )
 
 + F211(M0,SM,M,M)
  * ( - 3/2*SM^2*N^-1*C^-3*S + 13/4*SM^2*N^-1*C^-1*S )
 
 + F21(M,M,SM)
  * ( - N^-1*C*S + 3*N^-1*C^-1*S - 1/4*C^-1*S )
 
 + F111(M,M,SM)
  * ( 3*N^-1*C*S - 7/2*N^-1*C^-1*S - 1/2*C*S + 1/2*C^-1*S ) + 0.
 
> P ninput
 
W0W0 = 
 + F311(M,M,M,M,SM)
  * ( 6*M^2*SM^2*N^-1 + 8*M^2*SM^2*N^-1*C^2 - 2*M^2*SM^2*N^-1*C^-2
   - M^2*SM^2*C^-2 - 2*SM^4*N^-1 - 2*SM^4*N^-1*C^2 + 1/2*SM^4*N^-1
  *C^-2 + 1/2*SM^4*C^-2 )
 
 + F311(M0,M0,SM,M0,SM)
  * ( - 1/4*M^-2*M0^2*SM^4*N^-1*C^-2 + 1/2*SM^4*N^-1*C^-4 )
 
 + F311(M0,SM,SM,M,M)
  * ( - 1/4*M^-2*M0^2*SM^4*N^-1*C^-2 + 1/4*SM^4*C^-4 )
 
 + F311(M0,SM,SM,M0,M0)
  * ( - 1/8*M^-2*M0^2*SM^4*N^-1*C^-2 + 1/8*SM^4*C^-4 )
 
 + F311(M0,SM,SM,SM,SM)
  * ( - 9/8*M^-2*M0^2*SM^4*N^-1*C^-2 + 9/8*SM^4*C^-4 )
 
 + F31(M,M,M,M)
  * ( - SM^2 + 4*SM^2*N^-1 - SM^2*N^-1*C^-2 + 1/2*SM^2*C^2 )
 
 + F31(M,M,M,SM)
  * ( M^2*N^-1*C^2 + 1/2*M^2*N^-1*C^-2 - 1/2*M^2*C^2 - 1/2*M^2*C^-2
   + SM^2 - 4*SM^2*N^-1 + SM^2*N^-1*C^-2 - 1/2*SM^2*C^2 )
 
 + F31(M0,M0,SM,SM)
  * ( 1/2*SM^2*N^-1*C^-4 )
 
 + F221(M,M,M,M,SM)
  * ( - 1/2*M^-2*SM^6*N^-1 + 1/2*M^-2*SM^6*N^-1*C^2 + 1/8*M^-2*SM^6
  *N^-1*C^-2 + 3*SM^4*N^-1 - 3*SM^4*N^-1*C^2 - 3/4*SM^4*N^-1*C^-2 )
 
 + F221(M0,SM,M0,SM,M0)
  * ( 1/8*M^-2*M0^2*SM^4*N^-1*C^-2 )
 
 + F221(M0,SM,M0,SM,SM)
  * ( - 3/4*M^-2*M0^2*SM^4*N^-1*C^-2 + 3/8*M^-2*SM^6*N^-1*C^-2
  - 3/4*SM^4*N^-1*C^-4 )
 
 + F22(M,M,M,M)
  * ( 1/2*M^-2*SM^4*N^-1 - 1/2*M^-2*SM^4*N^-1*C^2 - 1/8*M^-2*SM^4*N^-1
  *C^-2 - 2*SM^2*N^-1 + 2*SM^2*N^-1*C^2 + 1/2*SM^2*N^-1*C^-2 )
 
 + F22(M,M,M0,SM)
  * ( 3/2*SM^2*N^-1 + 1/2*SM^2*N^-1*C^-4 - 3/2*SM^2*N^-1*C^-2 )
 
 + F22(M0,SM,M0,SM)
  * ( - 1/4*M^-2*SM^4*N^-1*C^-2 + SM^2*N^-1*C^-4 )
 
 + F211(M,M,M,SM)
  * ( 1/2*M^-2*SM^4 - 3*M^-2*SM^4*N^-1 + 3*M^-2*SM^4*N^-1*C^2
  + 3/4*M^-2*SM^4*N^-1*C^-2 - 1/2*M^-2*SM^4*C^2 - 1/8*M^-2*SM^4*C^-2
   - SM^2 + 5/2*SM^2*N^-1 - 12*SM^2*N^-1*C^2 - 1/2*SM^2*N^-1*C^-4
  + 5/2*SM^2*N^-1*C^-2 + 2*SM^2*C^2 + 1/4*SM^2*C^-2 )
 
 + F211(M0,M0,M0,SM)
  * ( - 1/16*M^-2*SM^4*C^-2 + 1/8*SM^2*C^-4 )
 
 + F211(M0,SM,M,M)
  * ( 13/2*SM^2*N^-1 + 3/2*SM^2*N^-1*C^-4 - 13/2*SM^2*N^-1*C^-2 )
 
 + F211(M0,SM,M0,SM)
  * ( - 1/2*SM^2*N^-1*C^-4 )
 
 + F211(M0,SM,SM,SM)
  * ( 3/4*M^-2*SM^4*N^-1*C^-2 + 3/2*SM^2*N^-1*C^-4 )
 
 + F211(SM,SM,M,M)
  * ( 1/4*M^-2*SM^4*N^-1*C^-2 - 1/16*M^-2*SM^4*C^-2 - SM^2*N^-1*C^-2
   + 1/4*SM^2*C^-2 )
 
 + F211(SM,SM,M0,M0)
  * ( 1/8*M^-2*SM^4*N^-1*C^-2 - 1/32*M^-2*SM^4*C^-2 - 1/2*SM^2*N^-1
  *C^-4 + 1/8*SM^2*C^-4 )
 
 + F211(SM,SM,SM,SM)
  * ( 9/8*M^-2*SM^4*N^-1*C^-2 - 9/32*M^-2*SM^4*C^-2 )
 
 + F21(M,M,SM)
  * ( - 1/2 + 6*N^-1 - N^-1*C^2 - 3/2*N^-1*C^-2 + 1/8*C^-2 )
 
 + F21(M0,M0,SM)
  * ( 1/16*C^-4 )
 
 + F21(M0,SM,SM)
  * ( - 3/4*N^-1*C^-4 )
 
 + F111(M,M,SM)
  * ( 1 - 7*N^-1 + 3*N^-1*C^2 + 5*N^-1*C^-2 - 1/2*C^2 - 1/2*C^-2 )
 
 + F111(M0,M0,SM)
  * ( 1/2*N^-1*C^-4 - 1/4*C^-4 )
 
 + F111(M0,SM,SM)
  * ( N^-1*C^-4 ) + 0.
 
> P ninput
 
WPWM = 
 + F311(PM,M,M,M,SM)
  * ( - 2*M^2*SM^2 + 4*M^2*SM^2*N^-1 - 4*M^2*SM^2*N^-1*C^2
  + 2*M^2*SM^2*C^2 + SM^4 - 2*SM^4*N^-1 + 2*SM^4*N^-1*C^2
  - SM^4*C^2 )
 
 + F311(M,M,M0,M,SM)
  * ( 2*M^2*SM^2 - 1/2*M^2*SM^2*N^-1 + 13/2*M^2*SM^2*N^-1*C^2
  - 2*M^2*SM^2*C^2 - 1/2*M^2*SM^2*C^-2 - SM^4 + 1/4*SM^4*N^-1
  - 2*SM^4*N^-1*C^2 + SM^4*C^2 + 1/4*SM^4*C^-2 )
 
 + F311(M,M,SM,M,SM)
  * ( 1/4*SM^4*N^-1 )
 
 + F311(M,M0,M0,M0,SM)
  * ( 2*M^2*SM^2*N^-1 - M^2*SM^2*N^-1*C^-4 + 2*M^2*SM^2*N^-1*C^-2
  - 1/2*M0^2*SM^2 + 7/2*M0^2*SM^2*N^-1 - 1/2*M0^2*SM^2*N^-1*C^-2
  + 1/4*SM^4 - 9/4*SM^4*N^-1 + 1/2*SM^4*N^-1*C^-2 )
 
 + F311(M,SM,SM,M,M)
  * ( 1/4*SM^4 - 1/4*SM^4*N^-1 )
 
 + F311(M,SM,SM,M0,M0)
  * ( 1/8*SM^4 - 1/8*SM^4*N^-1 )
 
 + F311(M,SM,SM,SM,SM)
  * ( 9/8*SM^4 - 9/8*SM^4*N^-1 )
 
 + F31(PM,M,M,M)
  * ( - 3/4*SM^2 + 2*SM^2*N^-1 - 2*SM^2*N^-1*C^2 + 3/4*SM^2*C^2 )
 
 + F31(PM,M,M,SM)
  * ( - M^2 + 2*M^2*N^-1 - 2*M^2*N^-1*C^2 + M^2*C^2 + 3/4*SM^2
  - 2*SM^2*N^-1 + 2*SM^2*N^-1*C^2 - 3/4*SM^2*C^2 )
 
 + F31(M,M,M0,M)
  * ( 1/2*SM^2 - 1/2*SM^2*N^-1 + 2*SM^2*N^-1*C^2 - 3/4*SM^2*C^2 )
 
 + F31(M,M,M0,SM)
  * ( M^2 - 1/4*M^2*N^-1 + M^2*N^-1*C^2 - 5/4*M^2*C^2 - 1/4*M^2*C^-2
   - 1/2*SM^2 + 1/2*SM^2*N^-1 - 2*SM^2*N^-1*C^2 + 3/4*SM^2*C^2 )
 
 + F31(M,M,SM,SM)
  * ( 1/2*SM^2*N^-1 )
 
 + F31(M,M0,M0,M0)
  * ( - 1/4*SM^2 + 2*SM^2*N^-1 - 1/2*SM^2*N^-1*C^-2 )
 
 + F31(M,M0,M0,SM)
  * ( - 1/4*M^2 - 1/2*M^2*N^-1 - 1/4*M^2*N^-1*C^-2 - 1/4*M0^2
  + 3/2*M0^2*N^-1 + 1/4*SM^2 - 2*SM^2*N^-1 + 1/2*SM^2*N^-1*C^-2 )
 
 + F221(M,M0,M,M0,SM)
  * ( 1/8*M^-2*SM^6*N^-1 - 1/2*SM^4*N^-1 - 1/4*SM^4*N^-1*C^-2 )
 
 + F221(M,SM,M,SM,M)
  * ( 1/8*SM^4*N^-1 )
 
 + F221(M,SM,M,SM,SM)
  * ( 3/8*M^-2*SM^6*N^-1 - 3/2*SM^4*N^-1 )
 
 + F22(PM,M,M,SM)
  * ( 1/2*SM^2*N^-1 - 1/2*SM^2*N^-1*C^2 )
 
 + F22(M,M0,M,M0)
  * ( - 1/8*M^-2*SM^4*N^-1 + 1/4*SM^2*N^-1 + 1/4*SM^2*N^-1*C^-2 )
 
 + F22(M,M0,M,SM)
  * ( - 1/4*SM^2*N^-1 + 1/2*SM^2*N^-1*C^2 + 1/4*SM^2*N^-1*C^-2 )
 
 + F22(M,SM,M,SM)
  * ( - 1/4*M^-2*SM^4*N^-1 + SM^2*N^-1 )
 
 + F211(PM,M,M,SM)
  * ( 5/2*SM^2*N^-1 - 5/2*SM^2*N^-1*C^2 )
 
 + F211(M,M,M,SM)
  * ( - 1/8*M^-2*SM^4 + 3/4*SM^2 - 3*SM^2*N^-1 + 5/2*SM^2*N^-1*C^2 )
 
 + F211(M,M0,M,SM)
  * ( 1/4*M^-2*SM^4*N^-1 - 3*SM^2*N^-1 + 3/4*SM^2*N^-1*C^-2 )
 
 + F211(M,M0,M0,SM)
  * ( 1/4*M^-2*SM^4*N^-1 - 5/4*SM^2*N^-1 )
 
 + F211(M,SM,M,M)
  * ( - 1/2*SM^2*N^-1 + 1/2*SM^2*N^-1*C^2 )
 
 + F211(M,SM,M,M0)
  * ( 3/2*SM^2*N^-1 - 1/2*SM^2*N^-1*C^2 - 1/4*SM^2*N^-1*C^-2 )
 
 + F211(M,SM,M,SM)
  * ( - 1/2*SM^2*N^-1 )
 
 + F211(M,SM,M0,M0)
  * ( 3/4*SM^2*N^-1 )
 
 + F211(M,SM,SM,SM)
  * ( 3/4*M^-2*SM^4*N^-1 + 3/2*SM^2*N^-1 )
 
 + F211(M0,M0,M0,SM)
  * ( - 1/16*M^-2*SM^4 + 1/4*M^-2*SM^4*N^-1 + 1/2*SM^2 - 3*SM^2*N^-1
   - 1/2*SM^2*N^-1*C^-2 + 1/8*SM^2*C^-2 )
 
 + F211(SM,SM,M,M)
  * ( - 1/16*M^-2*SM^4 + 1/4*M^-2*SM^4*N^-1 + 1/4*SM^2 - SM^2*N^-1 )
 
 + F211(SM,SM,M0,M0)
  * ( - 1/32*M^-2*SM^4 + 1/8*M^-2*SM^4*N^-1 - 1/2*SM^2*N^-1*C^-2
  + 1/8*SM^2*C^-2 )
 
 + F211(SM,SM,SM,SM)
  * ( - 9/32*M^-2*SM^4 + 9/8*M^-2*SM^4*N^-1 )
 
 + F21(PM,M,SM)
  * ( N^-1 - N^-1*C^2 )
 
 + F21(M,M,SM)
  * ( - 1/8 + 3/2*N^-1 - N^-1*C^2 - 1/4*C^2 )
 
 + F21(M,M0,SM)
  * ( 1/4*N^-1 + 2*N^-1*C^2 - 1/2*N^-1*C^-2 + 1/4*C^2 )
 
 + F21(M,SM,SM)
  * ( - 3/4*N^-1 )
 
 + F21(M0,M0,SM)
  * ( - 1/4 + 3/2*N^-1 - 1/4*N^-1*C^-2 + 1/16*C^-2 )
 
 + F111(PM,M,SM)
  * ( 2*N^-1 - 2*N^-1*C^2 )
 
 + F111(M,M,SM)
  * ( - 1/4 + 3/2*N^-1 - 3/4*N^-1*C^2 )
 
 + F111(M,M0,SM)
  * ( - 3*N^-1 + 11/4*N^-1*C^2 + 1/2*N^-1*C^-2 )
 
 + F111(M,SM,SM)
  * ( N^-1 )
 
 + F111(M0,M0,SM)
  * ( 1/4 - 3/2*N^-1 + 2*N^-1*C^-2 - 1/4*C^-2 ) + 0.
 
> P ninput
 
A0A0 = 
 + F311(M,M,M,M,SM)
  * ( 8*M^2*SM^2*N^-1 - 8*M^2*SM^2*N^-1*C^2 - 2*SM^4*N^-1
  + 2*SM^4*N^-1*C^2 )
 
 + F31(M,M,M,M)
  * ( 1/2*SM^2 - 1/2*SM^2*C^2 )
 
 + F31(M,M,M,SM)
  * ( - 1/2*M^2 + M^2*N^-1 - M^2*N^-1*C^2 + 1/2*M^2*C^2 - 1/2*SM^2
   + 1/2*SM^2*C^2 )
 
 + F221(M,M,M,M,SM)
  * ( 1/2*M^-2*SM^6*N^-1 - 1/2*M^-2*SM^6*N^-1*C^2 - 3*SM^4*N^-1
  + 3*SM^4*N^-1*C^2 )
 
 + F22(M,M,M,M)
  * ( - 1/2*M^-2*SM^4*N^-1 + 1/2*M^-2*SM^4*N^-1*C^2 + 2*SM^2*N^-1
  - 2*SM^2*N^-1*C^2 )
 
 + F211(M,M,M,SM)
  * ( - 1/2*M^-2*SM^4 + 3*M^-2*SM^4*N^-1 - 3*M^-2*SM^4*N^-1*C^2
  + 1/2*M^-2*SM^4*C^2 + 2*SM^2 - 12*SM^2*N^-1 + 12*SM^2*N^-1*C^2
  - 2*SM^2*C^2 )
 
 + F21(M,M,M)
  * ( M^-2*SM^2 - M^-2*SM^2*C^2 )
 
 + F21(M,M,M0)
  * ( 1/4*M^-2*SM^2 - 1/4*M^-2*SM^2*C^2 )
 
 + F21(M,M,SM)
  * ( - 1/2 + 1/4*M^-2*SM^2 - 1/4*M^-2*SM^2*C^2 + 1/2*N - 1/2*N*C^2
   - N^-1 + N^-1*C^2 + 1/2*C^2 )
 
 + F111(M,M,SM)
  * ( - 1/2 + 3*N^-1 - 3*N^-1*C^2 + 1/2*C^2 ) + 0.
 
> P ninput
 
W0A0 = 
 + F311(M,M,M,M,SM)
  * ( 8*M^2*SM^2*N^-1*C*S + 3*M^2*SM^2*N^-1*C^-1*S - 2*SM^4*N^-1*C
  *S - SM^4*N^-1*C^-1*S )
 
 + F31(M,M,M,M)
  * ( 2*SM^2*N^-1*C^-1*S + 1/2*SM^2*C*S - 1/2*SM^2*C^-1*S )
 
 + F31(M,M,M,SM)
  * ( M^2*N^-1*C*S - 1/2*M^2*C*S - 2*SM^2*N^-1*C^-1*S - 1/2*SM^2*C
  *S + 1/2*SM^2*C^-1*S )
 
 + F221(M,M,M,M,SM)
  * ( 1/2*M^-2*SM^6*N^-1*C*S - 1/4*M^-2*SM^6*N^-1*C^-1*S - 3*SM^4*N^-1
  *C*S + 3/2*SM^4*N^-1*C^-1*S )
 
 + F22(M,M,M,M)
  * ( - 1/2*M^-2*SM^4*N^-1*C*S + 1/4*M^-2*SM^4*N^-1*C^-1*S
  + 2*SM^2*N^-1*C*S - SM^2*N^-1*C^-1*S )
 
 + F22(M,M,M0,SM)
  * ( - 1/2*SM^2*N^-1*C^-3*S + 3/4*SM^2*N^-1*C^-1*S )
 
 + F211(M,M,M,SM)
  * ( 3*M^-2*SM^4*N^-1*C*S - 3/2*M^-2*SM^4*N^-1*C^-1*S - 1/2*M^-2*SM^4
  *C*S + 1/4*M^-2*SM^4*C^-1*S - 12*SM^2*N^-1*C*S + 1/2*SM^2*N^-1*C^-3
  *S + 5/4*SM^2*N^-1*C^-1*S + 2*SM^2*C*S - 1/2*SM^2*C^-1*S )
 
 + F211(M0,SM,M,M)
  * ( - 3/2*SM^2*N^-1*C^-3*S + 13/4*SM^2*N^-1*C^-1*S )
 
 + F21(M,M,M)
  * ( M^-2*SM^2*C*S - 1/2*M^-2*SM^2*C^-1*S )
 
 + F21(M,M,M0)
  * ( 1/4*M^-2*SM^2*C*S - 1/8*M^-2*SM^2*C^-1*S )
 
 + F21(M,M,SM)
  * ( 1/4*M^-2*SM^2*C*S - 1/8*M^-2*SM^2*C^-1*S + 1/2*N*C*S
  - N^-1*C*S + 3*N^-1*C^-1*S - 1/2*C*S - 1/4*C^-1*S )
 
 + F111(M,M,SM)
  * ( 3*N^-1*C*S - 7/2*N^-1*C^-1*S - 1/2*C*S + 1/2*C^-1*S ) + 0.
 
> P ninput
 
W0W0 = 
 + F311(M,M,M,M,SM)
  * ( 6*M^2*SM^2*N^-1 + 8*M^2*SM^2*N^-1*C^2 - 2*M^2*SM^2*N^-1*C^-2
   - M^2*SM^2*C^-2 - 2*SM^4*N^-1 - 2*SM^4*N^-1*C^2 + 1/2*SM^4*N^-1
  *C^-2 + 1/2*SM^4*C^-2 )
 
 + F311(M0,M0,SM,M0,SM)
  * ( - 1/4*M^-2*M0^2*SM^4*N^-1*C^-2 + 1/2*SM^4*N^-1*C^-4 )
 
 + F311(M0,SM,SM,M,M)
  * ( - 1/4*M^-2*M0^2*SM^4*N^-1*C^-2 + 1/4*SM^4*C^-4 )
 
 + F311(M0,SM,SM,M0,M0)
  * ( - 1/8*M^-2*M0^2*SM^4*N^-1*C^-2 + 1/8*SM^4*C^-4 )
 
 + F311(M0,SM,SM,SM,SM)
  * ( - 9/8*M^-2*M0^2*SM^4*N^-1*C^-2 + 9/8*SM^4*C^-4 )
 
 + F31(M,M,M,M)
  * ( - SM^2 + 4*SM^2*N^-1 - SM^2*N^-1*C^-2 + 1/2*SM^2*C^2 )
 
 + F31(M,M,M,SM)
  * ( M^2*N^-1*C^2 + 1/2*M^2*N^-1*C^-2 - 1/2*M^2*C^2 - 1/2*M^2*C^-2
   + SM^2 - 4*SM^2*N^-1 + SM^2*N^-1*C^-2 - 1/2*SM^2*C^2 )
 
 + F31(M0,M0,SM,SM)
  * ( 1/2*SM^2*N^-1*C^-4 )
 
 + F221(M,M,M,M,SM)
  * ( - 1/2*M^-2*SM^6*N^-1 + 1/2*M^-2*SM^6*N^-1*C^2 + 1/8*M^-2*SM^6
  *N^-1*C^-2 + 3*SM^4*N^-1 - 3*SM^4*N^-1*C^2 - 3/4*SM^4*N^-1*C^-2 )
 
 + F221(M0,SM,M0,SM,M0)
  * ( 1/8*M^-2*M0^2*SM^4*N^-1*C^-2 )
 
 + F221(M0,SM,M0,SM,SM)
  * ( - 3/4*M^-2*M0^2*SM^4*N^-1*C^-2 + 3/8*M^-2*SM^6*N^-1*C^-2
  - 3/4*SM^4*N^-1*C^-4 )
 
 + F22(M,M,M,M)
  * ( 1/2*M^-2*SM^4*N^-1 - 1/2*M^-2*SM^4*N^-1*C^2 - 1/8*M^-2*SM^4*N^-1
  *C^-2 - 2*SM^2*N^-1 + 2*SM^2*N^-1*C^2 + 1/2*SM^2*N^-1*C^-2 )
 
 + F22(M,M,M0,SM)
  * ( 3/2*SM^2*N^-1 + 1/2*SM^2*N^-1*C^-4 - 3/2*SM^2*N^-1*C^-2 )
 
 + F22(M0,SM,M0,SM)
  * ( - 1/4*M^-2*SM^4*N^-1*C^-2 + SM^2*N^-1*C^-4 )
 
 + F211(M,M,M,SM)
  * ( 1/2*M^-2*SM^4 - 3*M^-2*SM^4*N^-1 + 3*M^-2*SM^4*N^-1*C^2
  + 3/4*M^-2*SM^4*N^-1*C^-2 - 1/2*M^-2*SM^4*C^2 - 1/8*M^-2*SM^4*C^-2
   - SM^2 + 5/2*SM^2*N^-1 - 12*SM^2*N^-1*C^2 - 1/2*SM^2*N^-1*C^-4
  + 5/2*SM^2*N^-1*C^-2 + 2*SM^2*C^2 + 1/4*SM^2*C^-2 )
 
 + F211(M0,M0,M0,SM)
  * ( - 1/16*M^-2*SM^4*C^-2 + 1/8*SM^2*C^-4 )
 
 + F211(M0,SM,M,M)
  * ( 13/2*SM^2*N^-1 + 3/2*SM^2*N^-1*C^-4 - 13/2*SM^2*N^-1*C^-2 )
 
 + F211(M0,SM,M0,SM)
  * ( - 1/2*SM^2*N^-1*C^-4 )
 
 + F211(M0,SM,SM,SM)
  * ( 3/4*M^-2*SM^4*N^-1*C^-2 + 3/2*SM^2*N^-1*C^-4 )
 
 + F211(SM,SM,M,M)
  * ( 1/4*M^-2*SM^4*N^-1*C^-2 - 1/16*M^-2*SM^4*C^-2 - SM^2*N^-1*C^-2
   + 1/4*SM^2*C^-2 )
 
 + F211(SM,SM,M0,M0)
  * ( 1/8*M^-2*SM^4*N^-1*C^-2 - 1/32*M^-2*SM^4*C^-2 - 1/2*SM^2*N^-1
  *C^-4 + 1/8*SM^2*C^-4 )
 
 + F211(SM,SM,SM,SM)
  * ( 9/8*M^-2*SM^4*N^-1*C^-2 - 9/32*M^-2*SM^4*C^-2 )
 
 + F21(M,M,M)
  * ( - M^-2*SM^2 + M^-2*SM^2*C^2 + 1/4*M^-2*SM^2*C^-2 )
 
 + F21(M,M,M0)
  * ( - 1/4*M^-2*SM^2 + 1/4*M^-2*SM^2*C^2 + 1/16*M^-2*SM^2*C^-2 )
 
 + F21(M,M,SM)
  * ( - 1/2 - 1/4*M^-2*SM^2 + 1/4*M^-2*SM^2*C^2 + 1/16*M^-2*SM^2*C^-2
   + 1/2*N*C^2 + 6*N^-1 - N^-1*C^2 - 3/2*N^-1*C^-2 - 1/2*C^2
  + 1/8*C^-2 )
 
 + F21(M0,M0,M)
  * ( 1/16*M^-2*SM^2*C^-2 )
 
 + F21(M0,M0,M0)
  * ( 3/32*M^-2*SM^2*C^-2 )
 
 + F21(M0,M0,SM)
  * ( 1/32*M^-2*SM^2*C^-2 + 1/16*C^-4 )
 
 + F21(M0,SM,SM)
  * ( - 3/4*N^-1*C^-4 )
 
 + F21(SM,SM,M)
  * ( 1/16*M^-2*SM^2*C^-2 )
 
 + F21(SM,SM,M0)
  * ( 1/32*M^-2*SM^2*C^-2 )
 
 + F21(SM,SM,SM)
  * ( 3/32*M^-2*SM^2*C^-2 )
 
 + F111(M,M,SM)
  * ( 1 - 7*N^-1 + 3*N^-1*C^2 + 5*N^-1*C^-2 - 1/2*C^2 - 1/2*C^-2 )
 
 + F111(M0,M0,SM)
  * ( 1/2*N^-1*C^-4 - 1/4*C^-4 )
 
 + F111(M0,SM,SM)
  * ( N^-1*C^-4 ) + 0.
 
> P ninput
 
WPWM = 
 + F311(PM,M,M,M,SM)
  * ( - 2*M^2*SM^2 + 4*M^2*SM^2*N^-1 - 4*M^2*SM^2*N^-1*C^2
  + 2*M^2*SM^2*C^2 + SM^4 - 2*SM^4*N^-1 + 2*SM^4*N^-1*C^2
  - SM^4*C^2 )
 
 + F311(M,M,M0,M,SM)
  * ( 2*M^2*SM^2 - 1/2*M^2*SM^2*N^-1 + 13/2*M^2*SM^2*N^-1*C^2
  - 2*M^2*SM^2*C^2 - 1/2*M^2*SM^2*C^-2 - SM^4 + 1/4*SM^4*N^-1
  - 2*SM^4*N^-1*C^2 + SM^4*C^2 + 1/4*SM^4*C^-2 )
 
 + F311(M,M,SM,M,SM)
  * ( 1/4*SM^4*N^-1 )
 
 + F311(M,M0,M0,M0,SM)
  * ( 2*M^2*SM^2*N^-1 - M^2*SM^2*N^-1*C^-4 + 2*M^2*SM^2*N^-1*C^-2
  - 1/2*M0^2*SM^2 + 7/2*M0^2*SM^2*N^-1 - 1/2*M0^2*SM^2*N^-1*C^-2
  + 1/4*SM^4 - 9/4*SM^4*N^-1 + 1/2*SM^4*N^-1*C^-2 )
 
 + F311(M,SM,SM,M,M)
  * ( 1/4*SM^4 - 1/4*SM^4*N^-1 )
 
 + F311(M,SM,SM,M0,M0)
  * ( 1/8*SM^4 - 1/8*SM^4*N^-1 )
 
 + F311(M,SM,SM,SM,SM)
  * ( 9/8*SM^4 - 9/8*SM^4*N^-1 )
 
 + F31(PM,M,M,M)
  * ( - 3/4*SM^2 + 2*SM^2*N^-1 - 2*SM^2*N^-1*C^2 + 3/4*SM^2*C^2 )
 
 + F31(PM,M,M,SM)
  * ( - M^2 + 2*M^2*N^-1 - 2*M^2*N^-1*C^2 + M^2*C^2 + 3/4*SM^2
  - 2*SM^2*N^-1 + 2*SM^2*N^-1*C^2 - 3/4*SM^2*C^2 )
 
 + F31(M,M,M0,M)
  * ( 1/2*SM^2 - 1/2*SM^2*N^-1 + 2*SM^2*N^-1*C^2 - 3/4*SM^2*C^2 )
 
 + F31(M,M,M0,SM)
  * ( M^2 - 1/4*M^2*N^-1 + M^2*N^-1*C^2 - 5/4*M^2*C^2 - 1/4*M^2*C^-2
   - 1/2*SM^2 + 1/2*SM^2*N^-1 - 2*SM^2*N^-1*C^2 + 3/4*SM^2*C^2 )
 
 + F31(M,M,SM,SM)
  * ( 1/2*SM^2*N^-1 )
 
 + F31(M,M0,M0,M0)
  * ( - 1/4*SM^2 + 2*SM^2*N^-1 - 1/2*SM^2*N^-1*C^-2 )
 
 + F31(M,M0,M0,SM)
  * ( - 1/4*M^2 - 1/2*M^2*N^-1 - 1/4*M^2*N^-1*C^-2 - 1/4*M0^2
  + 3/2*M0^2*N^-1 + 1/4*SM^2 - 2*SM^2*N^-1 + 1/2*SM^2*N^-1*C^-2 )
 
 + F221(M,M0,M,M0,SM)
  * ( 1/8*M^-2*SM^6*N^-1 - 1/2*SM^4*N^-1 - 1/4*SM^4*N^-1*C^-2 )
 
 + F221(M,SM,M,SM,M)
  * ( 1/8*SM^4*N^-1 )
 
 + F221(M,SM,M,SM,SM)
  * ( 3/8*M^-2*SM^6*N^-1 - 3/2*SM^4*N^-1 )
 
 + F22(PM,M,M,SM)
  * ( 1/2*SM^2*N^-1 - 1/2*SM^2*N^-1*C^2 )
 
 + F22(M,M0,M,M0)
  * ( - 1/8*M^-2*SM^4*N^-1 + 1/4*SM^2*N^-1 + 1/4*SM^2*N^-1*C^-2 )
 
 + F22(M,M0,M,SM)
  * ( - 1/4*SM^2*N^-1 + 1/2*SM^2*N^-1*C^2 + 1/4*SM^2*N^-1*C^-2 )
 
 + F22(M,SM,M,SM)
  * ( - 1/4*M^-2*SM^4*N^-1 + SM^2*N^-1 )
 
 + F211(PM,M,M,SM)
  * ( 5/2*SM^2*N^-1 - 5/2*SM^2*N^-1*C^2 )
 
 + F211(M,M,M,SM)
  * ( - 1/8*M^-2*SM^4 + 3/4*SM^2 - 3*SM^2*N^-1 + 5/2*SM^2*N^-1*C^2 )
 
 + F211(M,M0,M,SM)
  * ( 1/4*M^-2*SM^4*N^-1 - 3*SM^2*N^-1 + 3/4*SM^2*N^-1*C^-2 )
 
 + F211(M,M0,M0,SM)
  * ( 1/4*M^-2*SM^4*N^-1 - 5/4*SM^2*N^-1 )
 
 + F211(M,SM,M,M)
  * ( - 1/2*SM^2*N^-1 + 1/2*SM^2*N^-1*C^2 )
 
 + F211(M,SM,M,M0)
  * ( 3/2*SM^2*N^-1 - 1/2*SM^2*N^-1*C^2 - 1/4*SM^2*N^-1*C^-2 )
 
 + F211(M,SM,M,SM)
  * ( - 1/2*SM^2*N^-1 )
 
 + F211(M,SM,M0,M0)
  * ( 3/4*SM^2*N^-1 )
 
 + F211(M,SM,SM,SM)
  * ( 3/4*M^-2*SM^4*N^-1 + 3/2*SM^2*N^-1 )
 
 + F211(M0,M0,M0,SM)
  * ( - 1/16*M^-2*SM^4 + 1/4*M^-2*SM^4*N^-1 + 1/2*SM^2 - 3*SM^2*N^-1
   - 1/2*SM^2*N^-1*C^-2 + 1/8*SM^2*C^-2 )
 
 + F211(SM,SM,M,M)
  * ( - 1/16*M^-2*SM^4 + 1/4*M^-2*SM^4*N^-1 + 1/4*SM^2 - SM^2*N^-1 )
 
 + F211(SM,SM,M0,M0)
  * ( - 1/32*M^-2*SM^4 + 1/8*M^-2*SM^4*N^-1 - 1/2*SM^2*N^-1*C^-2
  + 1/8*SM^2*C^-2 )
 
 + F211(SM,SM,SM,SM)
  * ( - 9/32*M^-2*SM^4 + 9/8*M^-2*SM^4*N^-1 )
 
 + F21(PM,M,SM)
  * ( N^-1 - N^-1*C^2 )
 
 + F21(M,M,M)
  * ( 1/4*M^-2*SM^2 )
 
 + F21(M,M,M0)
  * ( 1/16*M^-2*SM^2 )
 
 + F21(M,M,SM)
  * ( - 3/8 + 1/16*M^-2*SM^2 + 1/4*N + 3/2*N^-1 - N^-1*C^2
  - 1/4*C^2 )
 
 + F21(M,M0,SM)
  * ( 1/4*N^-1 + 2*N^-1*C^2 - 1/2*N^-1*C^-2 + 1/4*C^2 )
 
 + F21(M,SM,SM)
  * ( - 3/4*N^-1 )
 
 + F21(M0,M0,M)
  * ( 1/16*M^-2*SM^2 )
 
 + F21(M0,M0,M0)
  * ( 3/32*M^-2*SM^2 )
 
 + F21(M0,M0,SM)
  * ( - 1/2 + 1/32*M^-2*SM^2 + 1/4*N + 3/2*N^-1 - 1/4*N^-1*C^-2
  + 1/16*C^-2 )
 
 + F21(SM,SM,M)
  * ( 1/16*M^-2*SM^2 )
 
 + F21(SM,SM,M0)
  * ( 1/32*M^-2*SM^2 )
 
 + F21(SM,SM,SM)
  * ( 3/32*M^-2*SM^2 )
 
 + F111(PM,M,SM)
  * ( 2*N^-1 - 2*N^-1*C^2 )
 
 + F111(M,M,SM)
  * ( - 1/4 + 3/2*N^-1 - 3/4*N^-1*C^2 )
 
 + F111(M,M0,SM)
  * ( - 3*N^-1 + 11/4*N^-1*C^2 + 1/2*N^-1*C^-2 )
 
 + F111(M,SM,SM)
  * ( N^-1 )
 
 + F111(M0,M0,SM)
  * ( 1/4 - 3/2*N^-1 + 2*N^-1*C^-2 - 1/4*C^-2 ) + 0.
 
> P ninput
 
A0A0 = 
 + F311(M,M,M,M,SM)
  * ( 8*M^2*SM^2*N^-1 - 8*M^2*SM^2*N^-1*C^2 - 2*SM^4*N^-1
  + 2*SM^4*N^-1*C^2 )
 
 + F31(M,M,M,M)
  * ( - 1/2*SM^2 + 4*SM^2*N^-1 - 4*SM^2*N^-1*C^2 + 1/2*SM^2*C^2 )
 
 + F31(M,M,M,M0)
  * ( - 1/4*SM^2 + SM^2*N^-1 - SM^2*N^-1*C^2 + 1/4*SM^2*C^2 )
 
 + F31(M,M,M,SM)
  * ( 2*M^2 - 2*M^2*N^-1 + 2*M^2*N^-1*C^2 - 2*M^2*C^2 - 3/4*SM^2
  + SM^2*N^-1 - SM^2*N^-1*C^2 + 3/4*SM^2*C^2 )
 
 + F221(M,M,M,M,SM)
  * ( 1/2*M^-2*SM^6*N^-1 - 1/2*M^-2*SM^6*N^-1*C^2 - 3*SM^4*N^-1
  + 3*SM^4*N^-1*C^2 )
 
 + F22(M,M,M,M)
  * ( - 1/2*M^-2*SM^4*N^-1 + 1/2*M^-2*SM^4*N^-1*C^2 + 2*SM^2*N^-1
  - 2*SM^2*N^-1*C^2 )
 
 + F211(M,M,M,SM)
  * ( - 1/2*M^-2*SM^4 + 3*M^-2*SM^4*N^-1 - 3*M^-2*SM^4*N^-1*C^2
  + 1/2*M^-2*SM^4*C^2 + 2*SM^2 - 12*SM^2*N^-1 + 12*SM^2*N^-1*C^2
  - 2*SM^2*C^2 )
 
 + F21(M,M,M)
  * ( M^-2*SM^2 - 4*M^-2*SM^2*N^-1 + 4*M^-2*SM^2*N^-1*C^2
  - M^-2*SM^2*C^2 )
 
 + F21(M,M,M0)
  * ( 1/4*M^-2*SM^2 - M^-2*SM^2*N^-1 + M^-2*SM^2*N^-1*C^2
  - 1/4*M^-2*SM^2*C^2 )
 
 + F21(M,M,SM)
  * ( - 7/2 + 1/4*M^-2*SM^2 - M^-2*SM^2*N^-1 + M^-2*SM^2*N^-1*C^2
  - 1/4*M^-2*SM^2*C^2 + 1/2*N - 1/2*N*C^2 + 2*N^-1 - 2*N^-1*C^2
  + 7/2*C^2 )
 
 + F111(M,M,SM)
  * ( - 1/2 + 3*N^-1 - 3*N^-1*C^2 + 1/2*C^2 ) + 0.
 
> P ninput
 
W0A0 = 
 + F311(M,M,M,M,SM)
  * ( 8*M^2*SM^2*N^-1*C*S + 3*M^2*SM^2*N^-1*C^-1*S - 2*SM^4*N^-1*C
  *S - SM^4*N^-1*C^-1*S )
 
 + F31(M,M,M,M)
  * ( 4*SM^2*N^-1*C*S - 1/2*SM^2*C*S + 1/2*SM^2*C^-1*S )
 
 + F31(M,M,M,M0)
  * ( SM^2*N^-1*C*S - 1/2*SM^2*N^-1*C^-1*S - 1/4*SM^2*C*S
  + 1/4*SM^2*C^-1*S )
 
 + F31(M,M,M,SM)
  * ( - 2*M^2*N^-1*C*S + 2*M^2*C*S + 1/2*M^2*C^-1*S + SM^2*N^-1*C*S
   - 5/2*SM^2*N^-1*C^-1*S - 3/4*SM^2*C*S + 3/4*SM^2*C^-1*S )
 
 + F221(M,M,M,M,SM)
  * ( 1/2*M^-2*SM^6*N^-1*C*S - 1/4*M^-2*SM^6*N^-1*C^-1*S - 3*SM^4*N^-1
  *C*S + 3/2*SM^4*N^-1*C^-1*S )
 
 + F22(M,M,M,M)
  * ( - 1/2*M^-2*SM^4*N^-1*C*S + 1/4*M^-2*SM^4*N^-1*C^-1*S
  + 2*SM^2*N^-1*C*S - SM^2*N^-1*C^-1*S )
 
 + F22(M,M,M0,SM)
  * ( - 1/2*SM^2*N^-1*C^-3*S + 3/4*SM^2*N^-1*C^-1*S )
 
 + F211(M,M,M,SM)
  * ( 3*M^-2*SM^4*N^-1*C*S - 3/2*M^-2*SM^4*N^-1*C^-1*S - 1/2*M^-2*SM^4
  *C*S + 1/4*M^-2*SM^4*C^-1*S - 12*SM^2*N^-1*C*S + 1/2*SM^2*N^-1*C^-3
  *S + 5/4*SM^2*N^-1*C^-1*S + 2*SM^2*C*S - 1/2*SM^2*C^-1*S )
 
 + F211(M0,SM,M,M)
  * ( - 3/2*SM^2*N^-1*C^-3*S + 13/4*SM^2*N^-1*C^-1*S )
 
 + F21(M,M,M)
  * ( - 4*M^-2*SM^2*N^-1*C*S + 2*M^-2*SM^2*N^-1*C^-1*S + M^-2*SM^2
  *C*S - 1/2*M^-2*SM^2*C^-1*S )
 
 + F21(M,M,M0)
  * ( - M^-2*SM^2*N^-1*C*S + 1/2*M^-2*SM^2*N^-1*C^-1*S + 1/4*M^-2*SM^2
  *C*S - 1/8*M^-2*SM^2*C^-1*S )
 
 + F21(M,M,SM)
  * ( - M^-2*SM^2*N^-1*C*S + 1/2*M^-2*SM^2*N^-1*C^-1*S + 1/4*M^-2*SM^2
  *C*S - 1/8*M^-2*SM^2*C^-1*S + 1/2*N*C*S + 2*N^-1*C*S + 3*N^-1*C^-1
  *S - 7/2*C*S - 1/4*C^-1*S )
 
 + F111(M,M,SM)
  * ( 3*N^-1*C*S - 7/2*N^-1*C^-1*S - 1/2*C*S + 1/2*C^-1*S ) + 0.
 
> P ninput
 
W0W0 = 
 + F311(M,M,M,M,SM)
  * ( 6*M^2*SM^2*N^-1 + 8*M^2*SM^2*N^-1*C^2 - 2*M^2*SM^2*N^-1*C^-2
   - M^2*SM^2*C^-2 - 2*SM^4*N^-1 - 2*SM^4*N^-1*C^2 + 1/2*SM^4*N^-1
  *C^-2 + 1/2*SM^4*C^-2 )
 
 + F311(M0,M0,SM,M0,SM)
  * ( - 1/4*M^-2*M0^2*SM^4*N^-1*C^-2 + 1/2*SM^4*N^-1*C^-4 )
 
 + F311(M0,SM,SM,M,M)
  * ( - 1/4*M^-2*M0^2*SM^4*N^-1*C^-2 + 1/4*SM^4*C^-4 )
 
 + F311(M0,SM,SM,M0,M0)
  * ( - 1/8*M^-2*M0^2*SM^4*N^-1*C^-2 + 1/8*SM^4*C^-4 )
 
 + F311(M0,SM,SM,SM,SM)
  * ( - 9/8*M^-2*M0^2*SM^4*N^-1*C^-2 + 9/8*SM^4*C^-4 )
 
 + F31(M,M,M,M)
  * ( SM^2 + 4*SM^2*N^-1*C^2 - 1/2*SM^2*C^2 - SM^2*C^-2 )
 
 + F31(M,M,M,M0)
  * ( 1/2*SM^2 - SM^2*N^-1 + SM^2*N^-1*C^2 + 1/4*SM^2*N^-1*C^-2
  - 1/4*SM^2*C^2 - 1/4*SM^2*C^-2 )
 
 + F31(M,M,M,SM)
  * ( M^2 - 2*M^2*N^-1*C^2 + 1/2*M^2*N^-1*C^-2 + 2*M^2*C^2
  - M^2*C^-2 + 3/2*SM^2 - 5*SM^2*N^-1 + SM^2*N^-1*C^2 + 5/4*SM^2*N^-1
  *C^-2 - 3/4*SM^2*C^2 - 1/4*SM^2*C^-2 )
 
 + F31(M0,M0,SM,SM)
  * ( 1/8*M^-2*M0^2*SM^2*N^-1*C^-2 + 1/2*SM^2*N^-1*C^-4 )
 
 + F31(M0,SM,SM,SM)
  * ( 3/8*M^-2*M0^2*SM^2*N^-1*C^-2 - 3/8*SM^2*C^-4 )
 
 + F221(M,M,M,M,SM)
  * ( - 1/2*M^-2*SM^6*N^-1 + 1/2*M^-2*SM^6*N^-1*C^2 + 1/8*M^-2*SM^6
  *N^-1*C^-2 + 3*SM^4*N^-1 - 3*SM^4*N^-1*C^2 - 3/4*SM^4*N^-1*C^-2 )
 
 + F221(M0,SM,M0,SM,M0)
  * ( 1/8*M^-2*M0^2*SM^4*N^-1*C^-2 )
 
 + F221(M0,SM,M0,SM,SM)
  * ( - 3/4*M^-2*M0^2*SM^4*N^-1*C^-2 + 3/8*M^-2*SM^6*N^-1*C^-2
  - 3/4*SM^4*N^-1*C^-4 )
 
 + F22(M,M,M,M)
  * ( 1/2*M^-2*SM^4*N^-1 - 1/2*M^-2*SM^4*N^-1*C^2 - 1/8*M^-2*SM^4*N^-1
  *C^-2 - 2*SM^2*N^-1 + 2*SM^2*N^-1*C^2 + 1/2*SM^2*N^-1*C^-2 )
 
 + F22(M,M,M0,SM)
  * ( 3/2*SM^2*N^-1 + 1/2*SM^2*N^-1*C^-4 - 3/2*SM^2*N^-1*C^-2 )
 
 + F22(M0,SM,M0,SM)
  * ( - 1/4*M^-2*SM^4*N^-1*C^-2 + SM^2*N^-1*C^-4 )
 
 + F211(M,M,M,SM)
  * ( 1/2*M^-2*SM^4 - 3*M^-2*SM^4*N^-1 + 3*M^-2*SM^4*N^-1*C^2
  + 3/4*M^-2*SM^4*N^-1*C^-2 - 1/2*M^-2*SM^4*C^2 - 1/8*M^-2*SM^4*C^-2
   - SM^2 + 5/2*SM^2*N^-1 - 12*SM^2*N^-1*C^2 - 1/2*SM^2*N^-1*C^-4
  + 5/2*SM^2*N^-1*C^-2 + 2*SM^2*C^2 + 1/4*SM^2*C^-2 )
 
 + F211(M0,M0,M0,SM)
  * ( - 1/16*M^-2*SM^4*C^-2 + 1/8*SM^2*C^-4 )
 
 + F211(M0,SM,M,M)
  * ( 13/2*SM^2*N^-1 + 3/2*SM^2*N^-1*C^-4 - 13/2*SM^2*N^-1*C^-2 )
 
 + F211(M0,SM,M0,SM)
  * ( - 1/2*SM^2*N^-1*C^-4 )
 
 + F211(M0,SM,SM,SM)
  * ( 3/4*M^-2*SM^4*N^-1*C^-2 + 3/2*SM^2*N^-1*C^-4 )
 
 + F211(SM,SM,M,M)
  * ( 1/4*M^-2*SM^4*N^-1*C^-2 - 1/16*M^-2*SM^4*C^-2 - SM^2*N^-1*C^-2
   + 1/4*SM^2*C^-2 )
 
 + F211(SM,SM,M0,M0)
  * ( 1/8*M^-2*SM^4*N^-1*C^-2 - 1/32*M^-2*SM^4*C^-2 - 1/2*SM^2*N^-1
  *C^-4 + 1/8*SM^2*C^-4 )
 
 + F211(SM,SM,SM,SM)
  * ( 9/8*M^-2*SM^4*N^-1*C^-2 - 9/32*M^-2*SM^4*C^-2 )
 
 + F21(M,M,M)
  * ( - M^-2*SM^2 + 4*M^-2*SM^2*N^-1 - 4*M^-2*SM^2*N^-1*C^2
  - M^-2*SM^2*N^-1*C^-2 + M^-2*SM^2*C^2 + 1/4*M^-2*SM^2*C^-2 )
 
 + F21(M,M,M0)
  * ( - 1/4*M^-2*SM^2 + M^-2*SM^2*N^-1 - M^-2*SM^2*N^-1*C^2
  - 1/4*M^-2*SM^2*N^-1*C^-2 + 1/4*M^-2*SM^2*C^2 + 1/16*M^-2*SM^2*C^-2 )
 
 + F21(M,M,SM)
  * ( - 1/2 - 1/4*M^-2*SM^2 + M^-2*SM^2*N^-1 - M^-2*SM^2*N^-1*C^2
  - 1/4*M^-2*SM^2*N^-1*C^-2 + 1/4*M^-2*SM^2*C^2 + 1/16*M^-2*SM^2*C^-2
   + 1/2*N*C^2 + 6*N^-1 + 2*N^-1*C^2 - 3/2*N^-1*C^-2 - 7/2*C^2
  + 1/8*C^-2 )
 
 + F21(M0,M0,M)
  * ( 1/16*M^-2*SM^2*C^-2 )
 
 + F21(M0,M0,M0)
  * ( 3/32*M^-2*SM^2*C^-2 )
 
 + F21(M0,M0,SM)
  * ( 1/32*M^-2*SM^2*C^-2 + 1/16*C^-4 )
 
 + F21(M0,SM,M)
  * ( - 1/4*M^-2*SM^2*N^-1*C^-2 )
 
 + F21(M0,SM,M0)
  * ( - 3/8*M^-2*SM^2*N^-1*C^-2 )
 
 + F21(M0,SM,SM)
  * ( - 1/8*M^-2*SM^2*N^-1*C^-2 - 3/4*N^-1*C^-4 )
 
 + F21(SM,SM,M)
  * ( - 1/4*M^-2*SM^2*N^-1*C^-2 + 1/16*M^-2*SM^2*C^-2 )
 
 + F21(SM,SM,M0)
  * ( - 1/8*M^-2*SM^2*N^-1*C^-2 + 1/32*M^-2*SM^2*C^-2 )
 
 + F21(SM,SM,SM)
  * ( - 3/8*M^-2*SM^2*N^-1*C^-2 + 3/32*M^-2*SM^2*C^-2 )
 
 + F111(M,M,SM)
  * ( 1 - 7*N^-1 + 3*N^-1*C^2 + 5*N^-1*C^-2 - 1/2*C^2 - 1/2*C^-2 )
 
 + F111(M0,M0,SM)
  * ( 1/2*N^-1*C^-4 - 1/4*C^-4 )
 
 + F111(M0,SM,SM)
  * ( N^-1*C^-4 ) + 0.
 
> P ninput
 
WPWM = 
 + F311(PM,M,M,M,SM)
  * ( - 2*M^2*SM^2 + 4*M^2*SM^2*N^-1 - 4*M^2*SM^2*N^-1*C^2
  + 2*M^2*SM^2*C^2 + SM^4 - 2*SM^4*N^-1 + 2*SM^4*N^-1*C^2
  - SM^4*C^2 )
 
 + F311(M,M,M0,M,SM)
  * ( 2*M^2*SM^2 - 1/2*M^2*SM^2*N^-1 + 13/2*M^2*SM^2*N^-1*C^2
  - 2*M^2*SM^2*C^2 - 1/2*M^2*SM^2*C^-2 - SM^4 + 1/4*SM^4*N^-1
  - 2*SM^4*N^-1*C^2 + SM^4*C^2 + 1/4*SM^4*C^-2 )
 
 + F311(M,M,SM,M,SM)
  * ( 1/4*SM^4*N^-1 )
 
 + F311(M,M0,M0,M0,SM)
  * ( 2*M^2*SM^2*N^-1 - M^2*SM^2*N^-1*C^-4 + 2*M^2*SM^2*N^-1*C^-2
  - 1/2*M0^2*SM^2 + 7/2*M0^2*SM^2*N^-1 - 1/2*M0^2*SM^2*N^-1*C^-2
  + 1/4*SM^4 - 9/4*SM^4*N^-1 + 1/2*SM^4*N^-1*C^-2 )
 
 + F311(M,SM,SM,M,M)
  * ( 1/4*SM^4 - 1/4*SM^4*N^-1 )
 
 + F311(M,SM,SM,M0,M0)
  * ( 1/8*SM^4 - 1/8*SM^4*N^-1 )
 
 + F311(M,SM,SM,SM,SM)
  * ( 9/8*SM^4 - 9/8*SM^4*N^-1 )
 
 + F31(PM,M,M,M)
  * ( - 5/4*SM^2 + 2*SM^2*N^-1 - 2*SM^2*N^-1*C^2 + 5/4*SM^2*C^2 )
 
 + F31(PM,M,M,M0)
  * ( - 1/8*SM^2 + 1/8*SM^2*C^2 )
 
 + F31(PM,M,M,SM)
  * ( - M^2 + 2*M^2*N^-1 - 2*M^2*N^-1*C^2 + M^2*C^2 + 5/8*SM^2
  - 2*SM^2*N^-1 + 2*SM^2*N^-1*C^2 - 5/8*SM^2*C^2 )
 
 + F31(M,M,M0,M)
  * ( 3/2*SM^2 + 2*SM^2*N^-1*C^2 - 5/4*SM^2*C^2 - 1/2*SM^2*C^-2 )
 
 + F31(M,M,M0,M0)
  * ( 1/4*SM^2 + 1/8*SM^2*N^-1 - 1/8*SM^2*C^2 - 1/8*SM^2*C^-2 )
 
 + F31(M,M,M0,SM)
  * ( M^2 - 1/4*M^2*N^-1 - 1/2*M^2*N^-1*C^2 + 1/4*M^2*C^2
  - 1/4*M^2*C^-2 - 1/4*SM^2 + 5/8*SM^2*N^-1 - 2*SM^2*N^-1*C^2
  + 5/8*SM^2*C^2 - 1/8*SM^2*C^-2 )
 
 + F31(M,M,SM,SM)
  * ( 5/8*SM^2*N^-1 )
 
 + F31(M,M0,M0,M)
  * ( 1/4*SM^2*N^-1 )
 
 + F31(M,M0,M0,M0)
  * ( - 1/4*SM^2 + 19/8*SM^2*N^-1 - 1/2*SM^2*N^-1*C^-2 )
 
 + F31(M,M0,M0,SM)
  * ( M^2 - 2*M^2*N^-1 - 1/4*M^2*N^-1*C^-2 - 1/4*M^2*C^-4
  + 1/2*M^2*C^-2 - 1/4*M0^2 + 3/2*M0^2*N^-1 + 1/4*SM^2 - 15/8*SM^2
  *N^-1 + 1/2*SM^2*N^-1*C^-2 )
 
 + F31(M,SM,SM,SM)
  * ( - 3/8*SM^2 + 3/8*SM^2*N^-1 )
 
 + F221(M,M0,M,M0,SM)
  * ( 1/8*M^-2*SM^6*N^-1 - 1/2*SM^4*N^-1 - 1/4*SM^4*N^-1*C^-2 )
 
 + F221(M,SM,M,SM,M)
  * ( 1/8*SM^4*N^-1 )
 
 + F221(M,SM,M,SM,SM)
  * ( 3/8*M^-2*SM^6*N^-1 - 3/2*SM^4*N^-1 )
 
 + F22(PM,M,M,SM)
  * ( 1/2*SM^2*N^-1 - 1/2*SM^2*N^-1*C^2 )
 
 + F22(M,M0,M,M0)
  * ( - 1/8*M^-2*SM^4*N^-1 + 1/4*SM^2*N^-1 + 1/4*SM^2*N^-1*C^-2 )
 
 + F22(M,M0,M,SM)
  * ( - 1/4*SM^2*N^-1 + 1/2*SM^2*N^-1*C^2 + 1/4*SM^2*N^-1*C^-2 )
 
 + F22(M,SM,M,SM)
  * ( - 1/4*M^-2*SM^4*N^-1 + SM^2*N^-1 )
 
 + F211(PM,M,M,SM)
  * ( 5/2*SM^2*N^-1 - 5/2*SM^2*N^-1*C^2 )
 
 + F211(M,M,M,SM)
  * ( - 1/8*M^-2*SM^4 + 3/4*SM^2 - 3*SM^2*N^-1 + 5/2*SM^2*N^-1*C^2 )
 
 + F211(M,M0,M,SM)
  * ( 1/4*M^-2*SM^4*N^-1 - 3*SM^2*N^-1 + 3/4*SM^2*N^-1*C^-2 )
 
 + F211(M,M0,M0,SM)
  * ( 1/4*M^-2*SM^4*N^-1 - 5/4*SM^2*N^-1 )
 
 + F211(M,SM,M,M)
  * ( - 1/2*SM^2*N^-1 + 1/2*SM^2*N^-1*C^2 )
 
 + F211(M,SM,M,M0)
  * ( 3/2*SM^2*N^-1 - 1/2*SM^2*N^-1*C^2 - 1/4*SM^2*N^-1*C^-2 )
 
 + F211(M,SM,M,SM)
  * ( - 1/2*SM^2*N^-1 )
 
 + F211(M,SM,M0,M0)
  * ( 3/4*SM^2*N^-1 )
 
 + F211(M,SM,SM,SM)
  * ( 3/4*M^-2*SM^4*N^-1 + 3/2*SM^2*N^-1 )
 
 + F211(M0,M0,M0,SM)
  * ( - 1/16*M^-2*SM^4 + 1/4*M^-2*SM^4*N^-1 + 1/2*SM^2 - 3*SM^2*N^-1
   - 1/2*SM^2*N^-1*C^-2 + 1/8*SM^2*C^-2 )
 
 + F211(SM,SM,M,M)
  * ( - 1/16*M^-2*SM^4 + 1/4*M^-2*SM^4*N^-1 + 1/4*SM^2 - SM^2*N^-1 )
 
 + F211(SM,SM,M0,M0)
  * ( - 1/32*M^-2*SM^4 + 1/8*M^-2*SM^4*N^-1 - 1/2*SM^2*N^-1*C^-2
  + 1/8*SM^2*C^-2 )
 
 + F211(SM,SM,SM,SM)
  * ( - 9/32*M^-2*SM^4 + 9/8*M^-2*SM^4*N^-1 )
 
 + F21(PM,M,SM)
  * ( N^-1 - N^-1*C^2 )
 
 + F21(M,M,M)
  * ( 1/4*M^-2*SM^2 )
 
 + F21(M,M,M0)
  * ( 1/16*M^-2*SM^2 )
 
 + F21(M,M,SM)
  * ( - 15/8 + 1/16*M^-2*SM^2 + 1/4*N + 3*N^-1 - 5/2*N^-1*C^2
  + 5/4*C^2 )
 
 + F21(M,M0,M)
  * ( - 1/2*M^-2*SM^2*N^-1 )
 
 + F21(M,M0,M0)
  * ( - 1/8*M^-2*SM^2*N^-1 )
 
 + F21(M,M0,SM)
  * ( - 1/8*M^-2*SM^2*N^-1 + 1/4*N^-1 + 7/2*N^-1*C^2 - 1/2*N^-1*C^-2
   - 5/4*C^2 )
 
 + F21(M,SM,M)
  * ( - 1/2*M^-2*SM^2*N^-1 )
 
 + F21(M,SM,M0)
  * ( - 1/8*M^-2*SM^2*N^-1 )
 
 + F21(M,SM,SM)
  * ( - 1/8*M^-2*SM^2*N^-1 - 3/4*N^-1 )
 
 + F21(M0,M0,M)
  * ( 1/16*M^-2*SM^2 - 1/4*M^-2*SM^2*N^-1 )
 
 + F21(M0,M0,M0)
  * ( 3/32*M^-2*SM^2 - 3/8*M^-2*SM^2*N^-1 )
 
 + F21(M0,M0,SM)
  * ( - 2 + 1/32*M^-2*SM^2 - 1/8*M^-2*SM^2*N^-1 + 1/4*N + 3*N^-1
  - 1/4*N^-1*C^-2 + 1/16*C^-2 )
 
 + F21(SM,SM,M)
  * ( 1/16*M^-2*SM^2 - 1/4*M^-2*SM^2*N^-1 )
 
 + F21(SM,SM,M0)
  * ( 1/32*M^-2*SM^2 - 1/8*M^-2*SM^2*N^-1 )
 
 + F21(SM,SM,SM)
  * ( 3/32*M^-2*SM^2 - 3/8*M^-2*SM^2*N^-1 )
 
 + F111(PM,M,SM)
  * ( 2*N^-1 - 2*N^-1*C^2 )
 
 + F111(M,M,SM)
  * ( - 1/4 + 3/2*N^-1 - 3/4*N^-1*C^2 )
 
 + F111(M,M0,SM)
  * ( - 3*N^-1 + 11/4*N^-1*C^2 + 1/2*N^-1*C^-2 )
 
 + F111(M,SM,SM)
  * ( N^-1 )
 
 + F111(M0,M0,SM)
  * ( 1/4 - 3/2*N^-1 + 2*N^-1*C^-2 - 1/4*C^-2 ) + 0.
 
> P ninput
 
A0A0 = 
 + F311(M,M,M,M,SM)
  * ( 8*M^2*SM^2*N^-1 - 8*M^2*SM^2*N^-1*C^2 - 2*SM^4*N^-1
  + 2*SM^4*N^-1*C^2 )
 
 + F31(M,M,M,M)
  * ( - 1/2*SM^2 + 4*SM^2*N^-1 - 4*SM^2*N^-1*C^2 + 1/2*SM^2*C^2 )
 
 + F31(M,M,M,M0)
  * ( - 1/4*SM^2 + SM^2*N^-1 - SM^2*N^-1*C^2 + 1/4*SM^2*C^2 )
 
 + F31(M,M,M,SM)
  * ( 2*M^2 - 2*M^2*N^-1 + 2*M^2*N^-1*C^2 - 2*M^2*C^2 - 3/4*SM^2
  + SM^2*N^-1 - SM^2*N^-1*C^2 + 3/4*SM^2*C^2 )
 
 + F221(M,M,M,M,SM)
  * ( 1/2*M^-2*SM^6*N^-1 - 1/2*M^-2*SM^6*N^-1*C^2 - 3*SM^4*N^-1
  + 3*SM^4*N^-1*C^2 )
 
 + F22(M,M,M,M)
  * ( - 1/2*M^-2*SM^4*N^-1 + 1/2*M^-2*SM^4*N^-1*C^2 + 2*SM^2*N^-1
  - 2*SM^2*N^-1*C^2 )
 
 + F211(M,M,M,SM)
  * ( - 1/2*M^-2*SM^4 + 3*M^-2*SM^4*N^-1 - 3*M^-2*SM^4*N^-1*C^2
  + 1/2*M^-2*SM^4*C^2 + 2*SM^2 - 12*SM^2*N^-1 + 12*SM^2*N^-1*C^2
  - 2*SM^2*C^2 )
 
 + F21(M,M,M)
  * ( M^-2*SM^2 - 4*M^-2*SM^2*N^-1 + 4*M^-2*SM^2*N^-1*C^2
  - M^-2*SM^2*C^2 )
 
 + F21(M,M,M0)
  * ( 1/4*M^-2*SM^2 - M^-2*SM^2*N^-1 + M^-2*SM^2*N^-1*C^2
  - 1/4*M^-2*SM^2*C^2 )
 
 + F21(M,M,SM)
  * ( - 5/2 + 1/4*M^-2*SM^2 - M^-2*SM^2*N^-1 + M^-2*SM^2*N^-1*C^2
  - 1/4*M^-2*SM^2*C^2 + 1/2*N - 1/2*N*C^2 + 2*N^-1 - 2*N^-1*C^2
  + 5/2*C^2 )
 
 + F111(M,M,SM)
  * ( - 1/2 + 1/2*C^2 ) + 0.
 
> P ninput
 
W0A0 = 
 + F311(M,M,M,M,SM)
  * ( 8*M^2*SM^2*N^-1*C*S + 3*M^2*SM^2*N^-1*C^-1*S - 2*SM^4*N^-1*C
  *S - SM^4*N^-1*C^-1*S )
 
 + F31(M,M,M,M)
  * ( 4*SM^2*N^-1*C*S - 1/2*SM^2*C*S + 1/2*SM^2*C^-1*S )
 
 + F31(M,M,M,M0)
  * ( SM^2*N^-1*C*S - 1/2*SM^2*N^-1*C^-1*S - 1/4*SM^2*C*S
  + 1/4*SM^2*C^-1*S )
 
 + F31(M,M,M,SM)
  * ( - 2*M^2*N^-1*C*S + 2*M^2*C*S + 1/2*M^2*C^-1*S + SM^2*N^-1*C*S
   - 5/2*SM^2*N^-1*C^-1*S - 3/4*SM^2*C*S + 3/4*SM^2*C^-1*S )
 
 + F221(M,M,M,M,SM)
  * ( 1/2*M^-2*SM^6*N^-1*C*S - 1/4*M^-2*SM^6*N^-1*C^-1*S - 3*SM^4*N^-1
  *C*S + 3/2*SM^4*N^-1*C^-1*S )
 
 + F22(M,M,M,M)
  * ( - 1/2*M^-2*SM^4*N^-1*C*S + 1/4*M^-2*SM^4*N^-1*C^-1*S
  + 2*SM^2*N^-1*C*S - SM^2*N^-1*C^-1*S )
 
 + F22(M,M,M0,SM)
  * ( - 1/2*SM^2*N^-1*C^-3*S + 3/4*SM^2*N^-1*C^-1*S )
 
 + F211(M,M,M,SM)
  * ( 3*M^-2*SM^4*N^-1*C*S - 3/2*M^-2*SM^4*N^-1*C^-1*S - 1/2*M^-2*SM^4
  *C*S + 1/4*M^-2*SM^4*C^-1*S - 12*SM^2*N^-1*C*S + 1/2*SM^2*N^-1*C^-3
  *S + SM^2*N^-1*C^-1*S + 2*SM^2*C*S )
 
 + F211(M0,SM,M,M)
  * ( - 3/2*SM^2*N^-1*C^-3*S + 13/4*SM^2*N^-1*C^-1*S + 1/2*SM^2*C^-3
  *S - SM^2*C^-1*S )
 
 + F21(M,M,M)
  * ( - 4*M^-2*SM^2*N^-1*C*S + 2*M^-2*SM^2*N^-1*C^-1*S + M^-2*SM^2
  *C*S - 1/2*M^-2*SM^2*C^-1*S )
 
 + F21(M,M,M0)
  * ( - M^-2*SM^2*N^-1*C*S + 1/2*M^-2*SM^2*N^-1*C^-1*S + 1/4*M^-2*SM^2
  *C*S - 1/8*M^-2*SM^2*C^-1*S )
 
 + F21(M,M,SM)
  * ( - M^-2*SM^2*N^-1*C*S + 1/2*M^-2*SM^2*N^-1*C^-1*S + 1/4*M^-2*SM^2
  *C*S - 1/8*M^-2*SM^2*C^-1*S + 1/2*N*C*S + 2*N^-1*C*S + 11/4*N^-1
  *C^-1*S - 5/2*C*S - 3/4*C^-1*S )
 
 + F111(M,M,SM)
  * ( 1/4*N^-1*C^-1*S - 1/2*C*S + 1/2*C^-1*S ) + 0.
 
> P ninput
 
W0W0 = 
 + F311(M,M,M,M,SM)
  * ( 6*M^2*SM^2*N^-1 + 8*M^2*SM^2*N^-1*C^2 - 2*M^2*SM^2*N^-1*C^-2
   - M^2*SM^2*C^-2 - 2*SM^4*N^-1 - 2*SM^4*N^-1*C^2 + 1/2*SM^4*N^-1
  *C^-2 + 1/2*SM^4*C^-2 )
 
 + F311(M0,M0,SM,M0,SM)
  * ( - 1/4*M^-2*M0^2*SM^4*N^-1*C^-2 + 1/2*SM^4*N^-1*C^-4 )
 
 + F311(M0,SM,SM,M,M)
  * ( - 1/4*M^-2*M0^2*SM^4*N^-1*C^-2 + 1/4*SM^4*C^-4 )
 
 + F311(M0,SM,SM,M0,M0)
  * ( - 1/8*M^-2*M0^2*SM^4*N^-1*C^-2 + 1/8*SM^4*C^-4 )
 
 + F311(M0,SM,SM,SM,SM)
  * ( - 9/8*M^-2*M0^2*SM^4*N^-1*C^-2 + 9/8*SM^4*C^-4 )
 
 + F31(M,M,M,M)
  * ( SM^2 + 4*SM^2*N^-1*C^2 - 1/2*SM^2*C^2 - SM^2*C^-2 )
 
 + F31(M,M,M,M0)
  * ( 1/2*SM^2 - SM^2*N^-1 + SM^2*N^-1*C^2 + 1/4*SM^2*N^-1*C^-2
  - 1/4*SM^2*C^2 - 1/4*SM^2*C^-2 )
 
 + F31(M,M,M,SM)
  * ( M^2 - 2*M^2*N^-1*C^2 + 1/2*M^2*N^-1*C^-2 + 2*M^2*C^2
  - M^2*C^-2 + 3/2*SM^2 - 5*SM^2*N^-1 + SM^2*N^-1*C^2 + 5/4*SM^2*N^-1
  *C^-2 - 3/4*SM^2*C^2 - 1/4*SM^2*C^-2 )
 
 + F31(M0,M0,SM,SM)
  * ( 1/8*M^-2*M0^2*SM^2*N^-1*C^-2 + 1/2*SM^2*N^-1*C^-4 )
 
 + F31(M0,SM,SM,SM)
  * ( 3/8*M^-2*M0^2*SM^2*N^-1*C^-2 - 3/8*SM^2*C^-4 )
 
 + F221(M,M,M,M,SM)
  * ( - 1/2*M^-2*SM^6*N^-1 + 1/2*M^-2*SM^6*N^-1*C^2 + 1/8*M^-2*SM^6
  *N^-1*C^-2 + 3*SM^4*N^-1 - 3*SM^4*N^-1*C^2 - 3/4*SM^4*N^-1*C^-2 )
 
 + F221(M0,SM,M0,SM,M0)
  * ( 1/8*M^-2*M0^2*SM^4*N^-1*C^-2 )
 
 + F221(M0,SM,M0,SM,SM)
  * ( - 3/4*M^-2*M0^2*SM^4*N^-1*C^-2 + 3/8*M^-2*SM^6*N^-1*C^-2
  - 3/4*SM^4*N^-1*C^-4 )
 
 + F22(M,M,M,M)
  * ( 1/2*M^-2*SM^4*N^-1 - 1/2*M^-2*SM^4*N^-1*C^2 - 1/8*M^-2*SM^4*N^-1
  *C^-2 - 2*SM^2*N^-1 + 2*SM^2*N^-1*C^2 + 1/2*SM^2*N^-1*C^-2 )
 
 + F22(M,M,M0,SM)
  * ( 3/2*SM^2*N^-1 + 1/2*SM^2*N^-1*C^-4 - 3/2*SM^2*N^-1*C^-2 )
 
 + F22(M0,SM,M0,SM)
  * ( - 1/4*M^-2*SM^4*N^-1*C^-2 + SM^2*N^-1*C^-4 )
 
 + F211(M,M,M,SM)
  * ( 1/2*M^-2*SM^4 - 3*M^-2*SM^4*N^-1 + 3*M^-2*SM^4*N^-1*C^2
  + 3/4*M^-2*SM^4*N^-1*C^-2 - 1/2*M^-2*SM^4*C^2 - 1/8*M^-2*SM^4*C^-2
   + 2*SM^2*N^-1 - 12*SM^2*N^-1*C^2 - 1/2*SM^2*N^-1*C^-4 + 3*SM^2*N^-1
  *C^-2 + 2*SM^2*C^2 - 3/4*SM^2*C^-2 )
 
 + F211(M0,M0,M0,SM)
  * ( - 1/16*M^-2*SM^4*C^-2 + 1/8*SM^2*C^-4 )
 
 + F211(M0,SM,M,M)
  * ( - 2*SM^2 + 13/2*SM^2*N^-1 + 3/2*SM^2*N^-1*C^-4 - 13/2*SM^2*N^-1
  *C^-2 - 1/2*SM^2*C^-4 + 2*SM^2*C^-2 )
 
 + F211(M0,SM,M0,M0)
  * ( - 1/4*SM^2*C^-4 )
 
 + F211(M0,SM,M0,SM)
  * ( - 1/4*SM^2*N^-1*C^-4 )
 
 + F211(M0,SM,SM,SM)
  * ( 3/4*M^-2*SM^4*N^-1*C^-2 + 3/2*SM^2*N^-1*C^-4 - 3/4*SM^2*C^-4 )
 
 + F211(SM,SM,M,M)
  * ( 1/4*M^-2*SM^4*N^-1*C^-2 - 1/16*M^-2*SM^4*C^-2 - SM^2*N^-1*C^-2
   + 1/4*SM^2*C^-2 )
 
 + F211(SM,SM,M0,M0)
  * ( 1/8*M^-2*SM^4*N^-1*C^-2 - 1/32*M^-2*SM^4*C^-2 - 1/2*SM^2*N^-1
  *C^-4 + 1/8*SM^2*C^-4 )
 
 + F211(SM,SM,SM,SM)
  * ( 9/8*M^-2*SM^4*N^-1*C^-2 - 9/32*M^-2*SM^4*C^-2 )
 
 + F21(M,M,M)
  * ( - M^-2*SM^2 + 4*M^-2*SM^2*N^-1 - 4*M^-2*SM^2*N^-1*C^2
  - M^-2*SM^2*N^-1*C^-2 + M^-2*SM^2*C^2 + 1/4*M^-2*SM^2*C^-2 )
 
 + F21(M,M,M0)
  * ( - 1/4*M^-2*SM^2 + M^-2*SM^2*N^-1 - M^-2*SM^2*N^-1*C^2
  - 1/4*M^-2*SM^2*N^-1*C^-2 + 1/4*M^-2*SM^2*C^2 + 1/16*M^-2*SM^2*C^-2 )
 
 + F21(M,M,SM)
  * ( - 3/2 - 1/4*M^-2*SM^2 + M^-2*SM^2*N^-1 - M^-2*SM^2*N^-1*C^2
  - 1/4*M^-2*SM^2*N^-1*C^-2 + 1/4*M^-2*SM^2*C^2 + 1/16*M^-2*SM^2*C^-2
   + 1/2*N*C^2 + 11/2*N^-1 + 2*N^-1*C^2 - N^-1*C^-2 - 5/2*C^2
  + 1/8*C^-2 )
 
 + F21(M0,M0,M)
  * ( 1/16*M^-2*SM^2*C^-2 )
 
 + F21(M0,M0,M0)
  * ( 3/32*M^-2*SM^2*C^-2 )
 
 + F21(M0,M0,SM)
  * ( 1/32*M^-2*SM^2*C^-2 + 1/16*C^-4 )
 
 + F21(M0,SM,M)
  * ( - 1/4*M^-2*SM^2*N^-1*C^-2 )
 
 + F21(M0,SM,M0)
  * ( - 3/8*M^-2*SM^2*N^-1*C^-2 )
 
 + F21(M0,SM,SM)
  * ( - 1/8*M^-2*SM^2*N^-1*C^-2 - 1/2*N^-1*C^-4 )
 
 + F21(SM,SM,M)
  * ( - 1/4*M^-2*SM^2*N^-1*C^-2 + 1/16*M^-2*SM^2*C^-2 )
 
 + F21(SM,SM,M0)
  * ( - 1/8*M^-2*SM^2*N^-1*C^-2 + 1/32*M^-2*SM^2*C^-2 )
 
 + F21(SM,SM,SM)
  * ( - 3/8*M^-2*SM^2*N^-1*C^-2 + 3/32*M^-2*SM^2*C^-2 )
 
 + F111(M,M,SM)
  * ( 1 + 1/2*N^-1 + 1/2*N^-1*C^-2 - 1/2*C^2 - 1/2*C^-2 )
 
 + F111(M0,M0,SM)
  * ( - 1/4*N^-1*C^-4 - 1/4*C^-4 )
 
 + F111(M0,SM,SM)
  * ( 1/4*N^-1*C^-4 ) + 0.
 
> P ninput
 
WPWM = 
 + F311(PM,M,M,M,SM)
  * ( - 2*M^2*SM^2 + 4*M^2*SM^2*N^-1 - 4*M^2*SM^2*N^-1*C^2
  + 2*M^2*SM^2*C^2 + SM^4 - 2*SM^4*N^-1 + 2*SM^4*N^-1*C^2
  - SM^4*C^2 )
 
 + F311(M,M,M0,M,SM)
  * ( 2*M^2*SM^2 - 1/2*M^2*SM^2*N^-1 + 13/2*M^2*SM^2*N^-1*C^2
  - 2*M^2*SM^2*C^2 - 1/2*M^2*SM^2*C^-2 - SM^4 + 1/4*SM^4*N^-1
  - 2*SM^4*N^-1*C^2 + SM^4*C^2 + 1/4*SM^4*C^-2 )
 
 + F311(M,M,SM,M,SM)
  * ( 1/4*SM^4*N^-1 )
 
 + F311(M,M0,M0,M0,SM)
  * ( 2*M^2*SM^2*N^-1 - M^2*SM^2*N^-1*C^-4 + 2*M^2*SM^2*N^-1*C^-2
  - 1/2*M0^2*SM^2 + 7/2*M0^2*SM^2*N^-1 - 1/2*M0^2*SM^2*N^-1*C^-2
  + 1/4*SM^4 - 9/4*SM^4*N^-1 + 1/2*SM^4*N^-1*C^-2 )
 
 + F311(M,SM,SM,M,M)
  * ( 1/4*SM^4 - 1/4*SM^4*N^-1 )
 
 + F311(M,SM,SM,M0,M0)
  * ( 1/8*SM^4 - 1/8*SM^4*N^-1 )
 
 + F311(M,SM,SM,SM,SM)
  * ( 9/8*SM^4 - 9/8*SM^4*N^-1 )
 
 + F31(PM,M,M,M)
  * ( - 5/4*SM^2 + 2*SM^2*N^-1 - 2*SM^2*N^-1*C^2 + 5/4*SM^2*C^2 )
 
 + F31(PM,M,M,M0)
  * ( - 1/8*SM^2 + 1/8*SM^2*C^2 )
 
 + F31(PM,M,M,SM)
  * ( - M^2 + 2*M^2*N^-1 - 2*M^2*N^-1*C^2 + M^2*C^2 + 5/8*SM^2
  - 2*SM^2*N^-1 + 2*SM^2*N^-1*C^2 - 5/8*SM^2*C^2 )
 
 + F31(M,M,M0,M)
  * ( 3/2*SM^2 + 2*SM^2*N^-1*C^2 - 5/4*SM^2*C^2 - 1/2*SM^2*C^-2 )
 
 + F31(M,M,M0,M0)
  * ( 1/4*SM^2 + 1/8*SM^2*N^-1 - 1/8*SM^2*C^2 - 1/8*SM^2*C^-2 )
 
 + F31(M,M,M0,SM)
  * ( M^2 - 1/4*M^2*N^-1 - 1/2*M^2*N^-1*C^2 + 1/4*M^2*C^2
  - 1/4*M^2*C^-2 - 1/4*SM^2 + 5/8*SM^2*N^-1 - 2*SM^2*N^-1*C^2
  + 5/8*SM^2*C^2 - 1/8*SM^2*C^-2 )
 
 + F31(M,M,SM,SM)
  * ( 5/8*SM^2*N^-1 )
 
 + F31(M,M0,M0,M)
  * ( 1/4*SM^2*N^-1 )
 
 + F31(M,M0,M0,M0)
  * ( - 1/4*SM^2 + 19/8*SM^2*N^-1 - 1/2*SM^2*N^-1*C^-2 )
 
 + F31(M,M0,M0,SM)
  * ( M^2 - 2*M^2*N^-1 - 1/4*M^2*N^-1*C^-2 - 1/4*M^2*C^-4
  + 1/2*M^2*C^-2 - 1/4*M0^2 + 3/2*M0^2*N^-1 + 1/4*SM^2 - 15/8*SM^2
  *N^-1 + 1/2*SM^2*N^-1*C^-2 )
 
 + F31(M,SM,SM,SM)
  * ( - 3/8*SM^2 + 3/8*SM^2*N^-1 )
 
 + F221(M,M0,M,M0,SM)
  * ( 1/8*M^-2*SM^6*N^-1 - 1/2*SM^4*N^-1 - 1/4*SM^4*N^-1*C^-2 )
 
 + F221(M,SM,M,SM,M)
  * ( 1/8*SM^4*N^-1 )
 
 + F221(M,SM,M,SM,SM)
  * ( 3/8*M^-2*SM^6*N^-1 - 3/2*SM^4*N^-1 )
 
 + F22(PM,M,M,SM)
  * ( 1/2*SM^2*N^-1 - 1/2*SM^2*N^-1*C^2 )
 
 + F22(M,M0,M,M0)
  * ( - 1/8*M^-2*SM^4*N^-1 + 1/4*SM^2*N^-1 + 1/4*SM^2*N^-1*C^-2 )
 
 + F22(M,M0,M,SM)
  * ( - 1/4*SM^2*N^-1 + 1/2*SM^2*N^-1*C^2 + 1/4*SM^2*N^-1*C^-2 )
 
 + F22(M,SM,M,SM)
  * ( - 1/4*M^-2*SM^4*N^-1 + SM^2*N^-1 )
 
 + F211(PM,M,M,SM)
  * ( - SM^2 + 3*SM^2*N^-1 - 3*SM^2*N^-1*C^2 + SM^2*C^2 )
 
 + F211(M,M,M,SM)
  * ( - 1/8*M^-2*SM^4 + 3/4*SM^2 - 3*SM^2*N^-1 + 5/2*SM^2*N^-1*C^2 )
 
 + F211(M,M0,M,SM)
  * ( 1/4*M^-2*SM^4*N^-1 + 3/2*SM^2 - 7/2*SM^2*N^-1 + 1/2*SM^2*N^-1
  *C^2 + 3/4*SM^2*N^-1*C^-2 - SM^2*C^2 - 1/2*SM^2*C^-2 )
 
 + F211(M,M0,M0,SM)
  * ( 1/4*M^-2*SM^4*N^-1 - 3/2*SM^2*N^-1 + 1/4*SM^2*N^-1*C^-2 )
 
 + F211(M,SM,M,M)
  * ( - 1/2*SM^2 - 1/2*SM^2*N^-1 + 1/2*SM^2*N^-1*C^2 )
 
 + F211(M,SM,M,M0)
  * ( 3/2*SM^2*N^-1 - 1/2*SM^2*N^-1*C^2 - 1/4*SM^2*N^-1*C^-2 )
 
 + F211(M,SM,M,SM)
  * ( - 1/4*SM^2*N^-1 )
 
 + F211(M,SM,M0,M0)
  * ( - 1/4*SM^2 + 3/4*SM^2*N^-1 )
 
 + F211(M,SM,SM,SM)
  * ( 3/4*M^-2*SM^4*N^-1 - 3/4*SM^2 + 3/2*SM^2*N^-1 )
 
 + F211(M0,M0,M0,SM)
  * ( - 1/16*M^-2*SM^4 + 1/4*M^-2*SM^4*N^-1 + 1/2*SM^2 - 3*SM^2*N^-1
   - 1/2*SM^2*N^-1*C^-2 + 1/8*SM^2*C^-2 )
 
 + F211(SM,SM,M,M)
  * ( - 1/16*M^-2*SM^4 + 1/4*M^-2*SM^4*N^-1 + 1/4*SM^2 - SM^2*N^-1 )
 
 + F211(SM,SM,M0,M0)
  * ( - 1/32*M^-2*SM^4 + 1/8*M^-2*SM^4*N^-1 - 1/2*SM^2*N^-1*C^-2
  + 1/8*SM^2*C^-2 )
 
 + F211(SM,SM,SM,SM)
  * ( - 9/32*M^-2*SM^4 + 9/8*M^-2*SM^4*N^-1 )
 
 + F21(PM,M,SM)
  * ( - 1/2 + 3/2*N^-1 - 3/2*N^-1*C^2 + 1/2*C^2 )
 
 + F21(M,M,M)
  * ( 1/4*M^-2*SM^2 )
 
 + F21(M,M,M0)
  * ( 1/16*M^-2*SM^2 )
 
 + F21(M,M,SM)
  * ( - 15/8 + 1/16*M^-2*SM^2 + 1/4*N + 3*N^-1 - 5/2*N^-1*C^2
  + 5/4*C^2 )
 
 + F21(M,M0,M)
  * ( - 1/2*M^-2*SM^2*N^-1 )
 
 + F21(M,M0,M0)
  * ( - 1/8*M^-2*SM^2*N^-1 )
 
 + F21(M,M0,SM)
  * ( 1/2 - 1/8*M^-2*SM^2*N^-1 - 1/2*N^-1 + 4*N^-1*C^2 - 1/4*N^-1*C^-2
   - 7/4*C^2 )
 
 + F21(M,SM,M)
  * ( - 1/2*M^-2*SM^2*N^-1 )
 
 + F21(M,SM,M0)
  * ( - 1/8*M^-2*SM^2*N^-1 )
 
 + F21(M,SM,SM)
  * ( - 1/8*M^-2*SM^2*N^-1 - 1/2*N^-1 )
 
 + F21(M0,M0,M)
  * ( 1/16*M^-2*SM^2 - 1/4*M^-2*SM^2*N^-1 )
 
 + F21(M0,M0,M0)
  * ( 3/32*M^-2*SM^2 - 3/8*M^-2*SM^2*N^-1 )
 
 + F21(M0,M0,SM)
  * ( - 2 + 1/32*M^-2*SM^2 - 1/8*M^-2*SM^2*N^-1 + 1/4*N + 3*N^-1
  - 1/4*N^-1*C^-2 + 1/16*C^-2 )
 
 + F21(SM,SM,M)
  * ( 1/16*M^-2*SM^2 - 1/4*M^-2*SM^2*N^-1 )
 
 + F21(SM,SM,M0)
  * ( 1/32*M^-2*SM^2 - 1/8*M^-2*SM^2*N^-1 )
 
 + F21(SM,SM,SM)
  * ( 3/32*M^-2*SM^2 - 3/8*M^-2*SM^2*N^-1 )
 
 + F111(PM,M,SM)
  * ( 1/2*N^-1 - 1/2*N^-1*C^2 )
 
 + F111(M,M,SM)
  * ( - 1/4 + 3/4*N^-1 - 3/4*N^-1*C^2 )
 
 + F111(M,M0,SM)
  * ( - 3/4*N^-1 + 5/4*N^-1*C^2 - 1/4*N^-1*C^-2 )
 
 + F111(M,SM,SM)
  * ( 1/4*N^-1 )
 
 + F111(M0,M0,SM)
  * ( 1/4 + 1/2*N^-1*C^-2 - 1/4*C^-2 ) + 0.
 
> P ninput
 
A0A0 = 
 + F311(M,M,M,M,SM)
  * ( 8*M^2*SM^2*N^-1 - 8*M^2*SM^2*N^-1*C^2 - 2*SM^4*N^-1
  + 2*SM^4*N^-1*C^2 )
 
 + F31(M,M,M,M)
  * ( - 1/2*SM^2 + 4*SM^2*N^-1 - 4*SM^2*N^-1*C^2 + 1/2*SM^2*C^2 )
 
 + F31(M,M,M,M0)
  * ( - 1/4*SM^2 + SM^2*N^-1 - SM^2*N^-1*C^2 + 1/4*SM^2*C^2 )
 
 + F31(M,M,M,SM)
  * ( 2*M^2 - 2*M^2*N^-1 + 2*M^2*N^-1*C^2 - 2*M^2*C^2 - 3/4*SM^2
  + SM^2*N^-1 - SM^2*N^-1*C^2 + 3/4*SM^2*C^2 )
 
 + F221(M,M,M,M,SM)
  * ( 1/2*M^-2*SM^6*N^-1 - 1/2*M^-2*SM^6*N^-1*C^2 - 3*SM^4*N^-1
  + 3*SM^4*N^-1*C^2 )
 
 + F22(M,M,M,M)
  * ( - 1/2*M^-2*SM^4*N^-1 + 1/2*M^-2*SM^4*N^-1*C^2 + 2*SM^2*N^-1
  - 2*SM^2*N^-1*C^2 )
 
 + F211(M,M,M,SM)
  * ( - 1/2*M^-2*SM^4 + 3*M^-2*SM^4*N^-1 - 3*M^-2*SM^4*N^-1*C^2
  + 1/2*M^-2*SM^4*C^2 + 2*SM^2 - 12*SM^2*N^-1 + 12*SM^2*N^-1*C^2
  - 2*SM^2*C^2 )
 
 + F21(M,M,M)
  * ( M^-2*SM^2 - 4*M^-2*SM^2*N^-1 + 4*M^-2*SM^2*N^-1*C^2
  - M^-2*SM^2*C^2 )
 
 + F21(M,M,M0)
  * ( 1/4*M^-2*SM^2 - M^-2*SM^2*N^-1 + M^-2*SM^2*N^-1*C^2
  - 1/4*M^-2*SM^2*C^2 )
 
 + F21(M,M,SM)
  * ( - 5/2 + 1/4*M^-2*SM^2 - M^-2*SM^2*N^-1 + M^-2*SM^2*N^-1*C^2
  - 1/4*M^-2*SM^2*C^2 + 1/2*N - 1/2*N*C^2 + 2*N^-1 - 2*N^-1*C^2
  + 5/2*C^2 ) + 0.
 
> P ninput
 
W0A0 = 
 + F311(M,M,M,M,SM)
  * ( 8*M^2*SM^2*N^-1*C*S + 3*M^2*SM^2*N^-1*C^-1*S - 2*SM^4*N^-1*C
  *S - SM^4*N^-1*C^-1*S )
 
 + F31(M,M,M,M)
  * ( 4*SM^2*N^-1*C*S - 1/2*SM^2*C*S + 1/2*SM^2*C^-1*S )
 
 + F31(M,M,M,M0)
  * ( SM^2*N^-1*C*S - 1/2*SM^2*N^-1*C^-1*S - 1/4*SM^2*C*S
  + 1/4*SM^2*C^-1*S )
 
 + F31(M,M,M,SM)
  * ( - 2*M^2*N^-1*C*S + 2*M^2*C*S + 1/2*M^2*C^-1*S + SM^2*N^-1*C*S
   - 5/2*SM^2*N^-1*C^-1*S - 3/4*SM^2*C*S + 3/4*SM^2*C^-1*S )
 
 + F221(M,M,M,M,SM)
  * ( 1/2*M^-2*SM^6*N^-1*C*S - 1/4*M^-2*SM^6*N^-1*C^-1*S - 3*SM^4*N^-1
  *C*S + 3/2*SM^4*N^-1*C^-1*S )
 
 + F22(M,M,M,M)
  * ( - 1/2*M^-2*SM^4*N^-1*C*S + 1/4*M^-2*SM^4*N^-1*C^-1*S
  + 2*SM^2*N^-1*C*S - SM^2*N^-1*C^-1*S )
 
 + F22(M,M,M0,SM)
  * ( - 1/2*SM^2*N^-1*C^-3*S + 3/4*SM^2*N^-1*C^-1*S )
 
 + F211(M,M,M,SM)
  * ( 3*M^-2*SM^4*N^-1*C*S - 3/2*M^-2*SM^4*N^-1*C^-1*S - 1/2*M^-2*SM^4
  *C*S + 1/4*M^-2*SM^4*C^-1*S - 12*SM^2*N^-1*C*S + 1/2*SM^2*N^-1*C^-3
  *S + SM^2*N^-1*C^-1*S + 2*SM^2*C*S )
 
 + F211(M0,SM,M,M)
  * ( - 3/2*SM^2*N^-1*C^-3*S + 13/4*SM^2*N^-1*C^-1*S + 1/2*SM^2*C^-3
  *S - SM^2*C^-1*S )
 
 + F21(M,M,M)
  * ( - 4*M^-2*SM^2*N^-1*C*S + 2*M^-2*SM^2*N^-1*C^-1*S + M^-2*SM^2
  *C*S - 1/2*M^-2*SM^2*C^-1*S )
 
 + F21(M,M,M0)
  * ( - M^-2*SM^2*N^-1*C*S + 1/2*M^-2*SM^2*N^-1*C^-1*S + 1/4*M^-2*SM^2
  *C*S - 1/8*M^-2*SM^2*C^-1*S )
 
 + F21(M,M,SM)
  * ( - M^-2*SM^2*N^-1*C*S + 1/2*M^-2*SM^2*N^-1*C^-1*S + 1/4*M^-2*SM^2
  *C*S - 1/8*M^-2*SM^2*C^-1*S + 1/2*N*C*S + 2*N^-1*C*S + 11/4*N^-1
  *C^-1*S - 5/2*C*S - 3/4*C^-1*S )
 
 + F111(M,M,SM)
  * ( 1/4*N^-1*C^-1*S ) + 0.
 
> P ninput
 
W0W0 = 
 + F311(M,M,M,M,SM)
  * ( 6*M^2*SM^2*N^-1 + 8*M^2*SM^2*N^-1*C^2 - 2*M^2*SM^2*N^-1*C^-2
   - M^2*SM^2*C^-2 - 2*SM^4*N^-1 - 2*SM^4*N^-1*C^2 + 1/2*SM^4*N^-1
  *C^-2 + 1/2*SM^4*C^-2 )
 
 + F311(M0,M0,SM,M0,SM)
  * ( - 1/4*M^-2*M0^2*SM^4*N^-1*C^-2 + 1/2*SM^4*N^-1*C^-4 )
 
 + F311(M0,SM,SM,M,M)
  * ( - 1/4*M^-2*M0^2*SM^4*N^-1*C^-2 + 1/4*SM^4*C^-4 )
 
 + F311(M0,SM,SM,M0,M0)
  * ( - 1/8*M^-2*M0^2*SM^4*N^-1*C^-2 + 1/8*SM^4*C^-4 )
 
 + F311(M0,SM,SM,SM,SM)
  * ( - 9/8*M^-2*M0^2*SM^4*N^-1*C^-2 + 9/8*SM^4*C^-4 )
 
 + F31(M,M,M,M)
  * ( SM^2 + 4*SM^2*N^-1*C^2 - 1/2*SM^2*C^2 - SM^2*C^-2 )
 
 + F31(M,M,M,M0)
  * ( 1/2*SM^2 - SM^2*N^-1 + SM^2*N^-1*C^2 + 1/4*SM^2*N^-1*C^-2
  - 1/4*SM^2*C^2 - 1/4*SM^2*C^-2 )
 
 + F31(M,M,M,SM)
  * ( M^2 - 2*M^2*N^-1*C^2 + 1/2*M^2*N^-1*C^-2 + 2*M^2*C^2
  - M^2*C^-2 + 3/2*SM^2 - 5*SM^2*N^-1 + SM^2*N^-1*C^2 + 5/4*SM^2*N^-1
  *C^-2 - 3/4*SM^2*C^2 - 1/4*SM^2*C^-2 )
 
 + F31(M0,M0,SM,SM)
  * ( 1/8*M^-2*M0^2*SM^2*N^-1*C^-2 + 1/2*SM^2*N^-1*C^-4 )
 
 + F31(M0,SM,SM,SM)
  * ( 3/8*M^-2*M0^2*SM^2*N^-1*C^-2 - 3/8*SM^2*C^-4 )
 
 + F221(M,M,M,M,SM)
  * ( - 1/2*M^-2*SM^6*N^-1 + 1/2*M^-2*SM^6*N^-1*C^2 + 1/8*M^-2*SM^6
  *N^-1*C^-2 + 3*SM^4*N^-1 - 3*SM^4*N^-1*C^2 - 3/4*SM^4*N^-1*C^-2 )
 
 + F221(M0,SM,M0,SM,M0)
  * ( 1/8*M^-2*M0^2*SM^4*N^-1*C^-2 )
 
 + F221(M0,SM,M0,SM,SM)
  * ( - 3/4*M^-2*M0^2*SM^4*N^-1*C^-2 + 3/8*M^-2*SM^6*N^-1*C^-2
  - 3/4*SM^4*N^-1*C^-4 )
 
 + F22(M,M,M,M)
  * ( 1/2*M^-2*SM^4*N^-1 - 1/2*M^-2*SM^4*N^-1*C^2 - 1/8*M^-2*SM^4*N^-1
  *C^-2 - 2*SM^2*N^-1 + 2*SM^2*N^-1*C^2 + 1/2*SM^2*N^-1*C^-2 )
 
 + F22(M,M,M0,SM)
  * ( 3/2*SM^2*N^-1 + 1/2*SM^2*N^-1*C^-4 - 3/2*SM^2*N^-1*C^-2 )
 
 + F22(M0,SM,M0,SM)
  * ( - 1/4*M^-2*SM^4*N^-1*C^-2 + SM^2*N^-1*C^-4 )
 
 + F211(M,M,M,SM)
  * ( 1/2*M^-2*SM^4 - 3*M^-2*SM^4*N^-1 + 3*M^-2*SM^4*N^-1*C^2
  + 3/4*M^-2*SM^4*N^-1*C^-2 - 1/2*M^-2*SM^4*C^2 - 1/8*M^-2*SM^4*C^-2
   + 2*SM^2*N^-1 - 12*SM^2*N^-1*C^2 - 1/2*SM^2*N^-1*C^-4 + 3*SM^2*N^-1
  *C^-2 + 2*SM^2*C^2 - 3/4*SM^2*C^-2 )
 
 + F211(M0,M0,M0,SM)
  * ( - 1/16*M^-2*SM^4*C^-2 + 1/8*SM^2*C^-4 )
 
 + F211(M0,SM,M,M)
  * ( - 2*SM^2 + 13/2*SM^2*N^-1 + 3/2*SM^2*N^-1*C^-4 - 13/2*SM^2*N^-1
  *C^-2 - 1/2*SM^2*C^-4 + 2*SM^2*C^-2 )
 
 + F211(M0,SM,M0,M0)
  * ( - 1/4*SM^2*C^-4 )
 
 + F211(M0,SM,M0,SM)
  * ( - 1/4*SM^2*N^-1*C^-4 )
 
 + F211(M0,SM,SM,SM)
  * ( 3/4*M^-2*SM^4*N^-1*C^-2 + 3/2*SM^2*N^-1*C^-4 - 3/4*SM^2*C^-4 )
 
 + F211(SM,SM,M,M)
  * ( 1/4*M^-2*SM^4*N^-1*C^-2 - 1/16*M^-2*SM^4*C^-2 - SM^2*N^-1*C^-2
   + 1/4*SM^2*C^-2 )
 
 + F211(SM,SM,M0,M0)
  * ( 1/8*M^-2*SM^4*N^-1*C^-2 - 1/32*M^-2*SM^4*C^-2 - 1/2*SM^2*N^-1
  *C^-4 + 1/8*SM^2*C^-4 )
 
 + F211(SM,SM,SM,SM)
  * ( 9/8*M^-2*SM^4*N^-1*C^-2 - 9/32*M^-2*SM^4*C^-2 )
 
 + F21(M,M,M)
  * ( - M^-2*SM^2 + 4*M^-2*SM^2*N^-1 - 4*M^-2*SM^2*N^-1*C^2
  - M^-2*SM^2*N^-1*C^-2 + M^-2*SM^2*C^2 + 1/4*M^-2*SM^2*C^-2 )
 
 + F21(M,M,M0)
  * ( - 1/4*M^-2*SM^2 + M^-2*SM^2*N^-1 - M^-2*SM^2*N^-1*C^2
  - 1/4*M^-2*SM^2*N^-1*C^-2 + 1/4*M^-2*SM^2*C^2 + 1/16*M^-2*SM^2*C^-2 )
 
 + F21(M,M,SM)
  * ( - 3/2 - 1/4*M^-2*SM^2 + M^-2*SM^2*N^-1 - M^-2*SM^2*N^-1*C^2
  - 1/4*M^-2*SM^2*N^-1*C^-2 + 1/4*M^-2*SM^2*C^2 + 1/16*M^-2*SM^2*C^-2
   + 1/2*N*C^2 + 11/2*N^-1 + 2*N^-1*C^2 - N^-1*C^-2 - 5/2*C^2
  + 1/8*C^-2 )
 
 + F21(M0,M0,M)
  * ( 1/16*M^-2*SM^2*C^-2 )
 
 + F21(M0,M0,M0)
  * ( 3/32*M^-2*SM^2*C^-2 )
 
 + F21(M0,M0,SM)
  * ( 1/32*M^-2*SM^2*C^-2 + 1/16*C^-4 )
 
 + F21(M0,SM,M)
  * ( - 1/4*M^-2*SM^2*N^-1*C^-2 )
 
 + F21(M0,SM,M0)
  * ( - 3/8*M^-2*SM^2*N^-1*C^-2 )
 
 + F21(M0,SM,SM)
  * ( - 1/8*M^-2*SM^2*N^-1*C^-2 - 1/2*N^-1*C^-4 )
 
 + F21(SM,SM,M)
  * ( - 1/4*M^-2*SM^2*N^-1*C^-2 + 1/16*M^-2*SM^2*C^-2 )
 
 + F21(SM,SM,M0)
  * ( - 1/8*M^-2*SM^2*N^-1*C^-2 + 1/32*M^-2*SM^2*C^-2 )
 
 + F21(SM,SM,SM)
  * ( - 3/8*M^-2*SM^2*N^-1*C^-2 + 3/32*M^-2*SM^2*C^-2 )
 
 + F111(M,M,SM)
  * ( 1/2*N^-1 + 1/2*N^-1*C^-2 )
 
 + F111(M0,M0,SM)
  * ( - 1/4*N^-1*C^-4 - 1/4*C^-4 )
 
 + F111(M0,SM,SM)
  * ( 1/4*N^-1*C^-4 + 1/8*C^-4 ) + 0.
 
> P ninput
 
WPWM = 
 + F311(PM,M,M,M,SM)
  * ( - 2*M^2*SM^2 + 4*M^2*SM^2*N^-1 - 4*M^2*SM^2*N^-1*C^2
  + 2*M^2*SM^2*C^2 + SM^4 - 2*SM^4*N^-1 + 2*SM^4*N^-1*C^2
  - SM^4*C^2 )
 
 + F311(M,M,M0,M,SM)
  * ( 2*M^2*SM^2 - 1/2*M^2*SM^2*N^-1 + 13/2*M^2*SM^2*N^-1*C^2
  - 2*M^2*SM^2*C^2 - 1/2*M^2*SM^2*C^-2 - SM^4 + 1/4*SM^4*N^-1
  - 2*SM^4*N^-1*C^2 + SM^4*C^2 + 1/4*SM^4*C^-2 )
 
 + F311(M,M,SM,M,SM)
  * ( 1/4*SM^4*N^-1 )
 
 + F311(M,M0,M0,M0,SM)
  * ( 2*M^2*SM^2*N^-1 - M^2*SM^2*N^-1*C^-4 + 2*M^2*SM^2*N^-1*C^-2
  - 1/2*M0^2*SM^2 + 7/2*M0^2*SM^2*N^-1 - 1/2*M0^2*SM^2*N^-1*C^-2
  + 1/4*SM^4 - 9/4*SM^4*N^-1 + 1/2*SM^4*N^-1*C^-2 )
 
 + F311(M,SM,SM,M,M)
  * ( 1/4*SM^4 - 1/4*SM^4*N^-1 )
 
 + F311(M,SM,SM,M0,M0)
  * ( 1/8*SM^4 - 1/8*SM^4*N^-1 )
 
 + F311(M,SM,SM,SM,SM)
  * ( 9/8*SM^4 - 9/8*SM^4*N^-1 )
 
 + F31(PM,M,M,M)
  * ( - 5/4*SM^2 + 2*SM^2*N^-1 - 2*SM^2*N^-1*C^2 + 5/4*SM^2*C^2 )
 
 + F31(PM,M,M,M0)
  * ( - 1/8*SM^2 + 1/8*SM^2*C^2 )
 
 + F31(PM,M,M,SM)
  * ( - M^2 + 2*M^2*N^-1 - 2*M^2*N^-1*C^2 + M^2*C^2 + 5/8*SM^2
  - 2*SM^2*N^-1 + 2*SM^2*N^-1*C^2 - 5/8*SM^2*C^2 )
 
 + F31(M,M,M0,M)
  * ( 3/2*SM^2 + 2*SM^2*N^-1*C^2 - 5/4*SM^2*C^2 - 1/2*SM^2*C^-2 )
 
 + F31(M,M,M0,M0)
  * ( 1/4*SM^2 + 1/8*SM^2*N^-1 - 1/8*SM^2*C^2 - 1/8*SM^2*C^-2 )
 
 + F31(M,M,M0,SM)
  * ( M^2 - 1/4*M^2*N^-1 - 1/2*M^2*N^-1*C^2 + 1/4*M^2*C^2
  - 1/4*M^2*C^-2 - 1/4*SM^2 + 5/8*SM^2*N^-1 - 2*SM^2*N^-1*C^2
  + 5/8*SM^2*C^2 - 1/8*SM^2*C^-2 )
 
 + F31(M,M,SM,SM)
  * ( 5/8*SM^2*N^-1 )
 
 + F31(M,M0,M0,M)
  * ( 1/4*SM^2*N^-1 )
 
 + F31(M,M0,M0,M0)
  * ( - 1/4*SM^2 + 19/8*SM^2*N^-1 - 1/2*SM^2*N^-1*C^-2 )
 
 + F31(M,M0,M0,SM)
  * ( M^2 - 2*M^2*N^-1 - 1/4*M^2*N^-1*C^-2 - 1/4*M^2*C^-4
  + 1/2*M^2*C^-2 - 1/4*M0^2 + 3/2*M0^2*N^-1 + 1/4*SM^2 - 15/8*SM^2
  *N^-1 + 1/2*SM^2*N^-1*C^-2 )
 
 + F31(M,SM,SM,SM)
  * ( - 3/8*SM^2 + 3/8*SM^2*N^-1 )
 
 + F221(M,M0,M,M0,SM)
  * ( 1/8*M^-2*SM^6*N^-1 - 1/2*SM^4*N^-1 - 1/4*SM^4*N^-1*C^-2 )
 
 + F221(M,SM,M,SM,M)
  * ( 1/8*SM^4*N^-1 )
 
 + F221(M,SM,M,SM,SM)
  * ( 3/8*M^-2*SM^6*N^-1 - 3/2*SM^4*N^-1 )
 
 + F22(PM,M,M,SM)
  * ( 1/2*SM^2*N^-1 - 1/2*SM^2*N^-1*C^2 )
 
 + F22(M,M0,M,M0)
  * ( - 1/8*M^-2*SM^4*N^-1 + 1/4*SM^2*N^-1 + 1/4*SM^2*N^-1*C^-2 )
 
 + F22(M,M0,M,SM)
  * ( - 1/4*SM^2*N^-1 + 1/2*SM^2*N^-1*C^2 + 1/4*SM^2*N^-1*C^-2 )
 
 + F22(M,SM,M,SM)
  * ( - 1/4*M^-2*SM^4*N^-1 + SM^2*N^-1 )
 
 + F211(PM,M,M,SM)
  * ( - SM^2 + 3*SM^2*N^-1 - 3*SM^2*N^-1*C^2 + SM^2*C^2 )
 
 + F211(M,M,M,SM)
  * ( - 1/8*M^-2*SM^4 + 3/4*SM^2 - 3*SM^2*N^-1 + 5/2*SM^2*N^-1*C^2 )
 
 + F211(M,M0,M,SM)
  * ( 1/4*M^-2*SM^4*N^-1 + 3/2*SM^2 - 7/2*SM^2*N^-1 + 1/2*SM^2*N^-1
  *C^2 + 3/4*SM^2*N^-1*C^-2 - SM^2*C^2 - 1/2*SM^2*C^-2 )
 
 + F211(M,M0,M0,SM)
  * ( 1/4*M^-2*SM^4*N^-1 - 3/2*SM^2*N^-1 + 1/4*SM^2*N^-1*C^-2 )
 
 + F211(M,SM,M,M)
  * ( - 1/2*SM^2 - 1/2*SM^2*N^-1 + 1/2*SM^2*N^-1*C^2 )
 
 + F211(M,SM,M,M0)
  * ( 3/2*SM^2*N^-1 - 1/2*SM^2*N^-1*C^2 - 1/4*SM^2*N^-1*C^-2 )
 
 + F211(M,SM,M,SM)
  * ( - 1/4*SM^2*N^-1 )
 
 + F211(M,SM,M0,M0)
  * ( - 1/4*SM^2 + 3/4*SM^2*N^-1 )
 
 + F211(M,SM,SM,SM)
  * ( 3/4*M^-2*SM^4*N^-1 - 3/4*SM^2 + 3/2*SM^2*N^-1 )
 
 + F211(M0,M0,M0,SM)
  * ( - 1/16*M^-2*SM^4 + 1/4*M^-2*SM^4*N^-1 + 1/2*SM^2 - 3*SM^2*N^-1
   - 1/2*SM^2*N^-1*C^-2 + 1/8*SM^2*C^-2 )
 
 + F211(SM,SM,M,M)
  * ( - 1/16*M^-2*SM^4 + 1/4*M^-2*SM^4*N^-1 + 1/4*SM^2 - SM^2*N^-1 )
 
 + F211(SM,SM,M0,M0)
  * ( - 1/32*M^-2*SM^4 + 1/8*M^-2*SM^4*N^-1 - 1/2*SM^2*N^-1*C^-2
  + 1/8*SM^2*C^-2 )
 
 + F211(SM,SM,SM,SM)
  * ( - 9/32*M^-2*SM^4 + 9/8*M^-2*SM^4*N^-1 )
 
 + F21(PM,M,SM)
  * ( - 1/2 + 3/2*N^-1 - 3/2*N^-1*C^2 + 1/2*C^2 )
 
 + F21(M,M,M)
  * ( 1/4*M^-2*SM^2 )
 
 + F21(M,M,M0)
  * ( 1/16*M^-2*SM^2 )
 
 + F21(M,M,SM)
  * ( - 15/8 + 1/16*M^-2*SM^2 + 1/4*N + 3*N^-1 - 5/2*N^-1*C^2
  + 5/4*C^2 )
 
 + F21(M,M0,M)
  * ( - 1/2*M^-2*SM^2*N^-1 )
 
 + F21(M,M0,M0)
  * ( - 1/8*M^-2*SM^2*N^-1 )
 
 + F21(M,M0,SM)
  * ( 1/2 - 1/8*M^-2*SM^2*N^-1 - 1/2*N^-1 + 4*N^-1*C^2 - 1/4*N^-1*C^-2
   - 7/4*C^2 )
 
 + F21(M,SM,M)
  * ( - 1/2*M^-2*SM^2*N^-1 )
 
 + F21(M,SM,M0)
  * ( - 1/8*M^-2*SM^2*N^-1 )
 
 + F21(M,SM,SM)
  * ( - 1/8*M^-2*SM^2*N^-1 - 1/2*N^-1 )
 
 + F21(M0,M0,M)
  * ( 1/16*M^-2*SM^2 - 1/4*M^-2*SM^2*N^-1 )
 
 + F21(M0,M0,M0)
  * ( 3/32*M^-2*SM^2 - 3/8*M^-2*SM^2*N^-1 )
 
 + F21(M0,M0,SM)
  * ( - 2 + 1/32*M^-2*SM^2 - 1/8*M^-2*SM^2*N^-1 + 1/4*N + 3*N^-1
  - 1/4*N^-1*C^-2 + 1/16*C^-2 )
 
 + F21(SM,SM,M)
  * ( 1/16*M^-2*SM^2 - 1/4*M^-2*SM^2*N^-1 )
 
 + F21(SM,SM,M0)
  * ( 1/32*M^-2*SM^2 - 1/8*M^-2*SM^2*N^-1 )
 
 + F21(SM,SM,SM)
  * ( 3/32*M^-2*SM^2 - 3/8*M^-2*SM^2*N^-1 )
 
 + F111(PM,M,SM)
  * ( 1/4 + 1/2*N^-1 - 1/2*N^-1*C^2 - 1/4*C^2 )
 
 + F111(M,M,SM)
  * ( - 1/4 + 3/4*N^-1 - 3/4*N^-1*C^2 )
 
 + F111(M,M0,SM)
  * ( - 1/2 - 3/4*N^-1 + 5/4*N^-1*C^2 - 1/4*N^-1*C^-2 + 1/4*C^2
  + 1/4*C^-2 )
 
 + F111(M,SM,SM)
  * ( 1/8 + 1/4*N^-1 )
 
 + F111(M0,M0,SM)
  * ( 1/4 + 1/2*N^-1*C^-2 - 1/4*C^-2 ) + 0.
 
> P input
L 1	Id,F22(M~,M0~,S~,C~)=F221(M,M0,S,C,AH)
L 1	Al,F31(M~,M0~,S~,C~)=F311(M,M0,S,C,AH)
L 1	Al,F21(M~,M0~,S~)=F211(M,M0,S,AH)
L 2	Id,F221(M~,M~,M0~,M0~,SM~)=FF221(M,M,M0,M0,SM)
L 2	Al,F221(M~,M~,C~,S~,SM~)=DIF(C,S)*F211(M,M,S,SM)
	                              -DIF(C,S)*F211(M,M,C,SM)
L 2	Al,F221(C~,S~,M0~,M~,SM~)=DIF(C,S)*F211(M0,M,S,SM)
	                               -DIF(C,S)*F211(M0,M,C,SM)
L 3	Id,FF221(M~,M~,C~,C~,S~)=F221(M,M,C,C,S)
L 3	Al,F311(M~,M~,M~,C~,S~)=FF311(M,M,M,C,S)
L 3	Al,F311(M~,SM~,M0~,C~,S~)=DIF(M,M0)*F211(SM,M0,C,S)
	                                   -DIF(M,M0)*F211(M,SM,C,S)
L 4	Id,FF311(M~,M~,M~,C~,S~)=F311(M,M,M,C,S)
L 4	Al,F211(M~,M~,C~,S~)=FF211(M,M,C,S)
L 4	Al,F211(C~,S~,M~,M0~)=DIF(C,S)*F111(S,M,M0)
	                              -DIF(C,S)*F111(C,M,M0)
L 5	Id,FF211(M~,M~,C~,S~)=F211(M,M,C,S)
L 6	Id,F111(M~,C~,AH)=F11(M,C)
L 6	Al,F111(M~,C~,S~)=(EP-EP**2-1)*(M**2*F211(M,M,C,S)
	                 +C**2*F211(C,C,M,S)+S**2*F211(S,S,M,C))
L 8	Id,F11(PM,M~)=0
L 8	Al,F11(M~,PM)=0
L 9	Id,Symme,F211,3,4,F311,4,5,F111,1,2,3
L10	Id,Symme,F211,1,2,F311,1,2,3,F11,1,2
L11	Id,Asymm,DIF,1,2
	*yep
L 1	Id,DIF(M,SM)=-1./SM**2-M**2/SM**4-M**4/SM**6
L 1	Al,DIF(M0,SM)=-1./SM**2-M0**2/SM**4-M0**4/SM**6
L 1	Al,DIF(PM,M~)=-1./M**2
L 1	Al,DIF(M,M0)=-C**2/M**2/S**2
L 2	Id,Multi,M0**2=M**2/C**2
L 2	Al,Multi,M0**-2=C**2/M**2
L 3	Id,F221(M~,M0~,S~,C~,AH)=F22(M,M0,S,C)
L 3	Al,F311(M~,M0~,S~,C~,AH)=F31(M,M0,S,C)
L 3	Al,F211(M~,M0~,S~,AH)=F21(M,M0,S)
L 4	Id,EP**2*N=4.*EP**2
L 4	Al,N=4+EP
L 4	Al,EP**2*N**-1=0.25*EP**2
L 4	Al,EP*N**-1=EP/4.-EP**2/16.
L 4	Al,N**-1=1/4-EP/16+EP**2/64
L 5	Id,EP**2*F22(M~,M0~,S~,C~)=-4.*PI**4
L 5	Al,EP**2*F31(M~,M0~,S~,C~)=0.
L 5	Al,EP**2*F21(M~,M0~,S~)=4.*PI**4*S**2
L 5	Al,EP**2*F11(M~,M0~)=-4.*PI**4*M**2*M0**2
L 5	Al,EP**2*F221(M~,M0~,S~,C~,SM~)=0.
L 5	Al,EP**2*F311(M~,M0~,S~,C~,SM~)=0.
L 5	Al,EP**2*F211(M~,M0~,S~,C~)=-2.*PI**4
L 6	Id,EP*F3(M~,S~,C~)=0.
L 6	Al,EP**2*F3(M~,S~,C~)=0
L 6	Al,EP*F2(M~,C~)=-2.*I*PI**2
L 6	Al,EP**2*F2(M~,C~)=0.
L 7	Id,Multi,M0**2=M**2/C**2
	*yep
L 1	Id,Multi,C**2=1-S**2
	*yep
L 1	Id,Multi,S**2=1-C**2
L 2	Id,C**2*F211(M~,M0~,PM,SM~)=(1-S**2)*F211(M,M0,PM,SM)
L 2	Al,C**2*F3(PM,M~,M0~)=(1-S**2)*F3(PM,M,M0)
L 2	Al,C**2*F11(PM,M~)=(1-S**2)*F11(PM,M)
	*yep
> F21F22{}
L 1	Id,F221(M~,M~,M~,M~,SM)=PI**4/SM**2*(-PI**2/3
	   +2*LG(SM,M)-LG(SM,M)*LG(SM,M))
	   +PI**4*M**2/SM**4*(4-4*PI**2/3+12*LG(SM,M)
	   -4*LG(SM,M)*LG(SM,M))
L 1	Al,F211(SM,SM,SM,SM)=PI**4*(-2/EP**2+(1-2*LG(SM) )/EP
	    -0.5-PI**2/12+2*CLPW3+LG(SM)-LG(SM)*LG(SM)  )
L 1	Al,F211(SM,SM,M~,SM)=PI**4*(-2/EP**2+(1-2*LG(SM))/EP
	   -0.5-PI**2/12+LG(SM)-LG(SM)*LG(SM)-0.5*M**2/SM**2*LG(M,SM)
	   +M**2/SM**2 )
L 1	Al,F211(M~,M~,SM,SM)=PI**4*(-2/EP**2+(1-2*LG(M))/EP
	   +1.5-PI**2/12+LG(M)-LG(M)*LG(M)+LG(SM)+LG(SM,M)*LG(SM,M)/2)
L 1	Al,F211(M~,M~,M~,SM)=PI**4*(-2/EP**2+1/EP*(1-2*LG(M)))
	   +PI**4*(-0.5+PI**2/12+LG(M)-LG(M)*LG(M)
	   +0.5*LG(SM,M)*LG(SM,M)+(M**2*SM**2+3*M**4)/SM**4*LG(SM,M)
	   *LG(SM,M) - (2*M**2*SM**2+7*M**4)/SM**4*LG(SM,M)
	   +2*(PI**2/6-1)*M**2/SM**2 + (PI**2-11/2)*M**4/SM**4 )
L 1	Al,F311(M~,M~,M~,M~,SM)=PI**4/M**2/EP+PI**4/M**2*(-0.5
	   +0.5*LG(M)+0.5*LG(SM)+M**2/SM**2*LG(SM,M) )
L 1	Al,F211(SM,SM,M~,M0~)=PI**4*(-2/EP**2+(1-2*LG(SM))/EP
	   -0.5-PI**2/4+LG(SM)-LG(SM)*LG(SM)
	   -(0.5*LG(M,SM)*LG(M0,SM)+PI**2/6)*
	   (2*M**2*M0**2/SM**4+(4*M**4*M0**2+4*M**2*M0**4)/SM**6)
	   -0.5*LG(M,SM)*(2*M**2/SM**2
	     +(M**4+2*M0**2*M**2)/SM**4
	     +(2*M**6/3+8*M**4*M0**2+2*M**2*M0**4)/SM**6)
	   -0.5*LG(M0,SM)*(2*M0**2/SM**2
	     +(M0**4+2*M**2*M0**2)/SM**4
	     +(2*M0**6/3+8*M0**4*M**2+2*M0**2*M**4)/SM**6)
	   +(M**2+M0**2)/SM**2+(M**4/4+M**2*M0**2+M0**4/4)/SM**4
	   +(M**6/9+3*M**4*M0**2+3*M**2*M0**4+M0**6/9)/SM**6 )
L 1	Al,F211(M~,M~,M0~,SM)=PI**4*(-2/EP**2+(1-2*LG(M))/EP
	  -0.5+PI**2/12+LG(M)-LG(M)*LG(M)+0.5*LG(SM,M)*LG(SM,M)
	  +(M0**2*SM**2+2*M**2*M0**2+M0**4)/SM**4*LG(SM,M)*LG(SM,M)
	  -(M0**2*SM**2+2*M**2*M0**2+M0**4)/SM**4*LG(SM,M)*LG(M0,M)
	  -(M**2*SM**2+M0**2*SM**2+4*M**2*M0**2+5/2*M0**4+0.5*M**4)
	  /SM**4*LG(SM,M) + (M0**2*SM**2+M**2*M0**2+5/2*M0**4)/SM**4
	  *LG(M0,M) - (M**2+M0**2)/SM**2
	  - (1/4*M**4+3*M**2*M0**2+9/4*M0**4)/SM**4
	  +PI**2/3*(M0**2*SM**2+2*M**2*M0**2+M0**4)/SM**4  )
L 5	Id,F22(M~,M~,M0~,M0~)=F(2,M)*F(2,M0)
L 5	Al,F21(M~,M~,M0~)=F(2,M)*F(1,M0)
L 5	Al,F31(M~,M~,M~,M0~)=F(3,M)*F(1,M0)
L 5	Al,F11(M~,M0~)=F(1,M)*F(1,M0)
L 6	Id,F(1,PM)=0
> F1t5{}
L 7	Id,F(1,M~)=2*I*PI**2*M**2*(1/EP-0.5+0.5*LG(M)
	   +EP*(1/4-LG(M)/4+LG(M)*LG(M)/8+PI**2/48))
L 7	Al,F(2,M~)=2*I*PI**2*(-1/EP-0.5*LG(M)
	    -EP*(PI**2/48+LG(M)*LG(M)/8))
L 7	Al,F(3,M~)=I*PI**2/2/M**2+I*EP*PI**2/2/M**2/2*LG(M)
L 7	Al,F(4,M~)=I*PI**2/6/M**4
	   -1/12*I*EP*PI**2/M**4*(1-LG(M))
L 7	Al,F(5,M~)=I*PI**2/M**6*(1/12-EP/16+EP*LG(M)/24)
L10	Id,EP=0
	B EP,I,PI2,TIPI2
L11	Id,Count,1,SM,1
L12	Id,LG(SM,M~)=LG(SM)-LG(M)
L12	Al,LG(M0,M~)=LG(M0)-LG(M)
L12	Al,LG(M,M0~)=LG(M)-LG(M0)
L13	Id,Multi,M0**2=M**2/C**2
L13	Al,PI**4=-0.25*TIPI2**2
L14	Id,Commu,LG
	*yep
L 1	Id,C**-6*S**-4=1/C**6/S**2+1/C**4/S**4
L 2	Id,C**-6*S**-2=1/C**6+1/C**4/S**2
L 3	Id,C**-2*S**-2=1/C**2+1/S**2
L 3	Al,C**-2*S**-4=1/C**2+1/S**2+1/S**4
L 3	Al,C**-4*S**-2=1/C**4+1/C**2+1/S**2
L 3	Al,C**-4*S**-4=1/C**4+2/C**2+2/S**2+1/S**4
L 4	Id,Multi,C**2=1-S**2
L 5	Id,Multi,S**2=1-C**2
	*begin
 
A0A0 = 
 + EP^-1*TIPI2^2
  * ( - 3/16*M^-2*SM^4 + 3/16*M^-2*SM^4*C^2 - 1/16*SM^2 + 1/8*SM^2
  *C^2 - 1/16*SM^2*C^-2 )
 
 + TIPI2^2
  * ( 3/32*M^-2*SM^4 - 3/32*M^-2*SM^4*C^2 + 1/32*SM^2 - 1/16*SM^2*C^2
   + 1/32*SM^2*C^-2 )
 
 + LG(M)*TIPI2^2
  * ( - 3/32*M^-2*SM^4 + 3/32*M^-2*SM^4*C^2 - 3/32*SM^2 + 1/8*SM^2
  *C^2 - 1/32*SM^2*C^-2 )
 
 + LG(M0)*TIPI2^2
  * ( 1/32*SM^2 - 1/32*SM^2*C^-2 )
 
 + LG(SM)*TIPI2^2
  * ( - 3/32*M^-2*SM^4 + 3/32*M^-2*SM^4*C^2 )
 
W0A0 = 
 + EP^-1*TIPI2^2
  * ( - 3/16*M^-2*SM^4*C*S + 3/16*M^-2*SM^4*C^-1*S - 1/8*SM^2*C*S
  + 1/16*SM^2*C^-3*S + 3/16*SM^2*C^-1*S )
 
 + TIPI2^2
  * ( 3/32*M^-2*SM^4*C*S - 3/32*M^-2*SM^4*C^-1*S + 1/16*SM^2*C*S
  - 1/32*SM^2*C^-3*S - 3/32*SM^2*C^-1*S )
 
 + LG(M)*TIPI2^2
  * ( - 3/32*M^-2*SM^4*C*S + 3/32*M^-2*SM^4*C^-1*S - 1/8*SM^2*C*S
  + 1/32*SM^2*C^-3*S + 5/32*SM^2*C^-1*S )
 
 + LG(M0)*TIPI2^2
  * ( 1/32*SM^2*C^-3*S - 1/32*SM^2*C^-1*S )
 
 + LG(SM)*TIPI2^2
  * ( - 3/32*M^-2*SM^4*C*S + 3/32*M^-2*SM^4*C^-1*S + 1/16*SM^2*C^-1
  *S )
 
W0W0 = 
  + 1/192*M^-2*SM^4*C^-2*PI^6 - 3/32*SM^2*C^-4*PI^6
 
 + EP^-1*TIPI2^2
  * ( 3/8*M^-2*SM^4 - 3/16*M^-2*SM^4*C^2 - 45/128*M^-2*SM^4*C^-2
  + 7/16*SM^2 - 1/8*SM^2*C^2 - 13/16*SM^2*C^-4 )
 
 + TIPI2^2
  * ( - 3/16*M^-2*SM^4 + 3/32*M^-2*SM^4*C^2 + 155/512*M^-2*SM^4*C^-2
   - 9/64*M^-2*SM^4*C^-2*CLPW3 - 7/32*SM^2 + 1/16*SM^2*C^2
  + 113/128*SM^2*C^-4 - 27/32*SM^2*C^-4*CLPW3 - 9/64*SM^2*C^-2 )
 
 + LG(M)*TIPI2^2
  * ( 3/16*M^-2*SM^4 - 3/32*M^-2*SM^4*C^2 - 3/32*M^-2*SM^4*C^-2
  + 11/32*SM^2 - 1/8*SM^2*C^2 - 1/32*SM^2*C^-4 - 1/8*SM^2*C^-2 )
 
 + LG(M)*LG(M0)*TIPI2^2
  * ( - 1/64*SM^2*C^-2 )
 
 + LG(M)*LG(SM)*TIPI2^2
  * ( 1/64*SM^2*C^-2 )
 
 + LG(M0)*EP^-1*TIPI2^2
  * ( - 3/64*M^-2*SM^4*C^-2 - 7/64*SM^2*C^-4 - 1/32*SM^2*C^-2 )
 
 + LG(M0)*TIPI2^2
  * ( 3/128*M^-2*SM^4*C^-2 - 1/32*SM^2 + 1/16*SM^2*C^-4 + 5/64*SM^2
  *C^-2 )
 
 + LG(M0)*LG(M0)*TIPI2^2
  * ( - 3/256*M^-2*SM^4*C^-2 - 9/256*SM^2*C^-4 - 1/128*SM^2*C^-2 )
 
 + LG(M0)*LG(SM)*TIPI2^2
  * ( - 3/128*M^-2*SM^4*C^-2 - 5/128*SM^2*C^-4 )
 
 + LG(SM)*EP^-1*TIPI2^2
  * ( 3/64*M^-2*SM^4*C^-2 + 7/64*SM^2*C^-4 + 1/32*SM^2*C^-2 )
 
 + LG(SM)*TIPI2^2
  * ( 3/16*M^-2*SM^4 - 3/32*M^-2*SM^4*C^2 - 9/32*M^-2*SM^4*C^-2
  + 1/8*SM^2 - 27/32*SM^2*C^-4 + 3/64*SM^2*C^-2 )
 
 + LG(SM)*LG(SM)*TIPI2^2
  * ( 9/256*M^-2*SM^4*C^-2 + 19/256*SM^2*C^-4 + 1/128*SM^2*C^-2 )
 
WPWM = 
  + 1/192*M^-2*SM^4*PI^6 - 3/32*SM^2*PI^6
 
 + EP^-1*TIPI2^2
  * ( - 33/128*M^-2*SM^4 - 9/16*SM^2 - 1/32*SM^2*C^-2 )
 
 + TIPI2^2
  * ( 155/512*M^-2*SM^4 - 9/64*M^-2*SM^4*CLPW3 + 167/256*SM^2
  - 11/256*SM^2*C^-2 - 27/32*SM^2*CLPW3 )
 
 + LG(M)*EP^-1*TIPI2^2
  * ( 3/16*M^-2*SM^4 - 3/32*M^-2*SM^4*S^-2 + 1/32*SM^2 + 1/32*SM^2
  *C^-2 - 3/32*SM^2*S^-2 )
 
 + LG(M)*TIPI2^2
  * ( - 15/64*M^-2*SM^4 + 3/32*M^-2*SM^4*S^-2 - 1/128*SM^2
  - 3/64*SM^2*C^-2 + 3/128*SM^2*S^-2 )
 
 + LG(M)*LG(M)*TIPI2^2
  * ( 3/64*M^-2*SM^4 - 3/128*M^-2*SM^4*S^-2 + 9/128*SM^2 + 1/128*SM^2
  *C^-2 - 7/128*SM^2*S^-2 )
 
 + LG(M)*LG(M0)*TIPI2^2
  * ( - 5/64*SM^2 + 1/64*SM^2*C^-2 + 1/64*SM^2*S^-2 )
 
 + LG(M)*LG(SM)*TIPI2^2
  * ( 3/32*M^-2*SM^4 - 3/64*M^-2*SM^4*S^-2 - 1/32*SM^2 )
 
 + LG(M0)*EP^-1*TIPI2^2
  * ( - 15/64*M^-2*SM^4 + 3/32*M^-2*SM^4*S^-2 - 5/32*SM^2
  - 3/64*SM^2*C^-2 + 3/32*SM^2*S^-2 )
 
 + LG(M0)*TIPI2^2
  * ( 27/128*M^-2*SM^4 - 3/32*M^-2*SM^4*S^-2 + 9/64*SM^2 - 1/128*SM^2
  *C^-2 - 3/128*SM^2*S^-2 )
 
 + LG(M0)*LG(M0)*TIPI2^2
  * ( - 15/256*M^-2*SM^4 + 3/128*M^-2*SM^4*S^-2 - 5/128*SM^2
  - 9/256*SM^2*C^-2 + 5/128*SM^2*S^-2 )
 
 + LG(M0)*LG(SM)*TIPI2^2
  * ( - 15/128*M^-2*SM^4 + 3/64*M^-2*SM^4*S^-2 + 1/128*SM^2*C^-2 )
 
 + LG(SM)*EP^-1*TIPI2^2
  * ( 3/64*M^-2*SM^4 + 1/8*SM^2 + 1/64*SM^2*C^-2 )
 
 + LG(SM)*TIPI2^2
  * ( - 15/64*M^-2*SM^4 - 89/128*SM^2 + 3/128*SM^2*C^-2 )
 
 + LG(SM)*LG(SM)*TIPI2^2
  * ( 9/256*M^-2*SM^4 + 5/64*SM^2 + 1/256*SM^2*C^-2 ) + 0.
 

Begin. Time 184 sec.
	Write comm2lp
	*end

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


C RO-parameter 6. One-loop subtractions. RO-parameter result.

C ONE-LOOP SUBTRACTIONS AND RO-PARAMETER CALCULATION.
C NOT CONSIDERED ARE TADPOLE DIAGRAMS WITH INSERTED CORRECTIONS.
C ALTHOUGH THEY ARE IMPORTANT FOR GAUGE INVARIANCE OF THE WW LINES,
C THEY ARE NOT OF ANY CONSEQUENCE TO THE RO-PARAMETER.
C BELOW THEY ARE MADE INACTIVE.
C ENTER RESULT FROM TWO-LOOP SELF-ENERGY DIAGRAMS.
C THESE ARE THE FILES A0A0, W0A0, W0W0 AND WPWM.
C CDC CPU time 28.15 SEC.

	Oldnew i=I
	Enter comm2lp
	Common SWA,SPM,SWW,SAA
> P ninput

Begin. Time 3 sec.
> P ninput
> P ninput
> P ninput
> P input
	*next
 
SWA = 
 + EP^-1*TIPI2^2
  * ( 1/4*SM^2*C^-1*S )
 
 + TIPI2^2
  * ( - 5/32*SM^2*C^-1*S )
 
 + ET*EP^-1*TIPI2
  * ( - 1/4*SM^2*C*S + 1/4*SM^2*C^-1*S )
 
 + LG(M)*TIPI2^2
  * ( 1/16*SM^2*C^-1*S )
 
 + LG(M)*ET*TIPI2
  * ( - 1/8*SM^2*C*S + 1/8*SM^2*C^-1*S )
 
 + LG(SM)*TIPI2^2
  * ( 1/8*SM^2*C^-1*S ) + 0.
 
	Z SPM=SELF("U,"U_)
> SELF{}
> P ninput
> P ninput
> P input
	*next
 
SPM = 
 + EP^-1*TIPI2^2
  * ( - 3/32*M^-2*SM^4 - 1/16*SM^2 )
 
 + TIPI2^2
  * ( 15/128*M^-2*SM^4 - 9/256*M^-2*SM^4*PI*W3^-1 + 15/32*SM^2
  + 3/256*SM^2*C^-2 - 27/128*SM^2*PI*W3^-1 )
 
 + ET*EP^-1*TIPI2
  * ( - 1/4*M^2 - 1/4*SM^2 )
 
 + ET*TIPI2
  * ( 1/8*M^2 + 1/8*SM^2 )
 
 + LG(M)*TIPI2^2
  * ( 15/128*SM^2 - 9/128*SM^2*S^-2 )
 
 + LG(M)*ET*EP^-1*TIPI2
  * ( - 1/8*M^2 + 1/4*SM^2 - 1/8*SM^2*S^-2 )
 
 + LG(M)*ET*TIPI2
  * ( 1/16*M^2 - 3/16*SM^2 + 1/16*SM^2*S^-2 )
 
 + LG(M)*LG(M)*ET*TIPI2
  * ( - 1/32*M^2 + 1/16*SM^2 - 1/32*SM^2*S^-2 )
 
 + LG(M0)*TIPI2^2
  * ( - 1/64*SM^2*C^-2 + 9/128*SM^2*S^-2 )
 
 + LG(M0)*ET*EP^-1*TIPI2
  * ( - 5/16*SM^2 + 1/8*SM^2*S^-2 )
 
 + LG(M0)*ET*TIPI2
  * ( 1/8*SM^2 - 1/16*SM^2*S^-2 )
 
 + LG(M0)*LG(M0)*ET*TIPI2
  * ( - 5/64*SM^2 + 1/32*SM^2*S^-2 )
 
 + LG(SM)*TIPI2^2
  * ( - 3/32*M^-2*SM^4 - 43/128*SM^2 )
 
 + LG(SM)*ET*EP^-1*TIPI2
  * ( 1/8*M^2 + 1/16*SM^2 )
 
 + LG(SM)*ET*TIPI2
  * ( - 3/16*M^2 - 1/16*SM^2 )
 
 + LG(SM)*LG(SM)*ET*TIPI2
  * ( 1/32*M^2 + 1/64*SM^2 ) + 0.
 
> P input
	Z SWW=SELF("W,"W)
> SELF{}
> P ninput
> P ninput
> P input
	*next
 
SWW = 
 + EP^-1*TIPI2^2
  * ( - 3/32*M^-2*SM^4*C^-2 + 1/2*SM^2 - 9/16*SM^2*C^-4 )
 
 + TIPI2^2
  * ( 15/128*M^-2*SM^4*C^-2 - 9/256*M^-2*SM^4*C^-2*PI*W3^-1
  - 5/16*SM^2 + 213/256*SM^2*C^-4 - 27/128*SM^2*C^-4*PI*W3^-1
  + 1/32*SM^2*C^-2 )
 
 + ET*EP^-1*TIPI2
  * ( - 1/4*M^2*C^-4 + 1/2*SM^2 - 1/4*SM^2*C^2 - 3/8*SM^2*C^-2 )
 
 + ET*TIPI2
  * ( 1/8*M^2*C^-4 + 1/16*SM^2*C^-2 )
 
 + LG(M)*TIPI2^2
  * ( 1/8*SM^2 - 1/32*SM^2*C^-2 )
 
 + LG(M)*ET*TIPI2
  * ( 1/4*SM^2 - 1/8*SM^2*C^2 - 1/8*SM^2*C^-2 )
 
 + LG(M0)*TIPI2^2
  * ( 1/128*SM^2*C^-4 )
 
 + LG(M0)*ET*EP^-1*TIPI2
  * ( - 1/8*M^2*C^-4 - 1/16*SM^2*C^-2 )
 
 + LG(M0)*ET*TIPI2
  * ( 1/16*M^2*C^-4 )
 
 + LG(M0)*LG(M0)*ET*TIPI2
  * ( - 1/32*M^2*C^-4 - 1/64*SM^2*C^-2 )
 
 + LG(SM)*TIPI2^2
  * ( - 3/32*M^-2*SM^4*C^-2 + 1/4*SM^2 - 75/128*SM^2*C^-4 )
 
 + LG(SM)*ET*EP^-1*TIPI2
  * ( 1/8*M^2*C^-4 + 1/16*SM^2*C^-2 )
 
 + LG(SM)*ET*TIPI2
  * ( - 3/16*M^2*C^-4 - 1/16*SM^2*C^-2 )
 
 + LG(SM)*LG(SM)*ET*TIPI2
  * ( 1/32*M^2*C^-4 + 1/64*SM^2*C^-2 ) + 0.
 
> P input
	Z SAA=SELF("A,"A)
> SELF{}
> P ninput
> P ninput
> P input
	*next
 
SAA = + ET*EP^-1*TIPI2
  * ( - 1/4*SM^2 + 1/4*SM^2*C^2 )
 
 + LG(M)*ET*TIPI2
  * ( - 1/8*SM^2 + 1/8*SM^2*C^2 ) + 0.
 
	S EP,TIPI2,N,PM,M,M0,SM,C,S
	F LG
	B EP,I,PI2,TIPI2
	Z SAA=SAA
	Z SWA=SWA-4*M**2*S/C*E1F*TIPI2/EP**2
	Z SWW=SWW-M**2*TIPI2/EP**2*(-E1F/C**4+43/12*ET/C**2
	       -55/6*E1F/C**2-E1F**2/C**2/TIPI2+8*E1F)
	Z SPM=SPM-M**2*TIPI2/EP**2*(-E1F/C**2+43/12*ET
	       -7/6*E1F-E1F**2/TIPI2)
> E1EZF{~,~,,,}
C 1=E1, 2=E2, 3=ET, 4=E1F, 5=EZF.
L 5	Id,ET=TIPI2*(1.5*M**2/C**4/SM**2+0.25/C**2+0.5
	      +3*M**2/SM**2+0.75*SM**2/M**2)
	      +EP*TIPI2*(-0.25*M**2/C**4/SM**2-1/8/C**2-0.25
	      -0.5*M**2/SM**2-3*SM**2/8/M**2
	      +(0.25+1.5*M**2/SM**2)*LG(M)
	      +(1/8/C**2+0.75*M**2/C**4/SM**2)*LG(M0)
	      +3*SM**2/8/M**2*LG(SM) )
	  -EP**2*TIPI2*(PI2*(-M**2/C**4/SM**2/32-1/C**2/192-1/96
	    -M**2/SM**2/16-SM**2/M**2/64)
	   -M**2/SM**2/8/C**4-1/C**2/16-1/8-M**2/SM**2/4-3*SM**2/M**2/16
	   +LG(M)*(1/8+M**2/SM**2/4)
	   +LG(M)*LG(M)*(-1/16-3*M**2/SM**2/8)
	   +LG(M0)*(M**2/SM**2/C**4/8+1/C**2/16)
	   +LG(M0)*LG(M0)*(-3*M**2/C**4/SM**2/16-1/C**2/32)
	   +LG(SM)*3*SM**2/M**2/16
	   -LG(SM)*LG(SM)*3*SM**2/M**2/32)
L 8	Id,E1F=EP*TIPI2*SM**2/M**2*(1/32 + EP*(LG(SM)/64-3/128) )
L 8	Al,EZF=EP*TIPI2*SM**2/M**2*(1/32 + EP*(LG(SM)/64-3/128) )
L11	Id,EP=0
L12	Id,Count,1,SM,1
L13	Id,Commu,LG
L14	Id,C**-2*S**-2=1/S**2+1/C**2
L15	Id,LG(M~,SM)=LG(M)-LG(SM)
L15	Al,LG(M~,M0)=LG(M)-LG(M0)
L15	Al,LG(M0~,M)=LG(M0)-LG(M)
L16	Id,Commu,LG
	*next
 
SAA = 
 + EP^-1*TIPI2^2
  * ( - 3/16*M^-2*SM^4 + 3/16*M^-2*SM^4*C^2 - 1/16*SM^2 + 1/8*SM^2
  *C^2 - 1/16*SM^2*C^-2 )
 
 + TIPI2^2
  * ( 3/32*M^-2*SM^4 - 3/32*M^-2*SM^4*C^2 + 1/32*SM^2 - 1/16*SM^2*C^2
   + 1/32*SM^2*C^-2 )
 
 + LG(M)*TIPI2^2
  * ( - 3/32*M^-2*SM^4 + 3/32*M^-2*SM^4*C^2 - 3/32*SM^2 + 1/8*SM^2
  *C^2 - 1/32*SM^2*C^-2 )
 
 + LG(M0)*TIPI2^2
  * ( 1/32*SM^2 - 1/32*SM^2*C^-2 )
 
 + LG(SM)*TIPI2^2
  * ( - 3/32*M^-2*SM^4 + 3/32*M^-2*SM^4*C^2 )
 
SWA = 
 + EP^-1*TIPI2^2
  * ( - 3/16*M^-2*SM^4*C*S + 3/16*M^-2*SM^4*C^-1*S - 1/8*SM^2*C*S
  + 1/16*SM^2*C^-3*S + 3/16*SM^2*C^-1*S )
 
 + TIPI2^2
  * ( 3/32*M^-2*SM^4*C*S - 3/32*M^-2*SM^4*C^-1*S + 1/16*SM^2*C*S
  - 1/32*SM^2*C^-3*S - 3/32*SM^2*C^-1*S )
 
 + LG(M)*TIPI2^2
  * ( - 3/32*M^-2*SM^4*C*S + 3/32*M^-2*SM^4*C^-1*S - 1/8*SM^2*C*S
  + 1/32*SM^2*C^-3*S + 5/32*SM^2*C^-1*S )
 
 + LG(M0)*TIPI2^2
  * ( 1/32*SM^2*C^-3*S - 1/32*SM^2*C^-1*S )
 
 + LG(SM)*TIPI2^2
  * ( - 3/32*M^-2*SM^4*C*S + 3/32*M^-2*SM^4*C^-1*S + 1/16*SM^2*C^-1
  *S )
 
SWW = 
 + EP^-2*TIPI2^2
  * ( - 43/16*SM^2*C^-2 )
 
 + EP^-1*TIPI2^2
  * ( 3/8*M^-2*SM^4 - 3/16*M^-2*SM^4*C^2 - 3/8*M^-2*SM^4*C^-2
  + 7/16*SM^2 - 1/8*SM^2*C^2 - 13/16*SM^2*C^-4 + 301/192*SM^2*C^-2 )
 
 + TIPI2^2
  * ( - 3/16*M^-2*SM^4 + 3/32*M^-2*SM^4*C^2 + 313/1024*M^-2*SM^4*C^-2
   - 9/256*M^-2*SM^4*C^-2*PI*W3^-1 - 7/32*SM^2 + 1/16*SM^2*C^2
  + 271/256*SM^2*C^-4 - 27/128*SM^2*C^-4*PI*W3^-1 - 203/256*SM^2*C^-2 )
 
 + PI2*TIPI2^2
  * ( - 43/768*SM^2*C^-2 )
 
 + LG(M)*TIPI2^2
  * ( 3/16*M^-2*SM^4 - 3/32*M^-2*SM^4*C^2 - 3/32*M^-2*SM^4*C^-2
  + 11/32*SM^2 - 1/8*SM^2*C^2 - 1/32*SM^2*C^-4 - 1/8*SM^2*C^-2 )
 
 + LG(M)*LG(M0)*TIPI2^2
  * ( - 1/64*SM^2*C^-2 )
 
 + LG(M)*LG(SM)*TIPI2^2
  * ( 1/64*SM^2*C^-2 )
 
 + LG(M0)*EP^-1*TIPI2^2
  * ( - 3/64*M^-2*SM^4*C^-2 - 7/64*SM^2*C^-4 - 1/32*SM^2*C^-2 )
 
 + LG(M0)*TIPI2^2
  * ( 3/128*M^-2*SM^4*C^-2 - 1/32*SM^2 + 1/16*SM^2*C^-4 + 5/64*SM^2
  *C^-2 )
 
 + LG(M0)*LG(M0)*TIPI2^2
  * ( - 3/256*M^-2*SM^4*C^-2 - 9/256*SM^2*C^-4 - 1/128*SM^2*C^-2 )
 
 + LG(M0)*LG(SM)*TIPI2^2
  * ( - 3/128*M^-2*SM^4*C^-2 - 5/128*SM^2*C^-4 )
 
 + LG(SM)*EP^-1*TIPI2^2
  * ( 3/64*M^-2*SM^4*C^-2 + 7/64*SM^2*C^-4 - 21/16*SM^2*C^-2 )
 
 + LG(SM)*TIPI2^2
  * ( 3/16*M^-2*SM^4 - 3/32*M^-2*SM^4*C^2 - 39/128*M^-2*SM^4*C^-2
  + 1/8*SM^2 - 7/8*SM^2*C^-4 + 295/384*SM^2*C^-2 )
 
 + LG(SM)*LG(SM)*TIPI2^2
  * ( 9/256*M^-2*SM^4*C^-2 + 19/256*SM^2*C^-4 - 21/64*SM^2*C^-2 )
 
SPM = 
 + EP^-2*TIPI2^2
  * ( - 43/16*SM^2 )
 
 + EP^-1*TIPI2^2
  * ( - 9/32*M^-2*SM^4 + 193/192*SM^2 - 1/32*SM^2*C^-2 )
 
 + TIPI2^2
  * ( 313/1024*M^-2*SM^4 - 9/256*M^-2*SM^4*PI*W3^-1 + 21/256*SM^2
  + 13/256*SM^2*C^-2 - 27/128*SM^2*PI*W3^-1 )
 
 + PI2*TIPI2^2
  * ( - 43/768*SM^2 )
 
 + LG(M)*EP^-1*TIPI2^2
  * ( 3/16*M^-2*SM^4 - 3/32*M^-2*SM^4*S^-2 + 1/32*SM^2 + 1/32*SM^2
  *C^-2 - 3/32*SM^2*S^-2 )
 
 + LG(M)*TIPI2^2
  * ( - 15/64*M^-2*SM^4 + 3/32*M^-2*SM^4*S^-2 - 1/128*SM^2
  - 3/64*SM^2*C^-2 + 3/128*SM^2*S^-2 )
 
 + LG(M)*LG(M)*TIPI2^2
  * ( 3/64*M^-2*SM^4 - 3/128*M^-2*SM^4*S^-2 + 9/128*SM^2 + 1/128*SM^2
  *C^-2 - 7/128*SM^2*S^-2 )
 
 + LG(M)*LG(M0)*TIPI2^2
  * ( - 5/64*SM^2 + 1/64*SM^2*C^-2 + 1/64*SM^2*S^-2 )
 
 + LG(M)*LG(SM)*TIPI2^2
  * ( 3/32*M^-2*SM^4 - 3/64*M^-2*SM^4*S^-2 - 1/32*SM^2 )
 
 + LG(M0)*EP^-1*TIPI2^2
  * ( - 15/64*M^-2*SM^4 + 3/32*M^-2*SM^4*S^-2 - 5/32*SM^2
  - 3/64*SM^2*C^-2 + 3/32*SM^2*S^-2 )
 
 + LG(M0)*TIPI2^2
  * ( 27/128*M^-2*SM^4 - 3/32*M^-2*SM^4*S^-2 + 9/64*SM^2 - 1/128*SM^2
  *C^-2 - 3/128*SM^2*S^-2 )
 
 + LG(M0)*LG(M0)*TIPI2^2
  * ( - 15/256*M^-2*SM^4 + 3/128*M^-2*SM^4*S^-2 - 5/128*SM^2
  - 9/256*SM^2*C^-2 + 5/128*SM^2*S^-2 )
 
 + LG(M0)*LG(SM)*TIPI2^2
  * ( - 15/128*M^-2*SM^4 + 3/64*M^-2*SM^4*S^-2 + 1/128*SM^2*C^-2 )
 
 + LG(SM)*EP^-1*TIPI2^2
  * ( 3/64*M^-2*SM^4 - 39/32*SM^2 + 1/64*SM^2*C^-2 )
 
 + LG(SM)*TIPI2^2
  * ( - 33/128*M^-2*SM^4 + 5/192*SM^2 - 1/128*SM^2*C^-2 )
 
 + LG(SM)*LG(SM)*TIPI2^2
  * ( 9/256*M^-2*SM^4 - 33/128*SM^2 + 1/256*SM^2*C^-2 ) + 0.
 
	S EP,TIPI2,N,PM,M,M0,SM,C,S
	B EP,I,PI2,TIPI2
	F LG
	Z RWPWM=WPWM-SPM
	Z RW0W0=W0W0-SWW
L 2	Id,C**-2*S**-2=1/S**2+1/C**2
L 3	Id,LG(M)=LG(M,SM)+LG(SM)
L 3	Al,LG(M0)=LG(M0,SM)+LG(SM)
L 4	Id,Commu,LG
L 5	Id,LG(M~,SM)*LG(SM)=LG(SM)*LG(M,SM)
	*next
 
RWPWM = 
  + 1/192*M^-2*SM^4*PI^6 - 3/32*SM^2*PI^6
 
 + EP^-2*TIPI2^2
  * ( 43/16*SM^2 )
 
 + EP^-1*TIPI2^2
  * ( 3/128*M^-2*SM^4 - 301/192*SM^2 )
 
 + TIPI2^2
  * ( - 3/1024*M^-2*SM^4 + 9/256*M^-2*SM^4*PI*W3^-1 - 9/64*M^-2*SM^4
  *CLPW3 + 73/128*SM^2 - 3/32*SM^2*C^-2 + 27/128*SM^2*PI*W3^-1
  - 27/32*SM^2*CLPW3 )
 
 + PI2*TIPI2^2
  * ( 43/768*SM^2 )
 
 + LG(SM)*EP^-1*TIPI2^2
  * ( 43/32*SM^2 )
 
 + LG(SM)*TIPI2^2
  * ( 3/128*M^-2*SM^4 - 277/384*SM^2 + 1/32*SM^2*C^-2 )
 
 + LG(SM)*LG(SM)*TIPI2^2
  * ( 43/128*SM^2 )
 
RW0W0 = 
  + 1/192*M^-2*SM^4*C^-2*PI^6 - 3/32*SM^2*C^-4*PI^6
 
 + EP^-2*TIPI2^2
  * ( 43/16*SM^2*C^-2 )
 
 + EP^-1*TIPI2^2
  * ( 3/128*M^-2*SM^4*C^-2 - 301/192*SM^2*C^-2 )
 
 + TIPI2^2
  * ( - 3/1024*M^-2*SM^4*C^-2 + 9/256*M^-2*SM^4*C^-2*PI*W3^-1
  - 9/64*M^-2*SM^4*C^-2*CLPW3 - 45/256*SM^2*C^-4 + 27/128*SM^2*C^-4
  *PI*W3^-1 - 27/32*SM^2*C^-4*CLPW3 + 167/256*SM^2*C^-2 )
 
 + PI2*TIPI2^2
  * ( 43/768*SM^2*C^-2 )
 
 + LG(SM)*EP^-1*TIPI2^2
  * ( 43/32*SM^2*C^-2 )
 
 + LG(SM)*TIPI2^2
  * ( 3/128*M^-2*SM^4*C^-2 + 1/32*SM^2*C^-4 - 277/384*SM^2*C^-2 )
 
 + LG(SM)*LG(SM)*TIPI2^2
  * ( 43/128*SM^2*C^-2 ) + 0.
 
	S EP,TIPI2,N,PM,M,M0,SM,C,S
	B M,SM,C,S
	F LG
	Z RO=-(WPWM-C**2*W0W0-SPM+C**2*SWW)/TIPI2**2/PI**4/64/M**2
L 3	Id,Multi,TIPI2**-1=0.5/PI**2/I
L 4	Id,Commu,LG
L 5	Id,C**-2*S**-2=1/S**2+1/C**2
L 6	Id,LG(M)=LG(M,SM)+LG(SM)
L 6	Al,LG(M0)=LG(M0,SM)+LG(SM)
L 7	Id,Commu,LG
L 8	Id,LG(M~,SM)*LG(SM)=LG(SM)*LG(M,SM)
	*yep
L 1	Id,C**-2=1+S**2/C**2
	*begin
 
RO = + M^-2*SM^2*C^-2*S^2
  * ( - 21/16384*PI^-4 - 27/2048*PI^-4*CLPW3 + 27/8192*PI^-3*W3^-1
   + 3/8192*PI^-2 ) + 0.
 

Begin. Time 63 sec.
	Write common
	*end

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


C RO-parameter 7. Two-loop self-energy diagrams. A-A wave-function.

	Oldnew i=I
> P ninput

Begin. Time 2 sec.
 
AAWFA = 
 + LE(MUP)*LE(NUP)*TIPI2^2
  * ( - 1/36*M^-2*SM^2*S^2 )
 
 + D(MUP,NUP)*EP^-1*TIPI2^2*LE2
  * ( 1/12*M^-2*SM^2*S^2 )
 
 + D(MUP,NUP)*TIPI2^2*LE2
  * ( - 13/288*M^-2*SM^2*S^2 )
 
 + LG(M)*LE(MUP)*LE(NUP)*TIPI2^2
  * ( - 1/48*M^-2*SM^2*S^2 )
 
 + LG(M)*D(MUP,NUP)*TIPI2^2*LE2
  * ( 1/16*M^-2*SM^2*S^2 )
 
 + LG(SM)*LE(MUP)*LE(NUP)*TIPI2^2
  * ( 1/48*M^-2*SM^2*S^2 )
 
 + LG(SM)*D(MUP,NUP)*TIPI2^2*LE2
  * ( 1/48*M^-2*SM^2*S^2 ) + 0.
 
 
AAWFB = 
 + LE(MUP)*LE(NUP)*EP^-1*TIPI2^2
  * ( - 1/24*M^-4*SM^4*S^2 - 5/12*M^-2*SM^2*S^2 )
 
 + LE(MUP)*LE(NUP)*TIPI2^2
  * ( 1/48*M^-4*SM^4*S^2 + 29/72*M^-2*SM^2*S^2 )
 
 + D(MUP,NUP)*EP^-1*TIPI2^2*LE2
  * ( 1/16*M^-4*SM^4*S^2 + 5/16*M^-2*SM^2*S^2 )
 
 + D(MUP,NUP)*TIPI2^2*LE2
  * ( - 1/24*M^-4*SM^4*S^2 - 23/72*M^-2*SM^2*S^2 )
 
 + LG(M)*LE(MUP)*LE(NUP)*TIPI2^2
  * ( - 1/48*M^-4*SM^4*S^2 - 1/6*M^-2*SM^2*S^2 )
 
 + LG(M)*D(MUP,NUP)*TIPI2^2*LE2
  * ( 1/32*M^-4*SM^4*S^2 + 5/48*M^-2*SM^2*S^2 )
 
 + LG(SM)*LE(MUP)*LE(NUP)*TIPI2^2
  * ( - 1/48*M^-4*SM^4*S^2 - 1/4*M^-2*SM^2*S^2 )
 
 + LG(SM)*D(MUP,NUP)*TIPI2^2*LE2
  * ( 1/32*M^-4*SM^4*S^2 + 5/24*M^-2*SM^2*S^2 ) + 0.
 
 
AAWFE = 
 + LE(MUP)*LE(NUP)*EP^-1*TIPI2^2
  * ( - 1/48*M^-4*SM^4*S^2 - 1/48*M^-2*SM^2*C^-2*S^2 + 3/8*M^-2*SM^2
  *S^2 )
 
 + LE(MUP)*LE(NUP)*TIPI2^2
  * ( 1/96*M^-4*SM^4*S^2 + 1/96*M^-2*SM^2*C^-2*S^2 - 11/48*M^-2*SM^2
  *S^2 )
 
 + D(MUP,NUP)*EP^-1*TIPI2^2*LE2
  * ( 1/32*M^-4*SM^4*S^2 + 1/32*M^-2*SM^2*C^-2*S^2 - 1/4*M^-2*SM^2
  *S^2 )
 
 + D(MUP,NUP)*TIPI2^2*LE2
  * ( - 1/48*M^-4*SM^4*S^2 - 1/48*M^-2*SM^2*C^-2*S^2 + 5/32*M^-2*SM^2
  *S^2 )
 
 + LG(M)*LE(MUP)*LE(NUP)*TIPI2^2
  * ( - 1/96*M^-4*SM^4*S^2 - 1/96*M^-2*SM^2*C^-2*S^2 + 7/48*M^-2*SM^2
  *S^2 )
 
 + LG(M)*D(MUP,NUP)*TIPI2^2*LE2
  * ( 1/64*M^-4*SM^4*S^2 + 1/64*M^-2*SM^2*C^-2*S^2 - 1/16*M^-2*SM^2
  *S^2 )
 
 + LG(M0)*LE(MUP)*LE(NUP)*TIPI2^2
  * ( - 1/96*M^-2*SM^2*C^-2*S^2 )
 
 + LG(M0)*D(MUP,NUP)*TIPI2^2*LE2
  * ( 1/64*M^-2*SM^2*C^-2*S^2 )
 
 + LG(SM)*LE(MUP)*LE(NUP)*TIPI2^2
  * ( - 1/96*M^-4*SM^4*S^2 + 11/48*M^-2*SM^2*S^2 )
 
 + LG(SM)*D(MUP,NUP)*TIPI2^2*LE2
  * ( 1/64*M^-4*SM^4*S^2 - 3/16*M^-2*SM^2*S^2 ) + 0.
 
 
AAWFF = 
 + D(MUP,NUP)*EP^-1*TIPI2^2*LE2
  * ( - 1/12*M^-2*SM^2*S^2 )
 
 + D(MUP,NUP)*TIPI2^2*LE2
  * ( 1/24*M^-2*SM^2*S^2 )
 
 + LG(M)*D(MUP,NUP)*TIPI2^2*LE2
  * ( - 1/24*M^-2*SM^2*S^2 )
 
 + LG(SM)*D(MUP,NUP)*TIPI2^2*LE2
  * ( - 1/24*M^-2*SM^2*S^2 ) + 0.
 
 
AAWFH = 0. + 0.
 
 
AAWF = 
 + LE(MUP)*LE(NUP)*EP^-1*TIPI2^2
  * ( - 1/16*M^-4*SM^4*S^2 - 1/48*M^-2*SM^2*C^-2*S^2 - 1/24*M^-2*SM^2
  *S^2 )
 
 + LE(MUP)*LE(NUP)*TIPI2^2
  * ( 1/32*M^-4*SM^4*S^2 + 1/96*M^-2*SM^2*C^-2*S^2 + 7/48*M^-2*SM^2
  *S^2 )
 
 + D(MUP,NUP)*EP^-1*TIPI2^2*LE2
  * ( 3/32*M^-4*SM^4*S^2 + 1/32*M^-2*SM^2*C^-2*S^2 + 1/16*M^-2*SM^2
  *S^2 )
 
 + D(MUP,NUP)*TIPI2^2*LE2
  * ( - 1/16*M^-4*SM^4*S^2 - 1/48*M^-2*SM^2*C^-2*S^2 - 1/6*M^-2*SM^2
  *S^2 )
 
 + LG(M)*LE(MUP)*LE(NUP)*TIPI2^2
  * ( - 1/32*M^-4*SM^4*S^2 - 1/96*M^-2*SM^2*C^-2*S^2 - 1/24*M^-2*SM^2
  *S^2 )
 
 + LG(M)*D(MUP,NUP)*TIPI2^2*LE2
  * ( 3/64*M^-4*SM^4*S^2 + 1/64*M^-2*SM^2*C^-2*S^2 + 1/16*M^-2*SM^2
  *S^2 )
 
 + LG(M0)*LE(MUP)*LE(NUP)*TIPI2^2
  * ( - 1/96*M^-2*SM^2*C^-2*S^2 )
 
 + LG(M0)*D(MUP,NUP)*TIPI2^2*LE2
  * ( 1/64*M^-2*SM^2*C^-2*S^2 )
 
 + LG(SM)*LE(MUP)*LE(NUP)*TIPI2^2
  * ( - 1/32*M^-4*SM^4*S^2 )
 
 + LG(SM)*D(MUP,NUP)*TIPI2^2*LE2
  * ( 3/64*M^-4*SM^4*S^2 ) + 0.
 

Begin. Time 65 sec.

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


C RO-parameter 8. Two-loop self-energy diagrams. A-W wave-function.

	Oldnew i=I
	Common AWWF
> P ninput

Begin. Time 2 sec.
> P ninput
 
AWWFA = 
 + LE(MUP)*LE(NUP)*TIPI2^2
  * ( - 1/72*M^-2*SM^2*C^-1*S + 1/36*M^-2*SM^2*C^-1*S^3 )
 
 + D(MUP,NUP)*EP^-1*TIPI2^2*LE2
  * ( 1/48*M^-2*SM^2*C^-1*S - 1/12*M^-2*SM^2*C^-1*S^3 )
 
 + D(MUP,NUP)*TIPI2^2*LE2
  * ( - 1/144*M^-2*SM^2*C^-1*S + 13/288*M^-2*SM^2*C^-1*S^3 )
 
 + LG(M)*LE(MUP)*LE(NUP)*TIPI2^2
  * ( - 1/96*M^-2*SM^2*C^-1*S + 1/48*M^-2*SM^2*C^-1*S^3 )
 
 + LG(M)*D(MUP,NUP)*TIPI2^2*LE2
  * ( 1/48*M^-2*SM^2*C^-1*S - 1/16*M^-2*SM^2*C^-1*S^3 )
 
 + LG(SM)*LE(MUP)*LE(NUP)*TIPI2^2
  * ( 1/96*M^-2*SM^2*C^-1*S - 1/48*M^-2*SM^2*C^-1*S^3 )
 
 + LG(SM)*D(MUP,NUP)*TIPI2^2*LE2
  * ( - 1/48*M^-2*SM^2*C^-1*S^3 ) + 0.
 
> P ninput
 
AWWFA = 
 + D(MUP,NUP)*EP^-1*TIPI2^2*LE2
  * ( - 1/48*M^-2*SM^2*C^-1*S )
 
 + D(MUP,NUP)*TIPI2^2*LE2
  * ( 1/64*M^-2*SM^2*C^-1*S )
 
 + LG(M)*D(MUP,NUP)*TIPI2^2*LE2
  * ( - 1/96*M^-2*SM^2*C^-1*S )
 
 + LG(SM)*D(MUP,NUP)*TIPI2^2*LE2
  * ( - 1/96*M^-2*SM^2*C^-1*S ) + 0.
 
> P ninput
 
AWWFB = 
 + LE(MUP)*LE(NUP)*EP^-1*TIPI2^2
  * ( - 1/48*M^-4*SM^4*C^-1*S + 1/24*M^-4*SM^4*C^-1*S^3 - 11/24*M^-2
  *SM^2*C*S + 1/48*M^-2*SM^2*C^-1*S - 1/24*M^-2*SM^2*C^-1*S^3 )
 
 + LE(MUP)*LE(NUP)*TIPI2^2
  * ( 1/96*M^-4*SM^4*C^-1*S - 1/48*M^-4*SM^4*C^-1*S^3 + 77/192*M^-2
  *SM^2*C*S - 1/144*M^-2*SM^2*C^-1*S - 1/576*M^-2*SM^2*C^-1*S^3 )
 
 + D(MUP,NUP)*EP^-1*TIPI2^2*LE2
  * ( 1/48*M^-4*SM^4*C^-1*S - 1/16*M^-4*SM^4*C^-1*S^3 + 19/48*M^-2
  *SM^2*C*S - 1/48*M^-2*SM^2*C^-1*S + 1/12*M^-2*SM^2*C^-1*S^3 )
 
 + D(MUP,NUP)*TIPI2^2*LE2
  * ( - 1/96*M^-4*SM^4*C^-1*S + 1/24*M^-4*SM^4*C^-1*S^3 - 49/128*M^-2
  *SM^2*C*S + 17/1152*M^-2*SM^2*C^-1*S - 73/1152*M^-2*SM^2*C^-1*S^3 )
 
 + LG(M)*LE(MUP)*LE(NUP)*TIPI2^2
  * ( - 1/96*M^-4*SM^4*C^-1*S + 1/48*M^-4*SM^4*C^-1*S^3 - 11/48*M^-2
  *SM^2*C*S + 1/32*M^-2*SM^2*C^-1*S - 1/16*M^-2*SM^2*C^-1*S^3 )
 
 + LG(M)*D(MUP,NUP)*TIPI2^2*LE2
  * ( 1/96*M^-4*SM^4*C^-1*S - 1/32*M^-4*SM^4*C^-1*S^3 + 19/96*M^-2
  *SM^2*C*S - 1/32*M^-2*SM^2*C^-1*S + 3/32*M^-2*SM^2*C^-1*S^3 )
 
 + LG(SM)*LE(MUP)*LE(NUP)*TIPI2^2
  * ( - 1/96*M^-4*SM^4*C^-1*S + 1/48*M^-4*SM^4*C^-1*S^3 - 11/48*M^-2
  *SM^2*C*S - 1/96*M^-2*SM^2*C^-1*S + 1/48*M^-2*SM^2*C^-1*S^3 )
 
 + LG(SM)*D(MUP,NUP)*TIPI2^2*LE2
  * ( 1/96*M^-4*SM^4*C^-1*S - 1/32*M^-4*SM^4*C^-1*S^3 + 19/96*M^-2
  *SM^2*C*S + 1/96*M^-2*SM^2*C^-1*S - 1/96*M^-2*SM^2*C^-1*S^3 ) + 0.
 
> P ninput
 
AWWFE = 
 + LE(MUP)*LE(NUP)*EP^-1*TIPI2^2
  * ( - 1/96*M^-4*SM^4*C^-1*S + 1/48*M^-4*SM^4*C^-1*S^3 + 11/24*M^-2
  *SM^2*C*S - 1/96*M^-2*SM^2*C^-3*S + 1/48*M^-2*SM^2*C^-3*S^3
  - 1/24*M^-2*SM^2*C^-1*S + 1/12*M^-2*SM^2*C^-1*S^3 )
 
 + LE(MUP)*LE(NUP)*TIPI2^2
  * ( 1/192*M^-4*SM^4*C^-1*S - 1/96*M^-4*SM^4*C^-1*S^3 - 13/48*M^-2
  *SM^2*C*S + 1/192*M^-2*SM^2*C^-3*S - 1/96*M^-2*SM^2*C^-3*S^3
  + 1/48*M^-2*SM^2*C^-1*S - 1/24*M^-2*SM^2*C^-1*S^3 )
 
 + D(MUP,NUP)*EP^-1*TIPI2^2*LE2
  * ( 1/96*M^-4*SM^4*C^-1*S - 1/32*M^-4*SM^4*C^-1*S^3 - 19/48*M^-2
  *SM^2*C*S + 1/96*M^-2*SM^2*C^-3*S - 1/32*M^-2*SM^2*C^-3*S^3
  + 1/24*M^-2*SM^2*C^-1*S - 7/48*M^-2*SM^2*C^-1*S^3 )
 
 + D(MUP,NUP)*TIPI2^2*LE2
  * ( - 1/192*M^-4*SM^4*C^-1*S + 1/48*M^-4*SM^4*C^-1*S^3 + 25/96*M^-2
  *SM^2*C*S - 1/192*M^-2*SM^2*C^-3*S + 1/48*M^-2*SM^2*C^-3*S^3
  - 1/48*M^-2*SM^2*C^-1*S + 5/48*M^-2*SM^2*C^-1*S^3 )
 
 + LG(M)*LE(MUP)*LE(NUP)*TIPI2^2
  * ( - 1/192*M^-4*SM^4*C^-1*S + 1/96*M^-4*SM^4*C^-1*S^3 + 11/48*M^-2
  *SM^2*C*S - 1/192*M^-2*SM^2*C^-3*S + 1/96*M^-2*SM^2*C^-3*S^3
  - 1/24*M^-2*SM^2*C^-1*S + 1/12*M^-2*SM^2*C^-1*S^3 )
 
 + LG(M)*D(MUP,NUP)*TIPI2^2*LE2
  * ( 1/192*M^-4*SM^4*C^-1*S - 1/64*M^-4*SM^4*C^-1*S^3 - 19/96*M^-2
  *SM^2*C*S + 1/192*M^-2*SM^2*C^-3*S - 1/64*M^-2*SM^2*C^-3*S^3
  + 1/24*M^-2*SM^2*C^-1*S - 13/96*M^-2*SM^2*C^-1*S^3 )
 
 + LG(M0)*LE(MUP)*LE(NUP)*TIPI2^2
  * ( - 1/192*M^-2*SM^2*C^-3*S + 1/96*M^-2*SM^2*C^-3*S^3 )
 
 + LG(M0)*D(MUP,NUP)*TIPI2^2*LE2
  * ( 1/192*M^-2*SM^2*C^-3*S - 1/64*M^-2*SM^2*C^-3*S^3 )
 
 + LG(SM)*LE(MUP)*LE(NUP)*TIPI2^2
  * ( - 1/192*M^-4*SM^4*C^-1*S + 1/96*M^-4*SM^4*C^-1*S^3 + 11/48*M^-2
  *SM^2*C*S )
 
 + LG(SM)*D(MUP,NUP)*TIPI2^2*LE2
  * ( 1/192*M^-4*SM^4*C^-1*S - 1/64*M^-4*SM^4*C^-1*S^3 - 19/96*M^-2
  *SM^2*C*S - 1/96*M^-2*SM^2*C^-1*S^3 ) + 0.
 
> P ninput
 
AWWFF = 
 + D(MUP,NUP)*EP^-1*TIPI2^2*LE2
  * ( 1/12*M^-2*SM^2*C^-1*S^3 )
 
 + D(MUP,NUP)*TIPI2^2*LE2
  * ( - 1/24*M^-2*SM^2*C^-1*S^3 )
 
 + LG(M)*D(MUP,NUP)*TIPI2^2*LE2
  * ( 1/24*M^-2*SM^2*C^-1*S^3 )
 
 + LG(SM)*D(MUP,NUP)*TIPI2^2*LE2
  * ( 1/24*M^-2*SM^2*C^-1*S^3 ) + 0.
 
> P ninput
 
AWWFF = 0. + 0.
 
> P ninput
 
AWWFH = 0. + 0.
 
 
AWWF = 
 + LE(MUP)*LE(NUP)*EP^-1*TIPI2^2
  * ( - 1/32*M^-4*SM^4*C^-1*S + 1/16*M^-4*SM^4*C^-1*S^3 - 1/96*M^-2
  *SM^2*C^-3*S + 1/48*M^-2*SM^2*C^-3*S^3 - 1/48*M^-2*SM^2*C^-1*S
  + 1/24*M^-2*SM^2*C^-1*S^3 )
 
 + LE(MUP)*LE(NUP)*TIPI2^2
  * ( 1/64*M^-4*SM^4*C^-1*S - 1/32*M^-4*SM^4*C^-1*S^3 + 25/192*M^-2
  *SM^2*C*S + 1/192*M^-2*SM^2*C^-3*S - 1/96*M^-2*SM^2*C^-3*S^3
  - 1/64*M^-2*SM^2*C^-1*S^3 )
 
 + D(MUP,NUP)*EP^-1*TIPI2^2*LE2
  * ( 1/32*M^-4*SM^4*C^-1*S - 3/32*M^-4*SM^4*C^-1*S^3 + 1/96*M^-2*SM^2
  *C^-3*S - 1/32*M^-2*SM^2*C^-3*S^3 + 1/48*M^-2*SM^2*C^-1*S
  - 1/16*M^-2*SM^2*C^-1*S^3 )
 
 + D(MUP,NUP)*TIPI2^2*LE2
  * ( - 1/64*M^-4*SM^4*C^-1*S + 1/16*M^-4*SM^4*C^-1*S^3 - 47/384*M^-2
  *SM^2*C*S - 1/192*M^-2*SM^2*C^-3*S + 1/48*M^-2*SM^2*C^-3*S^3
  + 1/384*M^-2*SM^2*C^-1*S + 17/384*M^-2*SM^2*C^-1*S^3 )
 
 + LG(M)*LE(MUP)*LE(NUP)*TIPI2^2
  * ( - 1/64*M^-4*SM^4*C^-1*S + 1/32*M^-4*SM^4*C^-1*S^3 - 1/192*M^-2
  *SM^2*C^-3*S + 1/96*M^-2*SM^2*C^-3*S^3 - 1/48*M^-2*SM^2*C^-1*S
  + 1/24*M^-2*SM^2*C^-1*S^3 )
 
 + LG(M)*D(MUP,NUP)*TIPI2^2*LE2
  * ( 1/64*M^-4*SM^4*C^-1*S - 3/64*M^-4*SM^4*C^-1*S^3 + 1/192*M^-2
  *SM^2*C^-3*S - 1/64*M^-2*SM^2*C^-3*S^3 + 1/48*M^-2*SM^2*C^-1*S
  - 1/16*M^-2*SM^2*C^-1*S^3 )
 
 + LG(M0)*LE(MUP)*LE(NUP)*TIPI2^2
  * ( - 1/192*M^-2*SM^2*C^-3*S + 1/96*M^-2*SM^2*C^-3*S^3 )
 
 + LG(M0)*D(MUP,NUP)*TIPI2^2*LE2
  * ( 1/192*M^-2*SM^2*C^-3*S - 1/64*M^-2*SM^2*C^-3*S^3 )
 
 + LG(SM)*LE(MUP)*LE(NUP)*TIPI2^2
  * ( - 1/64*M^-4*SM^4*C^-1*S + 1/32*M^-4*SM^4*C^-1*S^3 )
 
 + LG(SM)*D(MUP,NUP)*TIPI2^2*LE2
  * ( 1/64*M^-4*SM^4*C^-1*S - 3/64*M^-4*SM^4*C^-1*S^3 ) + 0.
 

Begin. Time 153 sec.

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


C RO-parameter 9. Subtractions for A-A and A-W wave-functions.

C SUBTRACTIONS, A-A AND A-W WAVEFUNCTIONS.
C ENTER RESULTS FROM TWO-LOOP CALCULATIONS, AAWF AND AWWF.
C DCDC CPU time 14.7 SEC.

	Oldnew i=I
	Enter aawcomm
	Enter awwcomm
> P ninput

Begin. Time 3 sec.
> P input
	Z AAWFC=SELF("A,"A)
> P ninput
 
AAWFC = 
 + LE(MUP)*LE(NUP)*EP^-1*TIPI2^2
  * ( - 1/16*M^-4*SM^4*S^2 - 1/48*M^-2*SM^2*C^-2*S^2 - 1/24*M^-2*SM^2
  *S^2 )
 
 + LE(MUP)*LE(NUP)*TIPI2^2
  * ( 1/32*M^-4*SM^4*S^2 + 1/96*M^-2*SM^2*C^-2*S^2 + 17/96*M^-2*SM^2
  *S^2 )
 
 + D(MUP,NUP)*EP^-1*TIPI2^2*LE2
  * ( 3/32*M^-4*SM^4*S^2 + 1/32*M^-2*SM^2*C^-2*S^2 + 1/16*M^-2*SM^2
  *S^2 )
 
 + D(MUP,NUP)*TIPI2^2*LE2
  * ( - 1/16*M^-4*SM^4*S^2 - 1/48*M^-2*SM^2*C^-2*S^2 - 19/96*M^-2*SM^2
  *S^2 )
 
 + LG(M)*LE(MUP)*LE(NUP)*TIPI2^2
  * ( - 1/32*M^-4*SM^4*S^2 - 1/96*M^-2*SM^2*C^-2*S^2 - 1/24*M^-2*SM^2
  *S^2 )
 
 + LG(M)*D(MUP,NUP)*TIPI2^2*LE2
  * ( 3/64*M^-4*SM^4*S^2 + 1/64*M^-2*SM^2*C^-2*S^2 + 1/16*M^-2*SM^2
  *S^2 )
 
 + LG(M0)*LE(MUP)*LE(NUP)*TIPI2^2
  * ( - 1/96*M^-2*SM^2*C^-2*S^2 )
 
 + LG(M0)*D(MUP,NUP)*TIPI2^2*LE2
  * ( 1/64*M^-2*SM^2*C^-2*S^2 )
 
 + LG(SM)*LE(MUP)*LE(NUP)*TIPI2^2
  * ( - 1/32*M^-4*SM^4*S^2 )
 
 + LG(SM)*D(MUP,NUP)*TIPI2^2*LE2
  * ( 3/64*M^-4*SM^4*S^2 ) + 0.
 
> P input
	Z AWWFC=SELF("A,"W)
> P ninput
 
AWWFC = 
 + LE(MUP)*LE(NUP)*EP^-1*TIPI2^2
  * ( - 1/32*M^-4*SM^4*C^-1*S + 1/16*M^-4*SM^4*C^-1*S^3 - 1/96*M^-2
  *SM^2*C^-3*S + 1/48*M^-2*SM^2*C^-3*S^3 - 1/48*M^-2*SM^2*C^-1*S
  + 1/24*M^-2*SM^2*C^-1*S^3 )
 
 + LE(MUP)*LE(NUP)*TIPI2^2
  * ( 1/64*M^-4*SM^4*C^-1*S - 1/32*M^-4*SM^4*C^-1*S^3 + 25/192*M^-2
  *SM^2*C*S + 1/192*M^-2*SM^2*C^-3*S - 1/96*M^-2*SM^2*C^-3*S^3
  + 1/64*M^-2*SM^2*C^-1*S - 3/64*M^-2*SM^2*C^-1*S^3 )
 
 + D(MUP,NUP)*EP^-1*TIPI2^2*LE2
  * ( 1/32*M^-4*SM^4*C^-1*S - 3/32*M^-4*SM^4*C^-1*S^3 + 1/96*M^-2*SM^2
  *C^-3*S - 1/32*M^-2*SM^2*C^-3*S^3 + 1/48*M^-2*SM^2*C^-1*S
  - 1/16*M^-2*SM^2*C^-1*S^3 )
 
 + D(MUP,NUP)*TIPI2^2*LE2
  * ( - 1/64*M^-4*SM^4*C^-1*S + 1/16*M^-4*SM^4*C^-1*S^3 - 47/384*M^-2
  *SM^2*C*S - 1/192*M^-2*SM^2*C^-3*S + 1/48*M^-2*SM^2*C^-3*S^3
  - 5/384*M^-2*SM^2*C^-1*S + 29/384*M^-2*SM^2*C^-1*S^3 )
 
 + LG(M)*LE(MUP)*LE(NUP)*TIPI2^2
  * ( - 1/64*M^-4*SM^4*C^-1*S + 1/32*M^-4*SM^4*C^-1*S^3 - 1/192*M^-2
  *SM^2*C^-3*S + 1/96*M^-2*SM^2*C^-3*S^3 - 1/48*M^-2*SM^2*C^-1*S
  + 1/24*M^-2*SM^2*C^-1*S^3 )
 
 + LG(M)*D(MUP,NUP)*TIPI2^2*LE2
  * ( 1/64*M^-4*SM^4*C^-1*S - 3/64*M^-4*SM^4*C^-1*S^3 + 1/192*M^-2
  *SM^2*C^-3*S - 1/64*M^-2*SM^2*C^-3*S^3 + 1/48*M^-2*SM^2*C^-1*S
  - 1/16*M^-2*SM^2*C^-1*S^3 )
 
 + LG(M0)*LE(MUP)*LE(NUP)*TIPI2^2
  * ( - 1/192*M^-2*SM^2*C^-3*S + 1/96*M^-2*SM^2*C^-3*S^3 )
 
 + LG(M0)*D(MUP,NUP)*TIPI2^2*LE2
  * ( 1/192*M^-2*SM^2*C^-3*S - 1/64*M^-2*SM^2*C^-3*S^3 )
 
 + LG(SM)*LE(MUP)*LE(NUP)*TIPI2^2
  * ( - 1/64*M^-4*SM^4*C^-1*S + 1/32*M^-4*SM^4*C^-1*S^3 )
 
 + LG(SM)*D(MUP,NUP)*TIPI2^2*LE2
  * ( 1/64*M^-4*SM^4*C^-1*S - 3/64*M^-4*SM^4*C^-1*S^3 ) + 0.
 
> P input
	B EP,I,PI2,TIPI2,LE2
	Z TAAWF=AAWF-AAWFC
	Z TAWWF=AWWF-AWWFC
	*end
 
TAAWF = + LE(MUP)*LE(NUP)*TIPI2^2
  * ( - 1/32*M^-2*SM^2*S^2 )
 
 + D(MUP,NUP)*TIPI2^2*LE2
  * ( 1/32*M^-2*SM^2*S^2 )
 
TAWWF = + LE(MUP)*LE(NUP)*TIPI2^2
  * ( - 1/64*M^-2*SM^2*C^-1*S + 1/32*M^-2*SM^2*C^-1*S^3 )
 
 + D(MUP,NUP)*TIPI2^2*LE2
  * ( 1/64*M^-2*SM^2*C^-1*S - 1/32*M^-2*SM^2*C^-1*S^3 ) + 0.
 

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


C RO-parameter 10. Tadpoles in A-A wave-function.

C A-A TWO-LOOP WAVE-FUNCTION. TADPOLE INSERTIONS.
C THERE ARE MORE DIAGRAMS INVOLVING TADPOLES, NAMELY
C WITH ONE 4-VERTEX AND ONE 3-VERTEX WHERE ONE OF THE
C LINES OF THE 4-VERTEX CONNECTS TO A TADPOLE.
C THESE DIAGRAMS CANCEL OUT IF ONE SUBTRACTS THE COUNTERDIAGRAMS
C CONTAINING THE SAME TYPE OF DIAGRAMS, BUT THEY WERE COMPUTED
C TO SEE IF WITH THIS ADDITION THE TWO-LOOP DIAGRAMS WHERE
C GAUGE INVARIANT BY THEMSELVES, WHICH MUST BE.
C CDC CPU TIME 2.5 SEC.

	Oldnew i=I
> P ninput

Begin. Time 2 sec.
> P ninput
> P input
	Z A0A0E=TOPE("A,"A)
> TOPO{}
> P ninput
> P ninput
 
A0A0E = 
 + LE(MUP)*LE(NUP)*I*TADPO
  * ( 1/3*S^2*ET*PI^2 )
 
 + LE(MUP)*LE(NUP)*EP^-1*I*TADPO
  * ( 1/6*M^-2*SM^2*S^2*ET*PI^2 - 25/6*S^2*ET*PI^2 )
 
 + D(MUP,NUP)*I*LE2*TADPO
  * ( 1/24*M^-2*SM^2*S^2*ET*PI^2 - 1/3*S^2*ET*PI^2 )
 
 + D(MUP,NUP)*EP^-1*I*LE2*TADPO
  * ( - 1/4*M^-2*SM^2*S^2*ET*PI^2 + 43/12*S^2*ET*PI^2 )
 
 + LG(M)*LE(MUP)*LE(NUP)*I*TADPO
  * ( 1/12*M^-2*SM^2*S^2*ET*PI^2 - 25/12*S^2*ET*PI^2 )
 
 + LG(M)*D(MUP,NUP)*I*LE2*TADPO
  * ( - 1/8*M^-2*SM^2*S^2*ET*PI^2 + 43/24*S^2*ET*PI^2 ) + 0.
 
> P ninput
> P ninput
 
A0A0E = 
 + LE(MUP)*LE(NUP)*EP^-1*I*TADGH
  * ( 1/6*S^2*ET*PI^2 )
 
 + D(MUP,NUP)*EP^-1*I*LE2*TADGH
  * ( 1/12*S^2*ET*PI^2 )
 
 + LG(M)*LE(MUP)*LE(NUP)*I*TADGH
  * ( 1/12*S^2*ET*PI^2 )
 
 + LG(M)*D(MUP,NUP)*I*LE2*TADGH
  * ( 1/24*S^2*ET*PI^2 ) + 0.
 
 
A0A0 = 
 + LE(MUP)*LE(NUP)*EP^-1*TIPI2^2*TADPO
  * ( 1/16*M^-4*SM^4*S^2 + 1/48*M^-2*SM^2*C^-2*S^2 - 35/24*M^-2*SM^2
  *S^2 )
 
 + LE(MUP)*LE(NUP)*TIPI2^2*TADPO
  * ( - 1/32*M^-4*SM^4*S^2 - 1/96*M^-2*SM^2*C^-2*S^2 + 41/48*M^-2*SM^2
  *S^2 )
 
 + D(MUP,NUP)*EP^-1*TIPI2^2*LE2*TADPO
  * ( - 3/32*M^-4*SM^4*S^2 - 1/32*M^-2*SM^2*C^-2*S^2 + 21/16*M^-2*SM^2
  *S^2 )
 
 + D(MUP,NUP)*TIPI2^2*LE2*TADPO
  * ( 1/16*M^-4*SM^4*S^2 + 1/48*M^-2*SM^2*C^-2*S^2 - 37/48*M^-2*SM^2
  *S^2 )
 
 + LG(M)*LE(MUP)*LE(NUP)*TIPI2^2*TADPO
  * ( 1/32*M^-4*SM^4*S^2 + 1/96*M^-2*SM^2*C^-2*S^2 - 17/24*M^-2*SM^2
  *S^2 )
 
 + LG(M)*D(MUP,NUP)*TIPI2^2*LE2*TADPO
  * ( - 3/64*M^-4*SM^4*S^2 - 1/64*M^-2*SM^2*C^-2*S^2 + 5/8*M^-2*SM^2
  *S^2 )
 
 + LG(M0)*LE(MUP)*LE(NUP)*TIPI2^2*TADPO
  * ( 1/96*M^-2*SM^2*C^-2*S^2 )
 
 + LG(M0)*D(MUP,NUP)*TIPI2^2*LE2*TADPO
  * ( - 1/64*M^-2*SM^2*C^-2*S^2 )
 
 + LG(SM)*LE(MUP)*LE(NUP)*TIPI2^2*TADPO
  * ( 1/32*M^-4*SM^4*S^2 - 3/4*M^-2*SM^2*S^2 )
 
 + LG(SM)*D(MUP,NUP)*TIPI2^2*LE2*TADPO
  * ( - 3/64*M^-4*SM^4*S^2 + 11/16*M^-2*SM^2*S^2 ) + 0.
 

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


C RO-parameter 11. Diagrams with tadpole insertions.

C DIAGRAMS WITH ONE 4-VERTEX WITH TADPOLE AND ONE 3-VERTEX.
C A-A WAVE-FUNCTION.
C REST REFERS TO THE RESULT OF THE PREVIOUS PROGRAM,
C SELF-ENERGY DIAGRAMS WITH TADPOLE INSERTION,
C AND THE D(MU,NU) PART OF THE A-A WAVE-FUNCTION CALCULATION.
C CDC CPU time 1 SEC.

> P ninput
> P output
 
XX = 
  + REST
 
 + EP^-1*TIPI2^2
  * ( 1/8*M^-2*SM^2*LE2*S^2 )
 
 + TIPI2^2
  * ( - 1/16*M^-2*SM^2*LE2*S^2 )
 
 + LG(M)*TIPI2^2
  * ( 1/16*M^-2*SM^2*LE2*S^2 )
 
 + LG(SM)*TIPI2^2
  * ( 1/16*M^-2*SM^2*LE2*S^2 ) + 0.
 
 
XX = 
 + EP^-1*TIPI2^2
  * ( 3/2*M^-2*SM^2*LE2*S^2 )
 
 + TIPI2^2
  * ( - M^-2*SM^2*LE2*S^2 )
 
 + LG(M)*TIPI2^2
  * ( 3/4*M^-2*SM^2*LE2*S^2 )
 
 + LG(SM)*TIPI2^2
  * ( 3/4*M^-2*SM^2*LE2*S^2 ) + 0.
 

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


C RO-parameter 12. Counter-term Lagrangian for the standard model.

C COUNTERLAGRANGIAN. TWO SCHOONSCHIP PROGRAMS, THE FIRST
C TO PRODUCE THE REGULAR ONE-LOOP COUNTERTERMS, THE SECOND
C TO PRODUCE THE QUADRATIC TERMS ARISING FROM THE ONE-LOOP
C COUNTERTERMS.
C CDC CPU time 10 SEC.

	Common DELL
	*fix

Begin. Time 1 sec.
> P brackets
	S X,M,SM,AL,BET,C,S,E=3
	S GG,AM,AN,AMN,AMM
	    ,F3,F3M,FP,FMP,FM,FMM
	    ,WMNP,WMMP,WMP,WNP
	    ,WMNM,WMMM,WMM,WNM
	    ,WMN0,WMM0,WM0,WN0,Z,ZM
	B GG,AM,AN,AMN,AMM
	    ,F3,F3M,FP,FMP,FM,FMM
	    ,WMNP,WMMP,WMP,WNP
	    ,WMNM,WMMM,WMM,WNM
	    ,WMN0,WMM0,WM0,WN0,Z,ZM
	Z DELL = (HAND + WMMP*WMMM - M*WMMP*FM - M*WMMM*FP
	         + M**2*FM*FP + 0.5*WMM0**2 - M/C*WMM0*F3
	         + 0.5*M**2/C**2*F3**2 + 0.5*AMM**2 )*X
	$$AAE=HAND + WMMP*WMMM - M*WMMP*FM - M*WMMM*FP
	         + M**2*FM*FP + 0.5*WMM0**2 - M/C*WMM0*F3
	         + 0.5*M**2/C**2*F3**2 + 0.5*AMM**2 
L 2	Id  HAND =
	      - WMNP*WMNM - M**2*WMP*WMM - 0.5*WMN0**2 - 0.5*M**2*C**-2
	      *WM0**2 - 0.5*AMN**2 - FMP*FMM - M**2*FP*FM - 0.5*F3M**2
	      - 0.5*M**2*C**-2*F3**2 - 0.5*ZM**2 - 0.5*SM**2*Z**2
	   + GG*(-I*C*(WMN0*(WNP*WMM-WNM*WMP) - WM0*(WNP*WMNM-WNM*WMNP)
	       + WN0*(WMP*WMNM-WMM*WMNP))
	       - I*S*(AMN*(WNP*WMM-WNM*WMP) - AM*(WNP*WMNM-WNM*WMNP)
	       + AN*(WMP*WMNM-WMM*WMNP))
	     + GG*{-0.5*WMP*WMM*WNP*WNM + 0.5*WMP**2*WNM**2
	       + C**2*WM0*(WMP*WN0*WNM-WM0*WNP*WNM)
	       + S**2*AM*WNM*(WMP*AN-AM*WNP)
	       + S*C*AM*(WN0*(WMP*WNM+WNP*WMM) - 2.*WM0*WNP*WNM)   } )
	   + GG*(-AL*M*Z*(Z**2+F3**2+2.*FP*FM)
	     + GG*{-0.125*AL*(Z**4+F3**4+4.*FP**2*FM**2+4.*F3**2*FP*FM
	         + 4.*Z**2*FP*FM + 2.*F3**2*Z**2)   }
	       - M*Z*WMP*WMM - 0.5*M*C**-2*Z*WM0**2
	       - 0.5*I*(WMP*(F3*FMM-FM*F3M) - WMM*(F3*FMP-FP*F3M))
	       + 0.5*(WMP*(Z*FMM-FM*ZM) + WMM*(Z*FMP-FP*ZM))
	       + 0.5*C**-1*(WM0*(Z*F3M-F3*ZM))
	       - I*S**2*C**-1*M*WM0*(WMP*FM-WMM*FP)
	       + I*S*M*AM*(WMP*FM-WMM*FP)
	       - I*(0.5*C**-1 - C)*WM0*(FP*FMM-FM*FMP)
	       + I*S*AM*(FP*FMM-FM*FMP)
	     + GG*{-0.25*WMP*WMM*(Z**2+F3**2+2.*FP*FM)
	      - 0.125*C**-2*WM0**2*(Z**2+F3**2 + 2.*(2.*S**2-1.)**2*FP*FM)
	      - S**2*AM**2*FP*FM
	       - 0.5*S**2*C**-1*WM0*F3*(WMP*FM+WMM*FP)
	       - 0.5*I*S**2/C*WM0*Z*(WMP*FM-WMM*FP)
	       + 0.5*S*AM*F3*(WMP*FM+WMM*FP)
	       + 0.5*I*S*AM*Z*(WMP*FM-WMM*FP)
	       - S/C*(2.*C**2-1)*WM0*AM*FP*FM     } )
	$$AAI=-I*C*(WMN0*(WNP*WMM-WNM*WMP) - WM0*(WNP*WMNM-WNM*WMNP)
	       + WN0*(WMP*WMNM-WMM*WMNP))
	       - I*S*(AMN*(WNP*WMM-WNM*WMP) - AM*(WNP*WMNM-WNM*WMNP)
	       + AN*(WMP*WMNM-WMM*WMNP))
	     + GG*{-0.5*WMP*WMM*WNP*WNM + 0.5*WMP**2*WNM**2
	       + C**2*WM0*(WMP*WN0*WNM-WM0*WNP*WNM)
	       + S**2*AM*WNM*(WMP*AN-AM*WNP)
	       + S*C*AM*(WN0*(WMP*WNM+WNP*WMM) - 2.*WM0*WNP*WNM)   } 
	$$AAM=-AL*M*Z*(Z**2+F3**2+2.*FP*FM)
	     + GG*{-0.125*AL*(Z**4+F3**4+4.*FP**2*FM**2+4.*F3**2*FP*FM
	         + 4.*Z**2*FP*FM + 2.*F3**2*Z**2)   }
	       - M*Z*WMP*WMM - 0.5*M*C**-2*Z*WM0**2
	       - 0.5*I*(WMP*(F3*FMM-FM*F3M) - WMM*(F3*FMP-FP*F3M))
	       + 0.5*(WMP*(Z*FMM-FM*ZM) + WMM*(Z*FMP-FP*ZM))
	       + 0.5*C**-1*(WM0*(Z*F3M-F3*ZM))
	       - I*S**2*C**-1*M*WM0*(WMP*FM-WMM*FP)
	       + I*S*M*AM*(WMP*FM-WMM*FP)
	       - I*(0.5*C**-1 - C)*WM0*(FP*FMM-FM*FMP)
	       + I*S*AM*(FP*FMM-FM*FMP)
	     + GG*{-0.25*WMP*WMM*(Z**2+F3**2+2.*FP*FM)
	      - 0.125*C**-2*WM0**2*(Z**2+F3**2 + 2.*(2.*S**2-1.)**2*FP*FM)
	      - S**2*AM**2*FP*FM
	       - 0.5*S**2*C**-1*WM0*F3*(WMP*FM+WMM*FP)
	       - 0.5*I*S**2/C*WM0*Z*(WMP*FM-WMM*FP)
	       + 0.5*S*AM*F3*(WMP*FM+WMM*FP)
	       + 0.5*I*S*AM*Z*(WMP*FM-WMM*FP)
	       - S/C*(2.*C**2-1)*WM0*AM*FP*FM     } 
	$$ABA=WMN0*(WNP*WMM-WNM*WMP) - WM0*(WNP*WMNM-WNM*WMNP)
	       + WN0*(WMP*WMNM-WMM*WMNP)
	$$ABE=AMN*(WNP*WMM-WNM*WMP) - AM*(WNP*WMNM-WNM*WMNP)
	       + AN*(WMP*WMNM-WMM*WMNP)
	$$ABI=-0.5*WMP*WMM*WNP*WNM + 0.5*WMP**2*WNM**2
	       + C**2*WM0*(WMP*WN0*WNM-WM0*WNP*WNM)
	       + S**2*AM*WNM*(WMP*AN-AM*WNP)
	       + S*C*AM*(WN0*(WMP*WNM+WNP*WMM) - 2.*WM0*WNP*WNM)   
	$$ABM=Z**2+F3**2+2.*FP*FM
	$$ACA=-0.125*AL*(Z**4+F3**4+4.*FP**2*FM**2+4.*F3**2*FP*FM
	         + 4.*Z**2*FP*FM + 2.*F3**2*Z**2)   
	$$ACE=WMP*(F3*FMM-FM*F3M) - WMM*(F3*FMP-FP*F3M)
	$$ACI=WMP*(Z*FMM-FM*ZM) + WMM*(Z*FMP-FP*ZM)
	$$ACM=WM0*(Z*F3M-F3*ZM)
	$$ADA=WMP*FM-WMM*FP
	$$ADE=WMP*FM-WMM*FP
	$$ADI=0.5*C**-1 - C
	$$ADM=FP*FMM-FM*FMP
	$$AEA=FP*FMM-FM*FMP
	$$AEE=-0.25*WMP*WMM*(Z**2+F3**2+2.*FP*FM)
	      - 0.125*C**-2*WM0**2*(Z**2+F3**2 + 2.*(2.*S**2-1.)**2*FP*FM)
	      - S**2*AM**2*FP*FM
	       - 0.5*S**2*C**-1*WM0*F3*(WMP*FM+WMM*FP)
	       - 0.5*I*S**2/C*WM0*Z*(WMP*FM-WMM*FP)
	       + 0.5*S*AM*F3*(WMP*FM+WMM*FP)
	       + 0.5*I*S*AM*Z*(WMP*FM-WMM*FP)
	       - S/C*(2.*C**2-1)*WM0*AM*FP*FM     
	$$AEI=WNP*WMM-WNM*WMP
	$$AEM=WNP*WMNM-WNM*WMNP
	$$AFA=WMP*WMNM-WMM*WMNP
	$$AFE=WNP*WMM-WNM*WMP
	$$AFI=WNP*WMNM-WNM*WMNP
	$$AFM=WMP*WMNM-WMM*WMNP
	$$AGA=WMP*WN0*WNM-WM0*WNP*WNM
	$$AGE=WMP*AN-AM*WNP
	$$AGI=WN0*(WMP*WNM+WNP*WMM) - 2.*WM0*WNP*WNM
	$$AGM=Z**4+F3**4+4.*FP**2*FM**2+4.*F3**2*FP*FM
	         + 4.*Z**2*FP*FM + 2.*F3**2*Z**2
	$$AHA=F3*FMM-FM*F3M
	$$AHE=F3*FMP-FP*F3M
	$$AHI=Z*FMM-FM*ZM
	$$AHM=Z*FMP-FP*ZM
	$$AIA=Z*F3M-F3*ZM
	$$AIE=Z**2+F3**2+2.*FP*FM
	$$AII=Z**2+F3**2 + 2.*(2.*S**2-1.)**2*FP*FM
	$$AIM=WMP*FM+WMM*FP
	$$AJA=WMP*FM-WMM*FP
	$$AJE=WMP*FM+WMM*FP
	$$AJI=WMP*FM-WMM*FP
	$$AJM=2.*C**2-1
	$$AKA=WMP*WNM+WNP*WMM
	$$AKE=2.*S**2-1.
L 7	Id,WMNP=WMNP*(1+E*EC)
	$$AKI=1+E*EC
L 7	Al,WMMP=WMMP*(1+E*EC)
	$$AKM=1+E*EC
L 7	Al,WMNM=WMNM*(1+E*EC)
	$$ALA=1+E*EC
L 7	Al,WMMM=WMMM*(1+E*EC)
	$$ALE=1+E*EC
L 7	Al,WMP=WMP*(1+E*EC)
	$$ALI=1+E*EC
L 7	Al,WNP=WNP*(1+E*EC)
	$$ALM=1+E*EC
L 7	Al,WMM=WMM*(1+E*EC)
	$$AMA=1+E*EC
L 7	Al,WNM=WNM*(1+E*EC)
	$$AME=1+E*EC
L 7	Al,WMN0=WMN0*(1+E*E0) + E*E0A*AMN
	$$AMI=1+E*E0
L 7	Al,WMM0=WMM0*(1+E*E0) + E*E0A*AMM
	$$AMM=1+E*E0
L 7	Al,WM0=WM0*(1+E*E0) + E*E0A*AM
	$$ANA=1+E*E0
L 7	Al,WN0=WN0*(1+E*E0) + E*E0A*AN
	$$ANE=1+E*E0
L 7	Al,AMN=AMN*(1+E*EA) + E*EA0*WMN0
	$$ANI=1+E*EA
L 7	Al,AMM=AMM*(1+E*EA) + E*EA0*WMM0
	$$ANM=1+E*EA
L 7	Al,AM=AM*(1+E*EA) + E*EA0*WM0
	$$AOA=1+E*EA
L 7	Al,AN=AN*(1+E*EA) + E*EA0*WN0
	$$AOE=1+E*EA
L 9	Id,FMP=FMP*(1+E*EFC)
	$$AOI=1+E*EFC
L 9	Al,FP=FP*(1+E*EFC)
	$$AOM=1+E*EFC
L 9	Al,FMM=FMM*(1+E*EFC)
	$$APA=1+E*EFC
L 9	Al,FM=FM*(1+E*EFC)
	$$APE=1+E*EFC
L 9	Al,F3M=F3M*(1+E*EF3)
	$$API=1+E*EF3
L 9	Al,F3=F3*(1+E*EF3)
	$$APM=1+E*EF3
L 9	Al,ZM=ZM*(1+E*EZ)
	$$BAA=1+E*EZ
L 9	Al,Z=Z*(1+E*EZ)+E*ETP
	$$BAE=1+E*EZ
L11	Id,EFC=EZ
L11	Al,EF3=EZ
	*yep
L 1	Id,GG=GG*(1+E*EG)
L 1	Al,AL=AL*(1+E*EAL)
L 1	Al,C=C*(1+E*ECO)
L 1	Al,Multi,C**-1=C**-1*(1-E*ECO)
L 1	Al,S=S*(1-E*ECO*C**2/S**2)
L 1	Al,Multi,S**-1=S**-1*(1+E*ECO*C**2/S**2)
L 1	Al,M=M*(1+E*EM)
L 1	Al,SM=SM*(1+E*ESM)
	Nprint DELL
	*next
	B GG,AM,AN,AMN,AMM
	    ,F3,F3M,FP,FMP,FM,FMM
	    ,WMNP,WMMP,WMP,WNP
	    ,WMNM,WMMM,WMM,WNM
	    ,WMN0,WMM0,WM0,WN0,Z,ZM
	Z DELP=DELL
L 2	Id,Multi,E**2=0
L 3	Id,X*E=1
L 4	Id,EAL=2*ESM-2*EM
L 4	Al,ETP=M*ET*GG**-1
L 4	Al,AL=0.25*SM**2/M**2
C E1=EM+0.5*ET, E2=EM-ESM
L 5	Id,EM=E1-0.5*ET
L 5	Al,ESM=E1-E2-0.5*ET
	*yep
C PRINT OUTPUT
L 1	Id,Multi,S**2=1-C**2
L 2	Id  WMP**2*WNM**2=WNP**2*WMM**2
L 3	Id  WM0*WN0*WMM*WNP=WM0*WN0*WNM*WMP
L 3	Al  WM0*AN*WMM*WNP=WN0*AM*WNM*WMP
L 3	Al  WM0*AN*WMP*WNM=WN0*AM*WNP*WMM
L 3	Al  AM*AN*WMM*WNP=AM*AN*WNM*WMP
L 3	Al  WN0*AN*WMP*WMM=WM0*AM*WNP*WNM
L 3	Al  WN0**2*WMP*WMM=WM0**2*WNP*WNM
L 3	Al  AN**2*WMP*WMM=AM**2*WNP*WNM
	Oldnew,G=GAM,WNM=VN,WMM=VM,WMMM=VMM,WMNM=VMN
	Oldnew,WNP=UN,WMP=UM,WMMP=UMM,WMNP=UMN
	Oldnew,FMM=HM,FM=H,FMP=GM,FP=G,F3=F,F3M=FM
	B GG,AM,AN,AMN,AMM,F,FM,G,GM,H,HM,UMN,UMM
	 ,UM,UN,VMN,VMM,VM,VN,WMN0,WMM0,WM0,WN0,Z,ZM
	*yep
L 1	Id,EC=19/12
L 1	Al,E0=1/6+1.5*C**2-1/12/C**2
L 1	Al,E0A=-2*C*S
L 1	Al,EA=1.5*S**2
L 1	Al,EA0=5*S*C+S/C/6
L 1	Al,EZ=0.5+0.25/C**2+EZF
L 1	Al,EG=-43/12
L 1	Al,ECO=-S**2*(43-42*S**2)/12/C**2

C AL,E1=0.5/C**2-31/12+E1F
C AL,E2=-25/12+0.75/C**2-1.5*M**2/SM**2
C       -0.75*M**2/C**4/SM**2-0.75*SM**2/M**2
C       +E2F
C AL,ET=1.5*M**2/C**4/SM**2+0.25/C**2+0.5+3*M**2/SM**2
C     +0.75*SM**2/M**2
C     +ETF
C AL,EM=3/C**2/8-17/6-1.5*M**2/SM**2-0.75*M**2/C**4/SM**2
C     -3*SM**2/M**2/8
C AL,ESM=-0.75-3/C**2/8+3*SM**2/M**2/8

L 1	Al,AL=0.25*SM**2/M**2
L 3	Id,Multi,S**2=1-C**2
	*begin
 
DELP = 
 + GG*AM*F*ZM
  * ( S )
 
 + GG*AM*FM*Z
  * ( - S )
 
 + GG*AM*G*HM
  * ( X*S*I + 1/2*C^-2*S*I + 2*S*EZF*I )
 
 + GG*AM*G*VM
  * ( - X*M*S*I - 1/4*M*C^-2*S*I - 25/12*M*S*I - M*S*E1*I
  - M*S*EZF*I )
 
 + GG*AM*GM*H
  * ( - X*S*I - 1/2*C^-2*S*I - 2*S*EZF*I )
 
 + GG*AM*H*UM
  * ( X*M*S*I + 1/4*M*C^-2*S*I + 25/12*M*S*I + M*S*E1*I + M*S*EZF*I )
 
 + GG*AM*UMN*VN
  * ( - X*S*I - 7/6*S*I )
 
 + GG*AM*UN*VMN
  * ( X*S*I + 7/6*S*I )
 
 + GG*AM*WM0*Z
  * ( 2*M*C^-1*S )
 
 + GG*AN*UMN*VM
  * ( X*S*I + 7/6*S*I )
 
 + GG*AN*UM*VMN
  * ( - X*S*I - 7/6*S*I )
 
 + GG*AMN*UM*VN
  * ( X*S*I + 7/6*S*I )
 
 + GG*AMN*UN*VM
  * ( - X*S*I - 7/6*S*I )
 
 + GG*F*GM*VM
  * ( - 1/2*I + 1/2*X*I + 1/4*C^-2*I + EZF*I )
 
 + GG*F*HM*UM
  * ( 1/2*I - 1/2*X*I - 1/4*C^-2*I - EZF*I )
 
 + GG*F*WM0*ZM
  * ( - 1/2*X*C^-1 + C - 1/4*C^-3 - 1/2*C^-1 - C^-1*EZF )
 
 + GG*F^2*Z
  * ( - 1/4*X*M^-1*SM^2 + 25/48*M^-1*SM^2 - 3/16*M^-1*SM^2*C^-2
  - 1/4*M^-1*SM^2*E1 + 1/2*M^-1*SM^2*E2 - 3/4*M^-1*SM^2*EZF )
 
 + GG*FM*G*VM
  * ( 1/2*I - 1/2*X*I - 1/4*C^-2*I - EZF*I )
 
 + GG*FM*H*UM
  * ( - 1/2*I + 1/2*X*I + 1/4*C^-2*I + EZF*I )
 
 + GG*FM*WM0*Z
  * ( 1/2*X*C^-1 - C + 1/4*C^-3 + 1/2*C^-1 + C^-1*EZF )
 
 + GG*G*H*Z
  * ( - 1/2*X*M^-1*SM^2 + 25/24*M^-1*SM^2 - 3/8*M^-1*SM^2*C^-2
  - 1/2*M^-1*SM^2*E1 + M^-1*SM^2*E2 - 3/2*M^-1*SM^2*EZF )
 
 + GG*G*HM*WM0
  * ( X*C*I - 1/2*X*C^-1*I + 2*C*EZF*I - 1/4*C^-3*I - C^-1*EZF*I )
 
 + GG*G*VM*WM0
  * ( - X*M*C*I + X*M*C^-1*I - 25/12*M*C*I - M*C*E1*I - M*C*EZF*I
  + 1/4*M*C^-3*I + 11/6*M*C^-1*I + M*C^-1*E1*I + M*C^-1*EZF*I )
 
 + GG*G*VM*ZM
  * ( 1/2 - 1/2*X - 1/4*C^-2 - EZF )
 
 + GG*GM*H*WM0
  * ( - X*C*I + 1/2*X*C^-1*I - 2*C*EZF*I + 1/4*C^-3*I + C^-1*EZF*I )
 
 + GG*GM*VM*Z
  * ( - 1/2 + 1/2*X + 1/4*C^-2 + EZF )
 
 + GG*H*UM*WM0
  * ( X*M*C*I - X*M*C^-1*I + 25/12*M*C*I + M*C*E1*I + M*C*EZF*I
  - 1/4*M*C^-3*I - 11/6*M*C^-1*I - M*C^-1*E1*I - M*C^-1*EZF*I )
 
 + GG*H*UM*ZM
  * ( 1/2 - 1/2*X - 1/4*C^-2 - EZF )
 
 + GG*HM*UM*Z
  * ( - 1/2 + 1/2*X + 1/4*C^-2 + EZF )
 
 + GG*UMN*VM*WN0
  * ( X*C*I + 7/6*C*I )
 
 + GG*UMN*VN*WM0
  * ( - X*C*I - 7/6*C*I )
 
 + GG*UM*VMN*WN0
  * ( - X*C*I - 7/6*C*I )
 
 + GG*UM*VM*Z
  * ( - X*M - 1/12*M - 1/4*M*C^-2 - M*E1 - M*EZF )
 
 + GG*UM*VN*WMN0
  * ( X*C*I + 7/6*C*I )
 
 + GG*UN*VMN*WM0
  * ( X*C*I + 7/6*C*I )
 
 + GG*UN*VM*WMN0
  * ( - X*C*I - 7/6*C*I )
 
 + GG*WM0^2*Z
  * ( - 1/2*X*M*C^-2 + 2*M - 1/8*M*C^-4 - 49/24*M*C^-2 - 1/2*M*C^-2
  *E1 - 1/2*M*C^-2*EZF )
 
 + GG*Z^3
  * ( - 1/4*X*M^-1*SM^2 + 25/48*M^-1*SM^2 - 3/16*M^-1*SM^2*C^-2
  - 1/4*M^-1*SM^2*E1 + 1/2*M^-1*SM^2*E2 - 3/4*M^-1*SM^2*EZF )
 
 + GG^2*AM*AN*UM*VN
  * ( - 5/6 + X - X*C^2 + 5/6*C^2 )
 
 + GG^2*AM*F*G*VM
  * ( 1/2*X*S + 1/4*C^-2*S - 1/2*S + S*EZF )
 
 + GG^2*AM*F*H*UM
  * ( 1/2*X*S + 1/4*C^-2*S - 1/2*S + S*EZF )
 
 + GG^2*AM*F^2*WM0
  * ( 1/2*C^-1*S )
 
 + GG^2*AM*G*H*WM0
  * ( - 2*X*C*S + X*C^-1*S + 2*C*S - 4*C*S*EZF + 1/2*C^-3*S
  - C^-1*S + 2*C^-1*S*EZF )
 
 + GG^2*AM*G*VM*Z
  * ( - 1/2*X*S*I - 1/4*C^-2*S*I + 1/2*S*I - S*EZF*I )
 
 + GG^2*AM*H*UM*Z
  * ( 1/2*X*S*I + 1/4*C^-2*S*I - 1/2*S*I + S*EZF*I )
 
 + GG^2*AM*UM*VN*WN0
  * ( X*C*S - 5/6*C*S )
 
 + GG^2*AM*UN*VM*WN0
  * ( X*C*S - 5/6*C*S )
 
 + GG^2*AM*UN*VN*WM0
  * ( - 2*X*C*S + 5/3*C*S )
 
 + GG^2*AM*WM0*Z^2
  * ( 1/2*C^-1*S )
 
 + GG^2*AM^2*G*H
  * ( 3/2 - X + X*C^2 - C^2 + 2*C^2*EZF - 1/2*C^-2 - 2*EZF )
 
 + GG^2*AM^2*UN*VN
  * ( 5/6 - X + X*C^2 - 5/6*C^2 )
 
 + GG^2*F*G*VM*WM0
  * ( 1/2*X*C - 1/2*X*C^-1 - 1/2*C + C*EZF - 1/4*C^-3 + 3/4*C^-1
  - C^-1*EZF )
 
 + GG^2*F*H*UM*WM0
  * ( 1/2*X*C - 1/2*X*C^-1 - 1/2*C + C*EZF - 1/4*C^-3 + 3/4*C^-1
  - C^-1*EZF )
 
 + GG^2*F^2*G*H
  * ( - 1/8*X*M^-2*SM^2 + 31/48*M^-2*SM^2 - 1/8*M^-2*SM^2*C^-2
  + 1/4*M^-2*SM^2*E2 - 1/2*M^-2*SM^2*EZF )
 
 + GG^2*F^2*UM*VM
  * ( 3/4 - 1/4*X - 1/8*C^-2 - 1/2*EZF )
 
 + GG^2*F^2*WM0^2
  * ( 1/2 - 1/8*X*C^-2 - 1/16*C^-4 - 1/8*C^-2 - 1/4*C^-2*EZF )
 
 + GG^2*F^2*Z^2
  * ( - 1/16*X*M^-2*SM^2 + 31/96*M^-2*SM^2 - 1/16*M^-2*SM^2*C^-2
  + 1/8*M^-2*SM^2*E2 - 1/4*M^-2*SM^2*EZF )
 
 + GG^2*F^4
  * ( - 1/32*X*M^-2*SM^2 + 31/192*M^-2*SM^2 - 1/32*M^-2*SM^2*C^-2
  + 1/16*M^-2*SM^2*E2 - 1/8*M^-2*SM^2*EZF )
 
 + GG^2*G*H*UM*VM
  * ( 3/2 - 1/2*X - 1/4*C^-2 - EZF )
 
 + GG^2*G*H*WM0^2
  * ( - 1/2 + X - X*C^2 - 1/4*X*C^-2 + C^2 - 2*C^2*EZF - 1/8*C^-4
  + 1/4*C^-2 - 1/2*C^-2*EZF + 2*EZF )
 
 + GG^2*G*H*Z^2
  * ( - 1/8*X*M^-2*SM^2 + 31/48*M^-2*SM^2 - 1/8*M^-2*SM^2*C^-2
  + 1/4*M^-2*SM^2*E2 - 1/2*M^-2*SM^2*EZF )
 
 + GG^2*G*VM*WM0*Z
  * ( - 1/2*X*C*I + 1/2*X*C^-1*I + 1/2*C*I - C*EZF*I + 1/4*C^-3*I
  - 3/4*C^-1*I + C^-1*EZF*I )
 
 + GG^2*G^2*H^2
  * ( - 1/8*X*M^-2*SM^2 + 31/48*M^-2*SM^2 - 1/8*M^-2*SM^2*C^-2
  + 1/4*M^-2*SM^2*E2 - 1/2*M^-2*SM^2*EZF )
 
 + GG^2*H*UM*WM0*Z
  * ( 1/2*X*C*I - 1/2*X*C^-1*I - 1/2*C*I + C*EZF*I - 1/4*C^-3*I
  + 3/4*C^-1*I - C^-1*EZF*I )
 
 + GG^2*UM*UN*VM*VN
  * ( 5/12 - 1/2*X )
 
 + GG^2*UM*VM*Z^2
  * ( 3/4 - 1/4*X - 1/8*C^-2 - 1/2*EZF )
 
 + GG^2*UM*VN*WM0*WN0
  * ( X*C^2 - 5/6*C^2 )
 
 + GG^2*UN*VN*WM0^2
  * ( - X*C^2 + 5/6*C^2 )
 
 + GG^2*UN^2*VM^2
  * ( - 5/12 + 1/2*X )
 
 + GG^2*WM0^2*Z^2
  * ( 1/2 - 1/8*X*C^-2 - 1/16*C^-4 - 1/8*C^-2 - 1/4*C^-2*EZF )
 
 + GG^2*Z^4
  * ( - 1/32*X*M^-2*SM^2 + 31/192*M^-2*SM^2 - 1/32*M^-2*SM^2*C^-2
  + 1/16*M^-2*SM^2*E2 - 1/8*M^-2*SM^2*EZF )
 
 + GG^-1*Z
  * ( - M*SM^2*ET )
 
 + AM*WM0
  * ( 2*M^2*C^-1*S )
 
 + AMN*WMN0
  * ( - 3*C*S - 1/6*C^-1*S )
 
 + AMN^2
  * ( - 3/2 - 1/2*X + 3/2*C^2 )
 
 + AMM*F
  * ( 2*M*S )
 
 + AMM*WMM0
  * ( 3*C*S + 1/6*C^-1*S )
 
 + AMM^2
  * ( 3/2 + 1/2*X - 3/2*C^2 )
 
 + F*WMM0
  * ( - X*M*C^-1 + 2*M*C - 1/4*M*C^-3 - 49/12*M*C^-1 + 1/2*M*C^-1*ET
   - M*C^-1*E1 - M*C^-1*EZF )
 
 + F^2
  * ( - 1/4*SM^2*ET )
 
 + FM*WM0
  * ( 1/2*M*C^-1*ET )
 
 + FM^2
  * ( - 1/2 - 1/2*X - 1/4*C^-2 - EZF )
 
 + G*H
  * ( - 1/2*SM^2*ET )
 
 + G*VMM
  * ( - X*M - 25/12*M - 1/4*M*C^-2 + 1/2*M*ET - M*E1 - M*EZF )
 
 + GM*HM
  * ( - 1 - X - 1/2*C^-2 - 2*EZF )
 
 + GM*VM
  * ( 1/2*M*ET )
 
 + H*UMM
  * ( - X*M - 25/12*M - 1/4*M*C^-2 + 1/2*M*ET - M*E1 - M*EZF )
 
 + HM*UM
  * ( 1/2*M*ET )
 
 + UMN*VMN
  * ( - 19/6 - X )
 
 + UMM*VMM
  * ( 19/6 + X )
 
 + UM*VM
  * ( - X*M^2 - 19/6*M^2 - 2*M^2*E1 )
 
 + WMN0^2
  * ( - 1/6 - 1/2*X - 3/2*C^2 + 1/12*C^-2 )
 
 + WMM0^2
  * ( 1/6 + 1/2*X + 3/2*C^2 - 1/12*C^-2 )
 
 + WM0^2
  * ( - 1/2*X*M^2*C^-2 + 2*M^2 - 43/12*M^2*C^-2 - M^2*C^-2*E1 )
 
 + Z^2
  * ( - 1/2*X*SM^2 - 1/2*SM^2 - 1/4*SM^2*C^-2 - 1/4*SM^2*ET
  - SM^2*E1 + SM^2*E2 - SM^2*EZF )
 
 + ZM^2
  * ( - 1/2 - 1/2*X - 1/4*C^-2 - EZF ) + 0.
 

Begin. Time 18 sec.
C COUNTER LAGRANGIAN, QUADRATIC TERMS.
	Oldnew,GAM=G
	Names DELL
	S X,M,SM,AL,BET,C,S,E=3
	S GG,AM,AN,AMN,AMM
	    ,F3,F3M,FP,FMP,FM,FMM
	    ,WMNP,WMMP,WMP,WNP
	    ,WMNM,WMMM,WMM,WNM
	    ,WMN0,WMM0,WM0,WN0,Z,ZM
	B GG,AM,AN,AMN,AMM
	    ,F3,F3M,FP,FMP,FM,FMM
	    ,WMNP,WMMP,WMP,WNP
	    ,WMNM,WMMM,WMM,WNM
	    ,WMN0,WMM0,WM0,WN0,Z,ZM
	Z DEPP=DELL
L 2	Id,X*E**2=1
L 2	Al,E**1=0
L 3	Id,EAL=2*ESM-2*EM
L 3	Al,ETP=M*ET*GG**-1
L 3	Al,AL=0.25*SM**2/M**2
C E1=EM+0.5*ET, E2=EM-ESM
L 4	Id,EM=E1-0.5*ET
L 4	Al,ESM=E1-E2-0.5*ET
	*yep
C PRINT OUTPUT
L 1	Id,Multi,S**2=1-C**2
L 2	Id  WMP**2*WNM**2=WNP**2*WMM**2
L 3	Id  WM0*WN0*WMM*WNP=WM0*WN0*WNM*WMP
L 3	Al  WM0*AN*WMM*WNP=WN0*AM*WNM*WMP
L 3	Al  WM0*AN*WMP*WNM=WN0*AM*WNP*WMM
L 3	Al  AM*AN*WMM*WNP=AM*AN*WNM*WMP
L 3	Al  WN0*AN*WMP*WMM=WM0*AM*WNP*WNM
L 3	Al  WN0**2*WMP*WMM=WM0**2*WNP*WNM
L 3	Al  AN**2*WMP*WMM=AM**2*WNP*WNM
	Oldnew,G=GAM,WNM=VN,WMM=VM,WMMM=VMM,WMNM=VMN
	Oldnew,WNP=UN,WMP=UM,WMMP=UMM,WMNP=UMN
	Oldnew,FMM=HM,FM=H,FMP=GM,FP=G,F3=F,F3M=FM
	B GG,AM,AN,AMN,AMM,F,FM,G,GM,H,HM,UMN,UMM
	 ,UM,UN,VMN,VMM,VM,VN,WMN0,WMM0,WM0,WN0,Z,ZM
L 4	Id,F=0
L 4	Al,FM=0
L 4	Al,Z=0
L 4	Al,ZM=0
L 4	Al,G=0
L 4	Al,GM=0
L 4	Al,H=0
L 4	Al,HM=0
L 4	Al,GG=0
L 4	Al,Multi,GG**-1=0
	*yep
L 1	Id,EC=19/12
L 1	Al,E0=1/6+1.5*C**2-1/12/C**2
L 1	Al,E0A=-2*C*S
L 1	Al,EA=1.5*S**2
L 1	Al,EA0=5*S*C+S/C/6
L 1	Al,EZ=0.5+0.25/C**2+EZF
L 1	Al,EG=-43/12
L 1	Al,ECO=-S**2*(43-42*S**2)/12/C**2
L 1	Al,E1=0.5/C**2-31/12+E1F
L 1	Al,E2=-25/12+0.75/C**2-1.5*M**2/SM**2
	      -0.75*M**2/C**4/SM**2-0.75*SM**2/M**2
	      +E2F
C AL,ET=1.5*M**2/C**4/SM**2+0.25/C**2+0.5+3*M**2/SM**2
C     +0.75*SM**2/M**2
C     +ETF
C AL,EM=3/C**2/8-17/6-1.5*M**2/SM**2-0.75*M**2/C**4/SM**2
C     -3*SM**2/M**2/8
C AL,ESM=-0.75-3/C**2/8+3*SM**2/M**2/8
L 1	Al,AL=0.25*SM**2/M**2
C ID,COUNT,1,SM,1,E1F,2,E2F,2,EZF,2,ET,2,X,2
L 3	Id,Multi,S**2=1-C**2
	*end
 
DEPP = 
 + AM*WM0
  * ( - 11*M^2*C*S + 13/6*M^2*C^-3*S + 11/3*M^2*C^-1*S + 4*M^2*C^-1
  *S*E1F )
 
 + AM^2
  * ( - 2*M^2 + 2*M^2*C^2 )
 
 + AMN*WMN0
  * ( - 83/12*C*S + 21/2*C^3*S - 5/12*C^-1*S )
 
 + AMN^2
  * ( - 9/8 - 1/2*X + 1/4*C^2 + 7/8*C^4 )
 
 + AMM*WMM0
  * ( 83/12*C*S - 21/2*C^3*S + 5/12*C^-1*S )
 
 + AMM^2
  * ( 9/8 + 1/2*X - 1/4*C^2 - 7/8*C^4 )
 
 + UMN*VMN
  * ( - 361/144 - X )
 
 + UMM*VMM
  * ( 361/144 + X )
 
 + UM*VM
  * ( - X*M^2 + 517/72*M^2 - 1/4*M^2*C^-4 - 7/12*M^2*C^-2
  - M^2*C^-2*E1F + 43/12*M^2*ET - 7/6*M^2*E1F - M^2*E1F^2 )
 
 + WMN0^2
  * ( - 17/24 - 1/2*X - 143/12*C^2 + 91/8*C^4 - 1/288*C^-4 )
 
 + WMM0^2
  * ( 17/24 + 1/2*X + 143/12*C^2 - 91/8*C^4 + 1/288*C^-4 )
 
 + WM0^2
  * ( - 1/2*X*M^2*C^-2 - 185/24*M^2 + 13/4*M^2*C^2 - 17/144*M^2*C^-6
   - 97/48*M^2*C^-4 - 1/2*M^2*C^-4*E1F + 469/48*M^2*C^-2 + 43/24*M^2
  *C^-2*ET - 55/12*M^2*C^-2*E1F - 1/2*M^2*C^-2*E1F^2 + 4*M^2*E1F ) + 0.
 

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


C RO-parameter 13. Counter terms for the Ghost Lagrangian, standard model.

C GHOST COUNTER-LAGRANGIAN.
C LAGRANGIAN WITH COUNTERTERMS GENERATED BY RENORMALIZED GAUGE
C TRANSFORMATIONS.
C INSTRUCTIONS FOR DIAGONILIZATION ARE GIVEN NEAR THE *END CARD.
C FERMIONS DO NOT CONTRIBUTE TO GHOST INFINITIES.
C A SECOND PROGRAM INDICATES AND CHECKS THE IDENTITIES
C RESULTING FROM THIS REQUIREMENT.

	S XX,M,MP,LP,LPP,LNPP,LNP,LM,LMP,LNMP,LNM,L0,L0P,LN0P,LN0
	  ,LA,LAP,LNA,LNAP
	S  E=2
	Oldnew,G=GAM,DF=DFREZ
	B GG,AN,F,G,H,O,ON,P,PN,Q,QN,R,RN,SN,T,TN,UN,VN,WN
	  ,X,XN,Y,YN,Z
	Z GHOST=XX*( XN*DUN + M*X*DG
	          +ON*DVN+M*O*DH
	          +QN*DWN+M*Q*DF/C
	          +SN*DAN)
L 2	Id,DUN=(1-E*EC)*(I*BP*LPP*(CP*WNP+SP*ANP)
	        -I*BP*(CP*L0P+SP*LAP)*UNP-LNPP)
L 2	Al,DVN=(1-E*EC)*(-I*BP*LMP*(CP*WNP+SP*ANP)
	        +I*BP*(CP*L0P+SP*LAP)*VNP-LNMP)
L 2	Al,DWN=(1-E*E0)*(-I*BP*CP*LPP*VNP
	                 +I*BP*CP*LMP*UNP-LN0P)
	        - E*E0A*(-I*GG*S*LP*VN+I*GG*S*LM*UN-LNA)
L 2	Al,DAN=(1-E*EA)*(-I*BP*SP*LPP*VNP
	                 +I*BP*SP*LMP*UNP-LNAP)
	        - E*EA0*(-I*GG*C*LP*VN+I*GG*C*LM*UN-LN0)
L 2	Al,DG=(1-E*EZ)*(0.5*I*BP*LPP*FP
	                -0.5*I*BP*((2*CP**2-1)*L0P/CP+2*SP*LAP)*GP
	                -0.5*BP*ZP*LPP-MP*LPP)
L 2	Al,DH=(1-E*EZ)*(-0.5*I*BP*LMP*FP
	                +0.5*BP*I*((2*CP**2-1)*L0P/CP+2*SP*LAP)*HP
	                -0.5*BP*ZP*LMP-MP*LMP)
L 2	Al,DF=(1-E*EZ)*(-0.5*I*BP*(LPP*HP-LMP*GP)
	                -0.5*BP*L0P*ZP/CP-MP*L0P/CP)
L 2	Al,DZ=(1-E*EZ)*(0.5*BP*(LPP*HP*LMP*GP)+0.5*BP*FP*L0P/CP)
L 6	Id,BP=GG*(1+E*EG)
L 6	Al,MP=M*(1+E*EM)
L 6	Al,LPP=LP*(1+E*ELC)
L 6	Al,LMP=LM*(1+E*ELC)
L 6	Al,CP=C*(1+E*ECO)
L 6	Al,Multi,CP**-1=(1-E*ECO)/C
L 6	Al,SP=S*(1-E*ECO*C**2/S**2)
L 6	Al,WNP=(1+E*E0)*WN+E*E0A*AN
L 6	Al,ANP=(1+E*EA)*AN+E*EA0*WN
L 6	Al,L0P=(1+E*EL0)*L0+E*EL0A*LA
L 6	Al,LAP=(1+E*ELA)*LA+E*ELA0*L0
L 6	Al,LN0P=(1+E*EL0)*LN0+E*EL0A*LNA
L 6	Al,LNAP=(1+E*ELA)*LNA+E*ELA0*LN0
L 6	Al,LNPP=(1+E*ELC)*LNP
L 6	Al,LNMP=(1+E*ELC)*LNM
L 8	Id,ZP=(1+E*EZ)*Z+E*M*ET/GG
L 8	Al,GP=(1+E*EZ)*G
L 8	Al,HP=(1+E*EZ)*H
L 8	Al,FP=(1+E*EZ)*F
L 8	Al,UNP=(1+E*EC)*UN
L 8	Al,VNP=(1+E*EC)*VN
L10	Id,XX*E=1
L11	Id,L0=R
L11	Al,LN0=RN
L11	Al,LA=T
L11	Al,LNA=TN
L11	Al,LP=Y
L11	Al,LNP=YN
L11	Al,LM=P
L11	Al,LNM=PN
L12	Id,EM=E1-0.5*ET
L12	Al,ESM=E1-E2-0.5*ET
L13	Id,Multi,S**2=1-C**2
	Keep GHOST
	*next
 
GHOST = 
 + GG*AN*ON*P
  * ( - XX*S*I - C*E0A*I + C^2*S^-1*ECO*I + EC*S*I - S*EA*I
  - S*EG*I - S*ELC*I )
 
 + GG*AN*XN*Y
  * ( XX*S*I + C*E0A*I - C^2*S^-1*ECO*I - EC*S*I + S*EA*I
  + S*EG*I + S*ELC*I )
 
 + GG*F*O*P
  * ( - 1/2*XX*M*I - 1/2*M*EG*I - 1/2*M*ELC*I )
 
 + GG*F*X*Y
  * ( 1/2*XX*M*I + 1/2*M*EG*I + 1/2*M*ELC*I )
 
 + GG*G*P*Q
  * ( 1/2*XX*M*C^-1*I + 1/2*M*C^-1*EG*I + 1/2*M*C^-1*ELC*I )
 
 + GG*G*R*X
  * ( - XX*M*C*I + 1/2*XX*M*C^-1*I - M*C*EG*I - M*C*ECO*I
  - M*C*EL0*I + 1/2*M*C^-1*EG*I - 1/2*M*C^-1*ECO*I + 1/2*M*C^-1*EL0
  *I - M*S*ELA0*I )
 
 + GG*G*T*X
  * ( - XX*M*S*I - M*C*EL0A*I + M*C^2*S^-1*ECO*I + 1/2*M*C^-1*EL0A
  *I - M*S*EG*I - M*S*ELA*I )
 
 + GG*H*O*R
  * ( XX*M*C*I - 1/2*XX*M*C^-1*I + M*C*EG*I + M*C*ECO*I + M*C*EL0*I
   - 1/2*M*C^-1*EG*I + 1/2*M*C^-1*ECO*I - 1/2*M*C^-1*EL0*I
  + M*S*ELA0*I )
 
 + GG*H*O*T
  * ( XX*M*S*I + M*C*EL0A*I - M*C^2*S^-1*ECO*I - 1/2*M*C^-1*EL0A*I
   + M*S*EG*I + M*S*ELA*I )
 
 + GG*H*Q*Y
  * ( - 1/2*XX*M*C^-1*I - 1/2*M*C^-1*EG*I - 1/2*M*C^-1*ELC*I )
 
 + GG*O*P*Z
  * ( - 1/2*XX*M - 1/2*M*EG - 1/2*M*ELC )
 
 + GG*ON*P*WN
  * ( - XX*C*I + C*EC*I - C*E0*I - C*EG*I - C*ELC*I - C*ECO*I
  - S*EA0*I )
 
 + GG*ON*R*VN
  * ( XX*C*I + C*EG*I + C*ECO*I + C*EL0*I + S*ELA0*I )
 
 + GG*ON*T*VN
  * ( XX*S*I + C*EL0A*I - C^2*S^-1*ECO*I + S*EG*I + S*ELA*I )
 
 + GG*P*QN*UN
  * ( XX*C*I + C*EC*I - C*E0*I + C*EG*I + C*ELC*I + C*ECO*I
  - E0A*S*I )
 
 + GG*P*SN*UN
  * ( XX*S*I - C*EA0*I - C^2*S^-1*ECO*I + EC*S*I - S*EA*I
  + S*EG*I + S*ELC*I )
 
 + GG*Q*R*Z
  * ( - 1/2*XX*M*C^-2 - 1/2*M*C^-2*EG + 1/2*M*C^-2*ECO - 1/2*M*C^-2
  *EL0 )
 
 + GG*Q*T*Z
  * ( - 1/2*M*C^-2*EL0A )
 
 + GG*QN*VN*Y
  * ( - XX*C*I - C*EC*I + C*E0*I - C*EG*I - C*ELC*I - C*ECO*I
  + E0A*S*I )
 
 + GG*R*UN*XN
  * ( - XX*C*I - C*EG*I - C*ECO*I - C*EL0*I - S*ELA0*I )
 
 + GG*SN*VN*Y
  * ( - XX*S*I + C*EA0*I + C^2*S^-1*ECO*I - EC*S*I + S*EA*I
  - S*EG*I - S*ELC*I )
 
 + GG*T*UN*XN
  * ( - XX*S*I - C*EL0A*I + C^2*S^-1*ECO*I - S*EG*I - S*ELA*I )
 
 + GG*WN*XN*Y
  * ( XX*C*I - C*EC*I + C*E0*I + C*EG*I + C*ELC*I + C*ECO*I
  + S*EA0*I )
 
 + GG*X*Y*Z
  * ( - 1/2*XX*M - 1/2*M*EG - 1/2*M*ELC )
 
 + O*P
  * ( - XX*M^2 + M^2*EZ - M^2*ELC - M^2*E1 )
 
 + ON*PN
  * ( - XX + EC - ELC )
 
 + Q*R
  * ( - XX*M^2*C^-2 + M^2*C^-2*EZ + M^2*C^-2*ECO - M^2*C^-2*EL0
  - M^2*C^-2*E1 )
 
 + Q*T
  * ( - M^2*C^-2*EL0A )
 
 + QN*RN
  * ( - XX + E0 - EL0 )
 
 + QN*TN
  * ( E0A - EL0A )
 
 + RN*SN
  * ( EA0 - ELA0 )
 
 + SN*TN
  * ( - XX + EA - ELA )
 
 + X*Y
  * ( - XX*M^2 + M^2*EZ - M^2*ELC - M^2*E1 )
 
 + XN*YN
  * ( - XX + EC - ELC ) + 0.
 
	B GG,AN,F,G,H,O,ON,P,PN,Q,QN,R,RN,SN,T,TN,UN,VN,WN
	  ,X,XN,Y,YN,Z
	Z GHO=GHOST
L 2	Id,EC=19/12
L 2	Al,E0=1/6+1.5*C**2-1/12/C**2
L 2	Al,E0A=-2*C*S
L 2	Al,EA=1.5*S**2
L 2	Al,EA0=5*S*C+S/C/6
L 2	Al,EZ=0.5+0.25/C**2+EZF
L 2	Al,ELC=31/12
L 2	Al,EL0=1/6+5*C**2/2-1/12/C**2
L 2	Al,ELA=2.5*S**2
L 2	Al,EL0A=-C*S
L 2	Al,ELA0=6*S*C+S/C/6
L 2	Al,EG=-43/12
L 2	Al,ECO=-S**2*(43-42*S**2)/12/C**2
C AL,ET=1.5*M**2/C**4/SM**2+0.25/C**2+0.5+3*M**2/SM**2
C     +0.75*SM**2/M**2
C AL,EM=3/C**2/8-17/6-1.5*M**2/SM**2-0.75*M**2/C**4/SM**2
C     -3*SM**2/M**2/8
C AL,ESM=-0.75-3/C**2/8+3*SM**2/M**2/8
L 4	Id,Multi,S**2=1-C**2
C PRINT OUTPUT
C *YEP
C PRINT INPUT
C C THE FOLLOWING DIAGOLINIZES THE QUADRATIC PART.
C ID,R=(1-S**2*EP)*R+C*S*T*EP
C AL,RN=(1-S**2*EP)*RN+C*S*TN*EP
C AL,T=-C*S*R*EP+(1-S**2*EP)*T
C AL,TN=-C*S*EP*RN+(1-S**2*EP)*TN
C AL,SN=SN+EP*SN-2*C*S*EP*QN
C AL,Q=Q+2*S**2*EP*Q
C AL,QN=QN+2*S**2*EP*QN
C ID,XX*EP=1
C ID,EP=0
C ID,MULTI,S**2=1-C**2
C PRINT OUTPUT
C *YEP
C C THE FOLLOWING REMOVES THE DIVERGENCIES OF THE QUADRATIC PART
C C BUT NOT OF THE MASS TERMS.
C ID,Q=Q*(1-EP)
C AL,QN=QN*(1-EP)
C AL,O=O*(1-EP)
C AL,ON=ON*(1-EP)
C AL,SN=SN*(1-EP)
C AL,X=X*(1-EP)
C AL,XN=XN*(1-EP)
C ID,XX*EP=1
C ID,EP=0
C ID,MULTI,S**2=1-C**2
	Keep GHOST
	*next
 
GHO = 
 + GG*AN*ON*P
  * ( - XX*S*I + S*I )
 
 + GG*AN*XN*Y
  * ( XX*S*I - S*I )
 
 + GG*F*O*P
  * ( - 1/2*XX*M*I + 1/2*M*I )
 
 + GG*F*X*Y
  * ( 1/2*XX*M*I - 1/2*M*I )
 
 + GG*G*P*Q
  * ( 1/2*XX*M*C^-1*I - 1/2*M*C^-1*I )
 
 + GG*G*R*X
  * ( - XX*M*C*I + 1/2*XX*M*C^-1*I + 1/2*M*C*I )
 
 + GG*G*T*X
  * ( - XX*M*S*I + 1/2*M*S*I )
 
 + GG*H*O*R
  * ( XX*M*C*I - 1/2*XX*M*C^-1*I - 1/2*M*C*I )
 
 + GG*H*O*T
  * ( XX*M*S*I - 1/2*M*S*I )
 
 + GG*H*Q*Y
  * ( - 1/2*XX*M*C^-1*I + 1/2*M*C^-1*I )
 
 + GG*O*P*Z
  * ( - 1/2*XX*M + 1/2*M )
 
 + GG*ON*P*WN
  * ( - XX*C*I + C*I )
 
 + GG*ON*R*VN
  * ( XX*C*I - C*I )
 
 + GG*ON*T*VN
  * ( XX*S*I - S*I )
 
 + GG*P*QN*UN
  * ( XX*C*I - C*I )
 
 + GG*P*SN*UN
  * ( XX*S*I - S*I )
 
 + GG*Q*R*Z
  * ( - 1/2*XX*M*C^-2 + 1/2*M )
 
 + GG*Q*T*Z
  * ( 1/2*M*C^-1*S )
 
 + GG*QN*VN*Y
  * ( - XX*C*I + C*I )
 
 + GG*R*UN*XN
  * ( - XX*C*I + C*I )
 
 + GG*SN*VN*Y
  * ( - XX*S*I + S*I )
 
 + GG*T*UN*XN
  * ( - XX*S*I + S*I )
 
 + GG*WN*XN*Y
  * ( XX*C*I - C*I )
 
 + GG*X*Y*Z
  * ( - 1/2*XX*M + 1/2*M )
 
 + O*P
  * ( - XX*M^2 - 25/12*M^2 + 1/4*M^2*C^-2 - M^2*E1 + M^2*EZF )
 
 + ON*PN
  * ( - 1 - XX )
 
 + Q*R
  * ( - XX*M^2*C^-2 + M^2 + 1/4*M^2*C^-4 - 37/12*M^2*C^-2
  - M^2*C^-2*E1 + M^2*C^-2*EZF )
 
 + Q*T
  * ( M^2*C^-1*S )
 
 + QN*RN
  * ( - XX - C^2 )
 
 + QN*TN
  * ( - C*S )
 
 + RN*SN
  * ( - C*S )
 
 + SN*TN
  * ( - 1 - XX + C^2 )
 
 + X*Y
  * ( - XX*M^2 - 25/12*M^2 + 1/4*M^2*C^-2 - M^2*E1 + M^2*EZF )
 
 + XN*YN
  * ( - 1 - XX ) + 0.
 
	B GG,AN,F,G,H,O,ON,P,PN,Q,QN,R,RN,SN,T,TN,UN,VN,WN
	  ,X,XN,Y,YN,Z
	Z GHO=GHOST
L 2	Id,XX=0
	*yep
C REQUIRING NO INFINITIES IN QUADRATIC PART.
L 1	Id,ELC=EC
L 1	Al,ELA=EA
L 1	Al,ELA0=EA0
L 1	Al,EL0A=E0A
L 1	Al,EL0=E0
> P output
	*yep
 
GHO = 
 + GG*AN*ON*P
  * ( - C*E0A*I + C^2*S^-1*ECO*I - S*EA*I - S*EG*I )
 
 + GG*AN*XN*Y
  * ( C*E0A*I - C^2*S^-1*ECO*I + S*EA*I + S*EG*I )
 
 + GG*F*O*P
  * ( - 1/2*M*EC*I - 1/2*M*EG*I )
 
 + GG*F*X*Y
  * ( 1/2*M*EC*I + 1/2*M*EG*I )
 
 + GG*G*P*Q
  * ( 1/2*M*C^-1*EC*I + 1/2*M*C^-1*EG*I )
 
 + GG*G*R*X
  * ( - M*C*E0*I - M*C*EG*I - M*C*ECO*I + 1/2*M*C^-1*E0*I
  + 1/2*M*C^-1*EG*I - 1/2*M*C^-1*ECO*I - M*S*EA0*I )
 
 + GG*G*T*X
  * ( - M*C*E0A*I + M*C^2*S^-1*ECO*I + 1/2*M*C^-1*E0A*I - M*S*EA*I
   - M*S*EG*I )
 
 + GG*H*O*R
  * ( M*C*E0*I + M*C*EG*I + M*C*ECO*I - 1/2*M*C^-1*E0*I - 1/2*M*C^-1
  *EG*I + 1/2*M*C^-1*ECO*I + M*S*EA0*I )
 
 + GG*H*O*T
  * ( M*C*E0A*I - M*C^2*S^-1*ECO*I - 1/2*M*C^-1*E0A*I + M*S*EA*I
  + M*S*EG*I )
 
 + GG*H*Q*Y
  * ( - 1/2*M*C^-1*EC*I - 1/2*M*C^-1*EG*I )
 
 + GG*O*P*Z
  * ( - 1/2*M*EC - 1/2*M*EG )
 
 + GG*ON*P*WN
  * ( - C*E0*I - C*EG*I - C*ECO*I - S*EA0*I )
 
 + GG*ON*R*VN
  * ( C*E0*I + C*EG*I + C*ECO*I + S*EA0*I )
 
 + GG*ON*T*VN
  * ( C*E0A*I - C^2*S^-1*ECO*I + S*EA*I + S*EG*I )
 
 + GG*P*QN*UN
  * ( 2*C*EC*I - C*E0*I + C*EG*I + C*ECO*I - E0A*S*I )
 
 + GG*P*SN*UN
  * ( - C*EA0*I - C^2*S^-1*ECO*I + 2*EC*S*I - S*EA*I + S*EG*I )
 
 + GG*Q*R*Z
  * ( - 1/2*M*C^-2*E0 - 1/2*M*C^-2*EG + 1/2*M*C^-2*ECO )
 
 + GG*Q*T*Z
  * ( - 1/2*M*C^-2*E0A )
 
 + GG*QN*VN*Y
  * ( - 2*C*EC*I + C*E0*I - C*EG*I - C*ECO*I + E0A*S*I )
 
 + GG*R*UN*XN
  * ( - C*E0*I - C*EG*I - C*ECO*I - S*EA0*I )
 
 + GG*SN*VN*Y
  * ( C*EA0*I + C^2*S^-1*ECO*I - 2*EC*S*I + S*EA*I - S*EG*I )
 
 + GG*T*UN*XN
  * ( - C*E0A*I + C^2*S^-1*ECO*I - S*EA*I - S*EG*I )
 
 + GG*WN*XN*Y
  * ( C*E0*I + C*EG*I + C*ECO*I + S*EA0*I )
 
 + GG*X*Y*Z
  * ( - 1/2*M*EC - 1/2*M*EG )
 
 + O*P
  * ( - M^2*EC + M^2*EZ - M^2*E1 )
 
 + Q*R
  * ( - M^2*C^-2*E0 + M^2*C^-2*EZ + M^2*C^-2*ECO - M^2*C^-2*E1 )
 
 + Q*T
  * ( - M^2*C^-2*E0A )
 
 + X*Y
  * ( - M^2*EC + M^2*EZ - M^2*E1 ) + 0.
 
C REQUIRING NO INFINITIES IN VERTICES.
L 1	Id,EG=-EC
L 1	Al,E0A=0
L 1	Al,ECO=E0-EC
L 1	Al,E1=-EC+EZ
L 1	Al,EA0=2*C*EC/S-2*C*E0/S
L 1	Al,EA=-C**2*EC/S**2+C**2*E0/S**2+EC
	*end
 
GHO = 0. + 0.
 

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


C RO-parameter 14. Rationalization.

C RATIONALIZATION.
> P ninput
> P output
 
XX = 
 + A1*B1
  * ( EI + EI*T - M^2*T*AFP - M^2*AFP )
 
 + A1*B2
  * ( - M^2*T*AFP^2 - M^2*AFP^2 + T*AFP + AFP )
 
 + A1*B3
  * ( - M^2*T*AFP^3 - M^2*AFP^3 + T*AFP^2 + AFP^2 )
 
 + A1*B4
  * ( - M^2*T*AFP^4 - M^2*AFP^4 + T*AFP^3 + AFP^3 )
 
 + A2*B1
  * ( - EI*M^2 - EI*M^2*T + EI*T*QDQ + EI*T*KDK + EI*QDQ + EI*KDK
  + M^4*T*AFP + M^4*AFP )
 
 + A2*B2
  * ( EI + EI*T - 2*M^2*T*AFP - 2*M^2*AFP + M^4*T*AFP^2 + M^4*AFP^2 )
 
 + A2*B3
  * ( - 2*M^2*T*AFP^2 - 2*M^2*AFP^2 + M^4*T*AFP^3 + M^4*AFP^3
  + T*AFP + AFP )
 
 + A2*B4
  * ( - 2*M^2*T*AFP^3 - 2*M^2*AFP^3 + M^4*T*AFP^4 + M^4*AFP^4
  + T*AFP^2 + AFP^2 )
 
 + A3*B1
  * ( 4*EI*N^-1*T*QDQ*KDK + 4*EI*N^-1*QDQ*KDK - EI*M^2*T*QDQ
  - EI*M^2*T*KDK - EI*M^2*QDQ - EI*M^2*KDK + EI*M^4 + EI*M^4*T
  + 2*EI*T*QDQ*KDK + EI*T*QDQ^2 + EI*T*KDK^2 + 2*EI*QDQ*KDK
  + EI*QDQ^2 + EI*KDK^2 - M^6*T*AFP - M^6*AFP )
 
 + A3*B2
  * ( - 2*EI*M^2 - 2*EI*M^2*T + EI*T*QDQ + EI*T*KDK + EI*QDQ
  + EI*KDK + 3*M^4*T*AFP + 3*M^4*AFP - M^6*T*AFP^2 - M^6*AFP^2 )
 
 + A3*B3
  * ( EI + EI*T - 3*M^2*T*AFP - 3*M^2*AFP + 3*M^4*T*AFP^2
  + 3*M^4*AFP^2 - M^6*T*AFP^3 - M^6*AFP^3 )
 
 + A3*B4
  * ( - 3*M^2*T*AFP^2 - 3*M^2*AFP^2 + 3*M^4*T*AFP^3 + 3*M^4*AFP^3
  - M^6*T*AFP^4 - M^6*AFP^4 + T*AFP + AFP ) + 0.
 
 
XX = 0. + 0.
 

Begin. Time 2 sec.
> P output
 
XX = 
 + A1
  * ( XA^-5*BA^3 + 3*XA^-4*BA^2 + 3*XA^-3*BA + XA^-2 - XAP^-5*BAP^3
   - 3*XAP^-4*BAP^2 - 3*XAP^-3*BAP - XAP^-2 )
 
 + A2
  * ( XA^-4*BA^3 + 3*XA^-3*BA^2 + 3*XA^-2*BA + XA^-1 - XAP^-4*BAP^3
   - 3*XAP^-3*BAP^2 - 3*XAP^-2*BAP - XAP^-1 )
 
 + A3
  * ( XB*BA*EI + XB^2*EI + XA^-1*BA^3 - XBP*BAP - XBP^2 - XAP^-1*BAP^3
   + BA^2*EI - BAP^2 )
 
 + A4
  * ( 2*XB*BA*EI + XB^2*EI + XA^-2*BA^4 + 4*XA^-1*BA^3 - 2*XBP*BAP
   - XBP^2 - XAP^-2*BAP^4 - 4*XAP^-1*BAP^3 + 3*BA^2*EI - 3*BAP^2 )
 
 + A5
  * ( XA^-10*BA^7 + 7*XA^-9*BA^6 + 21*XA^-8*BA^5 + 35*XA^-7*BA^4
  + 35*XA^-6*BA^3 + 21*XA^-5*BA^2 + 7*XA^-4*BA + XA^-3 - XAP^-10*BAP^7
   - 7*XAP^-9*BAP^6 - 21*XAP^-8*BAP^5 - 35*XAP^-7*BAP^4 - 35*XAP^-6
  *BAP^3 - 21*XAP^-5*BAP^2 - 7*XAP^-4*BAP - XAP^-3 )
 
 + A6
  * ( 70*XB*BA^4*EI + 35*XB^2*BA^3*EI + 15*XB^3*BA^2*EI + 5*XB^4*BA
  *EI + XB^5*EI + XA^-5*BA^10 + 10*XA^-4*BA^9 + 45*XA^-3*BA^8
  + 120*XA^-2*BA^7 + 210*XA^-1*BA^6 - 70*XBP*BAP^4 - 35*XBP^2*BAP^3
   - 15*XBP^3*BAP^2 - 5*XBP^4*BAP - XBP^5 - XAP^-5*BAP^10
  - 10*XAP^-4*BAP^9 - 45*XAP^-3*BAP^8 - 120*XAP^-2*BAP^7 - 210*XAP^-1
  *BAP^6 + 126*BA^5*EI - 126*BAP^5 ) + 0.
 
 
XX = 0. + 0.
 

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


C RO-parameter 15. Epsilon expansion and projection operators.

	S N,TRN,NP1,EP=3
	Z TR1M1=2*N-N**2-N**3
	Z X1=N**2*(N+1)*TRN
	Z X2=N*(N+1)*TRN
	Z X3=(N+1)*TRN
	Z X4=N**3*TRN
	Z X5=N**2*TRN
	Z X6=N*TRN
	Z X7=TRN
	Z X8=1/N
	Z X9=1/N**2
	Z X0=N/OMN
L 2	Id,TRN=-1/72*(1.-R+R**2)
L 4	Id,N=4+EP
L 4	Al,R=54/72*EP+13/72*EP**2
L 4	Al,Multi,N**-1=(1-EP/4+EP**2/16)/4
L 4	Al,OMN**-1=-1/3*(1-EP/3+EP**2/9)
	*next
 
TR1M1 =  - 72 - 54*EP - 13*EP^2
 
X1 =  - 10/9 + 1/18*EP - 7/324*EP^2
 
X2 =  - 5/18 + 1/12*EP - 17/648*EP^2
 
X3 =  - 5/72 + 11/288*EP - 167/10368*EP^2
 
X4 =  - 8/9 - 1/162*EP^2
 
X5 =  - 2/9 + 1/18*EP - 5/324*EP^2
 
X6 =  - 1/18 + 1/36*EP - 7/648*EP^2
 
X7 =  - 1/72 + 1/96*EP - 55/10368*EP^2
 
X8 =  + 1/4 - 1/16*EP + 1/64*EP^2
 
X9 =  + 1/16 - 1/32*EP + 3/256*EP^2
 
X0 =  - 4/3 + 1/9*EP - 1/27*EP^2 + 0.
 
C PROJECTION OPERATORS AND EP-EXPANSION.
	S N,TRN,NP1,EP=3
	I MU=N,NU=N,AL=N,BE=N,MUP=N,NUP=N
	Z XX=(EE*D(MU,NU)*D(AL,BE)+FF*D(MU,AL)*D(NU,BE)
	        +GG*D(MU,BE)*D(NU,AL) ) *FACT
	Z YY=A1*AN/N + A2*AN**2/N**2 +A3*AOMN*N/OMN
C PROJECTION OPERATOR FOR EE AND FF+GG PARTS.
L 2	Id,FACT=TRN*(2*D(MU,NU)*D(AL,BE)-N*D(MU,AL)*D(NU,BE)
	             -N*D(MU,BE)*D(NU,AL))*FGPRT
	       +TRN*(-NP1*D(MU,NU)*D(AL,BE)+D(MU,AL)*D(NU,BE)
	             +D(MU,BE)*D(NU,AL) )*EPART
L 4	Id,N**2*NP1*TRN =  - 10./9. + 1./18.*EP - 7./324.*EP**2
L 4	Al,N*NP1*TRN =  - 5./18. + 1./12.*EP - 17./648.*EP**2
L 4	Al,NP1*TRN =  - 5./72. + 11./288.*EP - 167./10368.*EP**2
L 4	Al,N**3*TRN =  - 8./9. - 1./162.*EP**2
L 4	Al,N**2*TRN =  - 2./9. + 1./18.*EP - 5./324.*EP**2
L 4	Al,N*TRN =  - 1./18. + 1./36.*EP - 7./648.*EP**2
L 4	Al,TRN =  - 1./72. + 1./96.*EP - 55./10368.*EP**2
L 4	Al,N*OMN** - 1 =  - 4/3 + EP/9 - EP**2/27
L 4	Al,N = 4 + EP
L 4	Al,N**-2 = 1/16 - EP/32 + 3*EP**2/256
L 4	Al,N**-1 = 1/4 - EP/16 + EP**2/64
L 5	Id,AN=4+EP
L 5	Al,AOMN=(-3-EP)*(1/4-EP/16+EP**2/64)
	*end
 
XX =  + EE*EPART + FF*FGPRT + GG*FGPRT
 
YY =  + A1 + A2 + A3 + 0.
 

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


C RO-parameter 16. Differentiating F111.

> P stat
	F LG
	S SM,M,M0
	X F1(M)=2*I*PI**2*M**2*(1/EP-0.5+0.5*LG(M)
	   +EP*(1/4-LG(M)/4+LG(M)*LG(M)/8+PI**2/48))
	X F2(M)=2*I*PI**2*(-1/EP-0.5*LG(M)
	    -EP*(PI**2/48+LG(M)*LG(M)/8))
	X F3(M)=I*PI**2/2/M**2+I*EP*PI**2/2/M**2/2*LG(M)
	X F4(M)=I*PI**2/6/M**4
	   -1/12*I*EP*PI**2/M**4*(1-LG(M))
	X F5(M)=I*PI**2/M**6*(1/12-EP/16+EP*LG(M)/24)
	X FX211(M,M0,SM)=
	   +PI**4*(-1./2.-3.*SM**(-4)*M**2*M0**2-1./4.*SM**(-4)*M**4-9./4.*
	   SM**(-4)*M0**4-SM**(-2)*M**2-SM**(-2)*M0**2-2.*EP**(-2)+EP**(-1)
	   )
	   +PI**6*(1./12.+2./3.*SM**(-4)*M**2*M0**2+1./3.*SM**(-4)*M0**4+1.
	   /3.*SM**(-2)*M0**2)
	   +LG(SM)*PI**4*(-4.*SM**(-4)*M**2*M0**2-1./2.*SM**(-4)*M**4-5./2.
	   *SM**(-4)*M0**4-SM**(-2)*M**2-SM**(-2)*M0**2)
	   +LG(SM)*LG(SM)*PI**4*(1./2.+2.*SM**(-4)*M**2*M0**2+SM**(-4)*M0**
	   4+SM**(-2)*M0**2)
	   -1./2.*LG(SM)*LG(M)*PI**4
	   +LG(SM)*LG(M0)*PI**4*(-2.*SM**(-4)*M**2*M0**2-SM**(-4)*M0**4-SM*
	   *(-2)*M0**2)
	   +LG(M)*PI**4*(1.+3.*SM**(-4)*M**2*M0**2+1./2.*SM**(-4)*M**4+SM**
	   (-2)*M**2-2.*EP**(-1))
	   +LG(M)*LG(SM)*PI**4*(-1./2.-2.*SM**(-4)*M**2*M0**2-SM**(-4)*M0**
	   4-SM**(-2)*M0**2)
	   -1./2.*LG(M)*LG(M)*PI**4
	   +LG(M)*LG(M0)*PI**4*(2.*SM**(-4)*M**2*M0**2+SM**(-4)*M0**4+SM**(
	   -2)*M0**2)
	   +LG(M0)*PI**4*(SM**(-4)*M**2*M0**2+5./2.*SM**(-4)*M0**4+SM**(-2)
	   *M0**2)
	X FX112(M,M0,SM)=
	   +PI**4*(-1./2.+3.*SM**(-6)*M**2*M0**4+3.*SM**(-6)*M**4*M0**2+1./
	   9.*SM**(-6)*M**6+1./9.*SM**(-6)*M0**6+SM**(-4)*M**2*M0**2+1./4.*
	   SM**(-4)*M**4+1./4.*SM**(-4)*M0**4+SM**(-2)*M**2+SM**(-2)*M0**2-
	   2.*EP**(-2)+EP**(-1))
	   +PI**6*(-1./4.-2./3.*SM**(-6)*M**2*M0**4-2./3.*SM**(-6)*M**4*M0*
	   *2-1./3.*SM**(-4)*M**2*M0**2)
	   +LG(SM)*PI**4*(1.+5.*SM**(-6)*M**2*M0**4+5.*SM**(-6)*M**4*M0**2+
	   1./3.*SM**(-6)*M**6+1./3.*SM**(-6)*M0**6+2.*SM**(-4)*M**2*M0**2+
	   1./2.*SM**(-4)*M**4+1./2.*SM**(-4)*M0**4+SM**(-2)*M**2+SM**(-2)*
	   M0**2-2.*EP**(-1))
	   +LG(SM)*LG(SM)*PI**4*(-1.-2.*SM**(-6)*M**2*M0**4-2.*SM**(-6)*M**
	   4*M0**2-SM**(-4)*M**2*M0**2)
	   +LG(SM)*LG(M0)*PI**4*(2.*SM**(-6)*M**2*M0**4+2.*SM**(-6)*M**4*M0
	   **2+SM**(-4)*M**2*M0**2)
	   +LG(M)*PI**4*(-SM**(-6)*M**2*M0**4-4.*SM**(-6)*M**4*M0**2-1./3.*
	   SM**(-6)*M**6-SM**(-4)*M**2*M0**2-1./2.*SM**(-4)*M**4-SM**(-2)*M
	   **2)
	   +LG(M)*LG(SM)*PI**4*(2.*SM**(-6)*M**2*M0**4+2.*SM**(-6)*M**4*M0*
	   *2+SM**(-4)*M**2*M0**2)
	   +LG(M)*LG(M0)*PI**4*(-2.*SM**(-6)*M**2*M0**4-2.*SM**(-6)*M**4*M0
	   **2-SM**(-4)*M**2*M0**2)
	   +LG(M0)*PI**4*(-4.*SM**(-6)*M**2*M0**4-SM**(-6)*M**4*M0**2-1./3.
	   *SM**(-6)*M0**6-SM**(-4)*M**2*M0**2-1./2.*SM**(-4)*M0**4-SM**(-2
	   )*M0**2)
	X FX111(M,M0,SM)=
	   +PI**4*(7./2.*SM**2+2.*SM**2*EP**(-2)-3.*SM**2*EP**(-1)+9./4.*SM
	   **(-4)*M**2*M0**4+9./4.*SM**(-4)*M**4*M0**2+5./36.*SM**(-4)*M**6
	   +5./36.*SM**(-4)*M0**6+SM**(-2)*M**2*M0**2+3./4.*SM**(-2)*M**4+3
	   ./4.*SM**(-2)*M0**4+5./2.*M**2+2.*M**2*EP**(-2)-3.*M**2*EP**(-1)
	   +5./2.*M0**2+2.*M0**2*EP**(-2)-3.*M0**2*EP**(-1))
	   +PI**6*(1./4.*SM**2-1./3.*SM**(-4)*M**2*M0**4-1./3.*SM**(-4)*M**
	   4*M0**2-1./3.*SM**(-2)*M**2*M0**2-1./12.*M**2-1./12.*M0**2)
	   +LG(SM)*PI**4*(-3.*SM**2+2.*SM**2*EP**(-1)+3./2.*SM**(-4)*M**2*M
	   0**4+3./2.*SM**(-4)*M**4*M0**2+1./6.*SM**(-4)*M**6+1./6.*SM**(-4
	   )*M0**6+1./2.*SM**(-2)*M**4+1./2.*SM**(-2)*M0**4-M**2-M0**2)
	   +LG(SM)*LG(SM)*PI**4*(SM**2-SM**(-4)*M**2*M0**4-SM**(-4)*M**4*M0
	   **2-SM**(-2)*M**2*M0**2-1./2.*M**2-1./2.*M0**2)
	   +LG(SM)*LG(M)*PI**4*(2.*SM**(-4)*M**2*M0**4+SM**(-4)*M**4*M0**2+
	   SM**(-2)*M**2*M0**2+1./2.*M**2)
	   +LG(SM)*LG(M0)*PI**4*(-SM**(-4)*M**2*M0**4+1./2.*M0**2)
	   +LG(M)*PI**4*(-3./2.*SM**(-4)*M**4*M0**2-1./6.*SM**(-4)*M**6-1./
	   2.*SM**(-2)*M**4-2.*M**2+2.*M**2*EP**(-1))
	   +LG(M)*LG(SM)*PI**4*(-SM**(-4)*M**2*M0**4+1./2.*M**2)
	   +LG(M)*LG(M)*PI**4*(1./2.*M**2)
	   +LG(M)*LG(M0)*PI**4*(SM**(-4)*M**2*M0**4)
	   +LG(M0)*PI**4*(-3./2.*SM**(-4)*M**2*M0**4-1./6.*SM**(-4)*M0**6-1
	   ./2.*SM**(-2)*M0**4-2.*M0**2+2.*M0**2*EP**(-1))
	   +LG(M0)*LG(SM)*PI**4*(2.*SM**(-4)*M**2*M0**4+SM**(-4)*M**4*M0**2
	   +SM**(-2)*M**2*M0**2+1./2.*M0**2)
	   +LG(M0)*LG(M)*PI**4*(-2.*SM**(-4)*M**2*M0**4-SM**(-4)*M**4*M0**2
	   -SM**(-2)*M**2*M0**2)
	   +LG(M0)*LG(M0)*PI**4*(1./2.*M0**2)
	*fix

Begin. Time 2 sec.
> BLOCK DIFF{}
> B PI
> Id,I=i
> Id,DM*M**N~=N*M**N/M**2/2+M**N*DM
> Al,DM0*M0**N~=N*M0**N/M0**2/2+M0**N*DM0
> Al,DSM*SM**N~=N*SM**N/SM**2/2+SM**N*DSM
> Id,Adiso,DM*LG(M)*LG(M)=2*LG(M)/M**2+LG(M)*LG(M)*DM
> Al,Adiso,DM0*LG(M0)*LG(M0)=2*LG(M0)/M0**2+LG(M0)*LG(M0)*DM0
> Al,Adiso,DSM*LG(SM)*LG(SM)=2*LG(SM)/SM**2+LG(SM)*LG(SM)*DSM
> Al,DM*LG(M)=1/M**2+LG(M)*DM
> Al,DM0*LG(M0)=1/M0**2+LG(M0)*DM0
> Al,DSM*LG(SM)=1/SM**2+LG(SM)*DSM
> Id,DM*XX=0
> Al,DM0*XX=0
> Al,DSM*XX=0
> Al,XX=1
> Id,Commu,LG
> Id,EP=0
> ENDBLOCK
	Z CH1=FX211(M,M0,SM)+DM*FX111(M,M0,SM)*XX
	Z CH2=FX112(M,M0,SM)+DSM*FX111(M,M0,SM)*XX
	Z CH3=FX211(M0,M,SM)+DM0*FX111(M,M0,SM)*XX
	Z CH4=-(1+EP)*FX211(M,M0,SM)+2*M02*DM0*FX211(M,M0,SM)*XX
	  -FX112(M,M0,SM)+F2(M)*F2(SM)-MM0SM*DSM*FX211(M,M0,SM)*XX
> DIFF{}
	B PI
L 5	Id,I=i
L 6	Id,DM*M**N~=N*M**N/M**2/2+M**N*DM
L 6	Al,DM0*M0**N~=N*M0**N/M0**2/2+M0**N*DM0
L 6	Al,DSM*SM**N~=N*SM**N/SM**2/2+SM**N*DSM
L 7	Id,Adiso,DM*LG(M)*LG(M)=2*LG(M)/M**2+LG(M)*LG(M)*DM
L 7	Al,Adiso,DM0*LG(M0)*LG(M0)=2*LG(M0)/M0**2+LG(M0)*LG(M0)*DM0
L 7	Al,Adiso,DSM*LG(SM)*LG(SM)=2*LG(SM)/SM**2+LG(SM)*LG(SM)*DSM
L 7	Al,DM*LG(M)=1/M**2+LG(M)*DM
L 7	Al,DM0*LG(M0)=1/M0**2+LG(M0)*DM0
L 7	Al,DSM*LG(SM)=1/SM**2+LG(SM)*DSM
L 8	Id,DM*XX=0
L 8	Al,DM0*XX=0
L 8	Al,DSM*XX=0
L 8	Al,XX=1
L 9	Id,Commu,LG
L10	Id,EP=0
L11	Id,M02=M0**2
L11	Al,MM0SM=M**2-M0**2-SM**2
	*end

Terms in output 24
Running time 4 sec			Used	Maximum
Generated terms 604 	Input space 	11026 	100000
Equal terms 387     	Output space 	810 	250000
Cancellations 193   	Nr of expr.  	31 	255
Multiplications 4169	String space 	0 	4096
Records written 0 	Merging		0 	0

 
CH1 = 0.
 
CH2 = 0.
 
CH3 = 0.
 
CH4 = 
 + PI^4
  * ( - 3*SM^-6*M^2*M0^4 - 5*SM^-6*M^4*M0^2 - 1/9*SM^-6*M^6
  + 17/9*SM^-6*M0^6 )
 
 + PI^6
  * ( 2*SM^-6*M^4*M0^2 - 2/3*SM^-6*M0^6 )
 
 + LG(SM)*PI^4
  * ( - 16*SM^-6*M^4*M0^2 - 4/3*SM^-6*M^6 + 20/3*SM^-6*M0^6 )
 
 + LG(SM)*LG(SM)*PI^4
  * ( 6*SM^-6*M^4*M0^2 - 2*SM^-6*M0^6 )
 
 + LG(SM)*LG(M)*PI^4
  * ( - 6*SM^-6*M^4*M0^2 + 2*SM^-6*M0^6 )
 
 + LG(SM)*LG(M0)*PI^4
  * ( - 6*SM^-6*M^4*M0^2 + 2*SM^-6*M0^6 )
 
 + LG(M)*PI^4
  * ( - 6*SM^-6*M^2*M0^4 + 11*SM^-6*M^4*M0^2 + 4/3*SM^-6*M^6
  - SM^-6*M0^6 )
 
 + LG(M)*LG(M0)*PI^4
  * ( 6*SM^-6*M^4*M0^2 - 2*SM^-6*M0^6 )
 
 + LG(M0)*PI^4
  * ( 6*SM^-6*M^2*M0^4 + 5*SM^-6*M^4*M0^2 - 17/3*SM^-6*M0^6 ) + 0.
 

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


C RO-parameter 17. Differentiating F211.

> P stats
	F LG
	S M,M0,SM
	*fix

Begin. Time 1 sec.

	B PI
	Z F311(M,M0,SM)=-1/2*DM*FX211(M,M,M0,SM)*XX
	Z F221(M,M0,SM)=-DM0*FX211(M,M,M0,SM)*XX
	Z F211(M,M0,SM)=FX211(M,M,M0,SM)
L 1	Id,FX211(M~,M~,M0~,SM)=PI**4*(-2/EP**2+(1-2*LG(M))/EP
	  -0.5+PI**2/12+LG(M)-LG(M)*LG(M)+0.5*LG(SM,M)*LG(SM,M)
	  +(M0**2*SM**2+2*M**2*M0**2+M0**4)/SM**4*LG(SM,M)*LG(SM,M)
	  -(M0**2*SM**2+2*M**2*M0**2+M0**4)/SM**4*LG(SM,M)*LG(M0,M)
	  -(M**2*SM**2+M0**2*SM**2+4*M**2*M0**2+5/2*M0**4+0.5*M**4)
	  /SM**4*LG(SM,M) + (M0**2*SM**2+M**2*M0**2+5/2*M0**4)/SM**4
	  *LG(M0,M) - (M**2+M0**2)/SM**2
	  - (1/4*M**4+3*M**2*M0**2+9/4*M0**4)/SM**4
	  +PI**2/3*(M0**2*SM**2+2*M**2*M0**2+M0**4)/SM**4  )
L 4	Id,LG(SM~,M)=LG(SM)-LG(M)
L 5	Id,DM*M**N~=N*M**N/M**2/2+M**N*DM
L 5	Al,DM0*M0**N~=N*M0**N/M0**2/2+M0**N*DM0
L 6	Id,Adiso,DM*LG(M)*LG(M)=2*LG(M)/M**2+LG(M)*LG(M)*DM
L 6	Al,Adiso,DM0*LG(M0)*LG(M0)=2*LG(M0)/M0**2+LG(M0)*LG(M0)*DM0
L 6	Al,DM*LG(M)=1/M**2+LG(M)*DM
L 6	Al,DM0*LG(M0)=1/M0**2+LG(M0)*DM0
L 7	Id,DM*XX=0
L 7	Al,DM0*XX=0
L 7	Al,XX=1
L 8	Id,Commu,LG
	Keep F311,F221,F211
	Punch F311,F221,F211
	*next

Terms in output 86
Running time 2 sec			Used	Maximum
Generated terms 162 	Input space 	2480 	100000
Equal terms 58     	Output space 	2692 	250000
Cancellations 18   	Nr of expr.  	24 	255
Multiplications 1579	String space 	0 	4096
Records written 0 	Merging		0 	0

 
F311(M,M0,SM) = 
 + PI**4
  * ( - 1/2*M**-2 + M**-2*EP**-1 )
 
 + PI**6
  * ( - 1/3*M0**2*SM**-4 )
 
 + LG(M)*PI**4
  * ( - 1/2*M**2*SM**-4 + 1/2*M**-2 - 3/2*M0**2*SM**-4 - 1/2*SM**-2 )
 
 + LG(M)*LG(M0)*PI**4
  * ( - M0**2*SM**-4 )
 
 + LG(M)*LG(SM)*PI**4
  * ( M0**2*SM**-4 )
 
 + LG(M0)*PI**4
  * ( - 1/2*M**-2*M0**2*SM**-2 - 1/2*M**-2*M0**4*SM**-4 - 3/2*M0**2
  *SM**-4 )
 
 + LG(M0)*LG(SM)*PI**4
  * ( M0**2*SM**-4 )
 
 + LG(SM)*PI**4
  * ( 1/2*M**2*SM**-4 + 1/2*M**-2 + 1/2*M**-2*M0**2*SM**-2
  + 1/2*M**-2*M0**4*SM**-4 + 3*M0**2*SM**-4 + 1/2*SM**-2 )
 
 + LG(SM)*LG(SM)*PI**4
  * ( - M0**2*SM**-4 )
 
F221(M,M0,SM) = 
 + PI**4
  * ( 2*M**2*SM**-4 + 2*M0**2*SM**-4 )
 
 + PI**6
  * ( - 2/3*M**2*SM**-4 - 2/3*M0**2*SM**-4 - 1/3*SM**-2 )
 
 + LG(M)*PI**4
  * ( - 5*M**2*SM**-4 - M0**2*SM**-4 - SM**-2 )
 
 + LG(M)*LG(M0)*PI**4
  * ( - 2*M**2*SM**-4 - 2*M0**2*SM**-4 - SM**-2 )
 
 + LG(M)*LG(SM)*PI**4
  * ( 2*M**2*SM**-4 + 2*M0**2*SM**-4 + SM**-2 )
 
 + LG(M0)*PI**4
  * ( - M**2*SM**-4 - 5*M0**2*SM**-4 - SM**-2 )
 
 + LG(M0)*LG(SM)*PI**4
  * ( 2*M**2*SM**-4 + 2*M0**2*SM**-4 + SM**-2 )
 
 + LG(SM)*PI**4
  * ( 6*M**2*SM**-4 + 6*M0**2*SM**-4 + 2*SM**-2 )
 
 + LG(SM)*LG(SM)*PI**4
  * ( - 2*M**2*SM**-4 - 2*M0**2*SM**-4 - SM**-2 )
 
F211(M,M0,SM) = 
 + PI**4
  * ( - 1/2 - 3*M**2*M0**2*SM**-4 - M**2*SM**-2 - 1/4*M**4*SM**-4
  - M0**2*SM**-2 - 9/4*M0**4*SM**-4 - 2*EP**-2 + EP**-1 )
 
 + PI**6
  * ( 1/12 + 2/3*M**2*M0**2*SM**-4 + 1/3*M0**2*SM**-2 + 1/3*M0**4*SM**-4 )
 
 + LG(M)*PI**4
  * ( 1 + 3*M**2*M0**2*SM**-4 + M**2*SM**-2 + 1/2*M**4*SM**-4
  - 2*EP**-1 )
 
 - 1/2*LG(M)*LG(M)*PI**4
 
 + LG(M)*LG(M0)*PI**4
  * ( 2*M**2*M0**2*SM**-4 + M0**2*SM**-2 + M0**4*SM**-4 )
 
 + LG(M)*LG(SM)*PI**4
  * ( - 1 - 2*M**2*M0**2*SM**-4 - M0**2*SM**-2 - M0**4*SM**-4 )
 
 + LG(M0)*PI**4
  * ( M**2*M0**2*SM**-4 + M0**2*SM**-2 + 5/2*M0**4*SM**-4 )
 
 + LG(M0)*LG(SM)*PI**4
  * ( - 2*M**2*M0**2*SM**-4 - M0**2*SM**-2 - M0**4*SM**-4 )
 
 + LG(SM)*PI**4
  * ( - 4*M**2*M0**2*SM**-4 - M**2*SM**-2 - 1/2*M**4*SM**-4
  - M0**2*SM**-2 - 5/2*M0**4*SM**-4 )
 
 + LG(SM)*LG(SM)*PI**4
  * ( 1/2 + 2*M**2*M0**2*SM**-4 + M0**2*SM**-2 + M0**4*SM**-4 ) + 0.
 
	B PI
	Z F411(M,M0,SM)=-1/3*DM*F311(M,M0,SM)*XX
	Z F321(M,M0,SM)=-1/2*DM*F221(M,M0,SM)*XX
L 2	Id,DM*M**N~=N*M**N/M**2/2+M**N*DM
L 2	Al,DM0*M0**N~=N*M0**N/M0**2/2+M0**N*DM0
L 3	Id,Adiso,DM*LG(M)*LG(M)=2*LG(M)/M**2+LG(M)*LG(M)*DM
L 3	Al,Adiso,DM0*LG(M0)*LG(M0)=2*LG(M0)/M0**2+LG(M0)*LG(M0)*DM0
L 3	Al,DM*LG(M)=1/M**2+LG(M)*DM
L 3	Al,DM0*LG(M0)=1/M0**2+LG(M0)*DM0
L 4	Id,DM*XX=0
L 4	Al,DM0*XX=0
L 4	Al,XX=1
L 5	Id,Commu,LG
	Keep F311,F221,F411,F321,F211
	Punch F411,F321
	*next

Terms in output 30
Running time 3 sec			Used	Maximum
Generated terms 34 	Input space 	2548 	101472
Equal terms 4     	Output space 	1002 	248528
Cancellations 0   	Nr of expr.  	23 	255
Multiplications 452	String space 	0 	4096
Records written 0 	Merging		0 	0

 
F411(M,M0,SM) = 
 + PI**4
  * ( - 1/3*M**-4 + 1/3*M**-4*EP**-1 + 1/2*M**-2*M0**2*SM**-4
  + 1/6*M**-2*SM**-2 + 1/6*SM**-4 )
 
 + LG(M)*PI**4
  * ( 1/6*M**-4 + 1/6*SM**-4 )
 
 + LG(M0)*PI**4
  * ( - 1/6*M**-4*M0**2*SM**-2 - 1/6*M**-4*M0**4*SM**-4 + 1/3*M**-2
  *M0**2*SM**-4 )
 
 + LG(SM)*PI**4
  * ( 1/6*M**-4 + 1/6*M**-4*M0**2*SM**-2 + 1/6*M**-4*M0**4*SM**-4
  - 1/3*M**-2*M0**2*SM**-4 - 1/6*SM**-4 )
 
F321(M,M0,SM) = 
 + PI**4
  * ( 1/2*M**-2*M0**2*SM**-4 + 1/2*M**-2*SM**-2 + 3/2*SM**-4 )
 
 + PI**6
  * ( 1/3*SM**-4 )
 
 + LG(M)*PI**4
  * ( 5/2*SM**-4 )
 
 + LG(M)*LG(M0)*PI**4
  * ( SM**-4 )
 
 + LG(M)*LG(SM)*PI**4
  * ( - SM**-4 )
 
 + LG(M0)*PI**4
  * ( M**-2*M0**2*SM**-4 + 1/2*M**-2*SM**-2 + 3/2*SM**-4 )
 
 + LG(M0)*LG(SM)*PI**4
  * ( - SM**-4 )
 
 + LG(SM)*PI**4
  * ( - M**-2*M0**2*SM**-4 - 1/2*M**-2*SM**-2 - 4*SM**-4 )
 
 + LG(SM)*LG(SM)*PI**4
  * ( SM**-4 ) + 0.
 
	B PI
	Z F511(M,M0,SM)=-1/4*DM*F411(M,M0,SM)*XX
	Z F421(M,M0,SM)=-1/3*DM*F321(M,M0,SM)*XX
L 2	Id,DM*M**N~=N*M**N/M**2/2+M**N*DM
L 2	Al,DM0*M0**N~=N*M0**N/M0**2/2+M0**N*DM0
L 3	Id,Adiso,DM*LG(M)*LG(M)=2*LG(M)/M**2+LG(M)*LG(M)*DM
L 3	Al,Adiso,DM0*LG(M0)*LG(M0)=2*LG(M0)/M0**2+LG(M0)*LG(M0)*DM0
L 3	Al,DM*LG(M)=1/M**2+LG(M)*DM
L 3	Al,DM0*LG(M0)=1/M0**2+LG(M0)*DM0
L 4	Id,DM*XX=0
L 4	Al,DM0*XX=0
L 4	Al,XX=1
L 5	Id,Commu,LG
	Keep F311,F221,F411,F321,F421,F211,F511
	Punch F421,F511
	*next

Terms in output 22
Running time 3 sec			Used	Maximum
Generated terms 23 	Input space 	3108 	102076
Equal terms 1     	Output space 	684 	247924
Cancellations 0   	Nr of expr.  	25 	255
Multiplications 294	String space 	0 	4096
Records written 0 	Merging		0 	0

 
F511(M,M0,SM) = 
 + PI**4
  * ( - 5/24*M**-6 + 1/6*M**-6*EP**-1 + 1/8*M**-4*M0**2*SM**-4
  + 1/24*M**-4*SM**-2 - 1/24*M**-2*SM**-4 )
 
 + LG(M)*PI**4
  * ( 1/12*M**-6 )
 
 + LG(M0)*PI**4
  * ( - 1/12*M**-6*M0**2*SM**-2 - 1/12*M**-6*M0**4*SM**-4
  + 1/12*M**-4*M0**2*SM**-4 )
 
 + LG(SM)*PI**4
  * ( 1/12*M**-6 + 1/12*M**-6*M0**2*SM**-2 + 1/12*M**-6*M0**4*SM**-4
   - 1/12*M**-4*M0**2*SM**-4 )
 
F421(M,M0,SM) = 
 + PI**4
  * ( 1/6*M**-4*M0**2*SM**-4 + 1/6*M**-4*SM**-2 - 5/6*M**-2*SM**-4 )
 
 + LG(M0)*PI**4
  * ( 1/3*M**-4*M0**2*SM**-4 + 1/6*M**-4*SM**-2 - 1/3*M**-2*SM**-4 )
 
 + LG(SM)*PI**4
  * ( - 1/3*M**-4*M0**2*SM**-4 - 1/6*M**-4*SM**-2 + 1/3*M**-2*SM**-4 ) + 0.
 
	B PI
	Z FF211=F211(M,M,SM)
	Z FF311=F311(M,M,SM)
	Z FF411=F411(M,M,SM)
	Z FF511=F511(M,M,SM)
	Z FF221=F221(M,M,SM)
	Z FF321=F321(M,M,SM)
	Z FF421=F421(M,M,SM)
L 2	Id,Commu,LG
	*end

Terms in output 80
Running time 3 sec			Used	Maximum
Generated terms 138 	Input space 	2930 	102524
Equal terms 53     	Output space 	2656 	247476
Cancellations 5   	Nr of expr.  	22 	255
Multiplications 421	String space 	0 	4096
Records written 0 	Merging		0 	0

 
FF211 = 
 + PI^4
  * ( - 1/2 - 2*M^2*SM^-2 - 11/2*M^4*SM^-4 - 2*EP^-2 + EP^-1 )
 
 + PI^6
  * ( 1/12 + 1/3*M^2*SM^-2 + M^4*SM^-4 )
 
 + LG(M)*PI^4
  * ( 1 + 2*M^2*SM^-2 + 7*M^4*SM^-4 - 2*EP^-1 )
 
 + LG(M)*LG(M)*PI^4
  * ( - 1/2 + M^2*SM^-2 + 3*M^4*SM^-4 )
 
 + LG(M)*LG(SM)*PI^4
  * ( - 1 - 2*M^2*SM^-2 - 6*M^4*SM^-4 )
 
 + LG(SM)*PI^4
  * ( - 2*M^2*SM^-2 - 7*M^4*SM^-4 )
 
 + LG(SM)*LG(SM)*PI^4
  * ( 1/2 + M^2*SM^-2 + 3*M^4*SM^-4 )
 
FF311 = 
 + PI^4
  * ( - 1/2*M^-2 + M^-2*EP^-1 )
 
 + PI^6
  * ( - 1/3*M^2*SM^-4 )
 
 + LG(M)*PI^4
  * ( - 4*M^2*SM^-4 + 1/2*M^-2 - SM^-2 )
 
 + LG(M)*LG(M)*PI^4
  * ( - M^2*SM^-4 )
 
 + LG(M)*LG(SM)*PI^4
  * ( 2*M^2*SM^-4 )
 
 + LG(SM)*PI^4
  * ( 4*M^2*SM^-4 + 1/2*M^-2 + SM^-2 )
 
 + LG(SM)*LG(SM)*PI^4
  * ( - M^2*SM^-4 )
 
FF411 = 
 + PI^4
  * ( - 1/3*M^-4 + 1/3*M^-4*EP^-1 + 1/6*M^-2*SM^-2 + 2/3*SM^-4 )
 
 + LG(M)*PI^4
  * ( 1/6*M^-4 - 1/6*M^-2*SM^-2 + 1/3*SM^-4 )
 
 + LG(SM)*PI^4
  * ( 1/6*M^-4 + 1/6*M^-2*SM^-2 - 1/3*SM^-4 )
 
FF511 = 
 + PI^4
  * ( - 5/24*M^-6 + 1/6*M^-6*EP^-1 + 1/24*M^-4*SM^-2 + 1/12*M^-2*SM^-4 )
 
 + LG(M)*PI^4
  * ( 1/12*M^-6 - 1/12*M^-4*SM^-2 )
 
 + LG(SM)*PI^4
  * ( 1/12*M^-6 + 1/12*M^-4*SM^-2 )
 
FF221 = 
 + PI^4
  * ( 4*M^2*SM^-4 )
 
 + PI^6
  * ( - 4/3*M^2*SM^-4 - 1/3*SM^-2 )
 
 + LG(M)*PI^4
  * ( - 12*M^2*SM^-4 - 2*SM^-2 )
 
 + LG(M)*LG(M)*PI^4
  * ( - 4*M^2*SM^-4 - SM^-2 )
 
 + LG(M)*LG(SM)*PI^4
  * ( 8*M^2*SM^-4 + 2*SM^-2 )
 
 + LG(SM)*PI^4
  * ( 12*M^2*SM^-4 + 2*SM^-2 )
 
 + LG(SM)*LG(SM)*PI^4
  * ( - 4*M^2*SM^-4 - SM^-2 )
 
FF321 = 
 + PI^4
  * ( 1/2*M^-2*SM^-2 + 2*SM^-4 )
 
 + PI^6
  * ( 1/3*SM^-4 )
 
 + LG(M)*PI^4
  * ( 1/2*M^-2*SM^-2 + 5*SM^-4 )
 
 + LG(M)*LG(M)*PI^4
  * ( SM^-4 )
 
 + LG(M)*LG(SM)*PI^4
  * ( - 2*SM^-4 )
 
 + LG(SM)*PI^4
  * ( - 1/2*M^-2*SM^-2 - 5*SM^-4 )
 
 + LG(SM)*LG(SM)*PI^4
  * ( SM^-4 )
 
FF421 = + PI^4
  * ( 1/6*M^-4*SM^-2 - 2/3*M^-2*SM^-4 )
 
 + LG(M)*PI^4
  * ( 1/6*M^-4*SM^-2 )
 
 + LG(SM)*PI^4
  * ( - 1/6*M^-4*SM^-2 ) + 0.
 

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


C RO-parameter 18. Expansion of F211(SM,M1,M2) for large SM.

C A=M1**2/SM**2, B=M2**2/SM**2. LGA=LOG(A), LGB=LG(B).
C S2=PI**2/6. E=EXPANSION PARAMETER, COUNTS ORDER IN A,B. E**7=0.
C THE FORMULA USED IS:
C F(A,B)=-1/2*LOG(A)**2-SP((A-B)/A)
C + FAC1*( SP((B-A)/X1)-SP((A-B)/(1-X1))-SP(1-1/X1)+SP(-X1/(1-X1)) )
C + FAC2*(  SAME, BUT X1 REPLACED BY X2  )
C FAC1=(B-X1)/ROOT, FAC2=(X2-B)/ROOT
C X1=(1+B-A+ROOT)/2, X2=(1+B-A-ROOT)/2.
C ROOT=SQRT((A-B)**2+1-2*(A+B))
C X1,2 SOLUTION OF  X**2+(A-B-1)*X+B=0
C THUS X1*X2=B, (1-X1)*(1-X2)=A, X1+X2=1+B-A.
C NOTE THAT FAC1+FAC2=-1.
C FOR THIS EXPANSION THE EQUATION WAS REWRITTEN AS
C F(A,B)=-1/2*LOG(A)**2-SP((A-B)/A)+SP((A-B)*(1-X2)/A)
C +S2*(1-A-B)/ROOT
C + FAC1*(SP((B-A)*X2/B)-2*SP(-(1-X1)*X2/B)
C -1/2*LOG((1-X1)*X2/B)**2 )
C + FAC2*(-1/2*LOG(1-(B-A)*X1/B)**2-SP((A-B)*(1-X1)/A)
C +2*SP(-X2*(1-X1)/A)+1/2*LOG(X2*(1-X1)/A)**2 )
C THE TERMS LOG(A)**2 AND LOG(B)**2 CANCEL OUT.
C THE EXPRESSIONS BELOW REFER TO THE EXPANSION OF THE
C INDIVIDUAL TERMS, FOR INSTANCE EXP(2) REFERS TO THE
C EXPRESSION CONTAINING S2.
	C
C THE FUNCTION F211 IS GIVEN BY
C F211=PI**4*(-2/EP**2+1/EP*(1-2*GA-2*LOG(SM**2)
C       -1/2-PI**2/12+GA-GA**2+(1-2*GA)*LOG(SM**2)
C       -LOG(SM**2)**2-F(A,B) )
C EP=N-4, GA=EULERS CONSTANT. GA MAY BE ABSORBED IN
C A REDIFINITION OF THE UNITS IN THE LOG, WHICH WAS
C ALREADY DONE WITH FACTORS LOG(PI). (READ LOG(PI*SM**2)
C EVERYWHERE).
C THE WORK WAS DIVIDED IN TWO PARTS. PART 1 = COMPUTING THE
C VARIOUS ARGUMENTS OF THE FUNCTIONS TO BE EXPANDED. THIS
C INCLUDED WORKING OUT THE ROOT, ALSO GIVEN HERE. GIVEN X1 AND
C X2 THE OTHER ARGUMENTS ARE COMPUTED ACCORDING TO THE CARDS
C BELOW MADE INACTIVE. PART 2 IS COMPUTING THE EXPRESSIONS.
C PRINT NINPUT
	C
C C IN THIS PART X1, X2 ETC ARE COMPUTED TO ORDER E**7. THIS
C C IS NECESSARY TO OBTAIN THE ARGUMENTS OF THE VARIOUS FUNCTIONS
C C TO ORDER E**6.
	C
C SCREEN
C N  R
C COMMON XX(0),XX1(0),XX2(0)
C S E=8,A,B
C X X(A)=E**2*(A**2+B**2-2*A*B)-2*E*(A+B)
C *FIX
C Z XX(0)=1.
C *NEXT
C DO K1=1,7
C Z XX('K1')=X(A)*XX('K1'-1)
C B E
C NPRINT XX('K1')
C *NEXT
C ENDDO
C Z WO=1+XX(1)/2-XX(2)/8+XX(3)/16-5*XX(4)/128
C      +7*XX(5)/256-21*XX(6)/1024
C   +33/2048*XX(7)
C Z WOI=1.-XX(1)/2+3*XX(2)/8-5*XX(3)/16+35*XX(4)/128
C       -63*XX(5)/256+231*XX(6)/1024
C      -429/2048*XX(7)
C B E
C KEEP WO,WOI
C *NEXT
C Z X1=0.5+0.5*B*E-0.5*A*E+0.5*WO
C Z X2=0.5+0.5*B*E-0.5*A*E-0.5*WO
C B E
C PUNCH X1,X2
C KEEP WO,WOI,X1,X2
C *NEXT
C B E
C Z OMX1A=1/A/E-X1/A/E
C Z X2B=X2/B/E
C Z BMX2A=B/A-X2/A/E
C PUNCH OMX1A,X2B,BMX2A
C B E
C KEEP X1,X2,WOI
C *NEXT
C S E=7
C Z FAC1=(B*E-X1)*WOI
C Z FAC2=(X2-B*E)*WOI
C B E
C PUNCH FAC1,FAC2
C *END

	Common EXP(0),Exp(0)
	S LOMX,LGA,LGB

C X X1=1-E*A-A*B*E**2-E**3*A*B**2-E**3*A**2*B
C    +E**4*(-A*B**3-3.*A**2*B**2-A**3*B)
C    +E**5*(-A*B**4-6.*A**2*B**3-6.*A**3*B**2-A**4*B)
C    +E**6*(-A*B**5-10.*A**2*B**4-20.*A**3*B**3-10.*A**4*B**2-A**5*B)
C    +E**7*(-A*B**6-15.*A**2*B**5-50.*A**3*B**4-50.*A**4*B**3-15.*A**
C    5*B**2-A**6*B)
C X X2=E*B+E**2*A*B+E**3*A*B**2+E**3*A**2*B
C    +E**4*(A*B**3+3.*A**2*B**2+A**3*B)
C    +E**5*(A*B**4+6.*A**2*B**3+6.*A**3*B**2+A**4*B)
C    +E**6*(A*B**5+10.*A**2*B**4+20.*A**3*B**3+10.*A**4*B**2+A**5*B)
C    +E**7*(A*B**6+15.*A**2*B**5+50.*A**3*B**4+50.*A**4*B**3+15.*A**5
C    *B**2+A**6*B)
C X OMX1A=1 + E*B
C    +E**2*(A*B+B**2)
C    +E**3*(3.*A*B**2+A**2*B+B**3)
C    +E**4*(6.*A*B**3+6.*A**2*B**2+A**3*B+B**4)
C    +E**5*(10.*A*B**4+20.*A**2*B**3+10.*A**3*B**2+A**4*B+B**5)
C    +E**6*(15.*A*B**5+50.*A**2*B**4+50.*A**3*B**3+15.*A**4*B**2+A**5
C    *B+B**6)
C X X2B=1+E*A
C    +E**2*(A*B+A**2)
C    +E**3*(A*B**2+3.*A**2*B+A**3)
C    +E**4*(A*B**3+6.*A**2*B**2+6.*A**3*B+A**4)
C    +E**5*(A*B**4+10.*A**2*B**3+20.*A**3*B**2+10.*A**4*B+A**5)
C    +E**6*(A*B**5+15.*A**2*B**4+50.*A**3*B**3+50.*A**4*B**2+15.*A**5
C    *B+A**6)
C X BMX2A=-B*E
C    +E**2*(-A*B-B**2)
C    +E**3*(-3.*A*B**2-A**2*B-B**3)
C    +E**4*(-6.*A*B**3-6.*A**2*B**2-A**3*B-B**4)
C    +E**5*(-10.*A*B**4-20.*A**2*B**3-10.*A**3*B**2-A**4*B-B**5)
C    +E**6*(-15.*A*B**5-50.*A**2*B**4-50.*A**3*B**3-15.*A**4*B**2-A**
C    5*B-B**6)
	X FAC1=-1-A*B*E**2
	   +E**3*(-2.*A*B**2-2.*A**2*B)
	   +E**4*(-3.*A*B**3-9.*A**2*B**2-3.*A**3*B)
	   +E**5*(-4.*A*B**4-24.*A**2*B**3-24.*A**3*B**2-4.*A**4*B)
	   +E**6*(-5.*A*B**5-50.*A**2*B**4-100.*A**3*B**3-50.*A**4*B**2-5.*A
	   **5*B)
	X FAC2=E**2*A*B
	   +E**3*(2.*A*B**2+2.*A**2*B)
	   +E**4*(3.*A*B**3+9.*A**2*B**2+3.*A**3*B)
	   +E**5*(4.*A*B**4+24.*A**2*B**3+24.*A**3*B**2+4.*A**4*B)
	   +E**6*(5.*A*B**5+50.*A**2*B**4+100.*A**3*B**3+50.*A**4*B**2+5.*A
	   **5*B)
	X ARG1=E*B+A*B*E**2
	   +E**3*(A*B**2+A**2*B)
	   +E**4*(A*B**3+3.*A**2*B**2+A**3*B)
	   +E**5*(A*B**4+6.*A**2*B**3+6.*A**3*B**2+A**4*B)
	   +E**6*(A*B**5+10.*A**2*B**4+20.*A**3*B**3+10.*A**4*B**2+A**5*B)
	X ARG3=-A*E+E*B
	   +E**2*(A*B-A**2)
	   +E**3*(A*B**2-A**3)
	   +E**4*(A*B**3+2.*A**2*B**2-2.*A**3*B-A**4)
	   +E**5*(A*B**4+5.*A**2*B**3-5.*A**4*B-A**5)
	   +E**6*(A*B**5+9.*A**2*B**4+10.*A**3*B**3-10.*A**4*B**2-9.*A**5*B
	   -A**6)
	X ARG4=-A*E
	   +E**2*(-A*B-A**2)
	   +E**3*(-A*B**2-3.*A**2*B-A**3)
	   +E**4*(-A*B**3-6.*A**2*B**2-6.*A**3*B-A**4)
	   +E**5*(-A*B**4-10.*A**2*B**3-20.*A**3*B**2-10.*A**4*B-A**5)
	   +E**6*(-A*B**5-15.*A**2*B**4-50.*A**3*B**3-50.*A**4*B**2-15.*A**
	   5*B-A**6)
	X ARG5=E*A+E*B
	   +E**2*(3.*A*B+A**2+B**2)
	   +E**3*(6.*A*B**2+6.*A**2*B+A**3+B**3)
	   +E**4*(10.*A*B**3+20.*A**2*B**2+10.*A**3*B+A**4+B**4)
	   +E**5*(15.*A*B**4+50.*A**2*B**3+50.*A**3*B**2+15.*A**4*B+A**5+B*
	   *5)
	   +E**6*(21.*A*B**5+105.*A**2*B**4+175.*A**3*B**3+105.*A**4*B**2+2
	   1.*A**5*B+A**6+B**6)
	X ARG6=-E*A+B*E
	   +E**2*(-A*B+B**2)
	   +E**3*(-A**2*B+B**3)
	   +E**4*(2.*A*B**3-2.*A**2*B**2-A**3*B+B**4)
	   +E**5*(5.*A*B**4-5.*A**3*B**2-A**4*B+B**5)
	   +E**6*(9.*A*B**5+10.*A**2*B**4-10.*A**3*B**3-9.*A**4*B**2-A**5*B
	   +B**6)
	X ARG8=-B*E
	   +E**2*(-A*B-B**2)
	   +E**3*(-3.*A*B**2-A**2*B-B**3)
	   +E**4*(-6.*A*B**3-6.*A**2*B**2-A**3*B-B**4)
	   +E**5*(-10.*A*B**4-20.*A**2*B**3-10.*A**3*B**2-A**4*B-B**5)
	   +E**6*(-15.*A*B**5-50.*A**2*B**4-50.*A**3*B**3-15.*A**4*B**2-A**
	   5*B-B**6)
	S E=7
	*fix

Begin. Time 2 sec.
C B E
C Z ARG1=X2
C Z ARG3=(B-A)*X2/B
C Z ARG4=1-X2B
C Z ARG5=OMX1A*X2B - 1
C Z ARG6=(B-A)*(1-X1)/A
C Z ARG7=(A-B)*E*OMX1A
C Z ARG8=BMX2A
C Punch ARG1,ARG3,ARG4,ARG5,ARG6,ARG8
C *end
	Z SP(1)=-LOMX/X
	Z XX2(1)=-ARG1
	B E
	Nprint SP,XX2
	Keep SP,XX2
	*next
	DO K1=2,6
> P input
	Z SP(2)=DIFX*SP(2-1)*YY/2
	Z XX2(2)=-XX2(2-1)*ARG1
L 6	Id,DIFX*LOMX=-1/OMX+LOMX*DIFX
L 7	Id,DIFX*OMX**N~=-N*OMX**N/OMX+OMX**N*DIFX
L 8	Id,DIFX*X**N~=N*X**N/X+X**N*DIFX
L 9	Id,DIFX*YY=0
L 9	Al,YY=1
L10	Id,X**N~*OMX**-1=DS(J1,1,-N,(X**-J1))+1/OMX
	B E
	Nprint SP,XX2
	Keep SP,XX2
	*next
	ENDDO
> P input
	Z SP(3)=DIFX*SP(3-1)*YY/3
	Z XX2(3)=-XX2(3-1)*ARG1
L 6	Id,DIFX*LOMX=-1/OMX+LOMX*DIFX
L 7	Id,DIFX*OMX**N~=-N*OMX**N/OMX+OMX**N*DIFX
L 8	Id,DIFX*X**N~=N*X**N/X+X**N*DIFX
L 9	Id,DIFX*YY=0
L 9	Al,YY=1
L10	Id,X**N~*OMX**-1=DS(J1,1,-N,(X**-J1))+1/OMX
	B E
	Nprint SP,XX2
	Keep SP,XX2
	*next
	ENDDO
> P input
	Z SP(4)=DIFX*SP(4-1)*YY/4
	Z XX2(4)=-XX2(4-1)*ARG1
L 6	Id,DIFX*LOMX=-1/OMX+LOMX*DIFX
L 7	Id,DIFX*OMX**N~=-N*OMX**N/OMX+OMX**N*DIFX
L 8	Id,DIFX*X**N~=N*X**N/X+X**N*DIFX
L 9	Id,DIFX*YY=0
L 9	Al,YY=1
L10	Id,X**N~*OMX**-1=DS(J1,1,-N,(X**-J1))+1/OMX
	B E
	Nprint SP,XX2
	Keep SP,XX2
	*next
	ENDDO
> P input
	Z SP(5)=DIFX*SP(5-1)*YY/5
	Z XX2(5)=-XX2(5-1)*ARG1
L 6	Id,DIFX*LOMX=-1/OMX+LOMX*DIFX
L 7	Id,DIFX*OMX**N~=-N*OMX**N/OMX+OMX**N*DIFX
L 8	Id,DIFX*X**N~=N*X**N/X+X**N*DIFX
L 9	Id,DIFX*YY=0
L 9	Al,YY=1
L10	Id,X**N~*OMX**-1=DS(J1,1,-N,(X**-J1))+1/OMX
	B E
	Nprint SP,XX2
	Keep SP,XX2
	*next
	ENDDO
> P input
	Z SP(6)=DIFX*SP(6-1)*YY/6
	Z XX2(6)=-XX2(6-1)*ARG1
L 6	Id,DIFX*LOMX=-1/OMX+LOMX*DIFX
L 7	Id,DIFX*OMX**N~=-N*OMX**N/OMX+OMX**N*DIFX
L 8	Id,DIFX*X**N~=N*X**N/X+X**N*DIFX
L 9	Id,DIFX*YY=0
L 9	Al,YY=1
L10	Id,X**N~*OMX**-1=DS(J1,1,-N,(X**-J1))+1/OMX
	B E
	Nprint SP,XX2
	Keep SP,XX2
	*next
	ENDDO
	DO K2=1,6
> P input
	Z SP(1)=SP(1)*X**1
	ENDDO
> P input
	Z SP(2)=SP(2)*X**2
	ENDDO
> P input
	Z SP(3)=SP(3)*X**3
	ENDDO
> P input
	Z SP(4)=SP(4)*X**4
	ENDDO
> P input
	Z SP(5)=SP(5)*X**5
	ENDDO
> P input
	Z SP(6)=SP(6)*X**6
	ENDDO
L 2	Id,X**N~*OMX**M~=XOMX**-M*X**N*X**M
L 3	Id,X=(A-B)/A
L 3	Al,XOMX=(A-B)/B
L 5	Id,LOMX=LGB-LGA
	B LGA,LGB
	Keep SP,XX2
	Nprint SP
	*next
	B E,LGA,LGB
	Z EXP(1)=DS(J3,1,6,(SP(J3)*XX2(J3)) )
	*next
 
EXP(1) = 
 + E*LGA
  * ( - B )
 
 + E*LGB
  * ( B )
 
 + E^2
  * ( 1/2*A*B - 1/2*B^2 )
 
 + E^2*LGA
  * ( - A*B - 1/2*B^2 )
 
 + E^2*LGB
  * ( A*B + 1/2*B^2 )
 
 + E^3
  * ( - 1/3*A*B^2 + 5/6*A^2*B - 1/2*B^3 )
 
 + E^3*LGA
  * ( - 2*A*B^2 - A^2*B - 1/3*B^3 )
 
 + E^3*LGB
  * ( 2*A*B^2 + A^2*B + 1/3*B^3 )
 
 + E^4
  * ( - 7/4*A*B^3 + 9/8*A^2*B^2 + 13/12*A^3*B - 11/24*B^4 )
 
 + E^4*LGA
  * ( - 3*A*B^3 - 9/2*A^2*B^2 - A^3*B - 1/4*B^4 )
 
 + E^4*LGB
  * ( 3*A*B^3 + 9/2*A^2*B^2 + A^3*B + 1/4*B^4 )
 
 + E^5
  * ( - 53/15*A*B^4 - 8/5*A^2*B^3 + 64/15*A^3*B^2 + 77/60*A^4*B
  - 5/12*B^5 )
 
 + E^5*LGA
  * ( - 4*A*B^4 - 12*A^2*B^3 - 8*A^3*B^2 - A^4*B - 1/5*B^5 )
 
 + E^5*LGB
  * ( 4*A*B^4 + 12*A^2*B^3 + 8*A^3*B^2 + A^4*B + 1/5*B^5 )
 
 + E^6
  * ( - 67/12*A*B^5 - 125/12*A^2*B^4 + 50/9*A^3*B^3 + 75/8*A^4*B^2
   + 29/20*A^5*B - 137/360*B^6 )
 
 + E^6*LGA
  * ( - 5*A*B^5 - 25*A^2*B^4 - 100/3*A^3*B^3 - 25/2*A^4*B^2
  - A^5*B - 1/6*B^6 )
 
 + E^6*LGB
  * ( 5*A*B^5 + 25*A^2*B^4 + 100/3*A^3*B^3 + 25/2*A^4*B^2
  + A^5*B + 1/6*B^6 ) + 0.
 
	B E,S2
	Z EXP(2)=S2*(FAC2-FAC1)
	*next
 
EXP(2) = 
 + E^2*S2
  * ( 2*A*B )
 
 + E^3*S2
  * ( 4*A*B^2 + 4*A^2*B )
 
 + E^4*S2
  * ( 6*A*B^3 + 18*A^2*B^2 + 6*A^3*B )
 
 + E^5*S2
  * ( 8*A*B^4 + 48*A^2*B^3 + 48*A^3*B^2 + 8*A^4*B )
 
 + E^6*S2
  * ( 10*A*B^5 + 100*A^2*B^4 + 200*A^3*B^3 + 100*A^4*B^2 + 10*A^5*B )
 
 + S2 + 0.
 
	B E
	Z TOT(3)=0
	Z TOT(4)=0
	Z TOT(7)=0
	Z TOT(8)=0
	Z SP(3)=ARG3
	Z SP(4)=ARG4
	Z SP(7)=-ARG6
	Z SP(8)=ARG8
	Keep TOT,SP
	Nprint TOT,SP
	*next
	DO K3=2,6
	B E
	Z TOT(3)=TOT(3)+SP(3)
	Z TOT(4)=TOT(4)+SP(4)
	Z TOT(7)=TOT(7)+SP(7)
	Z TOT(8)=TOT(8)+SP(8)
	Z SP(3)=SP(3)*ARG3*(2-1)**2/2**2
	Z SP(4)=SP(4)*ARG4*(2-1)**2/2**2
	Z SP(7)=-SP(7)*ARG6*(2-1)**2/2**2
	Z SP(8)=SP(8)*ARG8*(2-1)**2/2**2
	Keep TOT,SP
	Nprint TOT,SP
	*next
	ENDDO
	B E
	Z EXP(3)=FAC1*(TOT(3)+SP(3))
	Z EXP(4)=-2*FAC1*(TOT(4)+SP(4))
	Z EXP(7)=-FAC2*(TOT(7)+SP(7))
	Z EXP(8)=2*FAC2*(TOT(8)+SP(8))
	*next
 
EXP(3) = 
 + E
  * ( A - B )
 
 + E^2
  * ( - 1/2*A*B + 3/4*A^2 - 1/4*B^2 )
 
 + E^3
  * ( - 13/6*A*B^2 + 5/3*A^2*B + 11/18*A^3 - 1/9*B^3 )
 
 + E^4
  * ( - 23/6*A*B^3 - 13/8*A^2*B^2 + 5*A^3*B + 25/48*A^4 - 1/16*B^4 )
 
 + E^5
  * ( - 989/180*A*B^4 - 206/15*A^2*B^3 + 287/30*A^3*B^2 + 416/45*A^4
  *B + 137/300*A^5 - 1/25*B^5 )
 
 + E^6
  * ( - 5149/720*A*B^5 - 2833/72*A^2*B^4 - 769/72*A^3*B^3
  + 383/9*A^4*B^2 + 2051/144*A^5*B + 49/120*A^6 - 1/36*B^6 )
 
EXP(4) = 
 + E
  * ( - 2*A )
 
 + E^2
  * ( - 2*A*B - 3/2*A^2 )
 
 + E^3
  * ( - 2*A*B^2 - 7*A^2*B - 11/9*A^3 )
 
 + E^4
  * ( - 2*A*B^3 - 33/2*A^2*B^2 - 85/6*A^3*B - 25/24*A^4 )
 
 + E^5
  * ( - 2*A*B^4 - 30*A^2*B^3 - 184/3*A^3*B^2 - 415/18*A^4*B
  - 137/150*A^5 )
 
 + E^6
  * ( - 2*A*B^5 - 95/2*A^2*B^4 - 1595/9*A^3*B^3 - 5755/36*A^4*B^2
  - 12019/360*A^5*B - 49/60*A^6 )
 
EXP(7) = 
 + E^3
  * ( A*B^2 - A^2*B )
 
 + E^4
  * ( 11/4*A*B^3 - 1/2*A^2*B^2 - 9/4*A^3*B )
 
 + E^5
  * ( 46/9*A*B^4 + 43/6*A^2*B^3 - 26/3*A^3*B^2 - 65/18*A^4*B )
 
 + E^6
  * ( 1151/144*A*B^5 + 541/18*A^2*B^4 - 41/8*A^3*B^3 - 251/9*A^4*B^2
   - 725/144*A^5*B )
 
EXP(8) = 
 + E^3
  * ( - 2*A*B^2 )
 
 + E^4
  * ( - 11/2*A*B^3 - 6*A^2*B^2 )
 
 + E^5
  * ( - 92/9*A*B^4 - 30*A^2*B^3 - 12*A^3*B^2 )
 
 + E^6
  * ( - 1151/72*A*B^5 - 1595/18*A^2*B^4 - 95*A^3*B^3 - 20*A^4*B^2 ) + 0.
 
	Z Exp(3)=EXP(3)
	Z Exp(4)=EXP(4)
	Z Exp(7)=EXP(7)
	Delete EXP(3),EXP(4),EXP(7)
	*next
 
Exp(3) = 
  - 1/2*A*B*E^2 - 13/6*A*B^2*E^3 - 23/6*A*B^3*E^4 - 989/180*A*B^4*E^5
   - 5149/720*A*B^5*E^6 + A*E + 5/3*A^2*B*E^3 - 13/8*A^2*B^2*E^4
  - 206/15*A^2*B^3*E^5 - 2833/72*A^2*B^4*E^6 + 3/4*A^2*E^2
  + 5*A^3*B*E^4 + 287/30*A^3*B^2*E^5 - 769/72*A^3*B^3*E^6
  + 11/18*A^3*E^3 + 416/45*A^4*B*E^5 + 383/9*A^4*B^2*E^6 + 25/48*A^4
  *E^4 + 2051/144*A^5*B*E^6 + 137/300*A^5*E^5 + 49/120*A^6*E^6
  - B*E - 1/4*B^2*E^2 - 1/9*B^3*E^3 - 1/16*B^4*E^4 - 1/25*B^5*E^5
  - 1/36*B^6*E^6
 
Exp(4) = 
  - 2*A*B*E^2 - 2*A*B^2*E^3 - 2*A*B^3*E^4 - 2*A*B^4*E^5 - 2*A*B^5*E^6
   - 2*A*E - 7*A^2*B*E^3 - 33/2*A^2*B^2*E^4 - 30*A^2*B^3*E^5
  - 95/2*A^2*B^4*E^6 - 3/2*A^2*E^2 - 85/6*A^3*B*E^4 - 184/3*A^3*B^2
  *E^5 - 1595/9*A^3*B^3*E^6 - 11/9*A^3*E^3 - 415/18*A^4*B*E^5
  - 5755/36*A^4*B^2*E^6 - 25/24*A^4*E^4 - 12019/360*A^5*B*E^6
  - 137/150*A^5*E^5 - 49/60*A^6*E^6
 
Exp(7) = 
  + A*B^2*E^3 + 11/4*A*B^3*E^4 + 46/9*A*B^4*E^5 + 1151/144*A*B^5*E^6
   - A^2*B*E^3 - 1/2*A^2*B^2*E^4 + 43/6*A^2*B^3*E^5 + 541/18*A^2*B^4
  *E^6 - 9/4*A^3*B*E^4 - 26/3*A^3*B^2*E^5 - 41/8*A^3*B^3*E^6
  - 65/18*A^4*B*E^5 - 251/9*A^4*B^2*E^6 - 725/144*A^5*B*E^6 + 0.
 
	B E,LGA,LGB
	Z XX(5)=ARG5
	Z XX(6)=ARG6
	Z TOT(5)=0
	Z TOT(6)=0
	Keep XX,TOT
	Nprint XX,TOT
	*next
	DO K5=2,6
	Z TOT(5)=TOT(5)+XX(5)
	Z TOT(6)=TOT(6)+XX(6)
	Z XX(5)=-XX(5)*ARG5*(2-1)/2
	Z XX(6)=-XX(6)*ARG6*(2-1)/2
	B E
	Keep TOT,XX
	Nprint TOT,XX
	*next
	ENDDO
	B E
	Z TOT(5)=TOT(5)+XX(5)
	Z TOT(6)=TOT(6)+XX(6)
	Keep TOT
	Nprint TOT
	*next
	Z TOT(15)=TOT(5)*TOT(5)
	Z TOT(16)=TOT(6)*TOT(6)
	Keep TOT
	Nprint TOT
	B E
	*next
	Z EXP(5)=-0.5*FAC1*(2*LGA*TOT(5)+TOT(15))
	Z EXP(6)=-0.5*FAC2*(-2*LGA*LGB+2*ABLG*TOT(6)+TOT(16) )
	Z EXP(9)=+0.5*FAC2*(2*LGB*TOT(5)+TOT(15))
L11	Id,ABLG=LGA-LGB
	B E,LGA,LGB
	*next
 
EXP(5) = 
 + E*LGA
  * ( A + B )
 
 + E^2
  * ( A*B + 1/2*A^2 + 1/2*B^2 )
 
 + E^2*LGA
  * ( 2*A*B + 1/2*A^2 + 1/2*B^2 )
 
 + E^3
  * ( 5/2*A*B^2 + 5/2*A^2*B + 1/2*A^3 + 1/2*B^3 )
 
 + E^3*LGA
  * ( 4*A*B^2 + 4*A^2*B + 1/3*A^3 + 1/3*B^3 )
 
 + E^4
  * ( 29/6*A*B^3 + 37/4*A^2*B^2 + 29/6*A^3*B + 11/24*A^4 + 11/24*B^4 )
 
 + E^4*LGA
  * ( 13/2*A*B^3 + 15*A^2*B^2 + 13/2*A^3*B + 1/4*A^4 + 1/4*B^4 )
 
 + E^5
  * ( 95/12*A*B^4 + 157/6*A^2*B^3 + 157/6*A^3*B^2 + 95/12*A^4*B
  + 5/12*A^5 + 5/12*B^5 )
 
 + E^5*LGA
  * ( 28/3*A*B^4 + 40*A^2*B^3 + 40*A^3*B^2 + 28/3*A^4*B + 1/5*A^5
  + 1/5*B^5 )
 
 + E^6
  * ( 1399/120*A*B^5 + 1463/24*A^2*B^4 + 3649/36*A^3*B^3 + 1463/24
  *A^4*B^2 + 1399/120*A^5*B + 137/360*A^6 + 137/360*B^6 )
 
 + E^6*LGA
  * ( 149/12*A*B^5 + 260/3*A^2*B^4 + 470/3*A^3*B^3 + 260/3*A^4*B^2
   + 149/12*A^5*B + 1/6*A^6 + 1/6*B^6 )
 
EXP(6) = 
 + E^2*LGA*LGB
  * ( A*B )
 
 + E^3*LGA
  * ( - A*B^2 + A^2*B )
 
 + E^3*LGA*LGB
  * ( 2*A*B^2 + 2*A^2*B )
 
 + E^3*LGB
  * ( A*B^2 - A^2*B )
 
 + E^4
  * ( - 1/2*A*B^3 + A^2*B^2 - 1/2*A^3*B )
 
 + E^4*LGA
  * ( - 5/2*A*B^3 + 5/2*A^3*B )
 
 + E^4*LGA*LGB
  * ( 3*A*B^3 + 9*A^2*B^2 + 3*A^3*B )
 
 + E^4*LGB
  * ( 5/2*A*B^3 - 5/2*A^3*B )
 
 + E^5
  * ( - 3/2*A*B^4 + 3/2*A^2*B^3 + 3/2*A^3*B^2 - 3/2*A^4*B )
 
 + E^5*LGA
  * ( - 13/3*A*B^4 - 8*A^2*B^3 + 8*A^3*B^2 + 13/3*A^4*B )
 
 + E^5*LGA*LGB
  * ( 4*A*B^4 + 24*A^2*B^3 + 24*A^3*B^2 + 4*A^4*B )
 
 + E^5*LGB
  * ( 13/3*A*B^4 + 8*A^2*B^3 - 8*A^3*B^2 - 13/3*A^4*B )
 
 + E^6
  * ( - 71/24*A*B^5 - 13/6*A^2*B^4 + 41/4*A^3*B^3 - 13/6*A^4*B^2
  - 71/24*A^5*B )
 
 + E^6*LGA
  * ( - 77/12*A*B^5 - 175/6*A^2*B^4 + 175/6*A^4*B^2 + 77/12*A^5*B )
 
 + E^6*LGA*LGB
  * ( 5*A*B^5 + 50*A^2*B^4 + 100*A^3*B^3 + 50*A^4*B^2 + 5*A^5*B )
 
 + E^6*LGB
  * ( 77/12*A*B^5 + 175/6*A^2*B^4 - 175/6*A^4*B^2 - 77/12*A^5*B )
 
EXP(9) = 
 + E^3*LGB
  * ( A*B^2 + A^2*B )
 
 + E^4
  * ( 1/2*A*B^3 + A^2*B^2 + 1/2*A^3*B )
 
 + E^4*LGB
  * ( 5/2*A*B^3 + 6*A^2*B^2 + 5/2*A^3*B )
 
 + E^5
  * ( 3/2*A*B^4 + 11/2*A^2*B^3 + 11/2*A^3*B^2 + 3/2*A^4*B )
 
 + E^5*LGB
  * ( 13/3*A*B^4 + 20*A^2*B^3 + 20*A^3*B^2 + 13/3*A^4*B )
 
 + E^6
  * ( 71/24*A*B^5 + 107/6*A^2*B^4 + 121/4*A^3*B^3 + 107/6*A^4*B^2
  + 71/24*A^5*B )
 
 + E^6*LGB
  * ( 77/12*A*B^5 + 295/6*A^2*B^4 + 90*A^3*B^3 + 295/6*A^4*B^2
  + 77/12*A^5*B ) + 0.
 
	Z EXP(3)=Exp(3)
	Z EXP(4)=Exp(4)
	Z EXP(7)=Exp(7)
	Delete Exp(3),Exp(4),Exp(7)
	*next
 
EXP(3) = 
  - 1/2*A*B*E^2 - 13/6*A*B^2*E^3 - 23/6*A*B^3*E^4 - 989/180*A*B^4*E^5
   - 5149/720*A*B^5*E^6 + A*E + 5/3*A^2*B*E^3 - 13/8*A^2*B^2*E^4
  - 206/15*A^2*B^3*E^5 - 2833/72*A^2*B^4*E^6 + 3/4*A^2*E^2
  + 5*A^3*B*E^4 + 287/30*A^3*B^2*E^5 - 769/72*A^3*B^3*E^6
  + 11/18*A^3*E^3 + 416/45*A^4*B*E^5 + 383/9*A^4*B^2*E^6 + 25/48*A^4
  *E^4 + 2051/144*A^5*B*E^6 + 137/300*A^5*E^5 + 49/120*A^6*E^6
  - B*E - 1/4*B^2*E^2 - 1/9*B^3*E^3 - 1/16*B^4*E^4 - 1/25*B^5*E^5
  - 1/36*B^6*E^6
 
EXP(4) = 
  - 2*A*B*E^2 - 2*A*B^2*E^3 - 2*A*B^3*E^4 - 2*A*B^4*E^5 - 2*A*B^5*E^6
   - 2*A*E - 7*A^2*B*E^3 - 33/2*A^2*B^2*E^4 - 30*A^2*B^3*E^5
  - 95/2*A^2*B^4*E^6 - 3/2*A^2*E^2 - 85/6*A^3*B*E^4 - 184/3*A^3*B^2
  *E^5 - 1595/9*A^3*B^3*E^6 - 11/9*A^3*E^3 - 415/18*A^4*B*E^5
  - 5755/36*A^4*B^2*E^6 - 25/24*A^4*E^4 - 12019/360*A^5*B*E^6
  - 137/150*A^5*E^5 - 49/60*A^6*E^6
 
EXP(7) = 
  + A*B^2*E^3 + 11/4*A*B^3*E^4 + 46/9*A*B^4*E^5 + 1151/144*A*B^5*E^6
   - A^2*B*E^3 - 1/2*A^2*B^2*E^4 + 43/6*A^2*B^3*E^5 + 541/18*A^2*B^4
  *E^6 - 9/4*A^3*B*E^4 - 26/3*A^3*B^2*E^5 - 41/8*A^3*B^3*E^6
  - 65/18*A^4*B*E^5 - 251/9*A^4*B^2*E^6 - 725/144*A^5*B*E^6 + 0.
 
	B E,LGA,LGB,S2
	Z TOTAL=DS(J0,1,9,(EXP(J0)))
> P outp
	*yep
 
TOTAL = 
 + E
  * ( - A - B )
 
 + E*LGA
  * ( A )
 
 + E*LGB
  * ( B )
 
 + E^2
  * ( - A*B - 1/4*A^2 - 1/4*B^2 )
 
 + E^2*LGA
  * ( A*B + 1/2*A^2 )
 
 + E^2*LGA*LGB
  * ( A*B )
 
 + E^2*LGB
  * ( A*B + 1/2*B^2 )
 
 + E^2*S2
  * ( 2*A*B )
 
 + E^3
  * ( - 3*A*B^2 - 3*A^2*B - 1/9*A^3 - 1/9*B^3 )
 
 + E^3*LGA
  * ( A*B^2 + 4*A^2*B + 1/3*A^3 )
 
 + E^3*LGA*LGB
  * ( 2*A*B^2 + 2*A^2*B )
 
 + E^3*LGB
  * ( 4*A*B^2 + A^2*B + 1/3*B^3 )
 
 + E^3*S2
  * ( 4*A*B^2 + 4*A^2*B )
 
 + E^4
  * ( - 11/2*A*B^3 - 49/4*A^2*B^2 - 11/2*A^3*B - 1/16*A^4
  - 1/16*B^4 )
 
 + E^4*LGA
  * ( A*B^3 + 21/2*A^2*B^2 + 8*A^3*B + 1/4*A^4 )
 
 + E^4*LGA*LGB
  * ( 3*A*B^3 + 9*A^2*B^2 + 3*A^3*B )
 
 + E^4*LGB
  * ( 8*A*B^3 + 21/2*A^2*B^2 + A^3*B + 1/4*B^4 )
 
 + E^4*S2
  * ( 6*A*B^3 + 18*A^2*B^2 + 6*A^3*B )
 
 + E^5
  * ( - 74/9*A*B^4 - 35*A^2*B^3 - 35*A^3*B^2 - 74/9*A^4*B
  - 1/25*A^5 - 1/25*B^5 )
 
 + E^5*LGA
  * ( A*B^4 + 20*A^2*B^3 + 40*A^3*B^2 + 38/3*A^4*B + 1/5*A^5 )
 
 + E^5*LGA*LGB
  * ( 4*A*B^4 + 24*A^2*B^3 + 24*A^3*B^2 + 4*A^4*B )
 
 + E^5*LGB
  * ( 38/3*A*B^4 + 40*A^2*B^3 + 20*A^3*B^2 + A^4*B + 1/5*B^5 )
 
 + E^5*S2
  * ( 8*A*B^4 + 48*A^2*B^3 + 48*A^3*B^2 + 8*A^4*B )
 
 + E^6
  * ( - 797/72*A*B^5 - 2851/36*A^2*B^4 - 2531/18*A^3*B^3 - 2851/36
  *A^4*B^2 - 797/72*A^5*B - 1/36*A^6 - 1/36*B^6 )
 
 + E^6*LGA
  * ( A*B^5 + 65/2*A^2*B^4 + 370/3*A^3*B^3 + 310/3*A^4*B^2
  + 107/6*A^5*B + 1/6*A^6 )
 
 + E^6*LGA*LGB
  * ( 5*A*B^5 + 50*A^2*B^4 + 100*A^3*B^3 + 50*A^4*B^2 + 5*A^5*B )
 
 + E^6*LGB
  * ( 107/6*A*B^5 + 310/3*A^2*B^4 + 370/3*A^3*B^3 + 65/2*A^4*B^2
  + A^5*B + 1/6*B^6 )
 
 + E^6*S2
  * ( 10*A*B^5 + 100*A^2*B^4 + 200*A^3*B^3 + 100*A^4*B^2 + 10*A^5*B )
 
 + S2 + 0.
 
C Id,Numer,E,1.
L 1	Id,E=1
	B S2,LGA,LGB
	*end
 
TOTAL = 
  - A - A*B - 3*A*B^2 - 11/2*A*B^3 - 74/9*A*B^4 - 797/72*A*B^5
  - 1/4*A^2 - 3*A^2*B - 49/4*A^2*B^2 - 35*A^2*B^3 - 2851/36*A^2*B^4
   - 1/9*A^3 - 11/2*A^3*B - 35*A^3*B^2 - 2531/18*A^3*B^3 - 1/16*A^4
   - 74/9*A^4*B - 2851/36*A^4*B^2 - 1/25*A^5 - 797/72*A^5*B
  - 1/36*A^6 - B - 1/4*B^2 - 1/9*B^3 - 1/16*B^4 - 1/25*B^5
  - 1/36*B^6
 
 + LGA
  * ( A + A*B + A*B^2 + A*B^3 + A*B^4 + A*B^5 + 1/2*A^2 + 4*A^2*B
  + 21/2*A^2*B^2 + 20*A^2*B^3 + 65/2*A^2*B^4 + 1/3*A^3 + 8*A^3*B
  + 40*A^3*B^2 + 370/3*A^3*B^3 + 1/4*A^4 + 38/3*A^4*B + 310/3*A^4*B^2
   + 1/5*A^5 + 107/6*A^5*B + 1/6*A^6 )
 
 + LGA*LGB
  * ( A*B + 2*A*B^2 + 3*A*B^3 + 4*A*B^4 + 5*A*B^5 + 2*A^2*B
  + 9*A^2*B^2 + 24*A^2*B^3 + 50*A^2*B^4 + 3*A^3*B + 24*A^3*B^2
  + 100*A^3*B^3 + 4*A^4*B + 50*A^4*B^2 + 5*A^5*B )
 
 + LGB
  * ( A*B + 4*A*B^2 + 8*A*B^3 + 38/3*A*B^4 + 107/6*A*B^5 + A^2*B
  + 21/2*A^2*B^2 + 40*A^2*B^3 + 310/3*A^2*B^4 + A^3*B + 20*A^3*B^2
   + 370/3*A^3*B^3 + A^4*B + 65/2*A^4*B^2 + A^5*B + B + 1/2*B^2
  + 1/3*B^3 + 1/4*B^4 + 1/5*B^5 + 1/6*B^6 )
 
 + S2
  * ( 1 + 2*A*B + 4*A*B^2 + 6*A*B^3 + 8*A*B^4 + 10*A*B^5 + 4*A^2*B
   + 18*A^2*B^2 + 48*A^2*B^3 + 100*A^2*B^4 + 6*A^3*B + 48*A^3*B^2
  + 200*A^3*B^3 + 8*A^4*B + 100*A^4*B^2 + 10*A^5*B ) + 0.
 

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


C RO-parameter 19. Higher orders of F211(M,M0,SM) expansion for large SM.

C THE HIGHER ORDERS ARE MADE SUCH THAT THE RELATION
C -(N-3)*F211-2*M0**2*F221-F112+F2(M)*F2(M)+(M**2-M0**2-SM**2)*F212=0
C IS SATISFIED. START WITH THE COEFFICIENT OF LGA*LGB, ETC.
	F LG
	S M,M0,SM,LGA,LGB
C THIS IS F211/PI**4
	X F211=-1./2.-A-3.*A*B-1./4.*A**2-B-9./4.*B**2
	   -47/18*B**3-9*B**2*A-11/2*B*A**2-1/9*A**3
	    -401/144*B**4-20*B**3*A-107/4*B**2*A**2-74/9*B*A**3-1/16*A**4
	    -5197/1800*B**5-2296/63*B**4*A-177/2*B**3*A**2-569/9*B**2*A**3
	     -797/72*B*A**4-1/25*A**5
	   +LGA*(1.+A+3.*A*B+1./2.*A**2
	    +5*B**2*A+7*B*A**2+1/3*A**3
	    +7*B**3*A+51/2*B**2*A**2+35/3*B*A**3+1/4*A**4
	    +9*B**4*A+62*B**3*A**2+224/3*B**2*A**3
	     +101/6*B*A**4+1/5*A**5 )
	   +LGA*LGB*(2.*A*B+B+B**2
	    +B**3+6*B**2*A+3*B*A**2
	    +B**4+12*B**3*A+18*B**2*A**2+4*B*A**3
	    +B**5+20*B**4*A+60*B**3*A**2+40*B**2*A**3
	     +5*B*A**4 )
	   -1./2.*LGA**2
	   +LGB*(A*B+B+5./2.*B**2
	  +10/3*B**3+8*B**2*A+B*A**2
	    +47/12*B**4+23*B**3*A+33/2*B**2*A**2+B*A**3
	    +131/30*B**5+142/3*B**4*A+82*B**3*A**2+28*B**2*A**3
	     +B*A**4 )
	   +PI**2*(1./12.+2./3.*A*B+1./3.*B+1./3.*B**2
	    +1/3*B**3+2*B**2*A+B*A**2
	    +1/3*B**4+4*B**3*A+6*B**2*A**2+4/3*B*A**3
	   +1/3*B**5+20/3*B**4*A+20*B**3*A**2+40/3*B**2*A**3
	   +5/3*B*A**4 )
	   -2.*EP**(-2)
	   +EP**(-1)
	   -2.*EP**(-1)*LGA
	   +LG(SM)
	   -2.*LG(SM)*LGA
	   -2.*LG(SM)*EP**(-1)
	   -LG(SM)*LG(SM)
C THIS IS F2(M)*F2(SM)/PI**4
	X F22=-1./2.*LGA**2
	   -1./6.*PI**2
	   -4.*EP**(-2)
	   -2.*EP**(-1)*LGA
	   -2.*LG(SM)*LGA
	   -4.*LG(SM)*EP**(-1)
	   -2.*LG(SM)*LG(SM)
	X FFF(A,B)=-A-A*B-3.*A*B**2-11./2.*A*B**3-74./9.*A*B**4-797./72.*A*B*
	   *5-1./4.*A**2-3.*A**2*B-49./4.*A**2*B**2-35.*A**2*B**3-2851./36.
	   *A**2*B**4-1./9.*A**3-11./2.*A**3*B-35.*A**3*B**2-2531./18.*A**3
	   *B**3-1./16.*A**4-74./9.*A**4*B-2851./36.*A**4*B**2-1./25.*A**5-
	   797./72.*A**5*B-1./36.*A**6-B-1./4.*B**2-1./9.*B**3-1./16.*B**4-
	   1./25.*B**5-1./36.*B**6
	   +LGA*(A+A*B+A*B**2+A*B**3+A*B**4+A*B**5+1./2.*A**2+4.*A**2*B+21.
	   /2.*A**2*B**2+20.*A**2*B**3+65./2.*A**2*B**4+1./3.*A**3+8.*A**3*
	   B+40.*A**3*B**2+370./3.*A**3*B**3+1./4.*A**4+38./3.*A**4*B+310./
	   3.*A**4*B**2+1./5.*A**5+107./6.*A**5*B+1./6.*A**6)
	   +LGA*LGB*(A*B+2.*A*B**2+3.*A*B**3+4.*A*B**4+5.*A*B**5+2.*A**2*B+
	   9.*A**2*B**2+24.*A**2*B**3+50.*A**2*B**4+3.*A**3*B+24.*A**3*B**2
	   +100.*A**3*B**3+4.*A**4*B+50.*A**4*B**2+5.*A**5*B)
	   +LGB*(A*B+4.*A*B**2+8.*A*B**3+38./3.*A*B**4+107./6.*A*B**5+A**2*
	   B+21./2.*A**2*B**2+40.*A**2*B**3+310./3.*A**2*B**4+A**3*B+20.*A*
	   *3*B**2+370./3.*A**3*B**3+A**4*B+65./2.*A**4*B**2+A**5*B+B+1./2.
	   *B**2+1./3.*B**3+1./4.*B**4+1./5.*B**5+1./6.*B**6)
	   +S2*(1.+2.*A*B+4.*A*B**2+6.*A*B**3+8.*A*B**4+10.*A*B**5+4.*A**2*
	   B+18.*A**2*B**2+48.*A**2*B**3+100.*A**2*B**4+6.*A**3*B+48.*A**3*
	   B**2+200.*A**3*B**3+8.*A**4*B+100.*A**4*B**2+10.*A**5*B)+0.
	*fix

Begin. Time 2 sec.
	B EP,LGA,LGB,PI,SM
	Z F112=-2/EP**2+(1-2*LG(SM))/EP-1/2-PI**2/12+LG(SM)-LG(SM)*LG(SM)
	       -FFF(A,B)
	Z F221=-DM0*F211*XX
	Z F212=DM*FFF(A,B)*XX
	Z FF211=F211
L 6	Id,DM=DFA/SM**2
L 6	Al,DM0=DFB/SM**2
L 6	Al,EP=0
L 7	Id,DFB*B**N~=N*B**N/B+B**N*DFB
L 7	Al,DFA*A**N~=N*A**N/A+A**N*DFA
L 8	Id,DFB*LGB**2=2*LGB/B+LGB**2*DFB
L 8	Al,DFA*LGA**2=2*LGA/A+LGA**2*DFA
L 8	Al,DFB*LGB=1/B+LGB*DFB
L 8	Al,DFA*LGA=1/A+LGA*DFA
L 9	Id,DFB*XX=0
L 9	Al,DFA*XX=0
L 9	Al,XX=1
L10	Id,Multi,M**2=A*SM**2
L10	Al,Multi,M0**2=B*SM**2
L11	Id,LG(M)=LGA+LG(SM)
L11	Al,LG(M0)=LGB+LG(SM)
L12	Id,Commu,LG
L13	Id,S2=PI**2/6
	Keep F112,F221,F212
	*next
 
F112 = 
  - 1/2 + A + A*B + 3*A*B^2 + 11/2*A*B^3 + 74/9*A*B^4 + 797/72*A*B^5
   + 1/4*A^2 + 3*A^2*B + 49/4*A^2*B^2 + 35*A^2*B^3 + 2851/36*A^2*B^4
   + 1/9*A^3 + 11/2*A^3*B + 35*A^3*B^2 + 2531/18*A^3*B^3 + 1/16*A^4
   + 74/9*A^4*B + 2851/36*A^4*B^2 + 1/25*A^5 + 797/72*A^5*B
  + 1/36*A^6 + B + 1/4*B^2 + 1/9*B^3 + 1/16*B^4 + 1/25*B^5
  + 1/36*B^6
 
 + LGA
  * ( - A - A*B - A*B^2 - A*B^3 - A*B^4 - A*B^5 - 1/2*A^2
  - 4*A^2*B - 21/2*A^2*B^2 - 20*A^2*B^3 - 65/2*A^2*B^4 - 1/3*A^3
  - 8*A^3*B - 40*A^3*B^2 - 370/3*A^3*B^3 - 1/4*A^4 - 38/3*A^4*B
  - 310/3*A^4*B^2 - 1/5*A^5 - 107/6*A^5*B - 1/6*A^6 )
 
 + LGA*LGB
  * ( - A*B - 2*A*B^2 - 3*A*B^3 - 4*A*B^4 - 5*A*B^5 - 2*A^2*B
  - 9*A^2*B^2 - 24*A^2*B^3 - 50*A^2*B^4 - 3*A^3*B - 24*A^3*B^2
  - 100*A^3*B^3 - 4*A^4*B - 50*A^4*B^2 - 5*A^5*B )
 
 + LGB
  * ( - A*B - 4*A*B^2 - 8*A*B^3 - 38/3*A*B^4 - 107/6*A*B^5
  - A^2*B - 21/2*A^2*B^2 - 40*A^2*B^3 - 310/3*A^2*B^4 - A^3*B
  - 20*A^3*B^2 - 370/3*A^3*B^3 - A^4*B - 65/2*A^4*B^2 - A^5*B
  - B - 1/2*B^2 - 1/3*B^3 - 1/4*B^4 - 1/5*B^5 - 1/6*B^6 )
 
 + PI^2
  * ( - 1/4 - 1/3*A*B - 2/3*A*B^2 - A*B^3 - 4/3*A*B^4 - 5/3*A*B^5
  - 2/3*A^2*B - 3*A^2*B^2 - 8*A^2*B^3 - 50/3*A^2*B^4 - A^3*B
  - 8*A^3*B^2 - 100/3*A^3*B^3 - 4/3*A^4*B - 50/3*A^4*B^2 - 5/3*A^5
  *B )
 
 - 2*EP^-2
 
 + EP^-1
 
 + LG(SM)
 
 - 2*LG(SM)*EP^-1
 
 - LG(SM)*LG(SM)
 
F221 = 
 + SM^-2
  * ( 2*A + 10*A*B + 37*A*B^2 + 886/9*A*B^3 + 9/2*A^2 + 37*A^2*B
  + 367/2*A^2*B^2 + 65/9*A^3 + 886/9*A^3*B + 725/72*A^4 + 2*B
  + 9/2*B^2 + 65/9*B^3 + 725/72*B^4 )
 
 + LGA*SM^-2
  * ( - 1 - 5*A - 16*A*B - 33*A*B^2 - 56*A*B^3 - 10*A^2 - 69*A^2*B
   - 246*A^2*B^2 - 47/3*A^3 - 568/3*A^3*B - 131/6*A^4 - B
  - B^2 - B^3 - B^4 )
 
 + LGA*LGB*SM^-2
  * ( - 1 - 2*A - 12*A*B - 36*A*B^2 - 80*A*B^3 - 3*A^2 - 36*A^2*B
  - 180*A^2*B^2 - 4*A^3 - 80*A^3*B - 5*A^4 - 2*B - 3*B^2 - 4*B^3
  - 5*B^4 )
 
 + LGB*SM^-2
  * ( - 1 - A - 16*A*B - 69*A*B^2 - 568/3*A*B^3 - A^2 - 33*A^2*B
  - 246*A^2*B^2 - A^3 - 56*A^3*B - A^4 - 5*B - 10*B^2 - 47/3*B^3
  - 131/6*B^4 )
 
 + PI^2*SM^-2
  * ( - 1/3 - 2/3*A - 4*A*B - 12*A*B^2 - 80/3*A*B^3 - A^2
  - 12*A^2*B - 60*A^2*B^2 - 4/3*A^3 - 80/3*A^3*B - 5/3*A^4
  - 2/3*B - B^2 - 4/3*B^3 - 5/3*B^4 )
 
F212 = 
 + SM^-2
  * ( - 2*A*B - 14*A*B^2 - 50*A*B^3 - 1133/9*A*B^4 - 17/2*A^2*B
  - 65*A^2*B^2 - 597/2*A^2*B^3 - 182/9*A^3*B - 1921/9*A^3*B^2
  - 2701/72*A^4*B - 2*B^2 - 9/2*B^3 - 65/9*B^4 - 725/72*B^5 )
 
 + LGA*SM^-2
  * ( 1 + A + 8*A*B + 21*A*B^2 + 40*A*B^3 + 65*A*B^4 + A^2
  + 24*A^2*B + 120*A^2*B^2 + 370*A^2*B^3 + A^3 + 152/3*A^3*B
  + 1240/3*A^3*B^2 + A^4 + 535/6*A^4*B + A^5 + B + B^2 + B^3
  + B^4 + B^5 )
 
 + LGA*LGB*SM^-2
  * ( 4*A*B + 18*A*B^2 + 48*A*B^3 + 100*A*B^4 + 9*A^2*B + 72*A^2*B^2
   + 300*A^2*B^3 + 16*A^3*B + 200*A^3*B^2 + 25*A^4*B + B + 2*B^2
  + 3*B^3 + 4*B^4 + 5*B^5 )
 
 + LGB*SM^-2
  * ( 4*A*B + 30*A*B^2 + 104*A*B^3 + 770/3*A*B^4 + 6*A^2*B
  + 84*A^2*B^2 + 470*A^2*B^3 + 8*A^3*B + 180*A^3*B^2 + 10*A^4*B
  + 2*B + 6*B^2 + 11*B^3 + 50/3*B^4 + 137/6*B^5 )
 
 + PI^2*SM^-2
  * ( 4/3*A*B + 6*A*B^2 + 16*A*B^3 + 100/3*A*B^4 + 3*A^2*B
  + 24*A^2*B^2 + 100*A^2*B^3 + 16/3*A^3*B + 200/3*A^3*B^2
  + 25/3*A^4*B + 1/3*B + 2/3*B^2 + B^3 + 4/3*B^4 + 5/3*B^5 )
 
FF211 = 
  - 1/2 - A - 3*A*B - 9*A*B^2 - 20*A*B^3 - 328/9*A*B^4 - 1/4*A^2
  - 11/2*A^2*B - 107/4*A^2*B^2 - 177/2*A^2*B^3 - 1/9*A^3 - 74/9*A^3
  *B - 569/9*A^3*B^2 - 1/16*A^4 - 797/72*A^4*B - 1/25*A^5
  - B - 9/4*B^2 - 47/18*B^3 - 401/144*B^4 - 5197/1800*B^5
 
 + LGA
  * ( 1 + A + 3*A*B + 5*A*B^2 + 7*A*B^3 + 9*A*B^4 + 1/2*A^2
  + 7*A^2*B + 51/2*A^2*B^2 + 62*A^2*B^3 + 1/3*A^3 + 35/3*A^3*B
  + 224/3*A^3*B^2 + 1/4*A^4 + 101/6*A^4*B + 1/5*A^5 )
 
 + LGA*LGB
  * ( 2*A*B + 6*A*B^2 + 12*A*B^3 + 20*A*B^4 + 3*A^2*B + 18*A^2*B^2
   + 60*A^2*B^3 + 4*A^3*B + 40*A^3*B^2 + 5*A^4*B + B + B^2
  + B^3 + B^4 + B^5 )
 
 - 1/2*LGA^2
 
 + LGB
  * ( A*B + 8*A*B^2 + 23*A*B^3 + 142/3*A*B^4 + A^2*B + 33/2*A^2*B^2
   + 82*A^2*B^3 + A^3*B + 28*A^3*B^2 + A^4*B + B + 5/2*B^2
  + 10/3*B^3 + 47/12*B^4 + 131/30*B^5 )
 
 + PI^2
  * ( 1/12 + 2/3*A*B + 2*A*B^2 + 4*A*B^3 + 20/3*A*B^4 + A^2*B
  + 6*A^2*B^2 + 20*A^2*B^3 + 4/3*A^3*B + 40/3*A^3*B^2 + 5/3*A^4*B
  + 1/3*B + 1/3*B^2 + 1/3*B^3 + 1/3*B^4 + 1/3*B^5 )
 
 - 2*EP^-2
 
 + EP^-1
 
 - 2*EP^-1*LGA
 
 + LG(SM)
 
 - 2*LG(SM)*LGA
 
 - 2*LG(SM)*EP^-1
 
 - LG(SM)*LG(SM) + 0.
 
	B EP,LGA,LGB,PI,SM
	Z CH1=-(1+EP)*F211-2*M0**2*F221-F112+F22+(M**2-M0**2-SM**2)*F212
L 4	Id,Multi,M**2=A*SM**2
L 4	Al,Multi,M0**2=B*SM**2
L 5	Id,EP=0
L 6	Id,Commu,LG
	*end
 
CH1 = 
  + 419/4*A*B^5 + 1121/12*A^2*B^4 - 677/3*A^3*B^3 - 2041/8*A^4*B^2
   - 583/12*A^5*B - 1/36*A^6 + 241/24*B^6
 
 + LGA
  * ( - 63*A*B^5 - 545/2*A^2*B^4 + 80*A^3*B^3 + 855/2*A^4*B^2
  + 106*A^5*B + 7/6*A^6 - B^6 )
 
 + LGA*LGB
  * ( - 90*A*B^5 - 150*A^2*B^4 + 200*A^3*B^3 + 225*A^4*B^2
  + 30*A^5*B - 5*B^6 )
 
 + LGB
  * ( - 216*A*B^5 - 110*A^2*B^4 + 1240/3*A^3*B^3 + 405/2*A^4*B^2
  + 11*A^5*B - 68/3*B^6 )
 
 + PI^2
  * ( - 30*A*B^5 - 50*A^2*B^4 + 200/3*A^3*B^3 + 75*A^4*B^2
  + 10*A^5*B - 5/3*B^6 ) + 0.
 

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


C RO-parameter 20. Expansion of F211(SM,SM,M) for large SM.

C S X=13,B=7
C *FIX
C Z XX(1)=X
C KEEP XX
C *NEXT
C DO K2=2,12
C Z XX(K2)=XX(K2-1)*X
C ID,X**2=B*X-B
C KEEP XX
C PUNCH XX(K2)
C *NEXT
C ENDDO
C *END

	Common Exp,Expp
	S B=7,LGB,ROOT,FACT
	S X1=13,X2=13
	X FB=1+B+B**2+B**3+B**4*B**5+B**6
	D POW(N,X)=X,
	     (-B+B*X),
	     (-B*X-B**2+B**2*X),
	     (+B**2-2.*B**2*X-B**3+B**3*X),
	     (+B**2*X+2.*B**3-3.*B**3*X-B**4+B**4*X),
	     (-B**3+3.*B**3*X+3.*B**4-4.*B**4*X-B**5+B**5*X),
	     (-B**3*X-3.*B**4+6.*B**4*X+4.*B**5-5.*B**5*X-B**6+B**6*X),
	     (+B**4-4.*B**4*X-6.*B**5+10.*B**5*X+5.*B**6-6.*B**6*X),
	     (+B**4*X+4.*B**5-10.*B**5*X-10.*B**6+15.*B**6*X),
	     (-B**5+5.*B**5*X+10.*B**6-20.*B**6*X),
	     (-B**5*X-5.*B**6+15.*B**6*X),
	     (+B**6-6.*B**6*X),
	     B**6*X,0.
	*fix

Begin. Time 1 sec.
	Z TOT=0.
	Z TOTP=0.
	Z SPE=-X1*FB
	Z SPEP=X2-X2**2
	Keep TOT,SPE,TOTP,SPEP
	Nprint TOT,SPE,TOTP,SPEP
	*next
	DO K1=2,12
	Z TOT=TOT+SPE
	Z TOTP=TOTP+SPEP
	Z SPE=-SPE*X1*FB*(2-1)**2/2**2
	Z SPEP=SPEP*(X2-X2**2)*(2-1)**2/2**2
	Nprint TOT,SPE,TOTP,SPEP
	Keep TOT,SPE,TOTP,SPEP
	*next
	ENDDO
	Z TOT=TOT+SPE
	Z TOTP=TOTP+SPEP
	Nprint TOT,TOTP
	Keep TOT,TOTP
	*next
	N 20,R20
	B LGB,ROOT,FACT
	X SP(X)=X+X**2/4+X**3/9+X**4/16+X**5/25+X**6/36+X**7/49
	     +X**8/64+X**9/81+X**10/100+X**11/121+X**12/144
	X LGP(X)=-X-X**2/2-X**3/3-X**4/4-X**5/5-X**6/6-X**7/7
	     -X**8/8-X**9/9-X**10/10-X**11/11-X**12/12
C TOT=SPENCE(-X1/(1-B)), TOTP=SPENCE(X2-X2**2).
C POWERS OF X1 AND X2 HAVE BEEN COMPUTED USING X**2=B*X-B.
	Z EXP=FACT*(-TOT+TOTP+2*SP(X2)-S2
	  +(LGP(B)+LGP(X2))*(LGB+LGP(X2))
	  +0.5*LGP(X1)*LGP(X1)-0.5*LGP(B)*LGP(B) )
	  +SP(B)+LGB*LGP(B)-S2
	*yep
L 1	Id,X1**N~=POW(N,X1)
L 1	Al,X2**N~=POW(N,X2)
	*yep
L 1	Id,X1=0.5*B+0.5*ROOT
L 1	Al,X2=0.5*B-0.5*ROOT
L 1	Al,FACT=B/ROOT-1
L 2	Id,ROOT=0.
L 2	Al,ROOT**-1=0
	Keep EXP
	Punch EXP
	*next
 
EXP = 
  - B - 5/36*B**2 - 47/1800*B**3 - 319/58800*B**4 + 791921/1587600
  *B**5 + 31996183/76839840*B**6
 
 + LGB
  * ( 1/2*B + 1/12*B**2 + 1/60*B**3 + 1/280*B**4 + 1/1260*B**5
  + 1/5544*B**6 ) + 0.
 
	B EP,LGB,PI
	F LG
C COMPUTE NOW F211(SM,SM,M), WITH B=M**2/SM**2.
	Z F211=PI**4*(-2/EP**2+(1-2*GA-2*LG(SM))/EP
	   -1/2-PI**2/12+GA-GA**2+(1-2*GA)*LG(SM)-LG(SM)*LG(SM)
	   -EXP )
	Z Exp=EXP
C GA=EULERS CONSTANT, CAN BE ABSORBED INTO LOG DEFINITION.
L 5	Id,GA=0
	Keep F211
	*next
 
F211 = 
 + LGB*PI^4
  * ( - 1/2*B - 1/12*B^2 - 1/60*B^3 - 1/280*B^4 - 1/1260*B^5
  - 1/5544*B^6 )
 
 - 2*EP^-2*PI^4
 
 + EP^-1*PI^4
 
 + PI^4
  * ( - 1/2 + B + 5/36*B^2 + 47/1800*B^3 + 319/58800*B^4 - 791921/1587600
  *B^5 - 31996183/76839840*B^6 )
 
 - 1/12*PI^6
 
 - 2*LG(SM)*EP^-1*PI^4
 
 + LG(SM)*PI^4
 
 - LG(SM)*LG(SM)*PI^4
 
Exp = 
  - B - 5/36*B^2 - 47/1800*B^3 - 319/58800*B^4 + 791921/1587600*B^5
   + 31996183/76839840*B^6
 
 + LGB
  * ( 1/2*B + 1/12*B^2 + 1/60*B^3 + 1/280*B^4 + 1/1260*B^5
  + 1/5544*B^6 ) + 0.
 
	Z Expp=F211
	*begin
 
Expp = 
  - 1/2*B*LGB*PI^4 + B*PI^4 - 1/12*B^2*LGB*PI^4 + 5/36*B^2*PI^4
  - 1/60*B^3*LGB*PI^4 + 47/1800*B^3*PI^4 - 1/280*B^4*LGB*PI^4
  + 319/58800*B^4*PI^4 - 1/1260*B^5*LGB*PI^4 - 791921/1587600*B^5*PI^4
   - 1/5544*B^6*LGB*PI^4 - 31996183/76839840*B^6*PI^4 - 2*EP^-2*PI^4
   + EP^-1*PI^4 - 1/2*PI^4 - 1/12*PI^6
 
 + LG(SM)
  * ( - 2*EP^-1*PI^4 + PI^4 )
 
 + LG(SM)*LG(SM)
  * ( - PI^4 ) + 0.
 

Begin. Time 4 sec.
	Write Exp
	Write Expp
	*end

End run. Time 4 sec.
