Schoonschip, 68000 version of June 27, 1991. Public version.
Date: Sun Dec 12 1993 18:22:40.  Memory: start 0001BCDC, length 476860.

Command line: +1 Varia.e Xax.x


C Varia 1. F-G series.

  P. Sconzo, A. Le Schack and R. Tobey, The Astronomical Journal 70(1965)269.

C Calculate up to and including F(25), G(25).

C Running time:
	C		CRDS	 32 secs, without cache 50 sec.
	C		HP PC	257 secs.
	C		Torch    47 secs. (with 68020).

> BLOCK Subs{}
> Id,mu**n~*Diff=Diff*mu**n + n*mup*mu**(n-1)
> Id,si**n~*Diff=Diff*si**n + n*sip*si**(n-1)
> Id,ep**n~*Diff=Diff*ep**n + n*epp*ep**(n-1)
> Id,Diff=0
> Id,mup=-3*mu*si
> Al,epp=-si*(mu+2*ep)
> Al,sip=ep-2*si**2
> ENDBLOCK

	F Diff
	S mu,ep,si,mup,epp,sip
	I K,N
	Z FF(0)=1
	Z FG(0)=0
	Keep FF,FG
	*next
 
FF(0) =  + 1
 
FG(0) = 0. + 0.
 
	DO L1=1,25
	Z FF(1)=FF(1-1)*Diff - mu*FG(1-1)
	Z FG(1)=FF(1-1) + FG(1-1)*Diff
> Subs{}
L 5	Id,mu**n~*Diff=Diff*mu**n + n*mup*mu**(n-1)
L 7	Id,si**n~*Diff=Diff*si**n + n*sip*si**(n-1)
L 9	Id,ep**n~*Diff=Diff*ep**n + n*epp*ep**(n-1)
L11	Id,Diff=0
L12	Id,mup=-3*mu*si
L12	Al,epp=-si*(mu+2*ep)
L12	Al,sip=ep-2*si**2
	Keep FF(1),FG(1)
	*next
 
FF(1) = 0.
 
FG(1) =  + 1 + 0.
 
	ENDDO
 
FF(2) =  - mu
 
FG(2) = 0. + 0.
 
 
FF(3) =  + 3*mu*si
 
FG(3) =  - mu + 0.
 
 
FF(4) =  + 3*mu*ep - 15*mu*si^2 + mu^2
 
FG(4) =  + 6*mu*si + 0.
 
 
FF(5) =  - 45*mu*ep*si + 105*mu*si^3 - 15*mu^2*si
 
FG(5) =  + 9*mu*ep - 45*mu*si^2 + mu^2 + 0.
 
 
FF(6) =  + 630*mu*ep*si^2 - 45*mu*ep^2 - 945*mu*si^4 - 24*mu^2*ep
  + 210*mu^2*si^2 - mu^3
 
FG(6) =  - 180*mu*ep*si + 420*mu*si^3 - 30*mu^2*si + 0.
 
 
FF(7) =  - 9450*mu*ep*si^3 + 1575*mu*ep^2*si + 10395*mu*si^5
  + 882*mu^2*ep*si - 3150*mu^2*si^3 + 63*mu^3*si
 
FG(7) =  + 3150*mu*ep*si^2 - 225*mu*ep^2 - 4725*mu*si^4 - 54*mu^2*ep
   + 630*mu^2*si^2 - mu^3 + 0.
 
 
FF(8) = 
  + 155925*mu*ep*si^4 - 42525*mu*ep^2*si^2 + 1575*mu*ep^3
  - 135135*mu*si^6 - 24570*mu^2*ep*si^2 + 1107*mu^2*ep^2 + 51975*mu^2
  *si^4 + 117*mu^3*ep - 2205*mu^3*si^2 + mu^4
 
FG(8) =  - 56700*mu*ep*si^3 + 9450*mu*ep^2*si + 62370*mu*si^5
  + 3024*mu^2*ep*si - 12600*mu^2*si^3 + 126*mu^3*si + 0.
 
 
FF(9) = 
  - 2837835*mu*ep*si^5 + 1091475*mu*ep^2*si^3 - 99225*mu*ep^3*si
  + 2027025*mu*si^7 + 644490*mu^2*ep*si^3 - 74385*mu^2*ep^2*si
  - 945945*mu^2*si^5 - 10935*mu^3*ep*si + 65835*mu^3*si^3
  - 255*mu^4*si
 
FG(9) = 
  + 1091475*mu*ep*si^4 - 297675*mu*ep^2*si^2 + 11025*mu*ep^3
  - 945945*mu*si^6 - 111510*mu^2*ep*si^2 + 4131*mu^2*ep^2
  + 259875*mu^2*si^4 + 243*mu^3*ep - 6615*mu^3*si^2 + mu^4 + 0.
 
 
FF(10) = 
  + 56756700*mu*ep*si^6 - 28378350*mu*ep^2*si^4 + 4365900*mu*ep^3*si^2
   - 99225*mu*ep^4 - 34459425*mu*si^8 - 17027010*mu^2*ep*si^4
  + 3421440*mu^2*ep^2*si^2 - 85410*mu^2*ep^3 + 18918900*mu^2*si^6
  + 599940*mu^3*ep*si^2 - 15066*mu^3*ep^2 - 1891890*mu^3*si^4
  - 498*mu^4*ep + 21120*mu^4*si^2 - mu^5
 
FG(10) = 
  - 22702680*mu*ep*si^5 + 8731800*mu*ep^2*si^3 - 793800*mu*ep^3*si
   + 16216200*mu*si^7 + 3617460*mu^2*ep*si^3 - 371790*mu^2*ep^2*si
   - 5675670*mu^2*si^5 - 35100*mu^3*ep*si + 263340*mu^3*si^3
  - 510*mu^4*si + 0.
 
 
FF(11) = 
  - 1240539300*mu*ep*si^7 + 766215450*mu*ep^2*si^5 - 170270100*mu*ep^3
  *si^3 + 9823275*mu*ep^4*si + 654729075*mu*si^9 + 465404940*mu^2*ep
  *si^5 - 137837700*mu^2*ep^2*si^3 + 9058500*mu^2*ep^3*si
  - 413513100*mu^2*si^7 - 27027000*mu^3*ep*si^3 + 2023758*mu^3*ep^2
  *si + 54864810*mu^3*si^5 + 114444*mu^4*ep*si - 1201200*mu^4*si^3
   + 1023*mu^5*si
 
FG(11) = 
  + 510810300*mu*ep*si^6 - 255405150*mu*ep^2*si^4 + 39293100*mu*ep^3
  *si^2 - 893025*mu*ep^4 - 310134825*mu*si^8 - 113513400*mu^2*ep*si^4
   + 21116700*mu^2*ep^2*si^2 - 457200*mu^2*ep^3 + 132432300*mu^2*si^6
   + 2589840*mu^3*ep*si^2 - 50166*mu^3*ep^2 - 9459450*mu^3*si^4
  - 1008*mu^4*ep + 63360*mu^4*si^2 - mu^5 + 0.
 
 
FF(12) = 
  + .29463E+11*mu*ep*si^8 - .21709E+11*mu*ep^2*si^6 + 6385128750*mu
  *ep^3*si^4 - 638512875*mu*ep^4*si^2 + 9823275*mu*ep^5 - .13749E+11
  *mu*si^10 - .13315E+11*mu^2*ep*si^6 + 5298643350*mu^2*ep^2*si^4
  - 618918300*mu^2*ep^3*si^2 + 9951525*mu^2*ep^4 + .98209E+10*mu^2
  *si^8 + 1122971850*mu^3*ep*si^4 - 159729570*mu^3*ep^2*si^2
  + 2480958*mu^3*ep^3 - 1640268630*mu^3*si^6 - 12072060*mu^4*ep*si^2
   + 164610*mu^4*ep^2 + 58108050*mu^4*si^4 + 2031*mu^5*ep
  - 195195*mu^5*si^2 + mu^6
 
FG(12) = 
  - .12405E+11*mu*ep*si^7 + 7662154500*mu*ep^2*si^5 - 1702701000*mu
  *ep^3*si^3 + 98232750*mu*ep^4*si + 6547290750*mu*si^9 + 3587023440
  *mu^2*ep*si^5 - 1005404400*mu^2*ep^2*si^3 + 60350400*mu^2*ep^3*si
   - 3308104800*mu^2*si^7 - 145945800*mu^3*ep*si^3 + 9227196*mu^3*ep^2
  *si + 329188860*mu^3*si^5 + 355608*mu^4*ep*si - 4804800*mu^4*si^3
   + 2046*mu^5*si + 0.
 
 
FF(13) = 
  - .75621E+12*mu*ep*si^9 + .64818E+12*mu*ep^2*si^7 - .2388E+12*mu
  *ep^3*si^5 + .35118E+11*mu*ep^4*si^3 - 1404728325*mu*ep^5*si
  + .31623E+12*mu*si^11 + .40069E+12*mu^2*ep*si^7 - .20208E+12*mu^2
  *ep^2*si^5 + .35354E+11*mu^2*ep^3*si^3 - 1524507075*mu^2*ep^4*si
   - .25207E+12*mu^2*si^9 - .45362E+11*mu^3*ep*si^5 + .10069E+11*mu^3
  *ep^2*si^3 - 456830010*mu^3*ep^3*si + .51069E+11*mu^3*si^7
  + 915134220*mu^4*ep*si^3 - 43447950*mu^4*ep^2*si - 2614321710*mu^4
  *si^5 - 1109745*mu^5*ep*si + 20585565*mu^5*si^3 - 4095*mu^6*si
 
FG(13) = 
  + .32409E+12*mu*ep*si^8 - .2388E+12*mu*ep^2*si^6 + .70236E+11*mu
  *ep^3*si^4 - 7023641625*mu*ep^4*si^2 + 108056025*mu*ep^5
  - .15124E+12*mu*si^10 - .11636E+12*mu^2*ep*si^6 + .44428E+11*mu^2
  *ep^2*si^4 - 4872968100*mu^2*ep^3*si^2 + 70301925*mu^2*ep^4
  + .88388E+11*mu^2*si^8 + 7260803550*mu^3*ep*si^4 - 917026110*mu^3
  *ep^2*si^2 + 11708154*mu^3*ep^3 - .11482E+11*mu^3*si^6 - 50630580
  *mu^4*ep*si^2 + 520218*mu^4*ep^2 + 290540250*mu^4*si^4 + 4077*mu^5
  *ep - 585585*mu^5*si^2 + mu^6 + 0.
 
 
FF(14) = 
  + .20871E+14*mu*ep*si^10 - .20418E+14*mu*ep^2*si^8 + .90745E+13*mu
  *ep^3*si^6 - .1791E+13*mu*ep^4*si^4 + .12643E+12*mu*ep^5*si^2
  - 1404728325*mu*ep^6 - .79059E+13*mu*si^12 - .12704E+14*mu^2*ep*si^8
   + .78018E+13*mu^2*ep^2*si^6 - .18575E+13*mu^2*ep^3*si^4
  + .1445E+12*mu^2*ep^4*si^2 - 1632563100*mu^2*ep^5 + .69572E+13*mu^2
  *si^10 + .18306E+13*mu^3*ep*si^6 - .56862E+12*mu^3*ep^2*si^4
  + .48945E+11*mu^3*ep^3*si^2 - 527131935*mu^3*ep^4 - .16637E+13*mu^3
  *si^8 - .58774E+11*mu^4*ep*si^4 + 5814981900*mu^4*ep^2*si^2
  - 55156104*mu^4*ep^3 + .11436E+12*mu^4*si^6 + 220368330*mu^5*ep*si^2
   - 1629963*mu^5*ep^2 - 1637971335*mu^5*si^4 - 8172*mu^6*ep
  + 1777230*mu^6*si^2 - mu^7
 
FG(14) = 
  - .90745E+13*mu*ep*si^9 + .77782E+13*mu*ep^2*si^7 - .28656E+13*mu
  *ep^3*si^5 + .42142E+12*mu*ep^4*si^3 - .16857E+11*mu*ep^5*si
  + .37948E+13*mu*si^11 + .39127E+13*mu^2*ep*si^7 - .19107E+13*mu^2
  *ep^2*si^5 + .31913E+12*mu^2*ep^3*si^3 - .12795E+11*mu^2*ep^4*si
   - .25207E+13*mu^2*si^9 - .34107E+12*mu^3*ep*si^5 + .69321E+11*mu^3
  *ep^2*si^3 - 2747712240*mu^3*ep^3*si + .40855E+12*mu^3*si^7
  + 4822697880*mu^4*ep*si^3 - 188157060*mu^4*ep^2*si - .15686E+11*mu^4
  *si^5 - 3390660*mu^5*ep*si + 82342260*mu^5*si^3 - 8190*mu^6*si + 0.
 
 
FF(15) = 
  - .61666E+15*mu*ep*si^11 + .67832E+15*mu*ep^2*si^9 - .35391E+15*mu
  *ep^3*si^7 + .88477E+14*mu*ep^4*si^5 - .93133E+13*mu*ep^5*si^3
  + .27392E+12*mu*ep^6*si + .21346E+15*mu*si^13 + .42439E+15*mu^2*ep
  *si^9 - .30828E+15*mu^2*ep^2*si^7 + .9399E+14*mu^2*ep^3*si^5
  - .11085E+14*mu^2*ep^4*si^3 + .34041E+12*mu^2*ep^5*si - .20555E+15
  *mu^2*si^11 - .7493E+14*mu^3*ep*si^7 + .30408E+14*mu^3*ep^2*si^5
   - .41016E+13*mu^3*ep^3*si^3 + .12781E+12*mu^3*ep^4*si + .56817E+14
  *mu^3*si^9 + .34575E+13*mu^4*ep*si^5 - .56755E+12*mu^4*ep^2*si^3
   + .17479E+11*mu^4*ep^3*si - .49838E+13*mu^4*si^7 - .27632E+11*mu^5
  *ep*si^3 + 825331329*mu^5*ep^2*si + .11213E+12*mu^5*si^5
  + 10368486*mu^6*ep*si - 341809650*mu^6*si^3 + 16383*mu^7*si
 
FG(15) = 
  + .27133E+15*mu*ep*si^10 - .26543E+15*mu*ep^2*si^8 + .11797E+15*mu
  *ep^3*si^6 - .23283E+14*mu*ep^4*si^4 + .16435E+13*mu*ep^5*si^2
  - .18261E+11*mu*ep^6 - .10278E+15*mu*si^12 - .13703E+15*mu^2*ep*si^8
   + .82001E+14*mu^2*ep^2*si^6 - .18841E+14*mu^2*ep^3*si^4
  + .13909E+13*mu^2*ep^4*si^2 - .14428E+11*mu^2*ep^5 + .76529E+14*mu^2
  *si^10 + .15674E+14*mu^3*ep*si^6 - .45484E+13*mu^3*ep^2*si^4
  + .3548E+12*mu^3*ep^3*si^2 - 3274844175*mu^3*ep^4 - .14973E+14*mu^3
  *si^8 - .3723E+12*mu^4*ep*si^4 + .31913E+11*mu^4*ep^2*si^2
  - 243313164*mu^4*ep^3 + .80052E+12*mu^4*si^6 + 908131770*mu^5*ep
  *si^2 - 5020623*mu^5*ep^2 - 8189856675*mu^5*si^4 - 16362*mu^6*ep
   + 5331690*mu^6*si^2 - mu^7 + 0.
 
 
FF(16) = 
  + .19425E+17*mu*ep*si^12 - .23741E+17*mu*ep^2*si^10 + .14245E+17
  *mu*ep^3*si^8 - .43354E+16*mu*ep^4*si^6 + .61934E+15*mu*ep^5*si^4
   - .32597E+14*mu*ep^6*si^2 + .27392E+12*mu*ep^7 - .61903E+16*mu*si^14
   - .14923E+17*mu^2*ep*si^10 + .12545E+17*mu^2*ep^2*si^8
  - .46976E+16*mu^2*ep^3*si^6 + .76149E+15*mu^2*ep^4*si^4
  - .42668E+14*mu^2*ep^5*si^2 + .35867E+12*mu^2*ep^6 + .64749E+16*mu^2
  *si^12 + .31382E+16*mu^3*ep*si^8 - .15879E+16*mu^3*ep^2*si^6
  + .30135E+15*mu^3*ep^3*si^4 - .17826E+14*mu^3*ep^4*si^2
  + .14224E+12*mu^3*ep^5 - .2035E+16*mu^3*si^10 - .19436E+15*mu^4*ep
  *si^6 + .46627E+14*mu^4*ep^2*si^4 - .29183E+13*mu^4*ep^3*si^2
  + .20754E+11*mu^4*ep^4 + .21948E+15*mu^4*si^8 + .27036E+13*mu^5*ep
  *si^4 - .18458E+12*mu^5*ep^2*si^2 + 1068644493*mu^5*ep^3
  - .70613E+13*mu^5*si^6 - 3812330070*mu^6*ep*si^2 + 15389109*mu^6
  *ep^2 + .44026E+11*mu^6*si^4 + 32745*mu^7*ep - 16076985*mu^7*si^2
   + mu^8
 
FG(16) = 
  - .86332E+16*mu*ep*si^11 + .94965E+16*mu*ep^2*si^9 - .49547E+16*mu
  *ep^3*si^7 + .12387E+16*mu*ep^4*si^5 - .13039E+15*mu*ep^5*si^3
  + .38349E+13*mu*ep^6*si + .29884E+16*mu*si^13 + .50091E+16*mu^2*ep
  *si^9 - .35624E+16*mu^2*ep^2*si^7 + .10559E+16*mu^2*ep^3*si^5
  - .1197E+15*mu^2*ep^4*si^3 + .34626E+13*mu^2*ep^5*si - .24666E+16
  *mu^2*si^11 - .71922E+15*mu^3*ep*si^7 + .27649E+15*mu^3*ep^2*si^5
   - .346E+14*mu^3*ep^3*si^3 + .96522E+12*mu^3*ep^4*si + .56817E+15
  *mu^3*si^9 + .25548E+14*mu^4*ep*si^5 - .37594E+13*mu^4*ep^2*si^3
   + .98784E+11*mu^4*ep^3*si - .3987E+14*mu^4*si^7 - .14329E+12*mu^5
  *ep*si^3 + 3466926198*mu^5*ep^2*si + .6728E+12*mu^5*si^5
  + 31400352*mu^6*ep*si - 1367238600*mu^6*si^3 + 32766*mu^7*si + 0.
 
 
FF(17) = 
  - .64998E+18*mu*ep*si^13 + .87411E+18*mu*ep^2*si^11 - .59353E+18
  *mu*ep^3*si^9 + .21367E+18*mu*ep^4*si^7 - .39018E+17*mu*ep^5*si^5
   + .30967E+16*mu*ep^6*si^3 - .6985E+14*mu*ep^7*si + .1919E+18*mu
  *si^15 + .55166E+18*mu^2*ep*si^11 - .52764E+18*mu^2*ep^2*si^9
  + .2354E+18*mu^2*ep^3*si^7 - .49274E+17*mu^2*ep^4*si^5 + .42253E+16
  *mu^2*ep^5*si^3 - .97545E+14*mu^2*ep^6*si - .21666E+18*mu^2*si^13
   - .13518E+18*mu^3*ep*si^9 + .82457E+17*mu^3*ep^2*si^7 - .2056E+17
  *mu^3*ep^3*si^5 + .19128E+16*mu^3*ep^4*si^3 - .43969E+14*mu^3*ep^5
  *si + .76404E+17*mu^3*si^11 + .10704E+17*mu^4*ep*si^7 - .34657E+16
  *mu^4*ep^2*si^5 + .35661E+15*mu^4*ep^3*si^3 - .7928E+13*mu^4*ep^4
  *si - .98518E+16*mu^4*si^9 - .22876E+15*mu^5*ep*si^5 + .27574E+14
  *mu^5*ep^2*si^3 - .5734E+12*mu^5*ep^3*si + .42488E+15*mu^5*si^7
  + .78004E+12*mu^6*ep*si^3 - .14636E+11*mu^6*ep^2*si - .45211E+13
  *mu^6*si^5 - 95085675*mu^7*ep*si + 5581493295*mu^7*si^3
  - 65535*mu^8*si
 
FG(17) = 
  + .29137E+18*mu*ep*si^12 - .35612E+18*mu*ep^2*si^10 + .21367E+18
  *mu*ep^3*si^8 - .6503E+17*mu*ep^4*si^6 + .92901E+16*mu*ep^5*si^4
   - .48895E+15*mu*ep^6*si^2 + .41088E+13*mu*ep^7 - .92854E+17*mu*si^14
   - .19129E+18*mu^2*ep*si^10 + .15799E+18*mu^2*ep^2*si^8
  - .5782E+17*mu^2*ep^3*si^6 + .90872E+16*mu^2*ep^4*si^4 - .48711E+15
  *mu^2*ep^5*si^2 + .38213E+13*mu^2*ep^6 + .84174E+17*mu^2*si^12
  + .33357E+17*mu^3*ep*si^8 - .1615E+17*mu^3*ep^2*si^6 + .28892E+16
  *mu^3*ep^3*si^4 - .15728E+15*mu^3*ep^4*si^2 + .11075E+13*mu^3*ep^5
   - .22385E+17*mu^3*si^10 - .16396E+16*mu^4*ep*si^6 + .36087E+15*mu^4
  *ep^2*si^4 - .20033E+14*mu^4*ep^3*si^2 + .11954E+12*mu^4*ep^4
  + .19753E+16*mu^4*si^8 + .16882E+14*mu^5*ep*si^4 - .9836E+12*mu^5
  *ep^2*si^2 + 4535570691*mu^5*ep^3 - .49429E+14*mu^5*si^6
  - .15539E+11*mu^6*ep*si^2 + 46789461*mu^6*ep^2 + .22013E+12*mu^6
  *si^4 + 65511*mu^7*ep - 48230955*mu^7*si^2 + mu^8 + 0.
 
 
FF(18) = 
  + .23028E+20*mu*ep*si^14 - .33799E+20*mu*ep^2*si^12 + .25641E+20
  *mu*ep^3*si^10 - .10684E+20*mu*ep^4*si^8 + .23931E+19*mu*ep^5*si^6
   - .26012E+18*mu*ep^6*si^4 + .10617E+17*mu*ep^7*si^2 - .6985E+14
  *mu*ep^8 - .63327E+19*mu*si^16 - .21406E+20*mu^2*ep*si^12
  + .22979E+20*mu^2*ep^2*si^10 - .11938E+20*mu^2*ep^3*si^8
  + .30905E+19*mu^2*ep^4*si^6 - .3672E+18*mu^2*ep^5*si^4 + .15605E+17
  *mu^2*ep^6*si^2 - .10165E+15*mu^2*ep^7 + .7676E+19*mu^2*si^14
  + .60072E+19*mu^3*ep*si^10 - .43072E+19*mu^3*ep^2*si^8 + .13461E+19
  *mu^3*ep^3*si^6 - .17701E+18*mu^3*ep^4*si^4 + .77341E+16*mu^3*ep^5
  *si^2 - .47791E+14*mu^3*ep^6 - .30044E+19*mu^3*si^12 - .58665E+18
  *mu^4*ep*si^8 + .24287E+18*mu^4*ep^2*si^6 - .36428E+17*mu^4*ep^3
  *si^4 + .16214E+16*mu^4*ep^4*si^2 - .90355E+13*mu^4*ep^5
  + .45312E+18*mu^4*si^10 + .17722E+17*mu^5*ep*si^6 - .32639E+16*mu^5
  *ep^2*si^4 + .14766E+15*mu^5*ep^3*si^2 - .69294E+12*mu^5*ep^4
  - .25001E+17*mu^5*si^8 - .11492E+15*mu^6*ep*si^4 + .53952E+13*mu^6
  *ep^2*si^2 - .19172E+11*mu^6*ep^3 + .40478E+15*mu^6*si^6
  + .63932E+11*mu^7*ep*si^2 - 141875136*mu^7*ep^2 - .11509E+13*mu^7
  *si^4 - 131046*mu^8*ep + 145020540*mu^8*si^2 - mu^9
 
FG(18) = 
  - .104E+20*mu*ep*si^13 + .13986E+20*mu*ep^2*si^11 - .94965E+19*mu
  *ep^3*si^9 + .34187E+19*mu*ep^4*si^7 - .62429E+18*mu*ep^5*si^5
  + .49547E+17*mu*ep^6*si^3 - .11176E+16*mu*ep^7*si + .30704E+19*mu
  *si^15 + .763E+19*mu^2*ep*si^11 - .71892E+19*mu^2*ep^2*si^9
  + .31471E+19*mu^2*ep^3*si^7 - .64256E+18*mu^2*ep^4*si^5
  + .5325E+17*mu^2*ep^5*si^3 - .11693E+16*mu^2*ep^6*si - .30332E+19
  *mu^2*si^13 - .15756E+19*mu^3*ep*si^9 + .92651E+18*mu^3*ep^2*si^7
   - .22026E+18*mu^3*ep^3*si^5 + .19208E+17*mu^3*ep^4*si^3
  - .4025E+15*mu^3*ep^5*si + .91685E+18*mu^3*si^11 + .10144E+18*mu^4
  *ep*si^7 - .30632E+17*mu^4*ep^2*si^5 + .287E+16*mu^4*ep^3*si^3
  - .55922E+14*mu^4*ep^4*si - .98518E+17*mu^4*si^9 - .16691E+16*mu^5
  *ep*si^5 + .17782E+15*mu^5*ep^2*si^3 - .3114E+13*mu^5*ep^3*si
  + .33991E+16*mu^5*si^7 + .40007E+13*mu^6*ep*si^3 - .6035E+11*mu^6
  *ep^2*si - .27126E+14*mu^6*si^5 - 286633260*mu^7*ep*si + .22326E+11
  *mu^7*si^3 - 131070*mu^8*si + 0.
 
 
FF(19) = 
  - .86124E+21*mu*ep*si^15 + .13702E+22*mu*ep^2*si^13 - .11492E+22
  *mu*ep^3*si^11 + .54486E+21*mu*ep^4*si^9 - .1453E+21*mu*ep^5*si^7
   + .20342E+20*mu*ep^6*si^5 - .12634E+19*mu*ep^7*si^3 + .22562E+17
  *mu*ep^8*si + .22164E+21*mu*si^17 + .87045E+21*mu^2*ep*si^13
  - .10371E+22*mu^2*ep^2*si^11 + .61627E+21*mu^2*ep^3*si^9
  - .19124E+21*mu^2*ep^4*si^7 + .29541E+20*mu^2*ep^5*si^5
  - .1936E+19*mu^2*ep^6*si^3 + .34919E+17*mu^2*ep^7*si - .28708E+21
  *mu^2*si^15 - .27586E+21*mu^3*ep*si^11 + .22798E+21*mu^3*ep^2*si^9
   - .86312E+20*mu^3*ep^3*si^7 + .1498E+20*mu^3*ep^4*si^5
  - .10328E+19*mu^3*ep^5*si^3 + .18353E+17*mu^3*ep^6*si + .12358E+21
  *mu^3*si^13 + .32321E+20*mu^4*ep*si^9 - .16458E+20*mu^4*ep^2*si^7
   + .33326E+19*mu^4*ep^3*si^5 - .2425E+18*mu^4*ep^4*si^3
  + .41308E+16*mu^4*ep^5*si - .21424E+20*mu^4*si^11 - .13011E+19*mu^5
  *ep*si^7 + .33437E+18*mu^5*ep^2*si^5 - .26102E+17*mu^5*ep^3*si^3
   + .41235E+15*mu^5*ep^4*si + .14602E+19*mu^5*si^9 + .13843E+17*mu^6
  *ep*si^5 - .12207E+16*mu^6*ep^2*si^3 + .17136E+14*mu^6*ep^3*si
  - .33264E+17*mu^6*si^7 - .21121E+14*mu^7*ep*si^3 + .24928E+12*mu^7
  *ep^2*si + .17542E+15*mu^7*si^5 + 863831808*mu^8*ep*si - .90319E+11
  *mu^8*si^3 + 262143*mu^9*si
 
FG(19) = 
  + .39147E+21*mu*ep*si^14 - .57458E+21*mu*ep^2*si^12 + .43589E+21
  *mu*ep^3*si^10 - .18162E+21*mu*ep^4*si^8 + .40683E+20*mu*ep^5*si^6
   - .44221E+19*mu*ep^6*si^4 + .18049E+18*mu*ep^7*si^2 - .11875E+16
  *mu*ep^8 - .10766E+21*mu*si^16 - .31771E+21*mu^2*ep*si^12
  + .3367E+21*mu^2*ep^2*si^10 - .17214E+21*mu^2*ep^3*si^8
  + .43663E+20*mu^2*ep^4*si^6 - .50488E+19*mu^2*ep^5*si^4
  + .20656E+18*mu^2*ep^6*si^2 - .1271E+16*mu^2*ep^7 + .11514E+21*mu^2
  *si^14 + .76165E+20*mu^3*ep*si^10 - .52945E+20*mu^3*ep^2*si^8
  + .15908E+20*mu^3*ep^3*si^6 - .19863E+19*mu^3*ep^4*si^4
  + .80827E+17*mu^3*ep^5*si^2 - .45029E+15*mu^3*ep^6 - .39057E+20*mu^3
  *si^12 - .61665E+19*mu^4*ep*si^8 + .24101E+19*mu^4*ep^2*si^6
  - .3353E+18*mu^4*ep^3*si^4 + .13474E+17*mu^4*ep^4*si^2 - .64958E+14
  *mu^4*ep^5 + .49843E+19*mu^4*si^10 + .14785E+18*mu^5*ep*si^6
  - .24665E+17*mu^5*ep^2*si^4 + .97644E+15*mu^5*ep^3*si^2
  - .38069E+13*mu^5*ep^4 - .22501E+18*mu^5*si^8 - .71022E+15*mu^6*ep
  *si^4 + .28188E+14*mu^6*ep^2*si^2 - .79521E+11*mu^6*ep^3
  + .28335E+16*mu^6*si^6 + .25878E+12*mu^7*ep*si^2 - 428508396*mu^7
  *ep^2 - .57544E+13*mu^7*si^4 - 262116*mu^8*ep + 435061620*mu^8*si^2
   - mu^9 + 0.
 
 
FF(20) = 
  + .33911E+23*mu*ep*si^16 - .58134E+23*mu*ep^2*si^14 + .53436E+23
  *mu*ep^3*si^12 - .28442E+23*mu*ep^4*si^10 + .88268E+22*mu*ep^5*si^8
   - .15256E+22*mu*ep^6*si^6 + .13077E+21*mu*ep^7*si^4 - .42641E+19
  *mu*ep^8*si^2 + .22562E+17*mu*ep^9 - .82008E+22*mu*si^18
  - .37033E+23*mu^2*ep*si^14 + .48527E+23*mu^2*ep^2*si^12
  - .32512E+23*mu^2*ep^3*si^10 + .11809E+23*mu^2*ep^4*si^8
  - .22695E+22*mu^2*ep^5*si^6 + .20743E+21*mu^2*ep^6*si^4
  - .69371E+19*mu^2*ep^7*si^2 + .36106E+17*mu^2*ep^8 + .11304E+23*mu^2
  *si^16 + .13102E+23*mu^3*ep*si^12 - .12287E+23*mu^3*ep^2*si^10
  + .5492E+22*mu^3*ep^3*si^8 - .12E+22*mu^3*ep^4*si^6 + .11739E+21
  *mu^3*ep^5*si^4 - .39715E+19*mu^3*ep^6*si^2 + .19624E+17*mu^3*ep^7
   - .5311E+22*mu^3*si^14 - .18021E+22*mu^4*ep*si^10 + .10965E+22*mu^4
  *ep^2*si^8 - .28435E+21*mu^4*ep^3*si^6 + .30119E+20*mu^4*ep^4*si^4
   - .10176E+19*mu^4*ep^5*si^2 + .45811E+16*mu^4*ep^6 + .10433E+22
  *mu^4*si^12 + .9256E+20*mu^5*ep*si^8 - .31213E+20*mu^5*ep^2*si^6
   + .36819E+19*mu^5*ep^3*si^4 - .12274E+18*mu^5*ep^4*si^2
  + .47731E+15*mu^5*ep^5 - .85492E+20*mu^5*si^10 - .14647E+19*mu^6
  *ep*si^6 + .20637E+18*mu^6*ep^2*si^4 - .67336E+16*mu^6*ep^3*si^2
   + .20943E+14*mu^6*ep^4 + .25906E+19*mu^6*si^8 + .46413E+16*mu^7
  *ep*si^4 - .14969E+15*mu^7*ep^2*si^2 + .3288E+12*mu^7*ep^3
  - .22115E+17*mu^7*si^6 - .10525E+13*mu^8*ep*si^2 + 1292340204*mu^8
  *ep^2 + .29585E+14*mu^8*si^4 + 524259*mu^9*ep - 1306495575*mu^9*si^2
   + mu^10
 
FG(20) = 
  - .15502E+23*mu*ep*si^15 + .24663E+23*mu*ep^2*si^13 - .20685E+23
  *mu*ep^3*si^11 + .98075E+22*mu*ep^4*si^9 - .26153E+22*mu*ep^5*si^7
   + .36615E+21*mu*ep^6*si^5 - .22742E+20*mu*ep^7*si^3 + .40611E+18
  *mu*ep^8*si + .39896E+22*mu*si^17 + .13798E+23*mu^2*ep*si^13
  - .16258E+23*mu^2*ep^2*si^11 + .95297E+22*mu^2*ep^3*si^9
  - .2907E+22*mu^2*ep^4*si^7 + .43922E+21*mu^2*ep^5*si^5 - .27939E+20
  *mu^2*ep^6*si^3 + .48297E+18*mu^2*ep^7*si - .45933E+22*mu^2*si^15
   - .3779E+22*mu^3*ep*si^11 + .30415E+22*mu^3*ep^2*si^9 - .11141E+22
  *mu^3*ep^3*si^7 + .18533E+21*mu^3*ep^4*si^5 - .12077E+20*mu^3*ep^5
  *si^3 + .19836E+18*mu^3*ep^6*si + .17302E+22*mu^3*si^13
  + .37305E+21*mu^4*ep*si^9 - .181E+21*mu^4*ep^2*si^7 + .34456E+20
  *mu^4*ep^3*si^5 - .23112E+19*mu^4*ep^4*si^3 + .3521E+17*mu^4*ep^5
  *si - .25709E+21*mu^4*si^11 - .12209E+20*mu^5*ep*si^7 + .28933E+19
  *mu^5*ep^2*si^5 - .20307E+18*mu^5*ep^3*si^3 + .27776E+16*mu^5*ep^4
  *si + .14602E+20*mu^5*si^9 + .10006E+18*mu^6*ep*si^5 - .77238E+16
  *mu^6*ep^2*si^3 + .90648E+14*mu^6*ep^3*si - .26611E+18*mu^6*si^7
   - .1075E+15*mu^7*ep*si^3 + .10161E+13*mu^7*ep^2*si + .10525E+16
  *mu^7*si^5 + 2597786856*mu^8*ep*si - .36128E+12*mu^8*si^3
  + 524286*mu^9*si + 0.
 
 
FF(21) = 
  - .14023E+25*mu*ep*si^17 + .25773E+25*mu*ep^2*si^15 - .25773E+25
  *mu*ep^3*si^13 + .15229E+25*mu*ep^4*si^11 - .54039E+24*mu*ep^5*si^9
   + .11181E+24*mu*ep^6*si^7 - .12423E+23*mu*ep^7*si^5 + .62114E+21
  *mu*ep^8*si^3 - .90021E+19*mu*ep^9*si + .31983E+24*mu*si^19
  + .16458E+25*mu^2*ep*si^15 - .23533E+25*mu^2*ep^2*si^13
  + .17572E+25*mu^2*ep^3*si^11 - .73334E+24*mu^2*ep^4*si^9
  + .16979E+24*mu^2*ep^5*si^7 - .20291E+23*mu^2*ep^6*si^5
  + .10531E+22*mu^2*ep^7*si^3 - .15278E+20*mu^2*ep^8*si - .46745E+24
  *mu^2*si^17 - .64378E+24*mu^3*ep*si^13 + .6765E+24*mu^3*ep^2*si^11
   - .34989E+24*mu^3*ep^3*si^9 + .92991E+23*mu^3*ep^4*si^7
  - .12053E+23*mu^3*ep^5*si^5 + .64533E+21*mu^3*ep^6*si^3
  - .91662E+19*mu^3*ep^7*si + .23813E+24*mu^3*si^15 + .10214E+24*mu^4
  *ep*si^11 - .72626E+23*mu^4*ep^2*si^9 + .23217E+23*mu^4*ep^3*si^7
   - .33217E+22*mu^4*ep^4*si^5 + .18284E+21*mu^4*ep^5*si^3
  - .24809E+19*mu^4*ep^6*si - .52392E+23*mu^4*si^13 - .64755E+22*mu^5
  *ep*si^9 + .27421E+22*mu^5*ep^2*si^7 - .44898E+21*mu^5*ep^3*si^5
   + .25441E+20*mu^5*ep^4*si^3 - .32012E+18*mu^5*ep^5*si + .50513E+22
  *mu^5*si^11 + .14223E+21*mu^6*ep*si^7 - .28919E+20*mu^6*ep^2*si^5
   + .17081E+19*mu^6*ep^3*si^3 - .19176E+17*mu^6*ep^4*si - .19524E+21
  *mu^6*si^9 - .78936E+18*mu^7*ep*si^5 + .50831E+17*mu^7*ep^2*si^3
   - .48268E+15*mu^7*ep^3*si + .24606E+19*mu^7*si^7 + .55679E+15*mu^8
  *ep*si^3 - .41436E+13*mu^8*ep^2*si - .66405E+16*mu^8*si^5
  - 7810661925*mu^9*ep*si + .14543E+13*mu^9*si^3 - 1048575*mu^10*si
 
FG(21) = 
  + .64432E+24*mu*ep*si^16 - .11045E+25*mu*ep^2*si^14 + .10153E+25
  *mu*ep^3*si^12 - .54039E+24*mu*ep^4*si^10 + .16771E+24*mu*ep^5*si^8
   - .28987E+23*mu*ep^6*si^6 + .24846E+22*mu*ep^7*si^4 - .81019E+20
  *mu*ep^8*si^2 + .42867E+18*mu*ep^9 - .15582E+24*mu*si^18
  - .6244E+24*mu^2*ep*si^14 + .81022E+24*mu^2*ep^2*si^12 - .53647E+24
  *mu^2*ep^3*si^10 + .19205E+24*mu^2*ep^4*si^8 - .36235E+23*mu^2*ep^5
  *si^6 + .32333E+22*mu^2*ep^6*si^4 - .10463E+21*mu^2*ep^7*si^2
  + .51907E+18*mu^2*ep^8 + .19216E+24*mu^2*si^16 + .19282E+24*mu^3
  *ep*si^12 - .17673E+24*mu^3*ep^2*si^10 + .76801E+23*mu^3*ep^3*si^8
   - .16199E+23*mu^3*ep^4*si^6 + .15136E+22*mu^3*ep^5*si^4
  - .48144E+20*mu^3*ep^6*si^2 + .21798E+18*mu^3*ep^7 - .79665E+23*mu^3
  *si^14 - .22651E+23*mu^4*ep*si^10 + .13226E+23*mu^4*ep^2*si^8
  - .32575E+22*mu^4*ep^3*si^6 + .32288E+21*mu^4*ep^4*si^4
  - .99864E+19*mu^4*ep^5*si^2 + .39791E+17*mu^4*ep^6 + .13563E+23*mu^4
  *si^12 + .96445E+21*mu^5*ep*si^8 - .30395E+21*mu^5*ep^2*si^6
  + .32876E+20*mu^5*ep^3*si^4 - .97744E+18*mu^5*ep^4*si^2
  + .32549E+16*mu^5*ep^5 - .94041E+21*mu^5*si^10 - .12116E+20*mu^6
  *ep*si^6 + .15321E+19*mu^6*ep^2*si^4 - .43372E+17*mu^6*ep^3*si^2
   + .11159E+15*mu^6*ep^4 + .23315E+20*mu^6*si^8 + .28469E+17*mu^7
  *ep*si^4 - .77157E+15*mu^7*ep^2*si^2 + .13449E+13*mu^7*ep^3
  - .1548E+18*mu^7*si^6 - .42412E+13*mu^8*ep*si^2 + 3890127060*mu^8
  *ep^2 + .14792E+15*mu^8*si^4 + 1048545*mu^9*ep - 3919486725*mu^9
  *si^2 + mu^10 + 0.
 
 
FF(22) = 
  + .60768E+26*mu*ep*si^18 - .1192E+27*mu*ep^2*si^16 + .12886E+27*mu
  *ep^3*si^14 - .83761E+26*mu*ep^4*si^12 + .33504E+26*mu*ep^5*si^10
   - .81059E+25*mu*ep^6*si^8 + .11181E+25*mu*ep^7*si^6 - .77643E+23
  *mu*ep^8*si^4 + .20705E+22*mu*ep^9*si^2 - .90021E+19*mu*ep^10
  - .13113E+26*mu*si^20 - .76287E+26*mu^2*ep*si^16 + .11824E+27*mu^2
  *ep^2*si^14 - .97444E+26*mu^2*ep^3*si^12 + .46038E+26*mu^2*ep^4*si^10
   - .12532E+26*mu^2*ep^5*si^8 + .18726E+25*mu^2*ep^6*si^6
  - .13629E+24*mu^2*ep^7*si^4 + .36879E+22*mu^2*ep^8*si^2
  - .15706E+20*mu^2*ep^9 + .20256E+26*mu^2*si^18 + .32723E+26*mu^3
  *ep*si^14 - .38128E+26*mu^3*ep^2*si^12 + .22458E+26*mu^3*ep^3*si^10
   - .70727E+25*mu^3*ep^4*si^8 + .11585E+25*mu^3*ep^5*si^6
  - .88296E+23*mu^3*ep^6*si^4 + .2392E+22*mu^3*ep^7*si^2 - .96853E+19
  *mu^3*ep^8 - .11125E+26*mu^3*si^16 - .59041E+25*mu^4*ep*si^12
  + .48193E+25*mu^4*ep^2*si^10 - .18453E+25*mu^4*ep^3*si^8
  + .33863E+24*mu^4*ep^4*si^6 - .27114E+23*mu^4*ep^5*si^4
  + .72532E+21*mu^4*ep^6*si^2 - .26988E+19*mu^4*ep^7 + .27143E+25*mu^4
  *si^14 + .45011E+24*mu^5*ep*si^10 - .23165E+24*mu^5*ep^2*si^8
  + .49658E+23*mu^5*ep^3*si^6 - .42198E+22*mu^5*ep^4*si^4
  + .10984E+21*mu^5*ep^5*si^2 - .35991E+18*mu^5*ep^6 - .30261E+24*mu^5
  *si^12 - .13042E+23*mu^6*ep*si^8 + .35719E+22*mu^6*ep^2*si^6
  - .33047E+21*mu^6*ep^3*si^4 + .82391E+19*mu^6*ep^4*si^2
  - .22431E+17*mu^6*ep^5 + .14445E+23*mu^6*si^10 + .11323E+21*mu^7
  *ep*si^6 - .12179E+20*mu^7*ep^2*si^4 + .28656E+18*mu^7*ep^3*si^2
   - .59427E+15*mu^7*ep^4 - .25167E+21*mu^7*si^8 - .18115E+18*mu^8
  *ep*si^4 + .40143E+16*mu^8*ep^2*si^2 - .54885E+13*mu^8*ep^3
  + .11699E+19*mu^8*si^6 + .17133E+14*mu^9*ep*si^2 - .11701E+11*mu^9
  *ep^2 - .75271E+15*mu^9*si^4 - 2097120*mu^10*ep + .11764E+11*mu^10
  *si^2 - mu^11
 
FG(22) = 
  - .28047E+26*mu*ep*si^17 + .51545E+26*mu*ep^2*si^15 - .51545E+26
  *mu*ep^3*si^13 + .30459E+26*mu*ep^4*si^11 - .10808E+26*mu*ep^5*si^9
   + .22361E+25*mu*ep^6*si^7 - .24846E+24*mu*ep^7*si^5 + .12423E+23
  *mu*ep^8*si^3 - .18004E+21*mu*ep^9*si + .63966E+25*mu*si^19
  + .29408E+26*mu^2*ep*si^15 - .41688E+26*mu^2*ep^2*si^13
  + .30809E+26*mu^2*ep^3*si^11 - .12698E+26*mu^2*ep^4*si^9
  + .28947E+25*mu^2*ep^5*si^7 - .33916E+24*mu^2*ep^6*si^5
  + .17145E+23*mu^2*ep^7*si^3 - .23981E+21*mu^2*ep^8*si - .8414E+25
  *mu^2*si^17 - .10128E+26*mu^3*ep*si^13 + .10432E+26*mu^3*ep^2*si^11
   - .52662E+25*mu^3*ep^3*si^9 + .13583E+25*mu^3*ep^4*si^7
  - .16951E+24*mu^3*ep^5*si^5 + .86357E+22*mu^3*ep^6*si^3
  - .11462E+21*mu^3*ep^7*si + .38101E+25*mu^3*si^15 + .13885E+25*mu^4
  *ep*si^11 - .95277E+24*mu^4*ep^2*si^9 + .29154E+24*mu^4*ep^3*si^7
   - .39475E+23*mu^4*ep^4*si^5 + .20228E+22*mu^4*ep^5*si^3
  - .24935E+20*mu^4*ep^6*si - .73349E+24*mu^4*si^13 - .74159E+23*mu^5
  *ep*si^9 + .29653E+23*mu^5*ep^2*si^7 - .45176E+22*mu^5*ep^3*si^5
   + .23327E+21*mu^5*ep^4*si^3 - .25951E+19*mu^5*ep^5*si + .60616E+23
  *mu^5*si^11 + .13244E+22*mu^6*ep*si^7 - .24621E+21*mu^6*ep^2*si^5
   + .12961E+20*mu^6*ep^3*si^3 - .1251E+18*mu^6*ep^4*si - .19524E+22
  *mu^6*si^9 - .5665E+19*mu^7*ep*si^5 + .3172E+18*mu^7*ep^2*si^3
  - .25085E+16*mu^7*ep^3*si + .19685E+20*mu^7*si^7 + .28189E+16*mu^8
  *ep*si^3 - .1677E+14*mu^8*ep^2*si - .39843E+17*mu^8*si^5
  - .2346E+11*mu^9*ep*si + .5817E+13*mu^9*si^3 - 2097150*mu^10*si + 0.
 
 
FF(23) = 
  - .27537E+28*mu*ep*si^19 + .57426E+28*mu*ep^2*si^17 - .66751E+28
  *mu*ep^3*si^15 + .47357E+28*mu*ep^4*si^13 - .21108E+28*mu*ep^5*si^11
   + .58633E+27*mu*ep^6*si^9 - .97271E+26*mu*ep^7*si^7 + .88047E+25
  *mu*ep^8*si^5 - .36233E+24*mu*ep^9*si^3 + .4348E+22*mu*ep^10*si
  + .56386E+27*mu*si^21 + .36825E+28*mu^2*ep*si^17 - .6152E+28*mu^2
  *ep^2*si^15 + .555E+28*mu^2*ep^3*si^13 - .29326E+28*mu^2*ep^4*si^11
   + .92085E+27*mu^2*ep^5*si^9 - .1665E+27*mu^2*ep^6*si^7
  + .15921E+26*mu^2*ep^7*si^5 - .67211E+24*mu^2*ep^8*si^3
  + .80229E+22*mu^2*ep^9*si - .91791E+27*mu^2*si^19 - .17201E+28*mu^3
  *ep*si^15 + .22029E+28*mu^3*ep^2*si^13 - .14585E+28*mu^3*ep^3*si^11
   + .53334E+27*mu^3*ep^4*si^9 - .10662E+27*mu^3*ep^5*si^7
  + .10805E+26*mu^3*ep^6*si^5 - .46442E+24*mu^3*ep^7*si^3
  + .54073E+22*mu^3*ep^8*si + .54083E+27*mu^3*si^17 + .34874E+27*mu^4
  *ep*si^13 - .32215E+27*mu^4*ep^2*si^11 + .14449E+27*mu^4*ep^3*si^9
   - .3275E+26*mu^4*ep^4*si^7 + .35445E+25*mu^4*ep^5*si^5
  - .15414E+24*mu^4*ep^6*si^3 + .17129E+22*mu^4*ep^7*si - .14511E+27
  *mu^4*si^15 - .31312E+26*mu^5*ep*si^11 + .19097E+26*mu^5*ep^2*si^9
   - .51379E+25*mu^5*ep^3*si^7 + .6038E+24*mu^5*ep^4*si^5
  - .26439E+23*mu^5*ep^5*si^3 + .27322E+21*mu^5*ep^6*si + .18439E+26
  *mu^5*si^13 + .11514E+25*mu^6*ep*si^9 - .4044E+24*mu^6*ep^2*si^7
   + .53403E+23*mu^6*ep^3*si^5 - .23515E+22*mu^6*ep^4*si^3
  + .21861E+20*mu^6*ep^5*si - .10596E+25*mu^6*si^11 - .14444E+23*mu^7
  *ep*si^7 + .23189E+22*mu^7*ep^2*si^5 - .10352E+21*mu^7*ep^3*si^3
   + .82761E+18*mu^7*ep^4*si + .24306E+23*mu^7*si^9 + .43202E+20*mu^8
  *ep*si^5 - .20299E+19*mu^8*ep^2*si^3 + .13079E+17*mu^8*ep^3*si
  - .17503E+21*mu^8*si^7 - .14424E+17*mu^9*ep*si^3 + .67865E+14*mu^9
  *ep^2*si + .24734E+18*mu^9*si^5 + .70456E+11*mu^10*ep*si
  - .2335E+14*mu^10*si^3 + 4194303*mu^11*si
 
FG(23) = 
  + .12761E+28*mu*ep*si^18 - .25032E+28*mu*ep^2*si^16 + .27061E+28
  *mu*ep^3*si^14 - .1759E+28*mu*ep^4*si^12 + .70359E+27*mu*ep^5*si^10
   - .17022E+27*mu*ep^6*si^8 + .23479E+26*mu*ep^7*si^6 - .16305E+25
  *mu*ep^8*si^4 + .4348E+23*mu*ep^9*si^2 - .18904E+21*mu*ep^10
  - .27537E+27*mu*si^20 - .14399E+28*mu^2*ep*si^16 + .22148E+28*mu^2
  *ep^2*si^14 - .18087E+28*mu^2*ep^3*si^12 + .84531E+27*mu^2*ep^4*si^10
   - .22707E+27*mu^2*ep^5*si^8 + .33371E+26*mu^2*ep^6*si^6
  - .23773E+25*mu^2*ep^7*si^4 + .625E+23*mu^2*ep^8*si^2 - .25552E+21
  *mu^2*ep^9 + .38486E+27*mu^2*si^18 + .548E+27*mu^3*ep*si^14
  - .62734E+27*mu^3*ep^2*si^12 + .36179E+27*mu^3*ep^3*si^10
  - .11105E+27*mu^3*ep^4*si^8 + .17618E+26*mu^3*ep^5*si^6
  - .1289E+25*mu^3*ep^6*si^4 + .33083E+23*mu^3*ep^7*si^2 - .12431E+21
  *mu^3*ep^8 - .18913E+27*mu^3*si^16 - .86289E+26*mu^4*ep*si^12
  + .68285E+26*mu^4*ep^2*si^10 - .25183E+26*mu^4*ep^3*si^8
  + .44112E+25*mu^4*ep^4*si^6 - .33294E+24*mu^4*ep^5*si^4
  + .82445E+22*mu^4*ep^6*si^2 - .27633E+20*mu^4*ep^7 + .40715E+26*mu^4
  *si^14 + .5618E+25*mu^5*ep*si^10 - .27522E+25*mu^5*ep^2*si^8
  + .55517E+24*mu^5*ep^3*si^6 - .43687E+23*mu^5*ep^4*si^4
  + .10293E+22*mu^5*ep^5*si^2 - .2955E+19*mu^5*ep^6 - .39339E+25*mu^5
  *si^12 - .13495E+24*mu^6*ep*si^8 + .34274E+23*mu^6*ep^2*si^6
  - .28834E+22*mu^6*ep^3*si^4 + .636E+20*mu^6*ep^4*si^2 - .14753E+18
  *mu^6*ep^5 + .15889E+24*mu^6*si^10 + .93038E+21*mu^7*ep*si^6
  - .89219E+20*mu^7*ep^2*si^4 + .18113E+19*mu^7*ep^3*si^2
  - .31028E+16*mu^7*ep^4 - .2265E+22*mu^7*si^8 - .1105E+19*mu^8*ep
  *si^4 + .20499E+17*mu^8*ep^2*si^2 - .22258E+14*mu^8*ep^3
  + .81896E+19*mu^8*si^6 + .68851E+14*mu^9*ep*si^2 - .35161E+11*mu^9
  *ep^2 - .37635E+16*mu^9*si^4 - 4194270*mu^10*ep + .35291E+11*mu^10
  *si^2 - mu^11 + 0.
 
 
FF(24) = 
  + .13025E+30*mu*ep*si^20 - .28777E+30*mu*ep^2*si^18 + .35795E+30
  *mu*ep^3*si^16 - .27535E+30*mu*ep^4*si^14 + .13544E+30*mu*ep^5*si^12
   - .42567E+29*mu*ep^6*si^10 + .82924E+28*mu*ep^7*si^8 - .93623E+27
  *mu*ep^8*si^6 + .53807E+26*mu*ep^9*si^4 - .11957E+25*mu*ep^10*si^2
   + .4348E+22*mu*ep^11 - .25374E+29*mu*si^22 - .18487E+30*mu^2*ep
  *si^18 + .33121E+30*mu^2*ep^2*si^16 - .32483E+30*mu^2*ep^3*si^14
   + .19004E+30*mu^2*ep^4*si^12 - .67789E+29*mu^2*ep^5*si^10
  + .14467E+29*mu^2*ep^6*si^8 - .1737E+28*mu^2*ep^7*si^6 + .10332E+27
  *mu^2*ep^8*si^4 - .23119E+25*mu^2*ep^9*si^2 + .82119E+22*mu^2*ep^10
   + .43417E+29*mu^2*si^20 + .93462E+29*mu^3*ep*si^16 - .13058E+30
  *mu^3*ep^2*si^14 + .96142E+29*mu^3*ep^3*si^12 - .4016E+29*mu^3*ep^4
  *si^10 + .95447E+28*mu^3*ep^5*si^8 - .12261E+28*mu^3*ep^6*si^6
  + .75245E+26*mu^3*ep^7*si^4 - .1674E+25*mu^3*ep^8*si^2 + .56628E+22
  *mu^3*ep^9 - .27323E+29*mu^3*si^18 - .2108E+29*mu^4*ep*si^14
  + .21778E+29*mu^4*ep^2*si^12 - .1124E+29*mu^4*ep^3*si^10
  + .30581E+28*mu^4*ep^4*si^8 - .42512E+27*mu^4*ep^5*si^6
  + .26887E+26*mu^4*ep^6*si^4 - .58673E+24*mu^4*ep^7*si^2
  + .18372E+22*mu^4*ep^8 + .80037E+28*mu^4*si^16 + .21915E+28*mu^5
  *ep*si^12 - .15528E+28*mu^5*ep^2*si^10 + .50789E+27*mu^5*ep^3*si^8
   - .78025E+26*mu^5*ep^4*si^6 + .50964E+25*mu^5*ep^5*si^4
  - .10748E+24*mu^5*ep^6*si^2 + .30085E+21*mu^5*ep^7 - .11455E+28*mu^5
  *si^14 - .99222E+26*mu^6*ep*si^10 + .43087E+26*mu^6*ep^2*si^8
  - .76169E+25*mu^6*ep^3*si^6 + .51815E+24*mu^6*ep^4*si^4
  - .10379E+23*mu^6*ep^5*si^2 + .24816E+20*mu^6*ep^6 + .77631E+26*mu^6
  *si^12 + .16969E+25*mu^7*ep*si^8 - .37676E+24*mu^7*ep^2*si^6
  + .273E+23*mu^7*ep^3*si^4 - .50911E+21*mu^7*ep^4*si^2 + .97514E+18
  *mu^7*ep^5 - .22582E+25*mu^7*si^10 - .83486E+22*mu^8*ep*si^6
  + .68479E+21*mu^8*ep^2*si^4 - .1163E+20*mu^8*ep^3*si^2 + .16182E+17
  *mu^8*ep^4 + .23361E+23*mu^8*si^8 + .69064E+19*mu^9*ep*si^4
  - .10525E+18*mu^9*ep^2*si^2 + .90123E+14*mu^9*ep^3 - .60543E+20*mu^9
  *si^6 - .27703E+15*mu^10*ep*si^2 + .10562E+12*mu^10*ep^2
  + .19028E+17*mu^10*si^4 + 8388573*mu^11*ep - .10589E+12*mu^11*si^2
   + mu^12
 
FG(24) = 
  - .60582E+29*mu*ep*si^19 + .12634E+30*mu*ep^2*si^17 - .14685E+30
  *mu*ep^3*si^15 + .10419E+30*mu*ep^4*si^13 - .46437E+29*mu*ep^5*si^11
   + .12899E+29*mu*ep^6*si^9 - .214E+28*mu*ep^7*si^7 + .1937E+27*mu
  *ep^8*si^5 - .79713E+25*mu*ep^9*si^3 + .95656E+23*mu*ep^10*si
  + .12405E+29*mu*si^21 + .73213E+29*mu^2*ep*si^17 - .12147E+30*mu^2
  *ep^2*si^15 + .10871E+30*mu^2*ep^3*si^13 - .56896E+29*mu^2*ep^4*si^11
   + .17662E+29*mu^2*ep^5*si^9 - .31486E+28*mu^2*ep^6*si^7
  + .29576E+27*mu^2*ep^7*si^5 - .12197E+26*mu^2*ep^8*si^3
  + .14105E+24*mu^2*ep^9*si - .18358E+29*mu^2*si^19 - .30548E+29*mu^3
  *ep*si^15 + .38512E+29*mu^3*ep^2*si^13 - .2503E+29*mu^3*ep^3*si^11
   + .89512E+28*mu^3*ep^4*si^9 - .17414E+28*mu^3*ep^5*si^7
  + .17053E+27*mu^3*ep^6*si^5 - .70138E+25*mu^3*ep^7*si^3
  + .76981E+23*mu^3*ep^8*si + .9735E+28*mu^3*si^17 + .54524E+28*mu^4
  *ep*si^13 - .49012E+28*mu^4*ep^2*si^11 + .21278E+28*mu^4*ep^3*si^9
   - .46346E+27*mu^4*ep^4*si^7 + .47734E+26*mu^4*ep^5*si^5
  - .19483E+25*mu^4*ep^6*si^3 + .19915E+23*mu^4*ep^7*si - .23217E+28
  *mu^4*si^15 - .42296E+27*mu^5*ep*si^11 + .24715E+27*mu^5*ep^2*si^9
   - .63122E+26*mu^5*ep^3*si^7 + .69538E+25*mu^5*ep^4*si^5
  - .2805E+24*mu^5*ep^5*si^3 + .26051E+22*mu^5*ep^6*si + .25815E+27
  *mu^5*si^13 + .13103E+26*mu^6*ep*si^9 - .43148E+25*mu^6*ep^2*si^7
   + .52606E+24*mu^6*ep^3*si^5 - .2094E+23*mu^6*ep^4*si^3
  + .17092E+21*mu^6*ep^5*si - .12715E+26*mu^6*si^11 - .13368E+24*mu^7
  *ep*si^7 + .19496E+23*mu^7*ep^2*si^5 - .77094E+21*mu^7*ep^3*si^3
   + .52778E+19*mu^7*ep^4*si + .24306E+24*mu^7*si^9 + .30835E+21*mu^8
  *ep*si^5 - .1254E+20*mu^8*ep^2*si^3 + .67156E+17*mu^8*ep^3*si
  - .14002E+22*mu^8*si^7 - .72749E+17*mu^9*ep*si^3 + .27343E+15*mu^9
  *ep^2*si + .1484E+19*mu^9*si^5 + .21149E+12*mu^10*ep*si
  - .93401E+14*mu^10*si^3 + 8388606*mu^11*si + 0.
 
 
FF(25) = 
  - .64196E+31*mu*ep*si^21 + .14979E+32*mu*ep^2*si^19 - .19856E+32
  *mu*ep^3*si^17 + .16466E+32*mu*ep^4*si^15 - .88662E+31*mu*ep^5*si^13
   + .31152E+31*mu*ep^6*si^11 - .69932E+30*mu*ep^7*si^9 + .95362E+29
  *mu*ep^8*si^7 - .71778E+28*mu*ep^9*si^5 + .24751E+27*mu*ep^10*si^3
   - .25001E+25*mu*ep^11*si + .11926E+31*mu*si^23 + .96387E+31*mu^2
  *ep*si^19 - .18439E+32*mu^2*ep^2*si^17 + .19541E+32*mu^2*ep^3*si^15
   - .1255E+32*mu^2*ep^4*si^13 + .50227E+31*mu^2*ep^5*si^11
  - .12407E+31*mu^2*ep^6*si^9 + .18095E+30*mu^2*ep^7*si^7
  - .142E+29*mu^2*ep^8*si^5 + .49793E+27*mu^2*ep^9*si^3 - .49807E+25
  *mu^2*ep^10*si - .21399E+31*mu^2*si^21 - .52463E+31*mu^3*ep*si^17
   + .79451E+31*mu^3*ep^2*si^15 - .64465E+31*mu^3*ep^3*si^13
  + .30355E+31*mu^3*ep^4*si^11 - .84013E+30*mu^3*ep^5*si^9
  + .13213E+30*mu^3*ep^6*si^7 - .10812E+29*mu^3*ep^7*si^5
  + .38253E+27*mu^3*ep^8*si^3 - .3724E+25*mu^3*ep^9*si + .14328E+31
  *mu^3*si^19 + .13051E+31*mu^4*ep*si^15 - .14932E+31*mu^4*ep^2*si^13
   + .87415E+30*mu^4*ep^3*si^11 - .27917E+30*mu^4*ep^4*si^9
  + .48017E+29*mu^4*ep^5*si^7 - .41083E+28*mu^4*ep^6*si^5
  + .14555E+27*mu^4*ep^7*si^3 - .13529E+25*mu^4*ep^8*si - .45536E+30
  *mu^4*si^17 - .1549E+30*mu^5*ep*si^13 + .12548E+30*mu^5*ep^2*si^11
   - .4868E+29*mu^5*ep^3*si^9 + .9383E+28*mu^5*ep^4*si^7 - .84539E+27
  *mu^5*ep^5*si^5 + .29773E+26*mu^5*ep^6*si^3 - .25829E+24*mu^5*ep^7
  *si + .72657E+29*mu^5*si^15 + .8429E+28*mu^6*ep*si^11 - .44003E+28
  *mu^6*ep^2*si^9 + .99413E+27*mu^6*ep^3*si^7 - .95754E+26*mu^6*ep^4
  *si^5 + .33301E+25*mu^6*ep^5*si^3 - .26214E+23*mu^6*ep^6*si
  - .57101E+28*mu^6*si^13 - .18804E+27*mu^7*ep*si^9 + .54681E+26*mu^7
  *ep^2*si^7 - .58147E+25*mu^7*ep^3*si^5 + .19884E+24*mu^7*ep^4*si^3
   - .13683E+22*mu^7*ep^5*si + .20452E+27*mu^7*si^11 + .13913E+25*mu^8
  *ep*si^7 - .17614E+24*mu^8*ep^2*si^5 + .5942E+22*mu^8*ep^3*si^3
  - .33932E+20*mu^8*ep^4*si - .28744E+25*mu^8*si^9 - .22967E+22*mu^9
  *ep*si^5 + .78739E+20*mu^9*ep^2*si^3 - .34535E+18*mu^9*ep^3*si
  + .1211E+23*mu^9*si^7 + .36933E+18*mu^10*ep*si^3 - .11014E+16*mu^10
  *ep^2*si - .91135E+19*mu^10*si^5 - .63481E+12*mu^11*ep*si
  + .37435E+15*mu^11*si^3 - 16777215*mu^12*si
 
FG(25) = 
  + .29958E+31*mu*ep*si^20 - .66186E+31*mu*ep^2*si^18 + .82329E+31
  *mu*ep^3*si^16 - .6333E+31*mu*ep^4*si^14 + .31152E+31*mu*ep^5*si^12
   - .97905E+30*mu*ep^6*si^10 + .19072E+30*mu*ep^7*si^8 - .21533E+29
  *mu*ep^8*si^6 + .12375E+28*mu*ep^9*si^4 - .27501E+26*mu*ep^10*si^2
   + .1E+24*mu*ep^11 - .5836E+30*mu*si^22 - .38613E+31*mu^2*ep*si^18
   + .68752E+31*mu^2*ep^2*si^16 - .66945E+31*mu^2*ep^3*si^14
  + .38837E+31*mu^2*ep^4*si^12 - .13715E+31*mu^2*ep^5*si^10
  + .28916E+30*mu^2*ep^6*si^8 - .34199E+29*mu^2*ep^7*si^6
  + .19954E+28*mu^2*ep^8*si^4 - .43528E+26*mu^2*ep^9*si^2
  + .14926E+24*mu^2*ep^10 + .91176E+30*mu^2*si^20 + .17543E+31*mu^3
  *ep*si^16 - .24169E+31*mu^3*ep^2*si^14 + .17505E+31*mu^3*ep^3*si^12
   - .71709E+30*mu^3*ep^4*si^10 + .16646E+30*mu^3*ep^5*si^8
  - .20773E+29*mu^3*ep^6*si^6 + .12289E+28*mu^3*ep^7*si^4
  - .26063E+26*mu^3*ep^8*si^2 + .82644E+23*mu^3*ep^9 - .51914E+30*mu^3
  *si^18 - .35103E+30*mu^4*ep*si^14 + .354E+30*mu^4*ep^2*si^12
  - .17756E+30*mu^4*ep^3*si^10 + .46673E+29*mu^4*ep^4*si^8
  - .622E+28*mu^4*ep^5*si^6 + .37311E+27*mu^4*ep^6*si^4 - .76052E+25
  *mu^4*ep^7*si^2 + .21752E+23*mu^4*ep^8 + .13606E+30*mu^4*si^16
  + .31845E+29*mu^5*ep*si^12 - .21733E+29*mu^5*ep^2*si^10
  + .67954E+28*mu^5*ep^3*si^8 - .98802E+27*mu^5*ep^4*si^6
  + .60251E+26*mu^5*ep^5*si^4 - .11639E+25*mu^5*ep^6*si^2
  + .29059E+22*mu^5*ep^7 - .17182E+29*mu^5*si^14 - .12313E+28*mu^6
  *ep*si^10 + .50571E+27*mu^6*ep^2*si^8 - .83522E+26*mu^6*ep^3*si^6
   + .5221E+25*mu^6*ep^4*si^4 - .93956E+23*mu^6*ep^5*si^2
  + .19574E+21*mu^6*ep^6 + .10092E+28*mu^6*si^12 + .1746E+26*mu^7*ep
  *si^8 - .3573E+25*mu^7*ep^2*si^6 + .23398E+24*mu^7*ep^3*si^4
  - .38402E+22*mu^7*ep^4*si^2 + .62529E+19*mu^7*ep^5 - .2484E+26*mu^7
  *si^10 - .68242E+23*mu^8*ep*si^6 + .49657E+22*mu^8*ep^2*si^4
  - .72509E+20*mu^8*ep^3*si^2 + .83338E+17*mu^8*ep^4 + .21024E+24*mu^8
  *si^8 + .41952E+20*mu^9*ep*si^4 - .53398E+18*mu^9*ep^2*si^2
  + .36356E+15*mu^9*ep^3 - .4238E+21*mu^9*si^6 - .11113E+16*mu^10*ep
  *si^2 + .31711E+12*mu^10*ep^2 + .95139E+17*mu^10*si^4 + 16777179
  *mu^11*ep - .31768E+12*mu^11*si^2 + mu^12 + 0.
 
	Digits 30
	Precision 30
	Z calcul= FF(25)
	Z expect= .90128728292136730166252206D+34 + 0.
L 2	Id,Numer,si,1.3,mu,2.7,ep,-1.6
C The file calcul may be written to tape8 for compilation
  purposes. Then one may verify the numbers.
C Fortran A,Compress
C punch zz
	*end
 
calcul =  + .90128728292136730166252206D+34
 
expect =  + .90128728292136730166252206D+34 + 0.
 

End run. Time 16 sec.
Schoonschip, 68000 version of June 27, 1991. Public version.
Date: Sun Dec 12 1993 18:22:57.  Memory: start 0001BCDC, length 476860.


C Varia 2. Two-point function, coefficients of F(N).

> P stat
C  COEFFICIENTS OF  F(N) FOR USE WITH THE TWO-POINT FUNCTION.
	N  13,R0
	X  C(N)=1./N
	X  EX(N,Y)=DS(J,1,16,(N**J*Y**J),(J**-1)) + 1
	Z  F1=DS(J,1,16,(X**J*C(1+J)))
	Z  F2=DS(J,1,16,(X**J*C(2+J)))
	Z  F3=DS(J,1,16,(X**J*C(3+J)))
	Z  F4=DS(J,1,16,(X**J*C(4+J)))
	Z  F5=DS(J,1,16,(X**J*C(5+J)))
	Z  F6=DS(J,1,16,(X**J*C(6+J)))
	Z  F7=DS(J,1,16,(X**J*C(7+J)))
	Z  F8=DS(J,1,16,(X**J*C(8+J)))
L 4	Id  X**N~=1-DS(J,1,N,(DB(N,J)*Z**J),(-1))
	*yep

Terms in output 136
Running time 2 sec			Used	Maximum
Generated terms 1216 	Input space 	2096 	100000
Equal terms 1080     	Output space 	3232 	250000
Cancellations 0   	Nr of expr.  	55 	255
Multiplications 5384	String space 	0 	4096
Records written 0 	Merging		0 	0

L 1	Id  Z**N~ = EX(N,Y)
	*end

Terms out 136, in 136.

Terms in output 123
Running time 5 sec			Used	Maximum
Generated terms 2184 	Input space 	746 	100000
Equal terms 2048     	Output space 	2946 	250000
Cancellations 13   	Nr of expr.  	13 	255
Multiplications 9232	String space 	0 	4096
Records written 0 	Merging		0 	0

 
F1 = 
  - .5*Y + .8333333333333D-1*Y^2 - .1388888888889D-2*Y^4 + .3306878306878D-4
  *Y^6 - .8267195767196D-6*Y^8 + .2087675698787D-7*Y^10 - .528419013869D-9
  *Y^12 + .1338253653064D-10*Y^14 - .3389680296138D-12*Y^16
 
F2 = 
  - .3333333333333*Y + .8333333333333D-1*Y^2 - .5555555555556D-2*Y^3
   - .1388888888889D-2*Y^4 + .1984126984127D-3*Y^5 + .3306878306878D-4
  *Y^6 - .6613756613757D-5*Y^7 - .8267195767196D-6*Y^8 + .2087675698787D-6
  *Y^9 + .2087675698787D-7*Y^10 - .6341028166425D-8*Y^11 - .5284190138687D-9
  *Y^12 + .1873555114295D-9*Y^13 + .1338253653068D-10*Y^14
  - .5423488474089D-11*Y^15 - .3389680296436D-12*Y^16
 
F3 = 
  - .7091859537937D-25 - .25*Y + .75D-1*Y^2 - .8333333333333D-2*Y^3
   - .8928571428571D-3*Y^4 + .297619047619D-3*Y^5 + .9920634920635D-5
  *Y^6 - .9920634920635D-5*Y^7 + .1127344877345D-6*Y^8 + .313151354818D-6
  *Y^9 - .1399889792747D-7*Y^10 - .9511542249638D-8*Y^11 + .6893918104235D-9
  *Y^12 + .2810332671444D-9*Y^13 - .2729362702523D-10*Y^14
  - .8135232711177D-11*Y^15 + .9746994650405D-12*Y^16
 
F4 = 
  - .2*Y + .6666666666667D-1*Y^2 - .952380952381D-2*Y^3 - .3968253968254D-3
  *Y^4 + .3174603174603D-3*Y^5 - .1322751322751D-4*Y^6 - .962000962001D-5
  *Y^7 + .1052188552189D-5*Y^8 + .2664883617265D-6*Y^9 - .4887455284281D-7
  *Y^10 - .6753975007943D-8*Y^11 + .1907202634716D-8*Y^12
  + .1536630076936D-9*Y^13 - .6796979058097D-10*Y^14 - .293683556461D-11
  *Y^15 + .2288366959592D-11*Y^16
 
F5 = 
  - .5524550691444D-25 - .1666666666667*Y + .5952380952381D-1*Y^2
  - .9920634920635D-2*Y^3 + .297619047619D-3*Y^5 - .3006253006253D-4
  *Y^6 - .7515632515633D-5*Y^7 + .1651787366073D-5*Y^8 + .1443019796194D-6
  *Y^9 - .6744798411465D-7*Y^10 - .1032367103796D-8*Y^11 + .240660740972D-8
  *Y^12 - .8423125934014D-10*Y^13 - .7898292394826D-10*Y^14
  + .6216632273815D-11*Y^15 + .2438838278613D-11*Y^16
 
F6 = 
  - .9707564527469D-25 - .1428571428571*Y + .5357142857143D-1*Y^2
  - .9920634920635D-2*Y^3 + .297619047619D-3*Y^4 + .261544011544D-3
  *Y^5 - .4058441558442D-4*Y^6 - .4872772729916D-5*Y^7 + .1911530929388D-5
  *Y^8 + .9406011390138D-8*Y^9 - .69719191743D-7*Y^10 + .4743490679532D-8
  *Y^11 + .2187606135435D-8*Y^12 - .3053834463957D-9*Y^13
  - .6033302712722D-10*Y^14 + .1402091476505D-10*Y^15 + .1426113421806D-11
  *Y^16
 
F7 = 
  - .125*Y + .4861111111111D-1*Y^2 - .9722222222222D-2*Y^3
  + .5155723905724D-3*Y^4 + .2209595959596D-3*Y^5 - .4626931710265D-4
  *Y^6 - .2324064824065D-5*Y^7 + .1925639946473D-5*Y^8 - .1067926415149D-6
  *Y^9 - .6102279216386D-7*Y^10 + .9118702950402D-8*Y^11 + .1525942001578D-8
  *Y^12 - .4461605096924D-9*Y^13 - .2528074021454D-10*Y^14
  + .1782388388988D-10*Y^15 - .1485474296026D-12*Y^16
 
F8 = 
  - .1111111111111*Y + .4444444444444D-1*Y^2 - .9427609427609D-2*Y^3
   + .6734006734007D-3*Y^4 + .1813001813002D-3*Y^5 - .4859338192672D-4
  *Y^6 - .1233334566668D-6*Y^7 + .1788335121668D-5*Y^8 - .1939680588918D-6
  *Y^9 - .4669340181323D-7*Y^10 + .1173460352454D-7*Y^11 + .6973581978634D-9
  *Y^12 - .4967219901217D-9*Y^13 + .1291329669225D-10*Y^14
  + .1748434690785D-10*Y^15 - .1683884094825D-11*Y^16 + 0.
 

End run. Time 5 sec.
Schoonschip, 68000 version of June 27, 1991. Public version.
Date: Sun Dec 12 1993 18:23:03.  Memory: start 0001BCDC, length 476860.


C Varia 3. Table test.

	T A(K1)=(A1_A2**2),A3,"F,"Z
	T B(K1)=0,1,-1,2,-2

	Z XX=0.1*F2(A(1),A(2))
	    +0.2*F3(A(3),A(4))
	    +C1*DC(1,2,3) + 2*C2*DC(1,2,-3)
	    +3*C3*DC(B(2),B(2),B(5)) + 4*C4*DC(B(2),B(2),B(4))
	    +5*C5*DC(B(1),B(2),B(3),B(1)) + 6*C6*DC(B(2),B(3),B(2),B(3))
	    +7*C7*DC(B(2),B(3),B(2),B(1))
L 1	Id,F2(X~,Y~)=B1*X+B2*Y
	*begin
 
XX = 
  + 1/10*A3*B2 + 1/10*A1_A2^2*B1 + 2*C2 + 3*C3 + 5*C5 + 6*C6
 
 + 1/5*F3("F,"Z) + 0.
 

Begin. Time 1 sec.
	B D1,D2,D3,D4
	S A1=c,A2=c,A3=c,A4=c
	T A(K)=Conjg(A1+A2),-Conjg(A3+A4),Integ(5+7),-Integ(5+7)

	Z X=F1(A(1),A(2),-A(1),-A(2),A(3),A(4),-A(3),-A(4))

L 1	Id,F1(B1~,B2~,B3~,B4~,B5~,B6~,B7~,B8~)=
	   F2(B5,B6,B7,B8)+11*D1*B1+12*D2*B2+13*D3*B3+14*D4*B4
	*next
 
X = 
 + D1
  * ( 11*A1C + 11*A2C )
 
 + D2
  * ( - 12*A3C - 12*A4C )
 
 + D3
  * ( - 13*A1C - 13*A2C )
 
 + D4
  * ( 14*A3C + 14*A4C )
 
 + F2(12,-12,-12,12) + 0.
 
	T T0(K1)=A7,-4
	T T1(K1)=4,2,T0,5
	T T2(K1)=A1,A2,A3,A4,-A5
	Z xx=F1(B1,-T2(T1(-T1(3,2))),B2)
L 1	Id,F1(C1~,C2~,C3~)=11*C1*D1+12*C2*D2+13*C3*D3
	*begin
 
xx =  + 11*D1*B1 + 12*D2*A5 + 13*D3*B2 + 0.
 

Begin. Time 1 sec.
	S A1=c,A2=c,A3=c,A4=c,B1,B2,B3,B4,B5,B6,FA1,FA2,FA3
	B BR,BR1,BR2,BR3,BR4
	D TIC(K)=C1,C2,C3,C4,C5,C6,C7,C8
	T TE(K1)=A1,A2
	T TC(K1,B1,B2,B3,B4,TE)=A1,A2,(BR3*(B1-B2)+BR4*(B3-B4))
	T TB(K1,K2,B1,B2,B3,B4,TE)=A1,TC
	T TA(K1,K2,K3,B1,B2,B3,B4,TE)=((B1+B2)*BR1),((B1-B2)*BR2)
	  ,((B3+B4)*BR3),((B3-B4)*BR4),TE

	Z XX=DS(J1,4,8,(F1(A1,A2,A3,A4,-J1,3)*BR**J1*TIC(J1)))

L 3	Id,F1(B1~,B2~,B3~,B4~,B5~,B6~)=
	   F3(Conjg(B1+B2),-Conjg(B1+B2),
	       TA(-Integ(B5+B6),2,3,Conjg(B3+B4),-Conjg(B3+B4),
	              Integ(B5-B6),-Integ(B5-B6),TB))
L 5	Id,F3(B1~,B2~,B3~)=FA1*B1+FA2*B2+FA3*B3
	*end
 
XX = 
 + BR^4
  * ( A1C*FA1*C4 - A1C*FA2*C4 + A2C*FA1*C4 - A2C*FA2*C4 )
 
 + BR^5
  * ( A1C*FA1*C5 - A1C*FA2*C5 + A2C*FA1*C5 - A2C*FA2*C5 )
 
 + BR^5*BR2
  * ( 2*A3C*FA3*C5 + 2*A4C*FA3*C5 )
 
 + BR^6
  * ( A1C*FA1*C6 - A1C*FA2*C6 + A2C*FA1*C6 - A2C*FA2*C6 )
 
 + BR^7
  * ( A1C*FA1*C7 - A1C*FA2*C7 + A2C*FA1*C7 - A2C*FA2*C7 )
 
 + BR^7*BR4
  * ( - 20*FA3*C7 )
 
 + BR^8
  * ( A1C*FA1*C8 - A1C*FA2*C8 + A2C*FA1*C8 - A2C*FA2*C8 )
 
 + BR^8*BR3
  * ( 2*A3C*FA3*C8 + 2*A4C*FA3*C8 )
 
 + BR^8*BR4
  * ( - 22*FA3*C8 ) + 0.
 

End run. Time 1 sec.
Schoonschip, 68000 version of June 27, 1991. Public version.
Date: Sun Dec 12 1993 18:23:06.  Memory: start 0001BCDC, length 476860.


C Varia 4. Test of Tables, character-number facility.

> P brackets
	T TT(n)=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,
		21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,
		38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56
	T ALF(N)="A,"B,"C,"D,"E,"F,"G,"H,"I,"J,"K,"L,"M,"N,"O,"P,"Q,
		"R,"S,"T,"U,"V,"W,"X,"Y,"Z,
		"a,"b,"c,"d,"e,"f,"g,"h,"i,"j,"k,"l,"m,"n,"o,"p,"q,
		"r,"s,"t,"u,"v,"w,"x,"y,"z

	Z xx=DS{J1,1,52,(f1(ALF(J1)))}

	$$AAE=f1(ALF(J1))
L 2	Id,f1(a1~)=f2(TT(a1))*f0(a1)
L 3	Id,f2(n1~)=a2**n1
	*end
 
xx = 
 + f0("A)
  * ( a2 )
 
 + f0("B)
  * ( a2^2 )
 
 + f0("C)
  * ( a2^3 )
 
 + f0("D)
  * ( a2^4 )
 
 + f0("E)
  * ( a2^5 )
 
 + f0("F)
  * ( a2^6 )
 
 + f0("G)
  * ( a2^7 )
 
 + f0("H)
  * ( a2^8 )
 
 + f0("I)
  * ( a2^9 )
 
 + f0("J)
  * ( a2^10 )
 
 + f0("K)
  * ( a2^11 )
 
 + f0("L)
  * ( a2^12 )
 
 + f0("M)
  * ( a2^13 )
 
 + f0("N)
  * ( a2^14 )
 
 + f0("O)
  * ( a2^15 )
 
 + f0("P)
  * ( a2^16 )
 
 + f0("Q)
  * ( a2^17 )
 
 + f0("R)
  * ( a2^18 )
 
 + f0("S)
  * ( a2^19 )
 
 + f0("T)
  * ( a2^20 )
 
 + f0("U)
  * ( a2^21 )
 
 + f0("V)
  * ( a2^22 )
 
 + f0("W)
  * ( a2^23 )
 
 + f0("X)
  * ( a2^24 )
 
 + f0("Y)
  * ( a2^25 )
 
 + f0("Z)
  * ( a2^26 )
 
 + f0("a)
  * ( a2^31 )
 
 + f0("b)
  * ( a2^32 )
 
 + f0("c)
  * ( a2^33 )
 
 + f0("d)
  * ( a2^34 )
 
 + f0("e)
  * ( a2^35 )
 
 + f0("f)
  * ( a2^36 )
 
 + f0("g)
  * ( a2^37 )
 
 + f0("h)
  * ( a2^38 )
 
 + f0("i)
  * ( a2^39 )
 
 + f0("j)
  * ( a2^40 )
 
 + f0("k)
  * ( a2^41 )
 
 + f0("l)
  * ( a2^42 )
 
 + f0("m)
  * ( a2^43 )
 
 + f0("n)
  * ( a2^44 )
 
 + f0("o)
  * ( a2^45 )
 
 + f0("p)
  * ( a2^46 )
 
 + f0("q)
  * ( a2^47 )
 
 + f0("r)
  * ( a2^48 )
 
 + f0("s)
  * ( a2^49 )
 
 + f0("t)
  * ( a2^50 )
 
 + f0("u)
  * ( a2^51 )
 
 + f0("v)
  * ( a2^52 )
 
 + f0("w)
  * ( a2^53 )
 
 + f0("x)
  * ( a2^54 )
 
 + f0("y)
  * ( a2^55 )
 
 + f0("z)
  * ( a2^56 ) + 0.
 

End run. Time 1 sec.
Schoonschip, 68000 version of June 27, 1991. Public version.
Date: Sun Dec 12 1993 18:23:07.  Memory: start 0001BCDC, length 476860.


C Varia 5. Calculation of two-component Riemann tensor from metric.

C Calculation of components of Rieman tensor from
C a given form for the metric tensor g(mu,nu).
C That form was:
	C
	C			a k l 0
	C			k b m 0
	C	g(mu,nu) =	l m c 0
	C			0 0 0 e


> P lists
> P stats

	S Det,a,b,c,e,k,l,m

	V ap,bp,cp,ep,kp,lp,mp

	X zero(n,j) = 1 - DK(n,j)

> BLOCK GGX{x,n,y}
> D gg'x'('n') = a'y',k'y',l'y',0,
> 	k'y',b'y',m'y',0,
> 	l'y',m'y',c'y',0,
> 	0,0,0,e'y'
> ENDBLOCK

	C***** The metric tensor g(mu,nu) :

> GGX{,n}
	D gg(n) = a,k,l,0,
		k,b,m,0,
		l,m,c,0,
		0,0,0,e

	C***** The first derivative of g(mu,nu), i.e. d/dx(n) g(mu,nu) :

> GGX{d,{n1,n},p(n)}
	D ggd(n1,n) = ap(n),kp(n),lp(n),0,
		kp(n),bp(n),mp(n),0,
		lp(n),mp(n),cp(n),0,
		0,0,0,ep(n)

	C***** The second derivative d^2/dx(n)/dx(j) g(mu,nu) :

> GGX{dd,{n1,n,j},{pp(n,j)}}
	D ggdd(n1,n,j) = app(n,j),kpp(n,j),lpp(n,j),0,
		kpp(n,j),bpp(n,j),mpp(n,j),0,
		lpp(n,j),mpp(n,j),cpp(n,j),0,
		0,0,0,epp(n,j)

	D ggi(n) =	(b*c - m**2),(l*m - k*c),(k*m - l*b),0,
			(l*m - k*c),(a*c - l^2),(k*l - a*m),0,
			(k*m - l*b),(k*l - a*m),(a*b - k^2),0,
			0,0,0,(2*k*l*m + a*b*c - a*m^2 - c*k^2 - b*l^2)/e

	X tg(j,n) = gg(j*4+n+1)

	X tgi(j,n)=ggi(j*4+n+1)*e

	X tgd(n,j,j1) = ggd(n*4+j+1,j1)

	X tgdd(n,j,j1,j2) = DT(j2-j1)*ggdd(n*4+j+1,j1,j2) +
		DT(j1-j2-1)*ggdd(n*4+j+1,j2,j1)

	C***** The Christoffel symbol:

	X chr(n1,n2,n3) = 0.5*tgd(n3,n1,n2) + 0.5*tgd(n3,n2,n1)
		- 0.5*tgd(n1,n2,n3)

	C***** The derivative of the Christoffel symbol:

	X chd(n1,n2,n3,n4) = 0.5*tgdd(n3,n1,n2,n4) + 0.5*tgdd(n3,n2,n1,n4)
		- 0.5*tgdd(n1,n2,n3,n4)

	C***** Gamma in terms of the Christoffel symbol:

	X ga(n1,n2,n3) = DS{n4,0,3,{tgi(n3,n4)*chr(n1,n2,n4) } }

	C***** The Riemann tensor:

	X Rt4(n1,n2,n3,n4) = Det*chd(n2,n4,n1,n3) - Det*chd(n2,n3,n1,n4)
		+ DS{n5,0,3,{	chr(n2,n3,n5)*ga(n1,n4,n5) -
				chr(n2,n4,n5)*ga(n1,n3,n5) } }

	C***** This the the two-index Riemann tensor:

	X Rt2(n1,n2) = DS{n3,0,3,{zero(n3,n1)*
		DS{n4,0,3,{zero(n4,n2)*tgi(n3,n4)*Rt4(n3,n1,n4,n2)} } } }

	*fix


V ap, bp, cp, ep, kp, lp, mp

A i=i, Det, a, b, c, e, k, l, m

F D, Epf=i, G=i, Gi, G5=i, G6=c, G7, Ug=c, Ubg, DD, DB, DT, DS, DX, 
  DK, DP, DF=u, DC, app, kpp, lpp, bpp, mpp, cpp, epp

E zero=X1, gg=D1, ggd=D1, ggdd=D1, ggi=D2, tg=X3, tgi=X4, tgd=X3, 
  tgdd=X3, chr=X4, chd=X4, ga=X6, Rt4=X12, Rt2=X16

Begin. Time 1 sec.

	B e,Det,a

	C***** Now calculate some component, here Rt2(0,0) :

	Z R00 = Rt2(0,0)

	*begin


V ap, bp, cp, ep, kp, lp, mp

A i=i, Det, a, b, c, e, k, l, m

F D, Epf=i, G=i, Gi, G5=i, G6=c, G7, Ug=c, Ubg, DD, DB, DT, DS, DX, 
  DK, DP, DF=u, DC, app, kpp, lpp, bpp, mpp, cpp, epp

E zero=X1, gg=D1, ggd=D1, ggdd=D1, ggi=D2, tg=X3, tgi=X4, tgd=X3, 
  tgdd=X3, chr=X4, chd=X4, ga=X6, Rt4=X12, Rt2=X16

Terms in output 602
Running time 14 sec			Used	Maximum
Generated terms 3190 	Input space 	4648 	100000
Equal terms 1950     	Output space 	18994 	250000
Cancellations 638   	Nr of expr.  	33 	255
Multiplications 36559	String space 	0 	4096
Records written 0 	Merging		0 	0

 
R00 = 
  + 1/2*b*c*k^2*l^2*ap(3)*ep(3) + 1/2*b*c*k^2*l^2*ep(0)^2
  - b*k*l^3*m*ap(3)*ep(3) - b*k*l^3*m*ep(0)^2 + 1/4*b^2*l^4*ap(3)*ep(3)
   + 1/4*b^2*l^4*ep(0)^2 - c*k^3*l*m*ap(3)*ep(3) - c*k^3*l*m*ep(0)^2
   + 1/4*c^2*k^4*ap(3)*ep(3) + 1/4*c^2*k^4*ep(0)^2 + k^2*l^2*m^2*ap(3)
  *ep(3) + k^2*l^2*m^2*ep(0)^2
 
 + a
  * ( b*c*k*l*m*ap(3)*ep(3) + b*c*k*l*m*ep(0)^2 - 1/2*b*c^2*k^2*ap(3)
  *ep(3) - 1/2*b*c^2*k^2*ep(0)^2 + 1/2*b*l^2*m^2*ap(3)*ep(3)
  + 1/2*b*l^2*m^2*ep(0)^2 - 1/2*b^2*c*l^2*ap(3)*ep(3) - 1/2*b^2*c*l^2
  *ep(0)^2 + 1/2*c*k^2*m^2*ap(3)*ep(3) + 1/2*c*k^2*m^2*ep(0)^2
  - k*l*m^3*ap(3)*ep(3) - k*l*m^3*ep(0)^2 )
 
 + a^2
  * ( - 1/2*b*c*m^2*ap(3)*ep(3) - 1/2*b*c*m^2*ep(0)^2 + 1/4*b^2*c^2
  *ap(3)*ep(3) + 1/4*b^2*c^2*ep(0)^2 + 1/4*m^4*ap(3)*ep(3)
  + 1/4*m^4*ep(0)^2 )
 
 + e
  * ( 1/2*b*c*k*l*m*ap(0)*ep(0) + 1/2*b*c*k*l*m*ap(3)^2 + 1/4*b*c*k
  *l^2*ap(0)*ep(1) - 1/4*b*c*k*l^2*ap(1)*ep(0) + 1/2*b*c*k*l^2*ap(3)
  *kp(3) + 1/2*b*c*k*l^2*ep(0)*kp(0) + 1/4*b*c*k^2*l*ap(0)*ep(2)
  - 1/4*b*c*k^2*l*ap(2)*ep(0) + 1/2*b*c*k^2*l*ap(3)*lp(3)
  + 1/2*b*c*k^2*l*ep(0)*lp(0) - 1/4*b*c^2*k^2*ap(0)*ep(0)
  - 1/4*b*c^2*k^2*ap(3)^2 - 3/4*b*k*l^2*m*ap(0)*ep(2) + 3/4*b*k*l^2
  *m*ap(2)*ep(0) - 3/2*b*k*l^2*m*ap(3)*lp(3) - 3/2*b*k*l^2*m*ep(0)
  *lp(0) + 1/4*b*k*l^3*ap(1)*ep(2) + 1/4*b*k*l^3*ap(2)*ep(1)
  + 1/2*b*k*l^3*ap(3)*mp(3) - 1/2*b*k*l^3*ep(1)*lp(0) - 1/2*b*k*l^3
  *ep(2)*kp(0) - b*k*l^3*kp(3)*lp(3) - 1/4*b*k^2*l^2*ap(2)*ep(2)
  - 1/4*b*k^2*l^2*ap(3)*cp(3) + 1/2*b*k^2*l^2*ep(2)*lp(0)
  + 1/2*b*k^2*l^2*lp(3)^2 + 1/4*b*l^2*m^2*ap(0)*ep(0) + 1/4*b*l^2*m^2
  *ap(3)^2 - 1/4*b*l^3*m*ap(0)*ep(1) + 1/4*b*l^3*m*ap(1)*ep(0)
  - 1/2*b*l^3*m*ap(3)*kp(3) - 1/2*b*l^3*m*ep(0)*kp(0) - 1/4*b*l^4*ap(1)
  *ep(1) - 1/4*b*l^4*ap(3)*bp(3) + 1/2*b*l^4*ep(1)*kp(0) + 1/2*b*l^4
  *kp(3)^2 - 1/4*b^2*c*l^2*ap(0)*ep(0) - 1/4*b^2*c*l^2*ap(3)^2
  + 1/4*b^2*l^3*ap(0)*ep(2) - 1/4*b^2*l^3*ap(2)*ep(0) + 1/2*b^2*l^3
  *ap(3)*lp(3) + 1/2*b^2*l^3*ep(0)*lp(0) - 3/4*c*k^2*l*m*ap(0)*ep(1)
   + 3/4*c*k^2*l*m*ap(1)*ep(0) - 3/2*c*k^2*l*m*ap(3)*kp(3)
  - 3/2*c*k^2*l*m*ep(0)*kp(0) - 1/4*c*k^2*l^2*ap(1)*ep(1)
  - 1/4*c*k^2*l^2*ap(3)*bp(3) + 1/2*c*k^2*l^2*ep(1)*kp(0)
  + 1/2*c*k^2*l^2*kp(3)^2 + 1/4*c*k^2*m^2*ap(0)*ep(0) + 1/4*c*k^2*m^2
  *ap(3)^2 + 1/4*c*k^3*l*ap(1)*ep(2) + 1/4*c*k^3*l*ap(2)*ep(1)
  + 1/2*c*k^3*l*ap(3)*mp(3) - 1/2*c*k^3*l*ep(1)*lp(0) - 1/2*c*k^3*l
  *ep(2)*kp(0) - c*k^3*l*kp(3)*lp(3) - 1/4*c*k^3*m*ap(0)*ep(2)
  + 1/4*c*k^3*m*ap(2)*ep(0) - 1/2*c*k^3*m*ap(3)*lp(3) - 1/2*c*k^3*m
  *ep(0)*lp(0) - 1/4*c*k^4*ap(2)*ep(2) - 1/4*c*k^4*ap(3)*cp(3)
  + 1/2*c*k^4*ep(2)*lp(0) + 1/2*c*k^4*lp(3)^2 + 1/4*c^2*k^3*ap(0)*ep(1)
   - 1/4*c^2*k^3*ap(1)*ep(0) + 1/2*c^2*k^3*ap(3)*kp(3) + 1/2*c^2*k^3
  *ep(0)*kp(0) - 1/2*k*l*m^3*ap(0)*ep(0) - 1/2*k*l*m^3*ap(3)^2
  + 1/2*k*l^2*m^2*ap(0)*ep(1) - 1/2*k*l^2*m^2*ap(1)*ep(0)
  + k*l^2*m^2*ap(3)*kp(3) + k*l^2*m^2*ep(0)*kp(0) + 1/2*k*l^3*m*ap(1)
  *ep(1) + 1/2*k*l^3*m*ap(3)*bp(3) - k*l^3*m*ep(1)*kp(0) - k*l^3*m
  *kp(3)^2 + 1/2*k^2*l*m^2*ap(0)*ep(2) - 1/2*k^2*l*m^2*ap(2)*ep(0)
   + k^2*l*m^2*ap(3)*lp(3) + k^2*l*m^2*ep(0)*lp(0) - 1/2*k^2*l^2*m
  *ap(1)*ep(2) - 1/2*k^2*l^2*m*ap(2)*ep(1) - k^2*l^2*m*ap(3)*mp(3)
   + k^2*l^2*m*ep(1)*lp(0) + k^2*l^2*m*ep(2)*kp(0) + 2*k^2*l^2*m*kp(3)
  *lp(3) + 1/2*k^3*l*m*ap(2)*ep(2) + 1/2*k^3*l*m*ap(3)*cp(3)
  - k^3*l*m*ep(2)*lp(0) - k^3*l*m*lp(3)^2 )
 
 + e*a
  * ( - 1/4*b*c*k*l*ap(1)*ep(2) - 1/4*b*c*k*l*ap(2)*ep(1)
  - 1/2*b*c*k*l*ap(3)*mp(3) + 1/2*b*c*k*l*ep(1)*lp(0) + 1/2*b*c*k*l
  *ep(2)*kp(0) + b*c*k*l*kp(3)*lp(3) + 1/4*b*c*k*m*ap(0)*ep(2)
  - 1/4*b*c*k*m*ap(2)*ep(0) + 1/2*b*c*k*m*ap(3)*lp(3) + 1/2*b*c*k*m
  *ep(0)*lp(0) + 1/2*b*c*k^2*ap(2)*ep(2) + 1/2*b*c*k^2*ap(3)*cp(3)
   - b*c*k^2*ep(2)*lp(0) - b*c*k^2*lp(3)^2 + 1/4*b*c*l*m*ap(0)*ep(1)
   - 1/4*b*c*l*m*ap(1)*ep(0) + 1/2*b*c*l*m*ap(3)*kp(3) + 1/2*b*c*l
  *m*ep(0)*kp(0) + 1/2*b*c*l^2*ap(1)*ep(1) + 1/2*b*c*l^2*ap(3)*bp(3)
   - b*c*l^2*ep(1)*kp(0) - b*c*l^2*kp(3)^2 - 1/2*b*c*m^2*ap(0)*ep(0)
   - 1/2*b*c*m^2*ap(3)^2 - 1/4*b*c^2*k*ap(0)*ep(1) + 1/4*b*c^2*k*ap(1)
  *ep(0) - 1/2*b*c^2*k*ap(3)*kp(3) - 1/2*b*c^2*k*ep(0)*kp(0)
  - 1/2*b*k*l*m*ap(2)*ep(2) - 1/2*b*k*l*m*ap(3)*cp(3) + b*k*l*m*ep(2)
  *lp(0) + b*k*l*m*lp(3)^2 + 1/4*b*l*m^2*ap(0)*ep(2) - 1/4*b*l*m^2
  *ap(2)*ep(0) + 1/2*b*l*m^2*ap(3)*lp(3) + 1/2*b*l*m^2*ep(0)*lp(0)
   - 1/4*b*l^2*m*ap(1)*ep(2) - 1/4*b*l^2*m*ap(2)*ep(1) - 1/2*b*l^2
  *m*ap(3)*mp(3) + 1/2*b*l^2*m*ep(1)*lp(0) + 1/2*b*l^2*m*ep(2)*kp(0)
   + b*l^2*m*kp(3)*lp(3) - 1/4*b^2*c*l*ap(0)*ep(2) + 1/4*b^2*c*l*ap(2)
  *ep(0) - 1/2*b^2*c*l*ap(3)*lp(3) - 1/2*b^2*c*l*ep(0)*lp(0)
  + 1/4*b^2*c^2*ap(0)*ep(0) + 1/4*b^2*c^2*ap(3)^2 + 1/4*b^2*l^2*ap(2)
  *ep(2) + 1/4*b^2*l^2*ap(3)*cp(3) - 1/2*b^2*l^2*ep(2)*lp(0)
  - 1/2*b^2*l^2*lp(3)^2 - 1/2*c*k*l*m*ap(1)*ep(1) - 1/2*c*k*l*m*ap(3)
  *bp(3) + c*k*l*m*ep(1)*kp(0) + c*k*l*m*kp(3)^2 + 1/4*c*k*m^2*ap(0)
  *ep(1) - 1/4*c*k*m^2*ap(1)*ep(0) + 1/2*c*k*m^2*ap(3)*kp(3)
  + 1/2*c*k*m^2*ep(0)*kp(0) - 1/4*c*k^2*m*ap(1)*ep(2) - 1/4*c*k^2*m
  *ap(2)*ep(1) - 1/2*c*k^2*m*ap(3)*mp(3) + 1/2*c*k^2*m*ep(1)*lp(0)
   + 1/2*c*k^2*m*ep(2)*kp(0) + c*k^2*m*kp(3)*lp(3) + 1/4*c^2*k^2*ap(1)
  *ep(1) + 1/4*c^2*k^2*ap(3)*bp(3) - 1/2*c^2*k^2*ep(1)*kp(0)
  - 1/2*c^2*k^2*kp(3)^2 + 3/4*k*l*m^2*ap(1)*ep(2) + 3/4*k*l*m^2*ap(2)
  *ep(1) + 3/2*k*l*m^2*ap(3)*mp(3) - 3/2*k*l*m^2*ep(1)*lp(0)
  - 3/2*k*l*m^2*ep(2)*kp(0) - 3*k*l*m^2*kp(3)*lp(3) - 1/4*k*m^3*ap(0)
  *ep(2) + 1/4*k*m^3*ap(2)*ep(0) - 1/2*k*m^3*ap(3)*lp(3) - 1/2*k*m^3
  *ep(0)*lp(0) - 1/4*k^2*m^2*ap(2)*ep(2) - 1/4*k^2*m^2*ap(3)*cp(3)
   + 1/2*k^2*m^2*ep(2)*lp(0) + 1/2*k^2*m^2*lp(3)^2 - 1/4*l*m^3*ap(0)
  *ep(1) + 1/4*l*m^3*ap(1)*ep(0) - 1/2*l*m^3*ap(3)*kp(3) - 1/2*l*m^3
  *ep(0)*kp(0) - 1/4*l^2*m^2*ap(1)*ep(1) - 1/4*l^2*m^2*ap(3)*bp(3)
   + 1/2*l^2*m^2*ep(1)*kp(0) + 1/2*l^2*m^2*kp(3)^2 + 1/4*m^4*ap(0)
  *ep(0) + 1/4*m^4*ap(3)^2 )
 
 + e*a^2
  * ( 1/4*b*c*m*ap(1)*ep(2) + 1/4*b*c*m*ap(2)*ep(1) + 1/2*b*c*m*ap(3)
  *mp(3) - 1/2*b*c*m*ep(1)*lp(0) - 1/2*b*c*m*ep(2)*kp(0) - b*c*m*kp(3)
  *lp(3) - 1/4*b*c^2*ap(1)*ep(1) - 1/4*b*c^2*ap(3)*bp(3) + 1/2*b*c^2
  *ep(1)*kp(0) + 1/2*b*c^2*kp(3)^2 + 1/4*b*m^2*ap(2)*ep(2)
  + 1/4*b*m^2*ap(3)*cp(3) - 1/2*b*m^2*ep(2)*lp(0) - 1/2*b*m^2*lp(3)^2
   - 1/4*b^2*c*ap(2)*ep(2) - 1/4*b^2*c*ap(3)*cp(3) + 1/2*b^2*c*ep(2)
  *lp(0) + 1/2*b^2*c*lp(3)^2 + 1/4*c*m^2*ap(1)*ep(1) + 1/4*c*m^2*ap(3)
  *bp(3) - 1/2*c*m^2*ep(1)*kp(0) - 1/2*c*m^2*kp(3)^2 - 1/4*m^3*ap(1)
  *ep(2) - 1/4*m^3*ap(2)*ep(1) - 1/2*m^3*ap(3)*mp(3) + 1/2*m^3*ep(1)
  *lp(0) + 1/2*m^3*ep(2)*kp(0) + m^3*kp(3)*lp(3) )
 
 + e^2
  * ( - 1/2*b*c*k*l*ap(0)*kp(2) - 1/2*b*c*k*l*ap(0)*lp(1)
  + 1/2*b*c*k*l*ap(0)*mp(0) + 1/2*b*c*k*l*ap(1)*ap(2) - 1/4*b*c*k^2
  *ap(0)*cp(0) + 1/2*b*c*k^2*ap(0)*lp(2) - 1/4*b*c*k^2*ap(2)^2
  - 1/4*b*c*l^2*ap(0)*bp(0) + 1/2*b*c*l^2*ap(0)*kp(1) - 1/4*b*c*l^2
  *ap(1)^2 + 1/2*b*k*l^2*ap(0)*cp(1) - 1/2*b*k*l^2*ap(1)*cp(0)
  - b*k*l^2*ap(2)*lp(1) + b*k*l^2*kp(2)*lp(0) + b*k*l^2*lp(0)*lp(1)
   - b*k*l^2*lp(0)*mp(0) - 1/4*b*k^2*l*ap(0)*cp(2) + 1/4*b*k^2*l*ap(2)
  *cp(0) + 1/2*b*k^2*l*ap(2)*lp(2) + 1/2*b*k^2*l*cp(0)*lp(0)
  - b*k^2*l*lp(0)*lp(2) + 1/4*b*l^3*ap(0)*bp(2) - 1/2*b*l^3*ap(0)*mp(1)
   - 1/2*b*l^3*ap(1)*kp(2) + 1/2*b*l^3*ap(1)*lp(1) + 1/2*b*l^3*ap(1)
  *mp(0) - 1/4*b*l^3*ap(2)*bp(0) + 1/2*b*l^3*ap(2)*kp(1) + 1/2*b*l^3
  *bp(0)*lp(0) - b*l^3*kp(1)*lp(0) - 1/4*c*k*l^2*ap(0)*bp(1)
  + 1/4*c*k*l^2*ap(1)*bp(0) + 1/2*c*k*l^2*ap(1)*kp(1) + 1/2*c*k*l^2
  *bp(0)*kp(0) - c*k*l^2*kp(0)*kp(1) + 1/2*c*k^2*l*ap(0)*bp(2)
  - c*k^2*l*ap(1)*kp(2) - 1/2*c*k^2*l*ap(2)*bp(0) + c*k^2*l*kp(0)*kp(2)
   + c*k^2*l*kp(0)*lp(1) - c*k^2*l*kp(0)*mp(0) + 1/4*c*k^3*ap(0)*cp(1)
   - 1/2*c*k^3*ap(0)*mp(2) - 1/4*c*k^3*ap(1)*cp(0) + 1/2*c*k^3*ap(1)
  *lp(2) + 1/2*c*k^3*ap(2)*kp(2) - 1/2*c*k^3*ap(2)*lp(1) + 1/2*c*k^3
  *ap(2)*mp(0) + 1/2*c*k^3*cp(0)*kp(0) - c*k^3*kp(0)*lp(2)
  + 1/2*k*l*m^2*ap(0)*kp(2) + 1/2*k*l*m^2*ap(0)*lp(1) - 1/2*k*l*m^2
  *ap(0)*mp(0) - 1/2*k*l*m^2*ap(1)*ap(2) - 3/4*k*l^2*m*ap(0)*bp(2)
   + 1/2*k*l^2*m*ap(0)*mp(1) + 3/2*k*l^2*m*ap(1)*kp(2) - 1/2*k*l^2
  *m*ap(1)*lp(1) - 1/2*k*l^2*m*ap(1)*mp(0) + 3/4*k*l^2*m*ap(2)*bp(0)
   - 1/2*k*l^2*m*ap(2)*kp(1) - 1/2*k*l^2*m*bp(0)*lp(0) - k*l^2*m*kp(0)
  *kp(2) - k*l^2*m*kp(0)*lp(1) + k*l^2*m*kp(0)*mp(0) + k*l^2*m*kp(1)
  *lp(0) - 1/4*k*l^3*ap(1)*bp(2) - 1/2*k*l^3*ap(1)*mp(1) - 1/4*k*l^3
  *ap(2)*bp(1) - k*l^3*bp(0)*mp(0) + 1/2*k*l^3*bp(1)*lp(0)
  + 1/2*k*l^3*bp(2)*kp(0) + k*l^3*kp(0)*mp(1) - 3/4*k^2*l*m*ap(0)*cp(1)
   + 1/2*k^2*l*m*ap(0)*mp(2) + 3/4*k^2*l*m*ap(1)*cp(0) - 1/2*k^2*l
  *m*ap(1)*lp(2) - 1/2*k^2*l*m*ap(2)*kp(2) + 3/2*k^2*l*m*ap(2)*lp(1)
   - 1/2*k^2*l*m*ap(2)*mp(0) - 1/2*k^2*l*m*cp(0)*kp(0) + k^2*l*m*kp(0)
  *lp(2) - k^2*l*m*kp(2)*lp(0) - k^2*l*m*lp(0)*lp(1) + k^2*l*m*lp(0)
  *mp(0) + 1/4*k^2*l^2*ap(1)*cp(1) + 1/2*k^2*l^2*ap(1)*mp(2)
  + 1/4*k^2*l^2*ap(2)*bp(2) + 1/2*k^2*l^2*ap(2)*mp(1) + 1/2*k^2*l^2
  *bp(0)*cp(0) - 1/2*k^2*l^2*bp(2)*lp(0) - 1/2*k^2*l^2*cp(1)*kp(0)
   - k^2*l^2*kp(0)*mp(2) - k^2*l^2*lp(0)*mp(1) + k^2*l^2*mp(0)^2
  + 1/4*k^2*m^2*ap(0)*cp(0) - 1/2*k^2*m^2*ap(0)*lp(2) + 1/4*k^2*m^2
  *ap(2)^2 - 1/4*k^3*l*ap(1)*cp(2) - 1/4*k^3*l*ap(2)*cp(1)
  - 1/2*k^3*l*ap(2)*mp(2) - k^3*l*cp(0)*mp(0) + 1/2*k^3*l*cp(1)*lp(0)
   + 1/2*k^3*l*cp(2)*kp(0) + k^3*l*lp(0)*mp(2) + 1/4*k^3*m*ap(0)*cp(2)
   - 1/4*k^3*m*ap(2)*cp(0) - 1/2*k^3*m*ap(2)*lp(2) - 1/2*k^3*m*cp(0)
  *lp(0) + k^3*m*lp(0)*lp(2) + 1/4*k^4*ap(2)*cp(2) + 1/4*k^4*cp(0)^2
   - 1/2*k^4*cp(2)*lp(0) + 1/4*l^2*m^2*ap(0)*bp(0) - 1/2*l^2*m^2*ap(0)
  *kp(1) + 1/4*l^2*m^2*ap(1)^2 + 1/4*l^3*m*ap(0)*bp(1) - 1/4*l^3*m
  *ap(1)*bp(0) - 1/2*l^3*m*ap(1)*kp(1) - 1/2*l^3*m*bp(0)*kp(0)
  + l^3*m*kp(0)*kp(1) + 1/4*l^4*ap(1)*bp(1) + 1/4*l^4*bp(0)^2
  - 1/2*l^4*bp(1)*kp(0) )
 
 + e^2*a
  * ( - 1/4*b*c*k*ap(0)*cp(1) + 1/2*b*c*k*ap(0)*mp(2) + 1/4*b*c*k*ap(1)
  *cp(0) - 1/2*b*c*k*ap(1)*lp(2) - 1/2*b*c*k*ap(2)*kp(2) + 1/2*b*c
  *k*ap(2)*lp(1) - 1/2*b*c*k*ap(2)*mp(0) - 1/2*b*c*k*cp(0)*kp(0)
  + b*c*k*kp(0)*lp(2) - 1/4*b*c*l*ap(0)*bp(2) + 1/2*b*c*l*ap(0)*mp(1)
   + 1/2*b*c*l*ap(1)*kp(2) - 1/2*b*c*l*ap(1)*lp(1) - 1/2*b*c*l*ap(1)
  *mp(0) + 1/4*b*c*l*ap(2)*bp(0) - 1/2*b*c*l*ap(2)*kp(1) - 1/2*b*c
  *l*bp(0)*lp(0) + b*c*l*kp(1)*lp(0) + 1/2*b*c*m*ap(0)*kp(2)
  + 1/2*b*c*m*ap(0)*lp(1) - 1/2*b*c*m*ap(0)*mp(0) - 1/2*b*c*m*ap(1)
  *ap(2) + 1/4*b*c^2*ap(0)*bp(0) - 1/2*b*c^2*ap(0)*kp(1) + 1/4*b*c^2
  *ap(1)^2 + 1/4*b*k*l*ap(1)*cp(2) + 1/4*b*k*l*ap(2)*cp(1)
  + 1/2*b*k*l*ap(2)*mp(2) + b*k*l*cp(0)*mp(0) - 1/2*b*k*l*cp(1)*lp(0)
   - 1/2*b*k*l*cp(2)*kp(0) - b*k*l*lp(0)*mp(2) - 1/4*b*k*m*ap(0)*cp(2)
   + 1/4*b*k*m*ap(2)*cp(0) + 1/2*b*k*m*ap(2)*lp(2) + 1/2*b*k*m*cp(0)
  *lp(0) - b*k*m*lp(0)*lp(2) - 1/2*b*k^2*ap(2)*cp(2) - 1/2*b*k^2*cp(0)^2
   + b*k^2*cp(2)*lp(0) - 1/4*b*l*m*ap(0)*cp(1) - 1/2*b*l*m*ap(0)*mp(2)
   + 1/4*b*l*m*ap(1)*cp(0) + 1/2*b*l*m*ap(1)*lp(2) + 1/2*b*l*m*ap(2)
  *kp(2) + 1/2*b*l*m*ap(2)*lp(1) + 1/2*b*l*m*ap(2)*mp(0) + 1/2*b*l
  *m*cp(0)*kp(0) - b*l*m*kp(0)*lp(2) - b*l*m*kp(2)*lp(0) - b*l*m*lp(0)
  *lp(1) + b*l*m*lp(0)*mp(0) + 1/4*b*l^2*ap(1)*cp(1) - 1/2*b*l^2*ap(1)
  *mp(2) + 1/4*b*l^2*ap(2)*bp(2) - 1/2*b*l^2*ap(2)*mp(1) - 1/2*b*l^2
  *bp(2)*lp(0) - 1/2*b*l^2*cp(1)*kp(0) + b*l^2*kp(0)*mp(2)
  + b*l^2*kp(2)*lp(1) - 1/2*b*l^2*kp(2)^2 + b*l^2*lp(0)*mp(1)
  - 1/2*b*l^2*lp(1)^2 - 1/2*b*l^2*mp(0)^2 - 1/4*b*m^2*ap(0)*cp(0)
  + 1/2*b*m^2*ap(0)*lp(2) - 1/4*b*m^2*ap(2)^2 + 1/4*b^2*c*ap(0)*cp(0)
   - 1/2*b^2*c*ap(0)*lp(2) + 1/4*b^2*c*ap(2)^2 + 1/4*b^2*l*ap(0)*cp(2)
   - 1/4*b^2*l*ap(2)*cp(0) - 1/2*b^2*l*ap(2)*lp(2) - 1/2*b^2*l*cp(0)
  *lp(0) + b^2*l*lp(0)*lp(2) + 1/4*c*k*l*ap(1)*bp(2) + 1/2*c*k*l*ap(1)
  *mp(1) + 1/4*c*k*l*ap(2)*bp(1) + c*k*l*bp(0)*mp(0) - 1/2*c*k*l*bp(1)
  *lp(0) - 1/2*c*k*l*bp(2)*kp(0) - c*k*l*kp(0)*mp(1) - 1/4*c*k*m*ap(0)
  *bp(2) - 1/2*c*k*m*ap(0)*mp(1) + 1/2*c*k*m*ap(1)*kp(2) + 1/2*c*k
  *m*ap(1)*lp(1) + 1/2*c*k*m*ap(1)*mp(0) + 1/4*c*k*m*ap(2)*bp(0)
  + 1/2*c*k*m*ap(2)*kp(1) + 1/2*c*k*m*bp(0)*lp(0) - c*k*m*kp(0)*kp(2)
   - c*k*m*kp(0)*lp(1) + c*k*m*kp(0)*mp(0) - c*k*m*kp(1)*lp(0)
  + 1/4*c*k^2*ap(1)*cp(1) - 1/2*c*k^2*ap(1)*mp(2) + 1/4*c*k^2*ap(2)
  *bp(2) - 1/2*c*k^2*ap(2)*mp(1) - 1/2*c*k^2*bp(2)*lp(0) - 1/2*c*k^2
  *cp(1)*kp(0) + c*k^2*kp(0)*mp(2) + c*k^2*kp(2)*lp(1) - 1/2*c*k^2
  *kp(2)^2 + c*k^2*lp(0)*mp(1) - 1/2*c*k^2*lp(1)^2 - 1/2*c*k^2*mp(0)^2
   - 1/4*c*l*m*ap(0)*bp(1) + 1/4*c*l*m*ap(1)*bp(0) + 1/2*c*l*m*ap(1)
  *kp(1) + 1/2*c*l*m*bp(0)*kp(0) - c*l*m*kp(0)*kp(1) - 1/2*c*l^2*ap(1)
  *bp(1) - 1/2*c*l^2*bp(0)^2 + c*l^2*bp(1)*kp(0) - 1/4*c*m^2*ap(0)
  *bp(0) + 1/2*c*m^2*ap(0)*kp(1) - 1/4*c*m^2*ap(1)^2 + 1/4*c^2*k*ap(0)
  *bp(1) - 1/4*c^2*k*ap(1)*bp(0) - 1/2*c^2*k*ap(1)*kp(1) - 1/2*c^2
  *k*bp(0)*kp(0) + c^2*k*kp(0)*kp(1) - k*l*m*ap(1)*cp(1) - k*l*m*ap(2)
  *bp(2) - k*l*m*bp(0)*cp(0) + 2*k*l*m*bp(2)*lp(0) + 2*k*l*m*cp(1)
  *kp(0) - 2*k*l*m*kp(2)*lp(1) + k*l*m*kp(2)^2 + k*l*m*lp(1)^2
  - k*l*m*mp(0)^2 + 1/2*k*m^2*ap(0)*cp(1) - 1/2*k*m^2*ap(1)*cp(0)
  - k*m^2*ap(2)*lp(1) + k*m^2*kp(2)*lp(0) + k*m^2*lp(0)*lp(1)
  - k*m^2*lp(0)*mp(0) + 1/4*k^2*m*ap(1)*cp(2) + 1/4*k^2*m*ap(2)*cp(1)
   + 1/2*k^2*m*ap(2)*mp(2) + k^2*m*cp(0)*mp(0) - 1/2*k^2*m*cp(1)*lp(0)
   - 1/2*k^2*m*cp(2)*kp(0) - k^2*m*lp(0)*mp(2) + 1/2*l*m^2*ap(0)*bp(2)
   - l*m^2*ap(1)*kp(2) - 1/2*l*m^2*ap(2)*bp(0) + l*m^2*kp(0)*kp(2)
   + l*m^2*kp(0)*lp(1) - l*m^2*kp(0)*mp(0) + 1/4*l^2*m*ap(1)*bp(2)
   + 1/2*l^2*m*ap(1)*mp(1) + 1/4*l^2*m*ap(2)*bp(1) + l^2*m*bp(0)*mp(0)
   - 1/2*l^2*m*bp(1)*lp(0) - 1/2*l^2*m*bp(2)*kp(0) - l^2*m*kp(0)*mp(1)
   - 1/2*m^3*ap(0)*kp(2) - 1/2*m^3*ap(0)*lp(1) + 1/2*m^3*ap(0)*mp(0)
   + 1/2*m^3*ap(1)*ap(2) )
 
 + e^2*a^2
  * ( - 1/4*b*c*ap(1)*cp(1) + 1/2*b*c*ap(1)*mp(2) - 1/4*b*c*ap(2)*bp(2)
   + 1/2*b*c*ap(2)*mp(1) + 1/2*b*c*bp(2)*lp(0) + 1/2*b*c*cp(1)*kp(0)
   - b*c*kp(0)*mp(2) - b*c*kp(2)*lp(1) + 1/2*b*c*kp(2)^2 - b*c*lp(0)
  *mp(1) + 1/2*b*c*lp(1)^2 + 1/2*b*c*mp(0)^2 - 1/4*b*m*ap(1)*cp(2)
   - 1/4*b*m*ap(2)*cp(1) - 1/2*b*m*ap(2)*mp(2) - b*m*cp(0)*mp(0)
  + 1/2*b*m*cp(1)*lp(0) + 1/2*b*m*cp(2)*kp(0) + b*m*lp(0)*mp(2)
  + 1/4*b^2*ap(2)*cp(2) + 1/4*b^2*cp(0)^2 - 1/2*b^2*cp(2)*lp(0)
  - 1/4*c*m*ap(1)*bp(2) - 1/2*c*m*ap(1)*mp(1) - 1/4*c*m*ap(2)*bp(1)
   - c*m*bp(0)*mp(0) + 1/2*c*m*bp(1)*lp(0) + 1/2*c*m*bp(2)*kp(0)
  + c*m*kp(0)*mp(1) + 1/4*c^2*ap(1)*bp(1) + 1/4*c^2*bp(0)^2
  - 1/2*c^2*bp(1)*kp(0) + 1/2*m^2*ap(1)*cp(1) + 1/2*m^2*ap(2)*bp(2)
   + 1/2*m^2*bp(0)*cp(0) - m^2*bp(2)*lp(0) - m^2*cp(1)*kp(0)
  + m^2*kp(2)*lp(1) - 1/2*m^2*kp(2)^2 - 1/2*m^2*lp(1)^2 + 1/2*m^2*mp(0)^2 )
 
 + app(1,1)*e*Det
  * ( 1/2*l^2 )
 
 + app(1,1)*e*Det*a
  * ( - 1/2*c )
 
 + app(1,2)*e*Det
  * ( - k*l )
 
 + app(1,2)*e*Det*a
  * ( m )
 
 + app(2,2)*e*Det
  * ( 1/2*k^2 )
 
 + app(2,2)*e*Det*a
  * ( - 1/2*b )
 
 + app(3,3)*Det
  * ( 1/2*b*l^2 + 1/2*c*k^2 - k*l*m )
 
 + app(3,3)*Det*a
  * ( - 1/2*b*c + 1/2*m^2 )
 
 + kpp(0,1)*e*Det
  * ( - l^2 )
 
 + kpp(0,1)*e*Det*a
  * ( c )
 
 + kpp(0,2)*e*Det
  * ( k*l )
 
 + kpp(0,2)*e*Det*a
  * ( - m )
 
 + lpp(0,1)*e*Det
  * ( k*l )
 
 + lpp(0,1)*e*Det*a
  * ( - m )
 
 + lpp(0,2)*e*Det
  * ( - k^2 )
 
 + lpp(0,2)*e*Det*a
  * ( b )
 
 + bpp(0,0)*e*Det
  * ( 1/2*l^2 )
 
 + bpp(0,0)*e*Det*a
  * ( - 1/2*c )
 
 + mpp(0,0)*e*Det
  * ( - k*l )
 
 + mpp(0,0)*e*Det*a
  * ( m )
 
 + cpp(0,0)*e*Det
  * ( 1/2*k^2 )
 
 + cpp(0,0)*e*Det*a
  * ( - 1/2*b )
 
 + epp(0,0)*Det
  * ( 1/2*b*l^2 + 1/2*c*k^2 - k*l*m )
 
 + epp(0,0)*Det*a
  * ( - 1/2*b*c + 1/2*m^2 ) + 0.
 

Begin. Time 15 sec.

	B e,Det,a

	Z R01 = Rt2(0,1)

	*end


V ap, bp, cp, ep, kp, lp, mp

A i=i, Det, a, b, c, e, k, l, m

F D, Epf=i, G=i, Gi, G5=i, G6=c, G7, Ug=c, Ubg, DD, DB, DT, DS, DX, 
  DK, DP, DF=u, DC, app, kpp, lpp, bpp, mpp, cpp, epp

E zero=X1, gg=D1, ggd=D1, ggdd=D1, ggi=D2, tg=X3, tgi=X4, tgd=X3, 
  tgdd=X3, chr=X4, chd=X4, ga=X6, Rt4=X12, Rt2=X16

Terms in output 652
Running time 28 sec			Used	Maximum
Generated terms 3190 	Input space 	4648 	100000
Equal terms 1855     	Output space 	21220 	250000
Cancellations 683   	Nr of expr.  	33 	255
Multiplications 36559	String space 	0 	4096
Records written 0 	Merging		0 	0

 
R01 = 
  + 1/2*b*c*k^2*l^2*ep(0)*ep(1) + 1/2*b*c*k^2*l^2*ep(3)*kp(3)
  - b*k*l^3*m*ep(0)*ep(1) - b*k*l^3*m*ep(3)*kp(3) + 1/4*b^2*l^4*ep(0)
  *ep(1) + 1/4*b^2*l^4*ep(3)*kp(3) - c*k^3*l*m*ep(0)*ep(1)
  - c*k^3*l*m*ep(3)*kp(3) + 1/4*c^2*k^4*ep(0)*ep(1) + 1/4*c^2*k^4*ep(3)
  *kp(3) + k^2*l^2*m^2*ep(0)*ep(1) + k^2*l^2*m^2*ep(3)*kp(3)
 
 + a
  * ( b*c*k*l*m*ep(0)*ep(1) + b*c*k*l*m*ep(3)*kp(3) - 1/2*b*c^2*k^2
  *ep(0)*ep(1) - 1/2*b*c^2*k^2*ep(3)*kp(3) + 1/2*b*l^2*m^2*ep(0)*ep(1)
   + 1/2*b*l^2*m^2*ep(3)*kp(3) - 1/2*b^2*c*l^2*ep(0)*ep(1)
  - 1/2*b^2*c*l^2*ep(3)*kp(3) + 1/2*c*k^2*m^2*ep(0)*ep(1)
  + 1/2*c*k^2*m^2*ep(3)*kp(3) - k*l*m^3*ep(0)*ep(1) - k*l*m^3*ep(3)
  *kp(3) )
 
 + a^2
  * ( - 1/2*b*c*m^2*ep(0)*ep(1) - 1/2*b*c*m^2*ep(3)*kp(3)
  + 1/4*b^2*c^2*ep(0)*ep(1) + 1/4*b^2*c^2*ep(3)*kp(3) + 1/4*m^4*ep(0)
  *ep(1) + 1/4*m^4*ep(3)*kp(3) )
 
 + e
  * ( 1/2*b*c*k*l*m*ap(1)*ep(0) + 1/2*b*c*k*l*m*ap(3)*kp(3)
  + 1/4*b*c*k*l^2*ap(1)*ep(1) + 1/2*b*c*k*l^2*ap(3)*bp(3)
  + 1/4*b*c*k*l^2*bp(0)*ep(0) + 1/4*b*c*k^2*l*ap(1)*ep(2)
  + 1/2*b*c*k^2*l*ap(3)*mp(3) - 1/4*b*c*k^2*l*ep(0)*kp(2)
  + 1/4*b*c*k^2*l*ep(0)*lp(1) + 1/4*b*c*k^2*l*ep(0)*mp(0)
  - 1/4*b*c^2*k^2*ap(1)*ep(0) - 1/4*b*c^2*k^2*ap(3)*kp(3)
  - 3/4*b*k*l^2*m*ap(1)*ep(2) - 3/2*b*k*l^2*m*ap(3)*mp(3)
  + 3/4*b*k*l^2*m*ep(0)*kp(2) - 3/4*b*k*l^2*m*ep(0)*lp(1)
  - 3/4*b*k*l^2*m*ep(0)*mp(0) - 1/4*b*k*l^3*bp(0)*ep(2) - 1/2*b*k*l^3
  *bp(3)*lp(3) + 1/4*b*k*l^3*ep(1)*kp(2) - 1/4*b*k*l^3*ep(1)*lp(1)
   - 1/4*b*k*l^3*ep(1)*mp(0) - 1/4*b*k^2*l^2*cp(3)*kp(3) - 1/4*b*k^2
  *l^2*ep(2)*kp(2) + 1/4*b*k^2*l^2*ep(2)*lp(1) + 1/4*b*k^2*l^2*ep(2)
  *mp(0) + 1/2*b*k^2*l^2*lp(3)*mp(3) + 1/4*b*l^2*m^2*ap(1)*ep(0)
  + 1/4*b*l^2*m^2*ap(3)*kp(3) - 1/4*b*l^3*m*ap(1)*ep(1) - 1/2*b*l^3
  *m*ap(3)*bp(3) - 1/4*b*l^3*m*bp(0)*ep(0) + 1/4*b*l^4*bp(0)*ep(1)
   + 1/4*b*l^4*bp(3)*kp(3) - 1/4*b^2*c*l^2*ap(1)*ep(0) - 1/4*b^2*c
  *l^2*ap(3)*kp(3) + 1/4*b^2*l^3*ap(1)*ep(2) + 1/2*b^2*l^3*ap(3)*mp(3)
   - 1/4*b^2*l^3*ep(0)*kp(2) + 1/4*b^2*l^3*ep(0)*lp(1) + 1/4*b^2*l^3
  *ep(0)*mp(0) - 3/4*c*k^2*l*m*ap(1)*ep(1) - 3/2*c*k^2*l*m*ap(3)*bp(3)
   - 3/4*c*k^2*l*m*bp(0)*ep(0) + 1/4*c*k^2*l^2*bp(0)*ep(1)
  + 1/4*c*k^2*l^2*bp(3)*kp(3) + 1/4*c*k^2*m^2*ap(1)*ep(0)
  + 1/4*c*k^2*m^2*ap(3)*kp(3) - 1/4*c*k^3*l*bp(0)*ep(2) - 1/2*c*k^3
  *l*bp(3)*lp(3) + 1/4*c*k^3*l*ep(1)*kp(2) - 1/4*c*k^3*l*ep(1)*lp(1)
   - 1/4*c*k^3*l*ep(1)*mp(0) - 1/4*c*k^3*m*ap(1)*ep(2) - 1/2*c*k^3
  *m*ap(3)*mp(3) + 1/4*c*k^3*m*ep(0)*kp(2) - 1/4*c*k^3*m*ep(0)*lp(1)
   - 1/4*c*k^3*m*ep(0)*mp(0) - 1/4*c*k^4*cp(3)*kp(3) - 1/4*c*k^4*ep(2)
  *kp(2) + 1/4*c*k^4*ep(2)*lp(1) + 1/4*c*k^4*ep(2)*mp(0) + 1/2*c*k^4
  *lp(3)*mp(3) + 1/4*c^2*k^3*ap(1)*ep(1) + 1/2*c^2*k^3*ap(3)*bp(3)
   + 1/4*c^2*k^3*bp(0)*ep(0) - 1/2*k*l*m^3*ap(1)*ep(0) - 1/2*k*l*m^3
  *ap(3)*kp(3) + 1/2*k*l^2*m^2*ap(1)*ep(1) + k*l^2*m^2*ap(3)*bp(3)
   + 1/2*k*l^2*m^2*bp(0)*ep(0) - 1/2*k*l^3*m*bp(0)*ep(1) - 1/2*k*l^3
  *m*bp(3)*kp(3) + 1/2*k^2*l*m^2*ap(1)*ep(2) + k^2*l*m^2*ap(3)*mp(3)
   - 1/2*k^2*l*m^2*ep(0)*kp(2) + 1/2*k^2*l*m^2*ep(0)*lp(1)
  + 1/2*k^2*l*m^2*ep(0)*mp(0) + 1/2*k^2*l^2*m*bp(0)*ep(2)
  + k^2*l^2*m*bp(3)*lp(3) - 1/2*k^2*l^2*m*ep(1)*kp(2) + 1/2*k^2*l^2
  *m*ep(1)*lp(1) + 1/2*k^2*l^2*m*ep(1)*mp(0) + 1/2*k^3*l*m*cp(3)*kp(3)
   + 1/2*k^3*l*m*ep(2)*kp(2) - 1/2*k^3*l*m*ep(2)*lp(1) - 1/2*k^3*l
  *m*ep(2)*mp(0) - k^3*l*m*lp(3)*mp(3) )
 
 + e*a
  * ( 1/4*b*c*k*l*bp(0)*ep(2) + 1/2*b*c*k*l*bp(3)*lp(3) - 1/4*b*c*k
  *l*ep(1)*kp(2) + 1/4*b*c*k*l*ep(1)*lp(1) + 1/4*b*c*k*l*ep(1)*mp(0)
   + 1/4*b*c*k*m*ap(1)*ep(2) + 1/2*b*c*k*m*ap(3)*mp(3) - 1/4*b*c*k
  *m*ep(0)*kp(2) + 1/4*b*c*k*m*ep(0)*lp(1) + 1/4*b*c*k*m*ep(0)*mp(0)
   + 1/2*b*c*k^2*cp(3)*kp(3) + 1/2*b*c*k^2*ep(2)*kp(2) - 1/2*b*c*k^2
  *ep(2)*lp(1) - 1/2*b*c*k^2*ep(2)*mp(0) - b*c*k^2*lp(3)*mp(3)
  + 1/4*b*c*l*m*ap(1)*ep(1) + 1/2*b*c*l*m*ap(3)*bp(3) + 1/4*b*c*l*m
  *bp(0)*ep(0) - 1/2*b*c*l^2*bp(0)*ep(1) - 1/2*b*c*l^2*bp(3)*kp(3)
   - 1/2*b*c*m^2*ap(1)*ep(0) - 1/2*b*c*m^2*ap(3)*kp(3) - 1/4*b*c^2
  *k*ap(1)*ep(1) - 1/2*b*c^2*k*ap(3)*bp(3) - 1/4*b*c^2*k*bp(0)*ep(0)
   - 1/2*b*k*l*m*cp(3)*kp(3) - 1/2*b*k*l*m*ep(2)*kp(2) + 1/2*b*k*l
  *m*ep(2)*lp(1) + 1/2*b*k*l*m*ep(2)*mp(0) + b*k*l*m*lp(3)*mp(3)
  + 1/4*b*l*m^2*ap(1)*ep(2) + 1/2*b*l*m^2*ap(3)*mp(3) - 1/4*b*l*m^2
  *ep(0)*kp(2) + 1/4*b*l*m^2*ep(0)*lp(1) + 1/4*b*l*m^2*ep(0)*mp(0)
   + 1/4*b*l^2*m*bp(0)*ep(2) + 1/2*b*l^2*m*bp(3)*lp(3) - 1/4*b*l^2
  *m*ep(1)*kp(2) + 1/4*b*l^2*m*ep(1)*lp(1) + 1/4*b*l^2*m*ep(1)*mp(0)
   - 1/4*b^2*c*l*ap(1)*ep(2) - 1/2*b^2*c*l*ap(3)*mp(3) + 1/4*b^2*c
  *l*ep(0)*kp(2) - 1/4*b^2*c*l*ep(0)*lp(1) - 1/4*b^2*c*l*ep(0)*mp(0)
   + 1/4*b^2*c^2*ap(1)*ep(0) + 1/4*b^2*c^2*ap(3)*kp(3) + 1/4*b^2*l^2
  *cp(3)*kp(3) + 1/4*b^2*l^2*ep(2)*kp(2) - 1/4*b^2*l^2*ep(2)*lp(1)
   - 1/4*b^2*l^2*ep(2)*mp(0) - 1/2*b^2*l^2*lp(3)*mp(3) + 1/2*c*k*l
  *m*bp(0)*ep(1) + 1/2*c*k*l*m*bp(3)*kp(3) + 1/4*c*k*m^2*ap(1)*ep(1)
   + 1/2*c*k*m^2*ap(3)*bp(3) + 1/4*c*k*m^2*bp(0)*ep(0) + 1/4*c*k^2
  *m*bp(0)*ep(2) + 1/2*c*k^2*m*bp(3)*lp(3) - 1/4*c*k^2*m*ep(1)*kp(2)
   + 1/4*c*k^2*m*ep(1)*lp(1) + 1/4*c*k^2*m*ep(1)*mp(0) - 1/4*c^2*k^2
  *bp(0)*ep(1) - 1/4*c^2*k^2*bp(3)*kp(3) - 3/4*k*l*m^2*bp(0)*ep(2)
   - 3/2*k*l*m^2*bp(3)*lp(3) + 3/4*k*l*m^2*ep(1)*kp(2) - 3/4*k*l*m^2
  *ep(1)*lp(1) - 3/4*k*l*m^2*ep(1)*mp(0) - 1/4*k*m^3*ap(1)*ep(2)
  - 1/2*k*m^3*ap(3)*mp(3) + 1/4*k*m^3*ep(0)*kp(2) - 1/4*k*m^3*ep(0)
  *lp(1) - 1/4*k*m^3*ep(0)*mp(0) - 1/4*k^2*m^2*cp(3)*kp(3)
  - 1/4*k^2*m^2*ep(2)*kp(2) + 1/4*k^2*m^2*ep(2)*lp(1) + 1/4*k^2*m^2
  *ep(2)*mp(0) + 1/2*k^2*m^2*lp(3)*mp(3) - 1/4*l*m^3*ap(1)*ep(1)
  - 1/2*l*m^3*ap(3)*bp(3) - 1/4*l*m^3*bp(0)*ep(0) + 1/4*l^2*m^2*bp(0)
  *ep(1) + 1/4*l^2*m^2*bp(3)*kp(3) + 1/4*m^4*ap(1)*ep(0) + 1/4*m^4
  *ap(3)*kp(3) )
 
 + e*a^2
  * ( - 1/4*b*c*m*bp(0)*ep(2) - 1/2*b*c*m*bp(3)*lp(3) + 1/4*b*c*m*ep(1)
  *kp(2) - 1/4*b*c*m*ep(1)*lp(1) - 1/4*b*c*m*ep(1)*mp(0) + 1/4*b*c^2
  *bp(0)*ep(1) + 1/4*b*c^2*bp(3)*kp(3) + 1/4*b*m^2*cp(3)*kp(3)
  + 1/4*b*m^2*ep(2)*kp(2) - 1/4*b*m^2*ep(2)*lp(1) - 1/4*b*m^2*ep(2)
  *mp(0) - 1/2*b*m^2*lp(3)*mp(3) - 1/4*b^2*c*cp(3)*kp(3) - 1/4*b^2
  *c*ep(2)*kp(2) + 1/4*b^2*c*ep(2)*lp(1) + 1/4*b^2*c*ep(2)*mp(0)
  + 1/2*b^2*c*lp(3)*mp(3) - 1/4*c*m^2*bp(0)*ep(1) - 1/4*c*m^2*bp(3)
  *kp(3) + 1/4*m^3*bp(0)*ep(2) + 1/2*m^3*bp(3)*lp(3) - 1/4*m^3*ep(1)
  *kp(2) + 1/4*m^3*ep(1)*lp(1) + 1/4*m^3*ep(1)*mp(0) )
 
 + e^2
  * ( 1/2*b*c*k*l*ap(0)*mp(1) - 1/4*b*c*k*l*ap(1)*kp(2) - 3/4*b*c*k
  *l*ap(1)*lp(1) - 1/4*b*c*k*l*ap(1)*mp(0) - 1/4*b*c*k*l*ap(2)*bp(0)
   - 1/2*b*c*k*l*bp(0)*lp(0) + 1/2*b*c*k*l*kp(0)*kp(2) + 1/2*b*c*k
  *l*kp(0)*lp(1) - 1/2*b*c*k*l*kp(0)*mp(0) + b*c*k*l*kp(1)*lp(0)
  + 1/4*b*c*k*m*ap(0)*kp(2) + 1/4*b*c*k*m*ap(0)*lp(1) - 1/4*b*c*k*m
  *ap(0)*mp(0) - 1/4*b*c*k*m*ap(1)*ap(2) - 1/4*b*c*k^2*ap(1)*cp(0)
   + 1/2*b*c*k^2*ap(1)*lp(2) - 1/4*b*c*k^2*ap(2)*kp(2) - 1/4*b*c*k^2
  *ap(2)*lp(1) + 1/4*b*c*k^2*ap(2)*mp(0) - 1/4*b*c*l*m*ap(0)*bp(0)
   + 1/2*b*c*l*m*ap(0)*kp(1) - 1/4*b*c*l*m*ap(1)^2 + 1/4*b*c^2*k*ap(0)
  *bp(0) - 1/2*b*c^2*k*ap(0)*kp(1) + 1/4*b*c^2*k*ap(1)^2 - 1/2*b*k
  *l*m*ap(0)*cp(1) + 1/2*b*k*l*m*ap(1)*cp(0) + b*k*l*m*ap(2)*lp(1)
   - b*k*l*m*kp(2)*lp(0) - b*k*l*m*lp(0)*lp(1) + b*k*l*m*lp(0)*mp(0)
   + 1/2*b*k*l^2*ap(1)*cp(1) + 1/2*b*k*l^2*ap(2)*bp(2) - 1/2*b*k*l^2
  *ap(2)*mp(1) + 1/2*b*k*l^2*bp(0)*cp(0) - 1/2*b*k*l^2*bp(2)*lp(0)
   - 1/2*b*k*l^2*cp(0)*kp(1) - 1/2*b*k*l^2*cp(1)*kp(0) + 1/2*b*k*l^2
  *kp(2)*lp(1) + 1/2*b*k*l^2*kp(2)*mp(0) - 1/2*b*k*l^2*kp(2)^2
  - 1/4*b*k^2*l*ap(1)*cp(2) + 1/4*b*k^2*l*cp(0)*kp(2) + 1/4*b*k^2*l
  *cp(0)*lp(1) - 1/4*b*k^2*l*cp(0)*mp(0) + 1/2*b*k^2*l*cp(1)*lp(0)
   + 1/2*b*k^2*l*kp(2)*lp(2) - 1/2*b*k^2*l*lp(1)*lp(2) - 1/2*b*k^2
  *l*lp(2)*mp(0) + 1/4*b*l*m^2*ap(0)*kp(2) + 1/4*b*l*m^2*ap(0)*lp(1)
   - 1/4*b*l*m^2*ap(0)*mp(0) - 1/4*b*l*m^2*ap(1)*ap(2) - 1/2*b*l^2
  *m*ap(0)*mp(1) + 1/2*b*l^2*m*ap(1)*lp(1) + 1/2*b*l^2*m*ap(1)*mp(0)
   + 1/2*b*l^2*m*ap(2)*kp(1) + 1/2*b*l^2*m*bp(0)*lp(0) - 1/2*b*l^2
  *m*kp(0)*kp(2) - 1/2*b*l^2*m*kp(0)*lp(1) + 1/2*b*l^2*m*kp(0)*mp(0)
   - b*l^2*m*kp(1)*lp(0) - 1/4*b*l^3*ap(1)*bp(2) - 1/4*b*l^3*bp(0)
  *kp(2) + 1/4*b*l^3*bp(0)*lp(1) - 1/4*b*l^3*bp(0)*mp(0) + 1/2*b*l^3
  *bp(2)*kp(0) - 1/4*b^2*c*l*ap(0)*kp(2) - 1/4*b^2*c*l*ap(0)*lp(1)
   + 1/4*b^2*c*l*ap(0)*mp(0) + 1/4*b^2*c*l*ap(1)*ap(2) + 1/4*b^2*l^2
  *ap(0)*cp(1) - 1/4*b^2*l^2*ap(1)*cp(0) - 1/2*b^2*l^2*ap(2)*lp(1)
   + 1/2*b^2*l^2*kp(2)*lp(0) + 1/2*b^2*l^2*lp(0)*lp(1) - 1/2*b^2*l^2
  *lp(0)*mp(0) - 1/2*c*k*l*m*ap(0)*bp(1) + 1/2*c*k*l*m*ap(1)*bp(0)
   + c*k*l*m*ap(1)*kp(1) + c*k*l*m*bp(0)*kp(0) - 2*c*k*l*m*kp(0)*kp(1)
   - 1/4*c*k*l^2*ap(1)*bp(1) - 1/4*c*k*l^2*bp(0)^2 + 1/2*c*k*l^2*bp(1)
  *kp(0) - 1/4*c*k*m^2*ap(0)*bp(0) + 1/2*c*k*m^2*ap(0)*kp(1)
  - 1/4*c*k*m^2*ap(1)^2 + 1/2*c*k^2*l*ap(1)*mp(1) + 1/2*c*k^2*l*bp(0)
  *lp(1) + 1/2*c*k^2*l*bp(0)*mp(0) - 1/2*c*k^2*l*bp(1)*lp(0)
  + 1/2*c*k^2*l*bp(2)*kp(0) - c*k^2*l*kp(0)*mp(1) - 1/2*c*k^2*l*kp(1)
  *kp(2) + 1/2*c*k^2*l*kp(1)*lp(1) - 1/2*c*k^2*l*kp(1)*mp(0)
  - 1/2*c*k^2*m*ap(0)*mp(1) + 1/2*c*k^2*m*ap(1)*lp(1) + 1/2*c*k^2*m
  *ap(1)*mp(0) + 1/2*c*k^2*m*ap(2)*kp(1) + 1/2*c*k^2*m*bp(0)*lp(0)
   - 1/2*c*k^2*m*kp(0)*kp(2) - 1/2*c*k^2*m*kp(0)*lp(1) + 1/2*c*k^2
  *m*kp(0)*mp(0) - c*k^2*m*kp(1)*lp(0) + 1/4*c*k^3*ap(1)*cp(1)
  - 1/2*c*k^3*ap(1)*mp(2) + 1/2*c*k^3*ap(2)*bp(2) - 1/2*c*k^3*ap(2)
  *mp(1) + 1/4*c*k^3*bp(0)*cp(0) - 1/2*c*k^3*bp(0)*lp(2) - 1/2*c*k^3
  *bp(2)*lp(0) + 1/2*c*k^3*kp(2)*lp(1) + 1/2*c*k^3*kp(2)*mp(0)
  + c*k^3*lp(0)*mp(1) - 1/2*c*k^3*lp(1)^2 - 1/2*c*k^3*mp(0)^2
  + 1/4*c^2*k^2*ap(0)*bp(1) - 1/4*c^2*k^2*ap(1)*bp(0) - 1/2*c^2*k^2
  *ap(1)*kp(1) - 1/2*c^2*k^2*bp(0)*kp(0) + c^2*k^2*kp(0)*kp(1)
  + 1/2*k*l*m^2*ap(0)*mp(1) + 1/4*k*l*m^2*ap(1)*kp(2) - 1/4*k*l*m^2
  *ap(1)*lp(1) - 3/4*k*l*m^2*ap(1)*mp(0) + 1/4*k*l*m^2*ap(2)*bp(0)
   - k*l*m^2*ap(2)*kp(1) - 1/2*k*l*m^2*bp(0)*lp(0) + 1/2*k*l*m^2*kp(0)
  *kp(2) + 1/2*k*l*m^2*kp(0)*lp(1) - 1/2*k*l*m^2*kp(0)*mp(0)
  + k*l*m^2*kp(1)*lp(0) + 1/4*k*l^2*m*ap(1)*bp(2) - 1/2*k*l^2*m*ap(1)
  *mp(1) + 1/4*k*l^2*m*bp(0)*kp(2) - 3/4*k*l^2*m*bp(0)*lp(1)
  - 1/4*k*l^2*m*bp(0)*mp(0) + 1/2*k*l^2*m*bp(1)*lp(0) - k*l^2*m*bp(2)
  *kp(0) + k*l^2*m*kp(0)*mp(1) + 1/2*k*l^2*m*kp(1)*kp(2) - 1/2*k*l^2
  *m*kp(1)*lp(1) + 1/2*k*l^2*m*kp(1)*mp(0) + 1/4*k*l^3*bp(0)*bp(2)
   - 1/4*k*l^3*bp(1)*kp(2) + 1/4*k*l^3*bp(1)*lp(1) - 1/4*k*l^3*bp(1)
  *mp(0) - 1/4*k*m^3*ap(0)*kp(2) - 1/4*k*m^3*ap(0)*lp(1) + 1/4*k*m^3
  *ap(0)*mp(0) + 1/4*k*m^3*ap(1)*ap(2) - 3/4*k^2*l*m*ap(1)*cp(1)
  + 1/2*k^2*l*m*ap(1)*mp(2) - k^2*l*m*ap(2)*bp(2) + k^2*l*m*ap(2)*mp(1)
   - 3/4*k^2*l*m*bp(0)*cp(0) + 1/2*k^2*l*m*bp(0)*lp(2) + k^2*l*m*bp(2)
  *lp(0) + 1/2*k^2*l*m*cp(0)*kp(1) + 1/2*k^2*l*m*cp(1)*kp(0)
  - k^2*l*m*kp(2)*lp(1) - k^2*l*m*kp(2)*mp(0) + 1/2*k^2*l*m*kp(2)^2
   - k^2*l*m*lp(0)*mp(1) + 1/2*k^2*l*m*lp(1)^2 + 1/2*k^2*l*m*mp(0)^2
   - 1/2*k^2*l^2*bp(0)*mp(2) + 1/4*k^2*l^2*bp(1)*cp(0) + 1/4*k^2*l^2
  *bp(2)*kp(2) - 1/4*k^2*l^2*bp(2)*lp(1) - 1/4*k^2*l^2*bp(2)*mp(0)
   + 1/2*k^2*l^2*kp(2)*mp(1) - 1/2*k^2*l^2*lp(1)*mp(1) + 1/2*k^2*l^2
  *mp(0)*mp(1) + 1/4*k^2*m^2*ap(0)*cp(1) - 1/2*k^2*m^2*ap(1)*lp(2)
   + 1/4*k^2*m^2*ap(2)*kp(2) - 1/4*k^2*m^2*ap(2)*lp(1) - 1/4*k^2*m^2
  *ap(2)*mp(0) + 1/2*k^2*m^2*kp(2)*lp(0) + 1/2*k^2*m^2*lp(0)*lp(1)
   - 1/2*k^2*m^2*lp(0)*mp(0) + 1/4*k^3*l*bp(0)*cp(2) - 1/2*k^3*l*cp(0)
  *mp(1) - 1/4*k^3*l*cp(1)*kp(2) + 1/4*k^3*l*cp(1)*lp(1) - 1/4*k^3
  *l*cp(1)*mp(0) - 1/2*k^3*l*kp(2)*mp(2) + 1/2*k^3*l*lp(1)*mp(2)
  + 1/2*k^3*l*mp(0)*mp(2) + 1/4*k^3*m*ap(1)*cp(2) - 1/4*k^3*m*cp(0)
  *kp(2) - 1/4*k^3*m*cp(0)*lp(1) + 1/4*k^3*m*cp(0)*mp(0) - 1/2*k^3
  *m*cp(1)*lp(0) - 1/2*k^3*m*kp(2)*lp(2) + 1/2*k^3*m*lp(1)*lp(2)
  + 1/2*k^3*m*lp(2)*mp(0) + 1/4*k^4*cp(0)*cp(1) + 1/4*k^4*cp(2)*kp(2)
   - 1/4*k^4*cp(2)*lp(1) - 1/4*k^4*cp(2)*mp(0) + 1/4*l*m^3*ap(0)*bp(0)
   - 1/2*l*m^3*ap(0)*kp(1) + 1/4*l*m^3*ap(1)^2 + 1/4*l^2*m^2*ap(0)
  *bp(1) - 1/4*l^2*m^2*ap(1)*bp(0) - 1/2*l^2*m^2*ap(1)*kp(1)
  - 1/2*l^2*m^2*bp(0)*kp(0) + l^2*m^2*kp(0)*kp(1) + 1/4*l^3*m*ap(1)
  *bp(1) + 1/4*l^3*m*bp(0)^2 - 1/2*l^3*m*bp(1)*kp(0) )
 
 + e^2*a
  * ( - 1/4*b*c*k*ap(1)*cp(1) + 1/2*b*c*k*ap(1)*mp(2) - 1/2*b*c*k*ap(2)
  *bp(2) + 1/2*b*c*k*ap(2)*mp(1) - 1/4*b*c*k*bp(0)*cp(0) + 1/2*b*c
  *k*bp(0)*lp(2) + 1/2*b*c*k*bp(2)*lp(0) - 1/2*b*c*k*kp(2)*lp(1)
  - 1/2*b*c*k*kp(2)*mp(0) - b*c*k*lp(0)*mp(1) + 1/2*b*c*k*lp(1)^2
  + 1/2*b*c*k*mp(0)^2 + 1/4*b*c*l*ap(1)*bp(2) + 1/4*b*c*l*bp(0)*kp(2)
   - 1/4*b*c*l*bp(0)*lp(1) + 1/4*b*c*l*bp(0)*mp(0) - 1/2*b*c*l*bp(2)
  *kp(0) + 1/4*b*c*m*ap(1)*kp(2) + 1/4*b*c*m*ap(1)*lp(1) - 1/4*b*c
  *m*ap(1)*mp(0) + 1/4*b*c*m*ap(2)*bp(0) - 1/2*b*c*m*ap(2)*kp(1)
  - 1/4*b*k*l*bp(0)*cp(2) + 1/2*b*k*l*cp(0)*mp(1) + 1/4*b*k*l*cp(1)
  *kp(2) - 1/4*b*k*l*cp(1)*lp(1) + 1/4*b*k*l*cp(1)*mp(0) + 1/2*b*k
  *l*kp(2)*mp(2) - 1/2*b*k*l*lp(1)*mp(2) - 1/2*b*k*l*mp(0)*mp(2)
  - 1/4*b*k*m*ap(1)*cp(2) + 1/4*b*k*m*cp(0)*kp(2) + 1/4*b*k*m*cp(0)
  *lp(1) - 1/4*b*k*m*cp(0)*mp(0) + 1/2*b*k*m*cp(1)*lp(0) + 1/2*b*k
  *m*kp(2)*lp(2) - 1/2*b*k*m*lp(1)*lp(2) - 1/2*b*k*m*lp(2)*mp(0)
  - 1/2*b*k^2*cp(0)*cp(1) - 1/2*b*k^2*cp(2)*kp(2) + 1/2*b*k^2*cp(2)
  *lp(1) + 1/2*b*k^2*cp(2)*mp(0) - 1/4*b*l*m*ap(1)*cp(1) - 1/2*b*l
  *m*ap(1)*mp(2) - 1/4*b*l*m*bp(0)*cp(0) - 1/2*b*l*m*bp(0)*lp(2)
  + 1/2*b*l*m*cp(0)*kp(1) + 1/2*b*l*m*cp(1)*kp(0) + 1/2*b*l*m*kp(2)^2
   + b*l*m*lp(0)*mp(1) - 1/2*b*l*m*lp(1)^2 - 1/2*b*l*m*mp(0)^2
  - 1/4*b*l^2*bp(0)*cp(1) + 1/2*b*l^2*bp(0)*mp(2) - 1/4*b*l^2*bp(2)
  *kp(2) + 1/4*b*l^2*bp(2)*lp(1) - 1/4*b*l^2*bp(2)*mp(0) - 1/4*b*m^2
  *ap(1)*cp(0) + 1/2*b*m^2*ap(1)*lp(2) - 1/4*b*m^2*ap(2)*kp(2)
  - 1/4*b*m^2*ap(2)*lp(1) + 1/4*b*m^2*ap(2)*mp(0) + 1/4*b^2*c*ap(1)
  *cp(0) - 1/2*b^2*c*ap(1)*lp(2) + 1/4*b^2*c*ap(2)*kp(2) + 1/4*b^2
  *c*ap(2)*lp(1) - 1/4*b^2*c*ap(2)*mp(0) + 1/4*b^2*l*ap(1)*cp(2)
  - 1/4*b^2*l*cp(0)*kp(2) - 1/4*b^2*l*cp(0)*lp(1) + 1/4*b^2*l*cp(0)
  *mp(0) - 1/2*b^2*l*cp(1)*lp(0) - 1/2*b^2*l*kp(2)*lp(2) + 1/2*b^2
  *l*lp(1)*lp(2) + 1/2*b^2*l*lp(2)*mp(0) - 1/4*c*k*l*bp(0)*bp(2)
  + 1/4*c*k*l*bp(1)*kp(2) - 1/4*c*k*l*bp(1)*lp(1) + 1/4*c*k*l*bp(1)
  *mp(0) - 1/4*c*k*m*ap(1)*bp(2) - 1/2*c*k*m*ap(1)*mp(1) - 1/4*c*k
  *m*bp(0)*kp(2) - 1/4*c*k*m*bp(0)*lp(1) - 3/4*c*k*m*bp(0)*mp(0)
  + 1/2*c*k*m*bp(1)*lp(0) + c*k*m*kp(0)*mp(1) + 1/2*c*k*m*kp(1)*kp(2)
   - 1/2*c*k*m*kp(1)*lp(1) + 1/2*c*k*m*kp(1)*mp(0) - 1/4*c*k^2*bp(0)
  *cp(1) + 1/2*c*k^2*bp(0)*mp(2) - 1/4*c*k^2*bp(2)*kp(2) + 1/4*c*k^2
  *bp(2)*lp(1) - 1/4*c*k^2*bp(2)*mp(0) - 1/4*c*l*m*ap(1)*bp(1)
  - 1/4*c*l*m*bp(0)^2 + 1/2*c*l*m*bp(1)*kp(0) + 1/4*c^2*k*ap(1)*bp(1)
   + 1/4*c^2*k*bp(0)^2 - 1/2*c^2*k*bp(1)*kp(0) + 1/2*k*l*m*bp(0)*cp(1)
   - 1/2*k*l*m*bp(1)*cp(0) + k*l*m*bp(2)*mp(0) - k*l*m*kp(2)*mp(1)
   + k*l*m*lp(1)*mp(1) - k*l*m*mp(0)*mp(1) + 1/2*k*m^2*ap(1)*cp(1)
   + 1/2*k*m^2*ap(2)*bp(2) - 1/2*k*m^2*ap(2)*mp(1) + 1/2*k*m^2*bp(0)
  *cp(0) - 1/2*k*m^2*bp(2)*lp(0) - 1/2*k*m^2*cp(0)*kp(1) - 1/2*k*m^2
  *cp(1)*kp(0) + 1/2*k*m^2*kp(2)*lp(1) + 1/2*k*m^2*kp(2)*mp(0)
  - 1/2*k*m^2*kp(2)^2 - 1/4*k^2*m*bp(0)*cp(2) + 1/2*k^2*m*cp(0)*mp(1)
   + 1/4*k^2*m*cp(1)*kp(2) - 1/4*k^2*m*cp(1)*lp(1) + 1/4*k^2*m*cp(1)
  *mp(0) + 1/2*k^2*m*kp(2)*mp(2) - 1/2*k^2*m*lp(1)*mp(2) - 1/2*k^2
  *m*mp(0)*mp(2) + 1/2*l*m^2*ap(1)*mp(1) + 1/2*l*m^2*bp(0)*lp(1)
  + 1/2*l*m^2*bp(0)*mp(0) - 1/2*l*m^2*bp(1)*lp(0) + 1/2*l*m^2*bp(2)
  *kp(0) - l*m^2*kp(0)*mp(1) - 1/2*l*m^2*kp(1)*kp(2) + 1/2*l*m^2*kp(1)
  *lp(1) - 1/2*l*m^2*kp(1)*mp(0) - 1/4*l^2*m*bp(0)*bp(2) + 1/4*l^2
  *m*bp(1)*kp(2) - 1/4*l^2*m*bp(1)*lp(1) + 1/4*l^2*m*bp(1)*mp(0)
  - 1/4*m^3*ap(1)*kp(2) - 1/4*m^3*ap(1)*lp(1) + 1/4*m^3*ap(1)*mp(0)
   - 1/4*m^3*ap(2)*bp(0) + 1/2*m^3*ap(2)*kp(1) )
 
 + e^2*a^2
  * ( 1/4*b*c*bp(0)*cp(1) - 1/2*b*c*bp(0)*mp(2) + 1/4*b*c*bp(2)*kp(2)
   - 1/4*b*c*bp(2)*lp(1) + 1/4*b*c*bp(2)*mp(0) + 1/4*b*m*bp(0)*cp(2)
   - 1/2*b*m*cp(0)*mp(1) - 1/4*b*m*cp(1)*kp(2) + 1/4*b*m*cp(1)*lp(1)
   - 1/4*b*m*cp(1)*mp(0) - 1/2*b*m*kp(2)*mp(2) + 1/2*b*m*lp(1)*mp(2)
   + 1/2*b*m*mp(0)*mp(2) + 1/4*b^2*cp(0)*cp(1) + 1/4*b^2*cp(2)*kp(2)
   - 1/4*b^2*cp(2)*lp(1) - 1/4*b^2*cp(2)*mp(0) + 1/4*c*m*bp(0)*bp(2)
   - 1/4*c*m*bp(1)*kp(2) + 1/4*c*m*bp(1)*lp(1) - 1/4*c*m*bp(1)*mp(0)
   - 1/4*m^2*bp(0)*cp(1) + 1/4*m^2*bp(1)*cp(0) - 1/2*m^2*bp(2)*mp(0)
   + 1/2*m^2*kp(2)*mp(1) - 1/2*m^2*lp(1)*mp(1) + 1/2*m^2*mp(0)*mp(1) )
 
 + app(1,1)*e*Det
  * ( - 1/2*c*k + 1/2*l*m )
 
 + app(1,2)*e*Det
  * ( - 1/2*b*l + 1/2*k*m )
 
 + kpp(0,1)*e*Det
  * ( c*k - l*m )
 
 + kpp(0,2)*e*Det
  * ( 1/2*b*l - 1/2*k*m )
 
 + kpp(1,2)*e*Det
  * ( - 1/2*k*l )
 
 + kpp(1,2)*e*Det*a
  * ( 1/2*m )
 
 + kpp(2,2)*e*Det
  * ( 1/2*k^2 )
 
 + kpp(2,2)*e*Det*a
  * ( - 1/2*b )
 
 + kpp(3,3)*Det
  * ( 1/2*b*l^2 + 1/2*c*k^2 - k*l*m )
 
 + kpp(3,3)*Det*a
  * ( - 1/2*b*c + 1/2*m^2 )
 
 + lpp(0,1)*e*Det
  * ( 1/2*b*l - 1/2*k*m )
 
 + lpp(1,1)*e*Det
  * ( 1/2*k*l )
 
 + lpp(1,1)*e*Det*a
  * ( - 1/2*m )
 
 + lpp(1,2)*e*Det
  * ( - 1/2*k^2 )
 
 + lpp(1,2)*e*Det*a
  * ( 1/2*b )
 
 + bpp(0,0)*e*Det
  * ( - 1/2*c*k + 1/2*l*m )
 
 + bpp(0,2)*e*Det
  * ( 1/2*k*l )
 
 + bpp(0,2)*e*Det*a
  * ( - 1/2*m )
 
 + mpp(0,0)*e*Det
  * ( - 1/2*b*l + 1/2*k*m )
 
 + mpp(0,1)*e*Det
  * ( - 1/2*k*l )
 
 + mpp(0,1)*e*Det*a
  * ( 1/2*m )
 
 + mpp(0,2)*e*Det
  * ( - 1/2*k^2 )
 
 + mpp(0,2)*e*Det*a
  * ( 1/2*b )
 
 + cpp(0,1)*e*Det
  * ( 1/2*k^2 )
 
 + cpp(0,1)*e*Det*a
  * ( - 1/2*b )
 
 + epp(0,1)*Det
  * ( 1/2*b*l^2 + 1/2*c*k^2 - k*l*m )
 
 + epp(0,1)*Det*a
  * ( - 1/2*b*c + 1/2*m^2 ) + 0.
 

End run. Time 29 sec.
Schoonschip, 68000 version of June 27, 1991. Public version.
Date: Sun Dec 12 1993 18:23:38.  Memory: start 0001BCDC, length 476860.


C Varia 6. Calculation of Riemann tensors from metric.
C Calculation of components of Rieman tensors from
C a given form for the metric tensor g(mu,nu).
C That form was:
	C
	C			a k l 0
	C			k b m 0
	C	g(mu,nu) =	l m c 0
	C			0 0 0 e


> P lists
> P stats

	S Det,a,b,c,e,k,l,m

	V ap,bp,cp,ep,kp,lp,mp

	X zero(n,j) = 1 - DK(n,j)

C The metric tensor is given further down. The inverse was calculated
C by hand and follows here as a one dimensional array:

	D ggi(n) =	(b*c - m**2),(l*m - k*c),(k*m - l*b),0,
			(l*m - k*c),(a*c - l^2),(k*l - a*m),0,
			(k*m - l*b),(k*l - a*m),(a*b - k^2),0,
			0,0,0,(2*k*l*m + a*b*c - a*m^2 - c*k^2 - b*l^2)/e

C This is the two-dimensional form of ggi:

	X tgi(j,n)=ggi(j*4+n+1)*e

	X R5(n1,n2,n3,n4) = zero(n1,n2)*zero(n3,n4)*
		{ DT(n4-n3)*R6(n1,n2,n3,n4) - DT(n3-n4)*R6(n1,n2,n4,n3) }

	X R4(n1,n2,n3,n4) = DT(n4-n2)*R5(n1,n2,n3,n4)
		- DT(n2-n4-1)*{ R5(n1,n4,n2,n3) + R5(n1,n3,n4,n2) }

	X R3(n1,n2,n3,n4) = DT(n3-n1)*R4(n1,n2,n3,n4)
		+ DT(n1-n3-1)*R4(n3,n4,n1,n2)

	X R2(n1,n2,n3,n4) = DT(n4-n3)*R3(n1,n2,n3,n4)
		- DT(n3-n4)*R3(n1,n2,n4,n3)

	X R1(n1,n2,n3,n4) = zero(n1,n2)*zero(n3,n4)*
		{ DT(n2-n1)*R2(n1,n2,n3,n4) - DT(n1-n2)*R2(n2,n1,n3,n4) }

	*fix


V ap, bp, cp, ep, kp, lp, mp

A i=i, Det, a, b, c, e, k, l, m

F D, Epf=i, G=i, Gi, G5=i, G6=c, G7, Ug=c, Ubg, DD, DB, DT, DS, DX, 
  DK, DP, DF=u, DC, R6

E zero=X1, ggi=D2, tgi=X4, R5=X4, R4=X10, R3=X12, R2=X14, R1=X18

Begin. Time 0 sec.

> BLOCK GGX{x,n,y}
> D gg'x'('n') = a'y',k'y',l'y',0,
> 	k'y',b'y',m'y',0,
> 	l'y',m'y',c'y',0,
> 	0,0,0,e'y'
> ENDBLOCK

	C***** The metric tensor g(mu,nu) :

> GGX{,n}
	D gg(n) = a,k,l,0,
		k,b,m,0,
		l,m,c,0,
		0,0,0,e

	C***** The first derivative of g(mu,nu), i.e. d/dx(n) g(mu,nu) :

> GGX{d,{n1,n},p(n)}
	D ggd(n1,n) = ap(n),kp(n),lp(n),0,
		kp(n),bp(n),mp(n),0,
		lp(n),mp(n),cp(n),0,
		0,0,0,ep(n)

	C***** The second derivative d^2/dx(n)/dx(j) g(mu,nu) :

> GGX{dd,{n1,n,j},{pp(n,j)}}
	D ggdd(n1,n,j) = app(n,j),kpp(n,j),lpp(n,j),0,
		kpp(n,j),bpp(n,j),mpp(n,j),0,
		lpp(n,j),mpp(n,j),cpp(n,j),0,
		0,0,0,epp(n,j)

	C***** Two component forms:

	X tg(j,n) = gg(j*4+n+1)

	X tgd(n,j,j1) = ggd(n*4+j+1,j1)

	X tgdd(n,j,j1,j2) = DT(j2-j1)*ggdd(n*4+j+1,j1,j2) +
		DT(j1-j2-1)*ggdd(n*4+j+1,j2,j1)

	C***** The Christoffel symbol:

	X chr(n1,n2,n3) = 0.5*tgd(n3,n1,n2) + 0.5*tgd(n3,n2,n1)
		- 0.5*tgd(n1,n2,n3)

	C***** The derivative of the Christoffel symbol:

	X chd(n1,n2,n3,n4) = 0.5*tgdd(n3,n1,n2,n4) + 0.5*tgdd(n3,n2,n1,n4)
		- 0.5*tgdd(n1,n2,n3,n4)

	C***** Gamma in terms of the Christoffel symbol:

	X ga(n1,n2,n3) = DS{n4,0,3,{tgi(n3,n4)*chr(n1,n2,n4) } }

	C***** The Riemann tensor:

	X Rt4(n1,n2,n3,n4) = Det*chd(n2,n4,n1,n3) - Det*chd(n2,n3,n1,n4)
		+ DS{n5,0,3,{	chr(n2,n3,n5)*ga(n1,n4,n5) -
				chr(n2,n4,n5)*ga(n1,n3,n5) } }

	C***** Now compute the components of the Riemann tensor:

> BLOCK R{n,n1,n2,n3,n4}
> Z Rt('n') = Rt4('n1','n2','n3','n4')
> ENDBLOCK
> R{18,0,1,0,1}
	Z Rt(18) = Rt4(0,1,0,1)
> R{19,0,1,0,2}
	Z Rt(19) = Rt4(0,1,0,2)
> R{23,0,1,1,2}
	Z Rt(23) = Rt4(0,1,1,2)
> R{35,0,2,0,2}
	Z Rt(35) = Rt4(0,2,0,2)
> R{39,0,2,1,2}
	Z Rt(39) = Rt4(0,2,1,2)
> R{20,0,1,0,3}
	Z Rt(20) = Rt4(0,1,0,3)
> R{24,0,1,1,3}
	Z Rt(24) = Rt4(0,1,1,3)
> R{28,0,1,2,3}
	Z Rt(28) = Rt4(0,1,2,3)
> R{36,0,2,0,3}
	Z Rt(36) = Rt4(0,2,0,3)
> R{40,0,2,1,3}
	Z Rt(40) = Rt4(0,2,1,3)
> R{44,0,2,2,3}
	Z Rt(44) = Rt4(0,2,2,3)
> R{52,0,3,0,3}
	Z Rt(52) = Rt4(0,3,0,3)
> R{56,0,3,1,3}
	Z Rt(56) = Rt4(0,3,1,3)
> R{60,0,3,2,3}
	Z Rt(60) = Rt4(0,3,2,3)
> R{103,1,2,1,2}
	Z Rt(103) = Rt4(1,2,1,2)
> R{104,1,2,1,3}
	Z Rt(104) = Rt4(1,2,1,3)
> R{108,1,2,2,3}
	Z Rt(108) = Rt4(1,2,2,3)
> R{120,1,3,1,3}
	Z Rt(120) = Rt4(1,3,1,3)
> R{124,1,3,2,3}
	Z Rt(124) = Rt4(1,3,2,3)
> R{198,2,3,2,3}
	Z Rt(198) = Rt4(2,3,2,3)
	Keep Rt
> P noutput
	*next


V ap, bp, cp, ep, kp, lp, mp

A i=i, Det, a, b, c, e, k, l, m

F D, Epf=i, G=i, Gi, G5=i, G6=c, G7, Ug=c, Ubg, DD, DB, DT, DS, DX, 
  DK, DP, DF=u, DC, R6, app, kpp, lpp, bpp, mpp, cpp, epp

E zero=X1, ggi=D2, tgi=X4, R5=X4, R4=X10, R3=X12, R2=X14, R1=X18, 
  gg=D1, ggd=D1, ggdd=D1, tg=X3, tgd=X3, tgdd=X3, chr=X4, chd=X4, 
  ga=X6, Rt4=X12

Terms in output 1415
Running time 16 sec			Used	Maximum
Generated terms 3580 	Input space 	5798 	100000
Equal terms 1545     	Output space 	42398 	250000
Cancellations 620   	Nr of expr.  	57 	255
Multiplications 42120	String space 	0 	4096
Records written 0 	Merging		0 	0


	B e,Det,a

	C***** This the the two-index Riemann tensor:

	X Rt2(n1,n2) = DS{n3,0,3,{zero(n3,n1)*
		DS{n4,0,3,{zero(n4,n2)*tgi(n3,n4)*R1(n3,n1,n4,n2)} } } }

	C***** Now calculate some component, here Rt2(0,0) :

	Z R00 = Rt2(0,0)

	*yep


V ap, bp, cp, ep, kp, lp, mp

A i=i, Det, a, b, c, e, k, l, m

F D, Epf=i, G=i, Gi, G5=i, G6=c, G7, Ug=c, Ubg, DD, DB, DT, DS, DX, 
  DK, DP, DF=u, DC, R6, app, kpp, lpp, bpp, mpp, cpp, epp

E zero=X1, ggi=D2, tgi=X4, R5=X4, R4=X10, R3=X12, R2=X14, R1=X18, 
  Rt(18), Rt(19), Rt(23), Rt(35), Rt(39), Rt(20), Rt(24), Rt(28), 
  Rt(36), Rt(40), Rt(44), Rt(52), Rt(56), Rt(60), Rt(103), Rt(104), 
  Rt(108), Rt(120), Rt(124), Rt(198), Rt2=X22

Terms in output 11
Running time 16 sec			Used	Maximum
Generated terms 13 	Input space 	25842 	122456
Equal terms 2     	Output space 	486 	227544
Cancellations 0   	Nr of expr.  	57 	255
Multiplications 354	String space 	0 	4096
Records written 0 	Merging		0 	0


	C***** Use the components of the four-index tensor as computed before:

L 1	Id,R6(n1~,n2~,n3~,n4~) = Rt(64*n1+16*n2+4*n3+n4+1)

	*end


V ap, bp, cp, ep, kp, lp, mp

A i=i, Det, a, b, c, e, k, l, m

F D, Epf=i, G=i, Gi, G5=i, G6=c, G7, Ug=c, Ubg, DD, DB, DT, DS, DX, 
  DK, DP, DF=u, DC, R6, app, kpp, lpp, bpp, mpp, cpp, epp

E zero=X1, ggi=D2, tgi=X4, R5=X4, R4=X10, R3=X12, R2=X14, R1=X18, 
  Rt(18), Rt(19), Rt(23), Rt(35), Rt(39), Rt(20), Rt(24), Rt(28), 
  Rt(36), Rt(40), Rt(44), Rt(52), Rt(56), Rt(60), Rt(103), Rt(104), 
  Rt(108), Rt(120), Rt(124), Rt(198), Rt2=X22

Terms out 11, in 11.

Terms in output 602
Running time 17 sec			Used	Maximum
Generated terms 802 	Input space 	25130 	122456
Equal terms 173     	Output space 	18448 	227544
Cancellations 27   	Nr of expr.  	44 	255
Multiplications 2450	String space 	0 	4096
Records written 0 	Merging		0 	0

 
R00 = 
  + 1/2*b*c*k^2*l^2*ap(3)*ep(3) + 1/2*b*c*k^2*l^2*ep(0)^2
  - b*k*l^3*m*ap(3)*ep(3) - b*k*l^3*m*ep(0)^2 + 1/4*b^2*l^4*ap(3)*ep(3)
   + 1/4*b^2*l^4*ep(0)^2 - c*k^3*l*m*ap(3)*ep(3) - c*k^3*l*m*ep(0)^2
   + 1/4*c^2*k^4*ap(3)*ep(3) + 1/4*c^2*k^4*ep(0)^2 + k^2*l^2*m^2*ap(3)
  *ep(3) + k^2*l^2*m^2*ep(0)^2
 
 + a
  * ( b*c*k*l*m*ap(3)*ep(3) + b*c*k*l*m*ep(0)^2 - 1/2*b*c^2*k^2*ap(3)
  *ep(3) - 1/2*b*c^2*k^2*ep(0)^2 + 1/2*b*l^2*m^2*ap(3)*ep(3)
  + 1/2*b*l^2*m^2*ep(0)^2 - 1/2*b^2*c*l^2*ap(3)*ep(3) - 1/2*b^2*c*l^2
  *ep(0)^2 + 1/2*c*k^2*m^2*ap(3)*ep(3) + 1/2*c*k^2*m^2*ep(0)^2
  - k*l*m^3*ap(3)*ep(3) - k*l*m^3*ep(0)^2 )
 
 + a^2
  * ( - 1/2*b*c*m^2*ap(3)*ep(3) - 1/2*b*c*m^2*ep(0)^2 + 1/4*b^2*c^2
  *ap(3)*ep(3) + 1/4*b^2*c^2*ep(0)^2 + 1/4*m^4*ap(3)*ep(3)
  + 1/4*m^4*ep(0)^2 )
 
 + e
  * ( 1/2*b*c*k*l*m*ap(0)*ep(0) + 1/2*b*c*k*l*m*ap(3)^2 + 1/4*b*c*k
  *l^2*ap(0)*ep(1) - 1/4*b*c*k*l^2*ap(1)*ep(0) + 1/2*b*c*k*l^2*ap(3)
  *kp(3) + 1/2*b*c*k*l^2*ep(0)*kp(0) + 1/4*b*c*k^2*l*ap(0)*ep(2)
  - 1/4*b*c*k^2*l*ap(2)*ep(0) + 1/2*b*c*k^2*l*ap(3)*lp(3)
  + 1/2*b*c*k^2*l*ep(0)*lp(0) - 1/4*b*c^2*k^2*ap(0)*ep(0)
  - 1/4*b*c^2*k^2*ap(3)^2 - 3/4*b*k*l^2*m*ap(0)*ep(2) + 3/4*b*k*l^2
  *m*ap(2)*ep(0) - 3/2*b*k*l^2*m*ap(3)*lp(3) - 3/2*b*k*l^2*m*ep(0)
  *lp(0) + 1/4*b*k*l^3*ap(1)*ep(2) + 1/4*b*k*l^3*ap(2)*ep(1)
  + 1/2*b*k*l^3*ap(3)*mp(3) - 1/2*b*k*l^3*ep(1)*lp(0) - 1/2*b*k*l^3
  *ep(2)*kp(0) - b*k*l^3*kp(3)*lp(3) - 1/4*b*k^2*l^2*ap(2)*ep(2)
  - 1/4*b*k^2*l^2*ap(3)*cp(3) + 1/2*b*k^2*l^2*ep(2)*lp(0)
  + 1/2*b*k^2*l^2*lp(3)^2 + 1/4*b*l^2*m^2*ap(0)*ep(0) + 1/4*b*l^2*m^2
  *ap(3)^2 - 1/4*b*l^3*m*ap(0)*ep(1) + 1/4*b*l^3*m*ap(1)*ep(0)
  - 1/2*b*l^3*m*ap(3)*kp(3) - 1/2*b*l^3*m*ep(0)*kp(0) - 1/4*b*l^4*ap(1)
  *ep(1) - 1/4*b*l^4*ap(3)*bp(3) + 1/2*b*l^4*ep(1)*kp(0) + 1/2*b*l^4
  *kp(3)^2 - 1/4*b^2*c*l^2*ap(0)*ep(0) - 1/4*b^2*c*l^2*ap(3)^2
  + 1/4*b^2*l^3*ap(0)*ep(2) - 1/4*b^2*l^3*ap(2)*ep(0) + 1/2*b^2*l^3
  *ap(3)*lp(3) + 1/2*b^2*l^3*ep(0)*lp(0) - 3/4*c*k^2*l*m*ap(0)*ep(1)
   + 3/4*c*k^2*l*m*ap(1)*ep(0) - 3/2*c*k^2*l*m*ap(3)*kp(3)
  - 3/2*c*k^2*l*m*ep(0)*kp(0) - 1/4*c*k^2*l^2*ap(1)*ep(1)
  - 1/4*c*k^2*l^2*ap(3)*bp(3) + 1/2*c*k^2*l^2*ep(1)*kp(0)
  + 1/2*c*k^2*l^2*kp(3)^2 + 1/4*c*k^2*m^2*ap(0)*ep(0) + 1/4*c*k^2*m^2
  *ap(3)^2 + 1/4*c*k^3*l*ap(1)*ep(2) + 1/4*c*k^3*l*ap(2)*ep(1)
  + 1/2*c*k^3*l*ap(3)*mp(3) - 1/2*c*k^3*l*ep(1)*lp(0) - 1/2*c*k^3*l
  *ep(2)*kp(0) - c*k^3*l*kp(3)*lp(3) - 1/4*c*k^3*m*ap(0)*ep(2)
  + 1/4*c*k^3*m*ap(2)*ep(0) - 1/2*c*k^3*m*ap(3)*lp(3) - 1/2*c*k^3*m
  *ep(0)*lp(0) - 1/4*c*k^4*ap(2)*ep(2) - 1/4*c*k^4*ap(3)*cp(3)
  + 1/2*c*k^4*ep(2)*lp(0) + 1/2*c*k^4*lp(3)^2 + 1/4*c^2*k^3*ap(0)*ep(1)
   - 1/4*c^2*k^3*ap(1)*ep(0) + 1/2*c^2*k^3*ap(3)*kp(3) + 1/2*c^2*k^3
  *ep(0)*kp(0) - 1/2*k*l*m^3*ap(0)*ep(0) - 1/2*k*l*m^3*ap(3)^2
  + 1/2*k*l^2*m^2*ap(0)*ep(1) - 1/2*k*l^2*m^2*ap(1)*ep(0)
  + k*l^2*m^2*ap(3)*kp(3) + k*l^2*m^2*ep(0)*kp(0) + 1/2*k*l^3*m*ap(1)
  *ep(1) + 1/2*k*l^3*m*ap(3)*bp(3) - k*l^3*m*ep(1)*kp(0) - k*l^3*m
  *kp(3)^2 + 1/2*k^2*l*m^2*ap(0)*ep(2) - 1/2*k^2*l*m^2*ap(2)*ep(0)
   + k^2*l*m^2*ap(3)*lp(3) + k^2*l*m^2*ep(0)*lp(0) - 1/2*k^2*l^2*m
  *ap(1)*ep(2) - 1/2*k^2*l^2*m*ap(2)*ep(1) - k^2*l^2*m*ap(3)*mp(3)
   + k^2*l^2*m*ep(1)*lp(0) + k^2*l^2*m*ep(2)*kp(0) + 2*k^2*l^2*m*kp(3)
  *lp(3) + 1/2*k^3*l*m*ap(2)*ep(2) + 1/2*k^3*l*m*ap(3)*cp(3)
  - k^3*l*m*ep(2)*lp(0) - k^3*l*m*lp(3)^2 )
 
 + e*a
  * ( - 1/4*b*c*k*l*ap(1)*ep(2) - 1/4*b*c*k*l*ap(2)*ep(1)
  - 1/2*b*c*k*l*ap(3)*mp(3) + 1/2*b*c*k*l*ep(1)*lp(0) + 1/2*b*c*k*l
  *ep(2)*kp(0) + b*c*k*l*kp(3)*lp(3) + 1/4*b*c*k*m*ap(0)*ep(2)
  - 1/4*b*c*k*m*ap(2)*ep(0) + 1/2*b*c*k*m*ap(3)*lp(3) + 1/2*b*c*k*m
  *ep(0)*lp(0) + 1/2*b*c*k^2*ap(2)*ep(2) + 1/2*b*c*k^2*ap(3)*cp(3)
   - b*c*k^2*ep(2)*lp(0) - b*c*k^2*lp(3)^2 + 1/4*b*c*l*m*ap(0)*ep(1)
   - 1/4*b*c*l*m*ap(1)*ep(0) + 1/2*b*c*l*m*ap(3)*kp(3) + 1/2*b*c*l
  *m*ep(0)*kp(0) + 1/2*b*c*l^2*ap(1)*ep(1) + 1/2*b*c*l^2*ap(3)*bp(3)
   - b*c*l^2*ep(1)*kp(0) - b*c*l^2*kp(3)^2 - 1/2*b*c*m^2*ap(0)*ep(0)
   - 1/2*b*c*m^2*ap(3)^2 - 1/4*b*c^2*k*ap(0)*ep(1) + 1/4*b*c^2*k*ap(1)
  *ep(0) - 1/2*b*c^2*k*ap(3)*kp(3) - 1/2*b*c^2*k*ep(0)*kp(0)
  - 1/2*b*k*l*m*ap(2)*ep(2) - 1/2*b*k*l*m*ap(3)*cp(3) + b*k*l*m*ep(2)
  *lp(0) + b*k*l*m*lp(3)^2 + 1/4*b*l*m^2*ap(0)*ep(2) - 1/4*b*l*m^2
  *ap(2)*ep(0) + 1/2*b*l*m^2*ap(3)*lp(3) + 1/2*b*l*m^2*ep(0)*lp(0)
   - 1/4*b*l^2*m*ap(1)*ep(2) - 1/4*b*l^2*m*ap(2)*ep(1) - 1/2*b*l^2
  *m*ap(3)*mp(3) + 1/2*b*l^2*m*ep(1)*lp(0) + 1/2*b*l^2*m*ep(2)*kp(0)
   + b*l^2*m*kp(3)*lp(3) - 1/4*b^2*c*l*ap(0)*ep(2) + 1/4*b^2*c*l*ap(2)
  *ep(0) - 1/2*b^2*c*l*ap(3)*lp(3) - 1/2*b^2*c*l*ep(0)*lp(0)
  + 1/4*b^2*c^2*ap(0)*ep(0) + 1/4*b^2*c^2*ap(3)^2 + 1/4*b^2*l^2*ap(2)
  *ep(2) + 1/4*b^2*l^2*ap(3)*cp(3) - 1/2*b^2*l^2*ep(2)*lp(0)
  - 1/2*b^2*l^2*lp(3)^2 - 1/2*c*k*l*m*ap(1)*ep(1) - 1/2*c*k*l*m*ap(3)
  *bp(3) + c*k*l*m*ep(1)*kp(0) + c*k*l*m*kp(3)^2 + 1/4*c*k*m^2*ap(0)
  *ep(1) - 1/4*c*k*m^2*ap(1)*ep(0) + 1/2*c*k*m^2*ap(3)*kp(3)
  + 1/2*c*k*m^2*ep(0)*kp(0) - 1/4*c*k^2*m*ap(1)*ep(2) - 1/4*c*k^2*m
  *ap(2)*ep(1) - 1/2*c*k^2*m*ap(3)*mp(3) + 1/2*c*k^2*m*ep(1)*lp(0)
   + 1/2*c*k^2*m*ep(2)*kp(0) + c*k^2*m*kp(3)*lp(3) + 1/4*c^2*k^2*ap(1)
  *ep(1) + 1/4*c^2*k^2*ap(3)*bp(3) - 1/2*c^2*k^2*ep(1)*kp(0)
  - 1/2*c^2*k^2*kp(3)^2 + 3/4*k*l*m^2*ap(1)*ep(2) + 3/4*k*l*m^2*ap(2)
  *ep(1) + 3/2*k*l*m^2*ap(3)*mp(3) - 3/2*k*l*m^2*ep(1)*lp(0)
  - 3/2*k*l*m^2*ep(2)*kp(0) - 3*k*l*m^2*kp(3)*lp(3) - 1/4*k*m^3*ap(0)
  *ep(2) + 1/4*k*m^3*ap(2)*ep(0) - 1/2*k*m^3*ap(3)*lp(3) - 1/2*k*m^3
  *ep(0)*lp(0) - 1/4*k^2*m^2*ap(2)*ep(2) - 1/4*k^2*m^2*ap(3)*cp(3)
   + 1/2*k^2*m^2*ep(2)*lp(0) + 1/2*k^2*m^2*lp(3)^2 - 1/4*l*m^3*ap(0)
  *ep(1) + 1/4*l*m^3*ap(1)*ep(0) - 1/2*l*m^3*ap(3)*kp(3) - 1/2*l*m^3
  *ep(0)*kp(0) - 1/4*l^2*m^2*ap(1)*ep(1) - 1/4*l^2*m^2*ap(3)*bp(3)
   + 1/2*l^2*m^2*ep(1)*kp(0) + 1/2*l^2*m^2*kp(3)^2 + 1/4*m^4*ap(0)
  *ep(0) + 1/4*m^4*ap(3)^2 )
 
 + e*a^2
  * ( 1/4*b*c*m*ap(1)*ep(2) + 1/4*b*c*m*ap(2)*ep(1) + 1/2*b*c*m*ap(3)
  *mp(3) - 1/2*b*c*m*ep(1)*lp(0) - 1/2*b*c*m*ep(2)*kp(0) - b*c*m*kp(3)
  *lp(3) - 1/4*b*c^2*ap(1)*ep(1) - 1/4*b*c^2*ap(3)*bp(3) + 1/2*b*c^2
  *ep(1)*kp(0) + 1/2*b*c^2*kp(3)^2 + 1/4*b*m^2*ap(2)*ep(2)
  + 1/4*b*m^2*ap(3)*cp(3) - 1/2*b*m^2*ep(2)*lp(0) - 1/2*b*m^2*lp(3)^2
   - 1/4*b^2*c*ap(2)*ep(2) - 1/4*b^2*c*ap(3)*cp(3) + 1/2*b^2*c*ep(2)
  *lp(0) + 1/2*b^2*c*lp(3)^2 + 1/4*c*m^2*ap(1)*ep(1) + 1/4*c*m^2*ap(3)
  *bp(3) - 1/2*c*m^2*ep(1)*kp(0) - 1/2*c*m^2*kp(3)^2 - 1/4*m^3*ap(1)
  *ep(2) - 1/4*m^3*ap(2)*ep(1) - 1/2*m^3*ap(3)*mp(3) + 1/2*m^3*ep(1)
  *lp(0) + 1/2*m^3*ep(2)*kp(0) + m^3*kp(3)*lp(3) )
 
 + e^2
  * ( - 1/2*b*c*k*l*ap(0)*kp(2) - 1/2*b*c*k*l*ap(0)*lp(1)
  + 1/2*b*c*k*l*ap(0)*mp(0) + 1/2*b*c*k*l*ap(1)*ap(2) - 1/4*b*c*k^2
  *ap(0)*cp(0) + 1/2*b*c*k^2*ap(0)*lp(2) - 1/4*b*c*k^2*ap(2)^2
  - 1/4*b*c*l^2*ap(0)*bp(0) + 1/2*b*c*l^2*ap(0)*kp(1) - 1/4*b*c*l^2
  *ap(1)^2 + 1/2*b*k*l^2*ap(0)*cp(1) - 1/2*b*k*l^2*ap(1)*cp(0)
  - b*k*l^2*ap(2)*lp(1) + b*k*l^2*kp(2)*lp(0) + b*k*l^2*lp(0)*lp(1)
   - b*k*l^2*lp(0)*mp(0) - 1/4*b*k^2*l*ap(0)*cp(2) + 1/4*b*k^2*l*ap(2)
  *cp(0) + 1/2*b*k^2*l*ap(2)*lp(2) + 1/2*b*k^2*l*cp(0)*lp(0)
  - b*k^2*l*lp(0)*lp(2) + 1/4*b*l^3*ap(0)*bp(2) - 1/2*b*l^3*ap(0)*mp(1)
   - 1/2*b*l^3*ap(1)*kp(2) + 1/2*b*l^3*ap(1)*lp(1) + 1/2*b*l^3*ap(1)
  *mp(0) - 1/4*b*l^3*ap(2)*bp(0) + 1/2*b*l^3*ap(2)*kp(1) + 1/2*b*l^3
  *bp(0)*lp(0) - b*l^3*kp(1)*lp(0) - 1/4*c*k*l^2*ap(0)*bp(1)
  + 1/4*c*k*l^2*ap(1)*bp(0) + 1/2*c*k*l^2*ap(1)*kp(1) + 1/2*c*k*l^2
  *bp(0)*kp(0) - c*k*l^2*kp(0)*kp(1) + 1/2*c*k^2*l*ap(0)*bp(2)
  - c*k^2*l*ap(1)*kp(2) - 1/2*c*k^2*l*ap(2)*bp(0) + c*k^2*l*kp(0)*kp(2)
   + c*k^2*l*kp(0)*lp(1) - c*k^2*l*kp(0)*mp(0) + 1/4*c*k^3*ap(0)*cp(1)
   - 1/2*c*k^3*ap(0)*mp(2) - 1/4*c*k^3*ap(1)*cp(0) + 1/2*c*k^3*ap(1)
  *lp(2) + 1/2*c*k^3*ap(2)*kp(2) - 1/2*c*k^3*ap(2)*lp(1) + 1/2*c*k^3
  *ap(2)*mp(0) + 1/2*c*k^3*cp(0)*kp(0) - c*k^3*kp(0)*lp(2)
  + 1/2*k*l*m^2*ap(0)*kp(2) + 1/2*k*l*m^2*ap(0)*lp(1) - 1/2*k*l*m^2
  *ap(0)*mp(0) - 1/2*k*l*m^2*ap(1)*ap(2) - 3/4*k*l^2*m*ap(0)*bp(2)
   + 1/2*k*l^2*m*ap(0)*mp(1) + 3/2*k*l^2*m*ap(1)*kp(2) - 1/2*k*l^2
  *m*ap(1)*lp(1) - 1/2*k*l^2*m*ap(1)*mp(0) + 3/4*k*l^2*m*ap(2)*bp(0)
   - 1/2*k*l^2*m*ap(2)*kp(1) - 1/2*k*l^2*m*bp(0)*lp(0) - k*l^2*m*kp(0)
  *kp(2) - k*l^2*m*kp(0)*lp(1) + k*l^2*m*kp(0)*mp(0) + k*l^2*m*kp(1)
  *lp(0) - 1/4*k*l^3*ap(1)*bp(2) - 1/2*k*l^3*ap(1)*mp(1) - 1/4*k*l^3
  *ap(2)*bp(1) - k*l^3*bp(0)*mp(0) + 1/2*k*l^3*bp(1)*lp(0)
  + 1/2*k*l^3*bp(2)*kp(0) + k*l^3*kp(0)*mp(1) - 3/4*k^2*l*m*ap(0)*cp(1)
   + 1/2*k^2*l*m*ap(0)*mp(2) + 3/4*k^2*l*m*ap(1)*cp(0) - 1/2*k^2*l
  *m*ap(1)*lp(2) - 1/2*k^2*l*m*ap(2)*kp(2) + 3/2*k^2*l*m*ap(2)*lp(1)
   - 1/2*k^2*l*m*ap(2)*mp(0) - 1/2*k^2*l*m*cp(0)*kp(0) + k^2*l*m*kp(0)
  *lp(2) - k^2*l*m*kp(2)*lp(0) - k^2*l*m*lp(0)*lp(1) + k^2*l*m*lp(0)
  *mp(0) + 1/4*k^2*l^2*ap(1)*cp(1) + 1/2*k^2*l^2*ap(1)*mp(2)
  + 1/4*k^2*l^2*ap(2)*bp(2) + 1/2*k^2*l^2*ap(2)*mp(1) + 1/2*k^2*l^2
  *bp(0)*cp(0) - 1/2*k^2*l^2*bp(2)*lp(0) - 1/2*k^2*l^2*cp(1)*kp(0)
   - k^2*l^2*kp(0)*mp(2) - k^2*l^2*lp(0)*mp(1) + k^2*l^2*mp(0)^2
  + 1/4*k^2*m^2*ap(0)*cp(0) - 1/2*k^2*m^2*ap(0)*lp(2) + 1/4*k^2*m^2
  *ap(2)^2 - 1/4*k^3*l*ap(1)*cp(2) - 1/4*k^3*l*ap(2)*cp(1)
  - 1/2*k^3*l*ap(2)*mp(2) - k^3*l*cp(0)*mp(0) + 1/2*k^3*l*cp(1)*lp(0)
   + 1/2*k^3*l*cp(2)*kp(0) + k^3*l*lp(0)*mp(2) + 1/4*k^3*m*ap(0)*cp(2)
   - 1/4*k^3*m*ap(2)*cp(0) - 1/2*k^3*m*ap(2)*lp(2) - 1/2*k^3*m*cp(0)
  *lp(0) + k^3*m*lp(0)*lp(2) + 1/4*k^4*ap(2)*cp(2) + 1/4*k^4*cp(0)^2
   - 1/2*k^4*cp(2)*lp(0) + 1/4*l^2*m^2*ap(0)*bp(0) - 1/2*l^2*m^2*ap(0)
  *kp(1) + 1/4*l^2*m^2*ap(1)^2 + 1/4*l^3*m*ap(0)*bp(1) - 1/4*l^3*m
  *ap(1)*bp(0) - 1/2*l^3*m*ap(1)*kp(1) - 1/2*l^3*m*bp(0)*kp(0)
  + l^3*m*kp(0)*kp(1) + 1/4*l^4*ap(1)*bp(1) + 1/4*l^4*bp(0)^2
  - 1/2*l^4*bp(1)*kp(0) )
 
 + e^2*a
  * ( - 1/4*b*c*k*ap(0)*cp(1) + 1/2*b*c*k*ap(0)*mp(2) + 1/4*b*c*k*ap(1)
  *cp(0) - 1/2*b*c*k*ap(1)*lp(2) - 1/2*b*c*k*ap(2)*kp(2) + 1/2*b*c
  *k*ap(2)*lp(1) - 1/2*b*c*k*ap(2)*mp(0) - 1/2*b*c*k*cp(0)*kp(0)
  + b*c*k*kp(0)*lp(2) - 1/4*b*c*l*ap(0)*bp(2) + 1/2*b*c*l*ap(0)*mp(1)
   + 1/2*b*c*l*ap(1)*kp(2) - 1/2*b*c*l*ap(1)*lp(1) - 1/2*b*c*l*ap(1)
  *mp(0) + 1/4*b*c*l*ap(2)*bp(0) - 1/2*b*c*l*ap(2)*kp(1) - 1/2*b*c
  *l*bp(0)*lp(0) + b*c*l*kp(1)*lp(0) + 1/2*b*c*m*ap(0)*kp(2)
  + 1/2*b*c*m*ap(0)*lp(1) - 1/2*b*c*m*ap(0)*mp(0) - 1/2*b*c*m*ap(1)
  *ap(2) + 1/4*b*c^2*ap(0)*bp(0) - 1/2*b*c^2*ap(0)*kp(1) + 1/4*b*c^2
  *ap(1)^2 + 1/4*b*k*l*ap(1)*cp(2) + 1/4*b*k*l*ap(2)*cp(1)
  + 1/2*b*k*l*ap(2)*mp(2) + b*k*l*cp(0)*mp(0) - 1/2*b*k*l*cp(1)*lp(0)
   - 1/2*b*k*l*cp(2)*kp(0) - b*k*l*lp(0)*mp(2) - 1/4*b*k*m*ap(0)*cp(2)
   + 1/4*b*k*m*ap(2)*cp(0) + 1/2*b*k*m*ap(2)*lp(2) + 1/2*b*k*m*cp(0)
  *lp(0) - b*k*m*lp(0)*lp(2) - 1/2*b*k^2*ap(2)*cp(2) - 1/2*b*k^2*cp(0)^2
   + b*k^2*cp(2)*lp(0) - 1/4*b*l*m*ap(0)*cp(1) - 1/2*b*l*m*ap(0)*mp(2)
   + 1/4*b*l*m*ap(1)*cp(0) + 1/2*b*l*m*ap(1)*lp(2) + 1/2*b*l*m*ap(2)
  *kp(2) + 1/2*b*l*m*ap(2)*lp(1) + 1/2*b*l*m*ap(2)*mp(0) + 1/2*b*l
  *m*cp(0)*kp(0) - b*l*m*kp(0)*lp(2) - b*l*m*kp(2)*lp(0) - b*l*m*lp(0)
  *lp(1) + b*l*m*lp(0)*mp(0) + 1/4*b*l^2*ap(1)*cp(1) - 1/2*b*l^2*ap(1)
  *mp(2) + 1/4*b*l^2*ap(2)*bp(2) - 1/2*b*l^2*ap(2)*mp(1) - 1/2*b*l^2
  *bp(2)*lp(0) - 1/2*b*l^2*cp(1)*kp(0) + b*l^2*kp(0)*mp(2)
  + b*l^2*kp(2)*lp(1) - 1/2*b*l^2*kp(2)^2 + b*l^2*lp(0)*mp(1)
  - 1/2*b*l^2*lp(1)^2 - 1/2*b*l^2*mp(0)^2 - 1/4*b*m^2*ap(0)*cp(0)
  + 1/2*b*m^2*ap(0)*lp(2) - 1/4*b*m^2*ap(2)^2 + 1/4*b^2*c*ap(0)*cp(0)
   - 1/2*b^2*c*ap(0)*lp(2) + 1/4*b^2*c*ap(2)^2 + 1/4*b^2*l*ap(0)*cp(2)
   - 1/4*b^2*l*ap(2)*cp(0) - 1/2*b^2*l*ap(2)*lp(2) - 1/2*b^2*l*cp(0)
  *lp(0) + b^2*l*lp(0)*lp(2) + 1/4*c*k*l*ap(1)*bp(2) + 1/2*c*k*l*ap(1)
  *mp(1) + 1/4*c*k*l*ap(2)*bp(1) + c*k*l*bp(0)*mp(0) - 1/2*c*k*l*bp(1)
  *lp(0) - 1/2*c*k*l*bp(2)*kp(0) - c*k*l*kp(0)*mp(1) - 1/4*c*k*m*ap(0)
  *bp(2) - 1/2*c*k*m*ap(0)*mp(1) + 1/2*c*k*m*ap(1)*kp(2) + 1/2*c*k
  *m*ap(1)*lp(1) + 1/2*c*k*m*ap(1)*mp(0) + 1/4*c*k*m*ap(2)*bp(0)
  + 1/2*c*k*m*ap(2)*kp(1) + 1/2*c*k*m*bp(0)*lp(0) - c*k*m*kp(0)*kp(2)
   - c*k*m*kp(0)*lp(1) + c*k*m*kp(0)*mp(0) - c*k*m*kp(1)*lp(0)
  + 1/4*c*k^2*ap(1)*cp(1) - 1/2*c*k^2*ap(1)*mp(2) + 1/4*c*k^2*ap(2)
  *bp(2) - 1/2*c*k^2*ap(2)*mp(1) - 1/2*c*k^2*bp(2)*lp(0) - 1/2*c*k^2
  *cp(1)*kp(0) + c*k^2*kp(0)*mp(2) + c*k^2*kp(2)*lp(1) - 1/2*c*k^2
  *kp(2)^2 + c*k^2*lp(0)*mp(1) - 1/2*c*k^2*lp(1)^2 - 1/2*c*k^2*mp(0)^2
   - 1/4*c*l*m*ap(0)*bp(1) + 1/4*c*l*m*ap(1)*bp(0) + 1/2*c*l*m*ap(1)
  *kp(1) + 1/2*c*l*m*bp(0)*kp(0) - c*l*m*kp(0)*kp(1) - 1/2*c*l^2*ap(1)
  *bp(1) - 1/2*c*l^2*bp(0)^2 + c*l^2*bp(1)*kp(0) - 1/4*c*m^2*ap(0)
  *bp(0) + 1/2*c*m^2*ap(0)*kp(1) - 1/4*c*m^2*ap(1)^2 + 1/4*c^2*k*ap(0)
  *bp(1) - 1/4*c^2*k*ap(1)*bp(0) - 1/2*c^2*k*ap(1)*kp(1) - 1/2*c^2
  *k*bp(0)*kp(0) + c^2*k*kp(0)*kp(1) - k*l*m*ap(1)*cp(1) - k*l*m*ap(2)
  *bp(2) - k*l*m*bp(0)*cp(0) + 2*k*l*m*bp(2)*lp(0) + 2*k*l*m*cp(1)
  *kp(0) - 2*k*l*m*kp(2)*lp(1) + k*l*m*kp(2)^2 + k*l*m*lp(1)^2
  - k*l*m*mp(0)^2 + 1/2*k*m^2*ap(0)*cp(1) - 1/2*k*m^2*ap(1)*cp(0)
  - k*m^2*ap(2)*lp(1) + k*m^2*kp(2)*lp(0) + k*m^2*lp(0)*lp(1)
  - k*m^2*lp(0)*mp(0) + 1/4*k^2*m*ap(1)*cp(2) + 1/4*k^2*m*ap(2)*cp(1)
   + 1/2*k^2*m*ap(2)*mp(2) + k^2*m*cp(0)*mp(0) - 1/2*k^2*m*cp(1)*lp(0)
   - 1/2*k^2*m*cp(2)*kp(0) - k^2*m*lp(0)*mp(2) + 1/2*l*m^2*ap(0)*bp(2)
   - l*m^2*ap(1)*kp(2) - 1/2*l*m^2*ap(2)*bp(0) + l*m^2*kp(0)*kp(2)
   + l*m^2*kp(0)*lp(1) - l*m^2*kp(0)*mp(0) + 1/4*l^2*m*ap(1)*bp(2)
   + 1/2*l^2*m*ap(1)*mp(1) + 1/4*l^2*m*ap(2)*bp(1) + l^2*m*bp(0)*mp(0)
   - 1/2*l^2*m*bp(1)*lp(0) - 1/2*l^2*m*bp(2)*kp(0) - l^2*m*kp(0)*mp(1)
   - 1/2*m^3*ap(0)*kp(2) - 1/2*m^3*ap(0)*lp(1) + 1/2*m^3*ap(0)*mp(0)
   + 1/2*m^3*ap(1)*ap(2) )
 
 + e^2*a^2
  * ( - 1/4*b*c*ap(1)*cp(1) + 1/2*b*c*ap(1)*mp(2) - 1/4*b*c*ap(2)*bp(2)
   + 1/2*b*c*ap(2)*mp(1) + 1/2*b*c*bp(2)*lp(0) + 1/2*b*c*cp(1)*kp(0)
   - b*c*kp(0)*mp(2) - b*c*kp(2)*lp(1) + 1/2*b*c*kp(2)^2 - b*c*lp(0)
  *mp(1) + 1/2*b*c*lp(1)^2 + 1/2*b*c*mp(0)^2 - 1/4*b*m*ap(1)*cp(2)
   - 1/4*b*m*ap(2)*cp(1) - 1/2*b*m*ap(2)*mp(2) - b*m*cp(0)*mp(0)
  + 1/2*b*m*cp(1)*lp(0) + 1/2*b*m*cp(2)*kp(0) + b*m*lp(0)*mp(2)
  + 1/4*b^2*ap(2)*cp(2) + 1/4*b^2*cp(0)^2 - 1/2*b^2*cp(2)*lp(0)
  - 1/4*c*m*ap(1)*bp(2) - 1/2*c*m*ap(1)*mp(1) - 1/4*c*m*ap(2)*bp(1)
   - c*m*bp(0)*mp(0) + 1/2*c*m*bp(1)*lp(0) + 1/2*c*m*bp(2)*kp(0)
  + c*m*kp(0)*mp(1) + 1/4*c^2*ap(1)*bp(1) + 1/4*c^2*bp(0)^2
  - 1/2*c^2*bp(1)*kp(0) + 1/2*m^2*ap(1)*cp(1) + 1/2*m^2*ap(2)*bp(2)
   + 1/2*m^2*bp(0)*cp(0) - m^2*bp(2)*lp(0) - m^2*cp(1)*kp(0)
  + m^2*kp(2)*lp(1) - 1/2*m^2*kp(2)^2 - 1/2*m^2*lp(1)^2 + 1/2*m^2*mp(0)^2 )
 
 + app(1,1)*e*Det
  * ( 1/2*l^2 )
 
 + app(1,1)*e*Det*a
  * ( - 1/2*c )
 
 + app(1,2)*e*Det
  * ( - k*l )
 
 + app(1,2)*e*Det*a
  * ( m )
 
 + app(2,2)*e*Det
  * ( 1/2*k^2 )
 
 + app(2,2)*e*Det*a
  * ( - 1/2*b )
 
 + app(3,3)*Det
  * ( 1/2*b*l^2 + 1/2*c*k^2 - k*l*m )
 
 + app(3,3)*Det*a
  * ( - 1/2*b*c + 1/2*m^2 )
 
 + kpp(0,1)*e*Det
  * ( - l^2 )
 
 + kpp(0,1)*e*Det*a
  * ( c )
 
 + kpp(0,2)*e*Det
  * ( k*l )
 
 + kpp(0,2)*e*Det*a
  * ( - m )
 
 + lpp(0,1)*e*Det
  * ( k*l )
 
 + lpp(0,1)*e*Det*a
  * ( - m )
 
 + lpp(0,2)*e*Det
  * ( - k^2 )
 
 + lpp(0,2)*e*Det*a
  * ( b )
 
 + bpp(0,0)*e*Det
  * ( 1/2*l^2 )
 
 + bpp(0,0)*e*Det*a
  * ( - 1/2*c )
 
 + mpp(0,0)*e*Det
  * ( - k*l )
 
 + mpp(0,0)*e*Det*a
  * ( m )
 
 + cpp(0,0)*e*Det
  * ( 1/2*k^2 )
 
 + cpp(0,0)*e*Det*a
  * ( - 1/2*b )
 
 + epp(0,0)*Det
  * ( 1/2*b*l^2 + 1/2*c*k^2 - k*l*m )
 
 + epp(0,0)*Det*a
  * ( - 1/2*b*c + 1/2*m^2 ) + 0.
 

End run. Time 18 sec.
Schoonschip, 68000 version of June 27, 1991. Public version.
Date: Sun Dec 12 1993 18:23:58.  Memory: start 0001BCDC, length 476860.


C Varia 7. Lagrangian for SU(5) once broken to SU(3)*SU(2)*U(1).

> P error
C PROGRAM WRITTEN BY MARTIN GREEN, AUGUST 1981.
> P stat
	Oldnew i=I
	Common A,DIF,DIFH,CDIFH,DIFHH,F1,F2,DIFZ,DIFZB,Zb,GAUGE,H,HH,F1B,F0,MZ
	   ,HSH,HHHH,HH2,LH1,LH2,LH3,LH4,LH5,LH6,LH7,LH8,LH9
	F TA
	*fix

Begin. Time 0 sec.
C RT12=SQRT(1/2) ETC
C GG = GAUGE COUPLING CONSTANT
C UNIT = 3 BY 3 UNIT MATRIX
C UNI=2*2 UNIT MATRIX
C          SUMMATION CONVENTIONS
C LG(MU)=LAMBDA(A)*GL(A,MU)
C TB(MU)=TAU(A)*B(A,MU)
C LDIFF(GL)=LAMBDA(A)*DIFF(GL(A))
C LDIFF(B)=TAU(A)*DIFF(B(A))
	B GG
	S GG,UNIT,RT12,RT13,RT15,UNI
	I MU1,MU2,MU3,MU4,I1=3,I2=3,I3=3,I4=3
	V B,B0,GL,XM,XP
	F DIFF,LDIFF,LG,MX=c,TB
	Oldnew MXC=PX
C DIFFERENTIAL OF A(MU)
	Z DIF(MU1,MU2,I1,I2)=-I*RT12*(
	   +DIFF(MU1,XM,MU2)*D(I1,1)*D(I2,2)
	   +DIFF(MU1,XP,MU2)*D(I1,2)*D(I2,1)
	   +(RT12*LDIFF(MU1,GL,MU2)+UNIT*2*RT12*RT13*RT15*DIFF(MU1,B0,MU2))
	   *D(I1,1)*D(I2,1)
	   +(RT12*LDIFF(MU1,B,MU2)-UNI*3*RT12*RT13*RT15*DIFF(MU1,B0,MU2))
	   *D(I1,2)*D(I2,2))
L 3	Id RT12**2=1/2

	*next

Terms in output 6
Running time 0 sec			Used	Maximum
Generated terms 6 	Input space 	662 	100000
Equal terms 0     	Output space 	352 	250000
Cancellations 0   	Nr of expr.  	10 	255
Multiplications 25	String space 	0 	4096
Records written 0 	Merging		0 	0

 
DIF(MU1,MU2,I1,I2) = 
 + DIFF(MU1,B0,MU2)*D(I1,1)*D(I2,1)
  * ( - I*UNIT*RT13*RT15 )
 
 + DIFF(MU1,B0,MU2)*D(I1,2)*D(I2,2)
  * ( 3/2*I*RT13*RT15*UNI )
 
 + DIFF(MU1,XM,MU2)*D(I1,1)*D(I2,2)
  * ( - I*RT12 )
 
 + DIFF(MU1,XP,MU2)*D(I1,2)*D(I2,1)
  * ( - I*RT12 )
 
 + LDIFF(MU1,B,MU2)*D(I1,2)*D(I2,2)
  * ( - 1/2*I )
 
 + LDIFF(MU1,GL,MU2)*D(I1,1)*D(I2,1)
  * ( - 1/2*I ) + 0.
 
C                                      A(MU)
	Z A(MU1,I1,I2)=DIF(MU2,MU1,I1,I2)
L 2	Id DIFF(MU1~,XM,MU2~)=MX(MU2)
L 2	Al DIFF(MU1~,XP,MU2~)=PX(MU2)
L 2	Al LDIFF(MU1~,GL,MU2~)=LG(MU2)
L 2	Al LDIFF(MU1~,B,MU2~)=TB(MU2)
L 3	Id DIFF(MU1~,B0~,MU2~)=B0(MU2)
	*next

Terms in output 6
Running time 0 sec			Used	Maximum
Generated terms 6 	Input space 	582 	100000
Equal terms 0     	Output space 	324 	250000
Cancellations 0   	Nr of expr.  	17 	255
Multiplications 43	String space 	0 	4096
Records written 2 	Merging		0 	0

 
A(MU1,I1,I2) = 
 + D(I1,1)*D(I2,1)*B0(MU1)
  * ( - I*UNIT*RT13*RT15 )
 
 + D(I1,2)*D(I2,2)*B0(MU1)
  * ( 3/2*I*RT13*RT15*UNI )
 
 + LG(MU1)*D(I1,1)*D(I2,1)
  * ( - 1/2*I )
 
 + MX(MU1)*D(I1,1)*D(I2,2)
  * ( - I*RT12 )
 
 + PX(MU1)*D(I1,2)*D(I2,1)
  * ( - I*RT12 )
 
 + TB(MU1)*D(I1,2)*D(I2,2)
  * ( - 1/2*I ) + 0.
 
C SUMMED COLOUR IN XX IS XP.XM ETC
	B GG,I
	S FF,MMX,HA,HB,HB0,PHI=c,HXM=c,XX,HXX,XHX,HXHX
	Oldnew HXMC=HXP,PHIC=PHIG
	F HT,TA,EHBB,HL,HMX=c,LA,FHAGL
	Oldnew HMXC=HPX
C          SUMMATION CONVENTIONS
C HM*HP*XMDXP=XM(MU1,I1)*HP(I1)*XP(MU1,I2)*HM(I2)    I.E.  P.M  ETC
	S HM=c
	Oldnew HMC=HP
	X HH1(I1,I2)=HMX*D(I1,1)*D(I2,2)
C                 HIGGS 24
	Z HH(I1,I2)=-I*HH1(I1,I2)+I*Conjg(HH1(I2,I1))
	   +(HL*RT12+UNIT*(2*HB0*RT12*RT13*RT15+4*RT12*FF/GG/5))*D(I1,1)*D(I2,1)
	   +(HT*RT12-UNI*(3*HB0*RT12*RT13*RT15+6*RT12*FF/GG/5))*D(I1,2)*D(I2,2)
C                     HIGGS 5
	Z H(I1)=I*HM*D(I1,1)+I*PHI*D(I1,2)
	*next

Terms in output 10
Running time 0 sec			Used	Maximum
Generated terms 10 	Input space 	744 	100000
Equal terms 0     	Output space 	512 	250000
Cancellations 0   	Nr of expr.  	13 	255
Multiplications 30	String space 	0 	4096
Records written 4 	Merging		0 	0

 
HH(I1,I2) = 
 + D(I1,1)*D(I2,1)
  * ( 2*UNIT*RT12*RT13*RT15*HB0 )
 
 + D(I1,1)*D(I2,1)*GG^-1
  * ( 4/5*UNIT*RT12*FF )
 
 + D(I1,2)*D(I2,2)
  * ( - 3*RT12*RT13*RT15*UNI*HB0 )
 
 + D(I1,2)*D(I2,2)*GG^-1
  * ( - 6/5*RT12*UNI*FF )
 
 + HT*D(I1,2)*D(I2,2)
  * ( RT12 )
 
 + HL*D(I1,1)*D(I2,1)
  * ( RT12 )
 
 - HMX*D(I1,1)*D(I2,2)*I
 
 + HPX*D(I1,2)*D(I2,1)*I
 
H(I1) = + D(I1,1)*I
  * ( HM )
 
 + D(I1,2)*I
  * ( PHI ) + 0.
 
	X DIFFH(I1)=I*DIFF(MU1,HM)*D(I1,1)+I*DIFF(MU1,PHI)*D(I1,2)
	Z DIFH(I1)=DIFFH(I1)+GG*A(MU1,I1,I2)*H(I2)
	Z DIFHH(I1,I2)=GG*A(MU1,I1,I3)*HH(I3,I2)-HH(I1,I3)*A(MU1,I3,I2)*GG
	 -I*DIFF(MU1,HXM)*D(I1,1)*D(I2,2)+DIFF(MU1,HXP)*D(I1,2)*D(I2,1)*I
	   +(DIFF(MU1,HL)*RT12+UNIT*UNIT* DIFF(MU1,HB0)*2*RT12*RT13*RT15)
	            *D(I1,1)*D(I2,1)
	   +(DIFF(MU1,HT)*RT12-UNI*UNI*3*DIFF(MU1,HB0)*RT12*RT13*RT15)
	   *D(I1,2)*D(I2,2)
L 3	Id UNIT**N~=UNIT**N/UNIT
L 3	Al UNI**N~=UNI**N/UNI
L 3	Al,Multi,RT12**2=1/2
L 3	Al RT13**2=1/3
L 3	Al RT15**2=1/5
L 4	Id HL*LG(MU1)=LG(MU1)*HL+2*I*FHAGL*LA
L 4	Al HT*TB(MU1)=TB(MU1)*HT+2*I*EHBB*TA
L 5	Id HL=HA*LA
L 5	Al HT=HB*TA
L 5	Al LG(MU1)=GL(MU1)*LA
L 5	Al TB(MU1)=B(MU1)*TA
L 5	Al DIFF(MU1,HL)=DIFF(MU1,HA)*LA
L 5	Al DIFF(MU1,HT)=DIFF(MU1,HB)*TA
	*next

Terms in output 34
Running time 1 sec			Used	Maximum
Generated terms 64 	Input space 	1698 	100000
Equal terms 18     	Output space 	1856 	250000
Cancellations 12   	Nr of expr.  	32 	255
Multiplications 1056	String space 	0 	4096
Records written 8 	Merging		0 	0

 
DIFH(I1) = 
 + D(I1,1)*B0(MU1)
  * ( GG*RT13*RT15*HM )
 
 + D(I1,2)*B0(MU1)
  * ( - 3/2*GG*RT13*RT15*PHI )
 
 + TA*D(I1,2)*B(MU1)
  * ( 1/2*GG*PHI )
 
 + DIFF(MU1,PHI)*D(I1,2)
  * ( I )
 
 + DIFF(MU1,HM)*D(I1,1)
  * ( I )
 
 + MX(MU1)*D(I1,1)
  * ( GG*RT12*PHI )
 
 + PX(MU1)*D(I1,2)
  * ( GG*RT12*HM )
 
 + LA*D(I1,1)*GL(MU1)
  * ( 1/2*GG*HM )
 
DIFHH(I1,I2) = 
 + TA*PX(MU1)*D(I1,2)*D(I2,1)
  * ( 1/2*I*GG*HB )
 
 + TA*HPX*D(I1,2)*D(I2,1)*B(MU1)
  * ( 1/2*GG )
 
 + DIFF(MU1,HA)*LA*D(I1,1)*D(I2,1)
  * ( RT12 )
 
 + DIFF(MU1,HB)*TA*D(I1,2)*D(I2,2)
  * ( RT12 )
 
 + DIFF(MU1,HB0)*D(I1,1)*D(I2,1)
  * ( 2*UNIT*RT12*RT13*RT15 )
 
 + DIFF(MU1,HB0)*D(I1,2)*D(I2,2)
  * ( - 3*RT12*RT13*RT15*UNI )
 
 + DIFF(MU1,HXM)*D(I1,1)*D(I2,2)
  * ( - I )
 
 + DIFF(MU1,HXP)*D(I1,2)*D(I2,1)
  * ( I )
 
 + MX(MU1)*D(I1,1)*D(I2,2)
  * ( 5/2*I*GG*RT13*RT15*HB0 + I*FF )
 
 + MX(MU1)*TA*D(I1,1)*D(I2,2)
  * ( - 1/2*I*GG*HB )
 
 + MX(MU1)*HPX*D(I1,1)*D(I2,1)
  * ( GG*RT12 )
 
 + PX(MU1)*D(I1,2)*D(I2,1)
  * ( - 5/2*I*GG*RT13*RT15*HB0 - I*FF )
 
 + PX(MU1)*HMX*D(I1,2)*D(I2,2)
  * ( - GG*RT12 )
 
 + PX(MU1)*LA*D(I1,2)*D(I2,1)
  * ( - 1/2*I*GG*HA )
 
 + EHBB*TA*D(I1,2)*D(I2,2)
  * ( - GG*RT12 )
 
 + HMX*D(I1,1)*D(I2,2)*B0(MU1)
  * ( - 5/2*GG*RT13*RT15 )
 
 + HMX*TA*D(I1,1)*D(I2,2)*B(MU1)
  * ( 1/2*GG )
 
 + HMX*PX(MU1)*D(I1,1)*D(I2,1)
  * ( GG*RT12 )
 
 + HPX*D(I1,2)*D(I2,1)*B0(MU1)
  * ( - 5/2*GG*RT13*RT15 )
 
 + HPX*MX(MU1)*D(I1,2)*D(I2,2)
  * ( - GG*RT12 )
 
 + HPX*LA*D(I1,2)*D(I2,1)*GL(MU1)
  * ( - 1/2*GG )
 
 + LA*MX(MU1)*D(I1,1)*D(I2,2)
  * ( 1/2*I*GG*HA )
 
 + LA*HMX*D(I1,1)*D(I2,2)*GL(MU1)
  * ( - 1/2*GG )
 
 + FHAGL*LA*D(I1,1)*D(I2,1)
  * ( - GG*RT12 ) + 0.
 
	B GG
	Z CDIFH(I1)=Conjg(DIFH(I1))
	*next

Terms in output 8
Running time 1 sec			Used	Maximum
Generated terms 8 	Input space 	372 	100000
Equal terms 0     	Output space 	424 	250000
Cancellations 0   	Nr of expr.  	18 	255
Multiplications 52	String space 	0 	4096
Records written 12 	Merging		0 	0

 
CDIFH(I1) = 
 + D(I1,1)*B0(MU1)*GG
  * ( RT13*RT15*HP )
 
 + D(I1,2)*B0(MU1)*GG
  * ( - 3/2*RT13*RT15*PHIG )
 
 + TA*D(I1,2)*B(MU1)*GG
  * ( 1/2*PHIG )
 
 + DIFF(MU1,PHIG)*D(I1,2)
  * ( - I )
 
 + DIFF(MU1,HP)*D(I1,1)
  * ( - I )
 
 + MX(MU1)*D(I1,2)*GG
  * ( RT12*HP )
 
 + PX(MU1)*D(I1,1)*GG
  * ( RT12*PHIG )
 
 + LA*D(I1,1)*GL(MU1)*GG
  * ( 1/2*HP ) + 0.
 
	B GG,I,FF
	Z Z=-CDIFH(I1)*DIFH(I1)
	   -DIFHH(I1,I2)*DIFHH(I2,I1)/2
	   -FF      *(DIFF(XP,HXM)+DIFF(XM,HXP))
C PART OF GAUGE FIXING TERM
L 3	Id UNIT**2=3
L 3	Al UNI**2=2
L 3	Al RT13**2=1/3
L 3	Al RT15**2=1/5
L 3	Al,Multi,RT12**2=1/2
L 4	Id UNIT=1
L 4	Al UNI=1
L 4	Al,Ainbe,LA*LA=2
L 4	Al,Ainbe,TA*TA=2
L 5	Id LA=0
L 5	Al TA=0
	*yep

Terms in output 91
Running time 3 sec			Used	Maximum
Generated terms 96 	Input space 	1040 	100000
Equal terms 5     	Output space 	4420 	250000
Cancellations 0   	Nr of expr.  	32 	255
Multiplications 6071	String space 	0 	4096
Records written 14 	Merging		0 	0

L 1	Id MX(MU1)*HPX*MX(MU1)*HPX=HXX**2
L 1	Al MX(MU1)*HPX*HMX*PX(MU1)=HXHX*XX
L 1	Al PX(MU1)*HMX*PX(MU1)*HMX=XHX**2
L 1	Al PX(MU1)*HMX*HPX*MX(MU1)=XHX*HXX
L 1	Al HMX*PX(MU1)*MX(MU1)*HPX=XX*HXHX
L 1	Al HMX*PX(MU1)*HMX*PX(MU1)=XHX**2
L 1	Al HPX*MX(MU1)*PX(MU1)*HMX=HXX*XHX
L 1	Al HPX*MX(MU1)*HPX*MX(MU1)=HXX**2
	*yep

Terms out 91, in 91.

Terms in output 87
Running time 3 sec			Used	Maximum
Generated terms 91 	Input space 	700 	100000
Equal terms 4     	Output space 	4064 	250000
Cancellations 0   	Nr of expr.  	23 	255
Multiplications 198	String space 	0 	4096
Records written 14 	Merging		0 	0

L 1	Id MX(MU1~)=XM(MU1)
L 1	Al PX(MU1~)=XP(MU1)
L 1	Al HMX=HXM
L 1	Al HPX=HXP
L 2	Id,Commu,DIFF
	Print STAT
> P output
C HIGGS KINETIC TERM
	*next

Terms out 87, in 87.

Terms in output 52
Running time 3 sec			Used	Maximum
Generated terms 87 	Input space 	354 	100000
Equal terms 33     	Output space 	2024 	250000
Cancellations 2   	Nr of expr.  	22 	255
Multiplications 390	String space 	0 	4096
Records written 14 	Merging		0 	0

 
Z = 
 + GG*I*FF
  * ( - 5/2*RT13*RT15*HXM*B0DXP + 5/2*RT13*RT15*HXP*B0DXM )
 
 + GG*FF
  * ( - 5*RT13*RT15*HB0*XMDXP )
 
 + GG^2
  * ( 1/2*RT12*RT13*RT15*PHI*HP*B0DXM + 1/2*RT12*RT13*RT15*PHIG*HM
  *B0DXP - 1/2*HA^2*XMDXP - 1/2*HB^2*XMDXP - 5/12*HB0^2*XMDXP
  - 1/2*PHI*PHIG*BDB - 3/20*PHI*PHIG*B0DB0 - 1/2*PHI*PHIG*XMDXP
  - 1/2*HXM*HXP*BDB - 5/12*HXM*HXP*B0DB0 - 1/2*HXM*HXP*GLDGL
  - 1/2*XX*HXHX - 1/2*HXX*XHX - 1/2*HXX^2 - 1/2*XHX^2 - 1/15*HM*HP
  *B0DB0 - 1/2*HM*HP*GLDGL - 1/2*HM*HP*XMDXP )
 
 + GG^2*I
  * ( - 1/2*HA*HXM*GLDXP + 1/2*HA*HXP*GLDXM - 1/2*HB*HXM*BDXP
  + 1/2*HB*HXP*BDXM - 5/12*HB0*HXM*B0DXP + 5/12*HB0*HXP*B0DXM )
 
 + FF^2
  * ( - XMDXP )
 
 - 1/2*DIFF(MU1,HA)*DIFF(MU1,HA)
 
 - 1/2*DIFF(MU1,HB)*DIFF(MU1,HB)
 
 - 1/2*DIFF(MU1,HB0)*DIFF(MU1,HB0)
 
 - DIFF(MU1,PHI)*DIFF(MU1,PHIG)
 
 - DIFF(MU1,HXM)*DIFF(MU1,HXP)
 
 - DIFF(MU1,HM)*DIFF(MU1,HP)
 
 + DIFF(B0,PHI)*GG*I
  * ( 3/2*RT13*RT15*PHIG )
 
 + DIFF(B0,PHIG)*GG*I
  * ( - 3/2*RT13*RT15*PHI )
 
 + DIFF(B0,HXM)*GG*I
  * ( - 5/2*RT13*RT15*HXP )
 
 + DIFF(B0,HXP)*GG*I
  * ( 5/2*RT13*RT15*HXM )
 
 + DIFF(B0,HM)*GG*I
  * ( - RT13*RT15*HP )
 
 + DIFF(B0,HP)*GG*I
  * ( RT13*RT15*HM )
 
 + DIFF(XM,HB0)*GG
  * ( - 5/2*RT13*RT15*HXP )
 
 + DIFF(XM,PHI)*GG*I
  * ( - RT12*HP )
 
 + DIFF(XM,HXP)*GG
  * ( 5/2*RT13*RT15*HB0 )
 
 + DIFF(XM,HP)*GG*I
  * ( RT12*PHI )
 
 + DIFF(XP,HB0)*GG
  * ( - 5/2*RT13*RT15*HXM )
 
 + DIFF(XP,PHIG)*GG*I
  * ( RT12*HM )
 
 + DIFF(XP,HXM)*GG
  * ( 5/2*RT13*RT15*HB0 )
 
 + DIFF(XP,HM)*GG*I
  * ( - RT12*PHIG )
 
 + EHBB*DIFF(MU1,HB)*GG
 
 - 1/2*EHBB*EHBB*GG^2
 
 + FHAGL*DIFF(MU1,HA)*GG
 
 - 1/2*FHAGL*FHAGL*GG^2 + 0.
 
	F ZXM=c,ZXP=c,ZA=c,ZB=c,ZB0=c
	Oldnew ZXMC=ZXMG,ZXPC=ZXPG,ZAC=ZAG,ZBC=ZBG,ZB0C=ZB0G
C     DIFFERENTIAL OF F.P. GHOST MULTIPLET
	Z DIFZ(I1,I2)=
	       D(I1,1)*D(I2,2)*DIFF(MU1,ZXM)
	   +D(I1,2)*D(I2,1)*DIFF(MU1,ZXP)
	   +D(I1,1)*D(I2,1)*(RT12*LA*DIFF(MU1,ZA)+UNIT*2*RT12*RT13*RT15*DIFF(MU1
	   ,ZB0))
	   +D(I1,2)*D(I2,2)*(RT12*TA*DIFF(MU1,ZB)-UNI*3*RT12*RT13*RT15*DIFF(MU1,
	   ZB0))
	*next

Terms in output 6
Running time 4 sec			Used	Maximum
Generated terms 6 	Input space 	468 	100000
Equal terms 0     	Output space 	340 	250000
Cancellations 0   	Nr of expr.  	16 	255
Multiplications 12	String space 	0 	4096
Records written 14 	Merging		0 	0

 
DIFZ(I1,I2) = 
 + TA*DIFF(MU1,ZB)*D(I1,2)*D(I2,2)
  * ( RT12 )
 
 + DIFF(MU1,ZXM)*D(I1,1)*D(I2,2)
 
 + DIFF(MU1,ZXP)*D(I1,2)*D(I2,1)
 
 + DIFF(MU1,ZB0)*D(I1,1)*D(I2,1)
  * ( 2*UNIT*RT12*RT13*RT15 )
 
 + DIFF(MU1,ZB0)*D(I1,2)*D(I2,2)
  * ( - 3*RT12*RT13*RT15*UNI )
 
 + LA*DIFF(MU1,ZA)*D(I1,1)*D(I2,1)
  * ( RT12 ) + 0.
 
	Z DIFZB(I1,I2)=Conjg(DIFZ(I2,I1))
	Z HH(I1,I2)=HH(I1,I2)
L 3	Id HMX=HXM
L 3	Al HPX=HXP
	*next

Terms in output 14
Running time 4 sec			Used	Maximum
Generated terms 14 	Input space 	456 	100000
Equal terms 0     	Output space 	700 	250000
Cancellations 0   	Nr of expr.  	23 	255
Multiplications 85	String space 	0 	4096
Records written 16 	Merging		0 	0

 
DIFZB(I1,I2) = 
 + DIFF(MU1,ZXMG)*D(I1,2)*D(I2,1)
 
 + DIFF(MU1,ZXPG)*D(I1,1)*D(I2,2)
 
 + DIFF(MU1,ZAG)*LA*D(I1,1)*D(I2,1)
  * ( RT12 )
 
 + DIFF(MU1,ZBG)*TA*D(I1,2)*D(I2,2)
  * ( RT12 )
 
 + DIFF(MU1,ZB0G)*D(I1,1)*D(I2,1)
  * ( 2*UNIT*RT12*RT13*RT15 )
 
 + DIFF(MU1,ZB0G)*D(I1,2)*D(I2,2)
  * ( - 3*RT12*RT13*RT15*UNI )
 
HH(I1,I2) = 
 + D(I1,1)*D(I2,1)
  * ( 4/5*GG^-1*UNIT*RT12*FF + 2*UNIT*RT12*RT13*RT15*HB0 )
 
 + D(I1,1)*D(I2,2)
  * ( - I*HXM )
 
 + D(I1,2)*D(I2,1)
  * ( I*HXP )
 
 + D(I1,2)*D(I2,2)
  * ( - 6/5*GG^-1*RT12*UNI*FF - 3*RT12*RT13*RT15*UNI*HB0 )
 
 + HT*D(I1,2)*D(I2,2)
  * ( RT12 )
 
 + HL*D(I1,1)*D(I2,1)
  * ( RT12 ) + 0.
 
C          GHOST MULTIPLET
	Z GAUGE(I1,I2)=DIFZ(I1,I2)
	Z Zb(I1,I2)=DIFZB(I1,I2)
L 2	Id DIFF(MU1,ZB0~)=ZB0
	*next

Terms in output 12
Running time 4 sec			Used	Maximum
Generated terms 12 	Input space 	424 	100000
Equal terms 0     	Output space 	632 	250000
Cancellations 0   	Nr of expr.  	22 	255
Multiplications 88	String space 	0 	4096
Records written 35 	Merging		0 	0

 
GAUGE(I1,I2) = 
 + TA*ZB*D(I1,2)*D(I2,2)
  * ( RT12 )
 
 + LA*ZA*D(I1,1)*D(I2,1)
  * ( RT12 )
 
 + ZXM*D(I1,1)*D(I2,2)
 
 + ZXP*D(I1,2)*D(I2,1)
 
 + ZB0*D(I1,1)*D(I2,1)
  * ( 2*UNIT*RT12*RT13*RT15 )
 
 + ZB0*D(I1,2)*D(I2,2)
  * ( - 3*RT12*RT13*RT15*UNI )
 
Zb(I1,I2) = 
 + ZXMG*D(I1,2)*D(I2,1)
 
 + ZXPG*D(I1,1)*D(I2,2)
 
 + ZAG*LA*D(I1,1)*D(I2,1)
  * ( RT12 )
 
 + ZBG*TA*D(I1,2)*D(I2,2)
  * ( RT12 )
 
 + ZB0G*D(I1,1)*D(I2,1)
  * ( 2*UNIT*RT12*RT13*RT15 )
 
 + ZB0G*D(I1,2)*D(I2,2)
  * ( - 3*RT12*RT13*RT15*UNI ) + 0.
 
	B GG,I
	F FZAHA,FZAGL,EZBHB,EZBB
C          SUMMATION CONVENTIONS
C FZAHA=F(A,B,C)*ZA(B)*HA(C)
C EZBB=Epf(A,B,C)*ZB(B)*B(C)
C   ETC
	Z F0(I1,I2)=GAUGE(I1,I3)*A(MU1,I3,I2)-A(MU1,I1,I3)*GAUGE(I3,I2)
	Z F2(I1,I2)=-I*GG*RT12*(GAUGE(I1,I3)*HH(I3,I2)-HH(I1,I3)*GAUGE(I3,I2))
L 3	Id LA*ZA*HL=HL*LA*ZA+2*I*FZAHA*LA
L 3	Al TA*ZB*HT=HT*TA*ZB+2*I*EZBHB*TA
L 3	Al LA*ZA*LG(MU1)=LG(MU1)*LA*ZA+2*I*LA*FZAGL(MU1)
L 3	Al TA*ZB*TB(MU1)=TB(MU1)*TA*ZB+2*I*TA*EZBB(MU1)
L 3	Al,Multi,RT12**2=1/2
L 3	Al UNIT=1
L 3	Al UNI=1
L 4	Id HL=HA*LA
L 4	Al HT=HB*TA
L 4	Al LG(MU1)=LA*GL(MU1)
L 4	Al TB(MU1)=TA*B(MU1)
	*next

Terms in output 48
Running time 5 sec			Used	Maximum
Generated terms 88 	Input space 	1442 	100000
Equal terms 24     	Output space 	2912 	250000
Cancellations 16   	Nr of expr.  	37 	255
Multiplications 1615	String space 	0 	4096
Records written 39 	Merging		0 	0

 
F0(I1,I2) = 
 + 1/2*TA*ZXP*D(I1,2)*D(I2,1)*B(MU1)*I
 
 - 1/2*TA*ZB*PX(MU1)*D(I1,2)*D(I2,1)*I
 
 + TA*ZB0*D(I1,2)*D(I2,2)*B(MU1)*I
  * ( - 3/2*RT12*RT13*RT15 )
 
 + TA*EZBB(MU1)*D(I1,2)*D(I2,2)
  * ( RT12 )
 
 + 1/2*MX(MU1)*TA*ZB*D(I1,1)*D(I2,2)*I
 
 + MX(MU1)*ZXP*D(I1,1)*D(I2,1)*I
  * ( RT12 )
 
 + MX(MU1)*ZB0*D(I1,1)*D(I2,2)*I
  * ( - 3/2*RT13*RT15 )
 
 + 1/2*PX(MU1)*LA*ZA*D(I1,2)*D(I2,1)*I
 
 + PX(MU1)*ZXM*D(I1,2)*D(I2,2)*I
  * ( RT12 )
 
 + PX(MU1)*ZB0*D(I1,2)*D(I2,1)*I
  * ( RT13*RT15 )
 
 + 1/2*LA*ZXM*D(I1,1)*D(I2,2)*GL(MU1)*I
 
 - 1/2*LA*ZA*MX(MU1)*D(I1,1)*D(I2,2)*I
 
 + LA*ZB0*D(I1,1)*D(I2,1)*GL(MU1)*I
  * ( RT12*RT13*RT15 )
 
 + LA*FZAGL(MU1)*D(I1,1)*D(I2,1)
  * ( RT12 )
 
 + ZXM*D(I1,1)*D(I2,2)*B0(MU1)*I
  * ( 5/2*RT13*RT15 )
 
 - 1/2*ZXM*TA*D(I1,1)*D(I2,2)*B(MU1)*I
 
 + ZXM*PX(MU1)*D(I1,1)*D(I2,1)*I
  * ( - RT12 )
 
 + ZXP*D(I1,2)*D(I2,1)*B0(MU1)*I
  * ( - 5/2*RT13*RT15 )
 
 + ZXP*MX(MU1)*D(I1,2)*D(I2,2)*I
  * ( - RT12 )
 
 - 1/2*ZXP*LA*D(I1,2)*D(I2,1)*GL(MU1)*I
 
 + ZB0*TA*D(I1,2)*D(I2,2)*B(MU1)*I
  * ( 3/2*RT12*RT13*RT15 )
 
 + ZB0*MX(MU1)*D(I1,1)*D(I2,2)*I
  * ( - RT13*RT15 )
 
 + ZB0*PX(MU1)*D(I1,2)*D(I2,1)*I
  * ( 3/2*RT13*RT15 )
 
 + ZB0*LA*D(I1,1)*D(I2,1)*GL(MU1)*I
  * ( - RT12*RT13*RT15 )
 
F2(I1,I2) = 
 + TA*ZXP*D(I1,2)*D(I2,1)*GG*I
  * ( 1/2*HB )
 
 + TA*ZB*D(I1,1)*D(I2,2)*GG
  * ( 1/2*HXM )
 
 + TA*ZB*D(I1,2)*D(I2,1)*GG
  * ( 1/2*HXP )
 
 + TA*ZB0*D(I1,2)*D(I2,2)*GG*I
  * ( - 3/2*RT12*RT13*RT15*HB )
 
 + LA*ZXM*D(I1,1)*D(I2,2)*GG*I
  * ( 1/2*HA )
 
 + LA*ZA*D(I1,1)*D(I2,2)*GG
  * ( - 1/2*HXM )
 
 + LA*ZA*D(I1,2)*D(I2,1)*GG
  * ( - 1/2*HXP )
 
 + LA*ZB0*D(I1,1)*D(I2,1)*GG*I
  * ( RT12*RT13*RT15*HA )
 
 + ZXM*D(I1,1)*D(I2,1)*GG
  * ( RT12*HXP )
 
 + ZXM*D(I1,1)*D(I2,2)*I
  * ( FF )
 
 + ZXM*D(I1,1)*D(I2,2)*GG*I
  * ( 5/2*RT13*RT15*HB0 )
 
 + ZXM*D(I1,2)*D(I2,2)*GG
  * ( - RT12*HXP )
 
 + ZXM*TA*D(I1,1)*D(I2,2)*GG*I
  * ( - 1/2*HB )
 
 + ZXP*D(I1,1)*D(I2,1)*GG
  * ( RT12*HXM )
 
 + ZXP*D(I1,2)*D(I2,1)*I
  * ( - FF )
 
 + ZXP*D(I1,2)*D(I2,1)*GG*I
  * ( - 5/2*RT13*RT15*HB0 )
 
 + ZXP*D(I1,2)*D(I2,2)*GG
  * ( - RT12*HXM )
 
 + ZXP*LA*D(I1,2)*D(I2,1)*GG*I
  * ( - 1/2*HA )
 
 + ZB0*D(I1,1)*D(I2,2)*GG
  * ( - 5/2*RT13*RT15*HXM )
 
 + ZB0*D(I1,2)*D(I2,1)*GG
  * ( - 5/2*RT13*RT15*HXP )
 
 + ZB0*TA*D(I1,2)*D(I2,2)*GG*I
  * ( 3/2*RT12*RT13*RT15*HB )
 
 + ZB0*LA*D(I1,1)*D(I2,1)*GG*I
  * ( - RT12*RT13*RT15*HA )
 
 + FZAHA*LA*D(I1,1)*D(I2,1)*GG
  * ( RT12 )
 
 + EZBHB*TA*D(I1,2)*D(I2,2)*GG
  * ( RT12 ) + 0.
 
	B GG,I,FF
	Z MZ(I1,I2)=I*FF* (F2(1,2)*D(I1,1)*D(I2,2)-F2(2,1)*D(I1,2)*D(I2,1))
	*next

Terms in output 14
Running time 6 sec			Used	Maximum
Generated terms 14 	Input space 	442 	100000
Equal terms 0     	Output space 	872 	250000
Cancellations 0   	Nr of expr.  	24 	255
Multiplications 177	String space 	0 	4096
Records written 43 	Merging		0 	0

 
MZ(I1,I2) = 
 + TA*ZXP*D(I1,2)*D(I2,1)*GG*FF
  * ( 1/2*HB )
 
 + TA*ZB*D(I1,1)*D(I2,2)*GG*I*FF
  * ( 1/2*HXM )
 
 + TA*ZB*D(I1,2)*D(I2,1)*GG*I*FF
  * ( - 1/2*HXP )
 
 + LA*ZXM*D(I1,1)*D(I2,2)*GG*FF
  * ( - 1/2*HA )
 
 + LA*ZA*D(I1,1)*D(I2,2)*GG*I*FF
  * ( - 1/2*HXM )
 
 + LA*ZA*D(I1,2)*D(I2,1)*GG*I*FF
  * ( 1/2*HXP )
 
 + ZXM*D(I1,1)*D(I2,2)*GG*FF
  * ( - 5/2*RT13*RT15*HB0 )
 
 - ZXM*D(I1,1)*D(I2,2)*FF^2
 
 + ZXM*TA*D(I1,1)*D(I2,2)*GG*FF
  * ( 1/2*HB )
 
 + ZXP*D(I1,2)*D(I2,1)*GG*FF
  * ( - 5/2*RT13*RT15*HB0 )
 
 - ZXP*D(I1,2)*D(I2,1)*FF^2
 
 + ZXP*LA*D(I1,2)*D(I2,1)*GG*FF
  * ( - 1/2*HA )
 
 + ZB0*D(I1,1)*D(I2,2)*GG*I*FF
  * ( - 5/2*RT13*RT15*HXM )
 
 + ZB0*D(I1,2)*D(I2,1)*GG*I*FF
  * ( 5/2*RT13*RT15*HXP ) + 0.
 
	B GG,I,FF
	Z LFP1=-DIFZB(I1,I2)*DIFZ(I2,I1)
	Z LFP2=DIFZB(I1,I2)*F0(I2,I1)*GG
	Z LFP3=Zb(I1,I2)*MZ(I2,I1)
	*yep

Terms in output 58
Running time 6 sec			Used	Maximum
Generated terms 58 	Input space 	506 	100000
Equal terms 0     	Output space 	3412 	250000
Cancellations 0   	Nr of expr.  	30 	255
Multiplications 1967	String space 	0 	4096
Records written 45 	Merging		0 	0

	B GG,I,FF
L 1	Id,Ainbe,LA*LA=2
L 1	Al,Ainbe,TA*TA=2
L 1	Al,UNIT**2=3
L 1	Al UNI**2=2
L 1	Al MX(MU1)=XM(MU1)
L 1	Al PX(MU1)=XP(MU1)
L 2	Id LA=0
L 2	Al TA=0
L 2	Al UNIT=1
L 2	Al UNI=1
L 2	Al RT13**2=1/3
L 2	Al RT15**2=1/5
L 2	Al,Multi,RT12**2=1/2
> P output
C FADEEV POPOV GHOST LAGRANGIAN
	*next

Terms out 58, in 58.

Terms in output 19
Running time 6 sec			Used	Maximum
Generated terms 28 	Input space 	706 	100000
Equal terms 7     	Output space 	988 	250000
Cancellations 2   	Nr of expr.  	40 	255
Multiplications 278	String space 	0 	4096
Records written 45 	Merging		0 	0

 
LFP1 = 
 - DIFF(MU1,ZXMG)*DIFF(MU1,ZXM)
 
 - DIFF(MU1,ZXPG)*DIFF(MU1,ZXP)
 
 - DIFF(MU1,ZAG)*DIFF(MU1,ZA)
 
 - DIFF(MU1,ZBG)*DIFF(MU1,ZB)
 
 - DIFF(MU1,ZB0G)*DIFF(MU1,ZB0)
 
LFP2 = 
 + DIFF(MU1,ZAG)*FZAGL(MU1)*GG
 
 + DIFF(MU1,ZBG)*EZBB(MU1)*GG
 
 + DIFF(B0,ZXMG)*ZXM*GG*I
  * ( 5/2*RT13*RT15 )
 
 + DIFF(B0,ZXPG)*ZXP*GG*I
  * ( - 5/2*RT13*RT15 )
 
 + DIFF(XM,ZXMG)*ZB0*GG*I
  * ( - 5/2*RT13*RT15 )
 
 + DIFF(XM,ZB0G)*ZXP*GG*I
  * ( 5/2*RT13*RT15 )
 
 + DIFF(XP,ZXPG)*ZB0*GG*I
  * ( 5/2*RT13*RT15 )
 
 + DIFF(XP,ZB0G)*ZXM*GG*I
  * ( - 5/2*RT13*RT15 )
 
LFP3 = 
 + ZXMG*ZXM*GG*FF
  * ( - 5/2*RT13*RT15*HB0 )
 
 - ZXMG*ZXM*FF^2
 
 + ZXMG*ZB0*GG*I*FF
  * ( - 5/2*RT13*RT15*HXM )
 
 + ZXPG*ZXP*GG*FF
  * ( - 5/2*RT13*RT15*HB0 )
 
 - ZXPG*ZXP*FF^2
 
 + ZXPG*ZB0*GG*I*FF
  * ( 5/2*RT13*RT15*HXP ) + 0.
 
	B GG,I,FF
	Z HSH=Conjg(H(I1))*H(I1)
	Z HHHH=HH(I1,I2)*HH(I2,I1)
L 4	Id UNIT**2=3
L 4	Al UNI**2=2
L 4	Al RT13**2=1/3
L 4	Al RT15**2=1/5
L 4	Al,Multi,RT12**2=1/2
L 4	Al HL*HL=2*HA*HA
L 4	Al HT*HT=2*HB*HB
L 5	Id UNIT=1
L 5	Al UNI=1
L 5	Al HL=0
L 5	Al HT=0
	*next

Terms in output 8
Running time 7 sec			Used	Maximum
Generated terms 14 	Input space 	900 	100000
Equal terms 6     	Output space 	248 	250000
Cancellations 0   	Nr of expr.  	40 	255
Multiplications 588	String space 	0 	4096
Records written 45 	Merging		0 	0

 
HSH =  + PHI*PHIG + HM*HP
 
HHHH = 
  + HA^2 + HB^2 + HB0^2 + 2*HXM*HXP
 
 + 12/5*GG^-2*FF^2
 
 + GG^-1*FF
  * ( 12*RT13*RT15*HB0 ) + 0.
 
	B GG,I,FF
	Z HH2(I1,I2)=HH(I1,I3)*HH(I3,I2)
L 2	Id UNIT**N~=UNIT**N/UNIT
L 2	Al UNI**N~=UNI**N/UNI
L 2	Al,RT13**2=1/3
L 2	Al RT15**2=1/5
L 2	Al,Multi,RT12**2=1/2
	*next

Terms in output 22
Running time 7 sec			Used	Maximum
Generated terms 32 	Input space 	592 	100000
Equal terms 10     	Output space 	1156 	250000
Cancellations 0   	Nr of expr.  	35 	255
Multiplications 585	String space 	0 	4096
Records written 49 	Merging		0 	0

 
HH2(I1,I2) = 
 + D(I1,1)*D(I2,1)
  * ( 2/15*UNIT*HB0^2 + HXM*HXP )
 
 + D(I1,1)*D(I2,1)*GG^-2*FF^2
  * ( 8/25*UNIT )
 
 + D(I1,1)*D(I2,1)*GG^-1*FF
  * ( 8/5*UNIT*RT13*RT15*HB0 )
 
 + D(I1,1)*D(I2,2)*I
  * ( RT12*RT13*RT15*HB0*HXM )
 
 + D(I1,1)*D(I2,2)*GG^-1*I*FF
  * ( 2/5*RT12*HXM )
 
 + D(I1,2)*D(I2,1)*I
  * ( - RT12*RT13*RT15*HB0*HXP )
 
 + D(I1,2)*D(I2,1)*GG^-1*I*FF
  * ( - 2/5*RT12*HXP )
 
 + D(I1,2)*D(I2,2)
  * ( 3/10*UNI*HB0^2 + HXM*HXP )
 
 + D(I1,2)*D(I2,2)*GG^-2*FF^2
  * ( 18/25*UNI )
 
 + D(I1,2)*D(I2,2)*GG^-1*FF
  * ( 18/5*RT13*RT15*UNI*HB0 )
 
 + HT*D(I1,1)*D(I2,2)*I
  * ( - RT12*HXM )
 
 + HT*D(I1,2)*D(I2,1)*I
  * ( RT12*HXP )
 
 + HT*D(I1,2)*D(I2,2)
  * ( - 3*RT13*RT15*HB0 )
 
 - 6/5*HT*D(I1,2)*D(I2,2)*GG^-1*FF
 
 + 1/2*HT*HT*D(I1,2)*D(I2,2)
 
 + HL*D(I1,1)*D(I2,1)
  * ( 2*RT13*RT15*HB0 )
 
 + 4/5*HL*D(I1,1)*D(I2,1)*GG^-1*FF
 
 + HL*D(I1,1)*D(I2,2)*I
  * ( - RT12*HXM )
 
 + HL*D(I1,2)*D(I2,1)*I
  * ( RT12*HXP )
 
 + 1/2*HL*HL*D(I1,1)*D(I2,1) + 0.
 
	S MM1,MM2
	B MM1,MM2,GG,I,FF
	Z LH1=-MM1**2*HSH
	Z LH2=-MM2**2/2*HHHH
L 2	Id GG**-2=0
	*next

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

 
LH1 = + MM1^2
  * ( - PHI*PHIG - HM*HP )
 
LH2 = + MM2^2
  * ( - 1/2*HA^2 - 1/2*HB^2 - 1/2*HB0^2 - HXM*HXP )
 
 + MM2^2*GG^-1*FF
  * ( - 6*RT13*RT15*HB0 ) + 0.
 
	S MM3,MM4
	B MM3,GG,I,FF
C LH3 COLOUR IS HP.LA*HA.HM
C LH3 COLOUR IS PHIG.TA*HB.PHI
	Z LH3=-GG*MM3*Conjg(H(I1))*HH(I1,I2)*H(I2)
L 4	Id UNIT=1
L 4	Al UNI=1
L 4	Al HL=LA*HA
L 4	Al HT=TA*HB
L 4	Al,Multi,RT12**2=1/2
L 4	Al GG**-2=0
	*next

Terms in output 8
Running time 7 sec			Used	Maximum
Generated terms 8 	Input space 	924 	100000
Equal terms 0     	Output space 	336 	250000
Cancellations 0   	Nr of expr.  	41 	255
Multiplications 245	String space 	0 	4096
Records written 55 	Merging		0 	0

 
LH3 = 
 + MM3*GG
  * ( 3*RT12*RT13*RT15*HB0*PHI*PHIG - 2*RT12*RT13*RT15*HB0*HM*HP )
 
 + MM3*GG*I
  * ( PHI*HXM*HP - PHIG*HXP*HM )
 
 + MM3*FF
  * ( 6/5*RT12*PHI*PHIG - 4/5*RT12*HM*HP )
 
 + TA*MM3*GG
  * ( - RT12*HB*PHI*PHIG )
 
 + LA*MM3*GG
  * ( - RT12*HA*HM*HP ) + 0.
 
	B MM4,GG,I,FF
	Z LH4=-GG*MM4*HH(I1,I2)*HH(I2,I3)*HH(I3,I1)
L 2	Id UNIT**3=3
L 2	Al UNI**3=2
L 2	Al HL*HL*HL=0
L 2	Al HT*HT*HT=0
L 3	Id UNIT=1
L 3	Al UNI=1
L 3	Al GG**-2=0
L 3	Al HL*HL=2*HA*HA
L 3	Al HT*HT=2*HB*HB
L 3	Al,Multi,RT12**2=1/2
L 3	Al,Multi,RT13**2=1/3
L 3	Al,Multi,RT15**2=1/5
L 4	Id HL=0
L 4	Al HT=0
	*next

Terms in output 9
Running time 8 sec			Used	Maximum
Generated terms 38 	Input space 	1316 	100000
Equal terms 27     	Output space 	310 	250000
Cancellations 2   	Nr of expr.  	51 	255
Multiplications 5077	String space 	0 	4096
Records written 57 	Merging		0 	0

 
LH4 = 
 + MM4*GG
  * ( - 6*RT12*RT13*RT15*HA^2*HB0 + 9*RT12*RT13*RT15*HB^2*HB0
  + 3*RT12*RT13*RT15*HB0*HXM*HXP + RT12*RT13*RT15*HB0^3 )
 
 + MM4*GG^-1*FF^2
  * ( 36/5*RT12*RT13*RT15*HB0 )
 
 + MM4*FF
  * ( - 12/5*RT12*HA^2 + 18/5*RT12*HB^2 + 6/5*RT12*HB0^2 + 6/5*RT12
  *HXM*HXP ) + 0.
 
	S LL5,LL6,LL7,LL8,LL9
	B LL5,LL6,LL7,GG,I,FF
C LH5 COLOUR IS POWERS OF HP.HM AND PHIG.PHI
C LH6 COLOUR IS HP.HM AND PHIG.PHI AND HXP.HXM
C LH7 COLOUR IS POWERS OF HXP.HXM
	Z LH5=-LL5*GG*GG*HSH*HSH
	Z LH6=-LL6*GG*GG*HSH*HHHH
	Z LH7=-LL7*GG*GG*HHHH*HHHH
L 2	Id GG**-2=0
L 2	Al RT12**2=1/2
L 2	Al RT13**2=1/3
L 2	Al RT15**2=1/5
	*next

Terms in output 34
Running time 9 sec			Used	Maximum
Generated terms 51 	Input space 	566 	100000
Equal terms 17     	Output space 	1036 	250000
Cancellations 0   	Nr of expr.  	39 	255
Multiplications 372	String space 	0 	4096
Records written 59 	Merging		0 	0

 
LH5 = + LL5*GG^2
  * ( - 2*PHI*PHIG*HM*HP - PHI^2*PHIG^2 - HM^2*HP^2 )
 
LH6 = 
 + LL6*GG*FF
  * ( - 12*RT13*RT15*HB0*PHI*PHIG - 12*RT13*RT15*HB0*HM*HP )
 
 + LL6*GG^2
  * ( - HA^2*PHI*PHIG - HA^2*HM*HP - HB^2*PHI*PHIG - HB^2*HM*HP
  - HB0^2*PHI*PHIG - HB0^2*HM*HP - 2*PHI*PHIG*HXM*HXP - 2*HXM*HXP*HM
  *HP )
 
 + LL6*FF^2
  * ( - 12/5*PHI*PHIG - 12/5*HM*HP )
 
LH7 = 
 + LL7*GG*FF
  * ( - 24*RT13*RT15*HA^2*HB0 - 24*RT13*RT15*HB^2*HB0 - 48*RT13*RT15
  *HB0*HXM*HXP - 24*RT13*RT15*HB0^3 )
 
 + LL7*GG^2
  * ( - 2*HA^2*HB^2 - 2*HA^2*HB0^2 - 4*HA^2*HXM*HXP - HA^4
  - 2*HB^2*HB0^2 - 4*HB^2*HXM*HXP - HB^4 - 4*HB0^2*HXM*HXP
  - HB0^4 - 4*HXM^2*HXP^2 )
 
 + LL7*GG^-1*FF^3
  * ( - 288/5*RT13*RT15*HB0 )
 
 + LL7*FF^2
  * ( - 24/5*HA^2 - 24/5*HB^2 - 72/5*HB0^2 - 48/5*HXM*HXP ) + 0.
 
	B LL8,GG,I,FF
C LH8 QUARTIC COLOUR IS HP.LA.LA.HM OR HP.HXM.HXP.HM OR HP.LA.HXM.PHI
C  OR HP.HXM.TA.PHI OR PHIG.TA.TA.PHI OR PHIG.HXP.HXM.PHI OR
C    PHIG.HXP.LA.HM OR PHIG.TA.HXP.HM
C LH8 CUBIC COLOUR IS HP.LA.HM OR HP.HXM.PHI OR PHIG.TA.PHI OR PHIG.HXP.
	Z LH8=-LL8*Conjg(H(I1))*HH2(I1,I2)*H(I2)*GG*GG
L 4	Id UNIT=1
L 4	Al UNI=1
L 4	Al HL=LA*HA
L 4	Al HT=TA*HB
L 5	Id,Multi,RT12**2=1/2
L 5	Al GG**-2=0
L 5	Al,Commu,LA
L 6	Al,Commu,TA
	*next

Terms in output 22
Running time 9 sec			Used	Maximum
Generated terms 22 	Input space 	934 	100000
Equal terms 0     	Output space 	960 	250000
Cancellations 0   	Nr of expr.  	46 	255
Multiplications 675	String space 	0 	4096
Records written 65 	Merging		0 	0

 
LH8 = 
 + LL8*GG*I*FF
  * ( - 2/5*RT12*PHI*HXM*HP + 2/5*RT12*PHIG*HXP*HM )
 
 + LL8*GG*FF
  * ( - 18/5*RT13*RT15*HB0*PHI*PHIG - 8/5*RT13*RT15*HB0*HM*HP )
 
 + LL8*GG^2
  * ( - 3/10*HB0^2*PHI*PHIG - 2/15*HB0^2*HM*HP - PHI*PHIG*HXM*HXP
  - HXM*HXP*HM*HP )
 
 + LL8*GG^2*I
  * ( - RT12*RT13*RT15*HB0*PHI*HXM*HP + RT12*RT13*RT15*HB0*PHIG*HXP
  *HM )
 
 + LL8*FF^2
  * ( - 18/25*PHI*PHIG - 8/25*HM*HP )
 
 + TA*LL8*GG*FF
  * ( 6/5*HB*PHI*PHIG )
 
 + TA*LL8*GG^2
  * ( 3*RT13*RT15*HB*HB0*PHI*PHIG )
 
 + TA*LL8*GG^2*I
  * ( RT12*HB*PHI*HXM*HP - RT12*HB*PHIG*HXP*HM )
 
 + TA*TA*LL8*GG^2
  * ( - 1/2*HB^2*PHI*PHIG )
 
 + LA*LL8*GG*FF
  * ( - 4/5*HA*HM*HP )
 
 + LA*LL8*GG^2
  * ( - 2*RT13*RT15*HA*HB0*HM*HP )
 
 + LA*LL8*GG^2*I
  * ( RT12*HA*PHI*HXM*HP - RT12*HA*PHIG*HXP*HM )
 
 + LA*LA*LL8*GG^2
  * ( - 1/2*HA^2*HM*HP ) + 0.
 
	B LL9,GG,I,FF
	F HL4,HT4
C LH9 COLOUR IS TR(HXP.HXM.HXP.HXM) = HXP(A,J)*HYM(A,I)*HXP(B,I)*HXM(B,J
	Z LH9=-LL9*GG*GG*HH2(I1,I2)*HH2(I2,I1)
L 2	Id UNIT**2=3
L 2	Al UNI**2=2
L 2	Al GG**-2=0
L 2	Al HL*HL*HL*HL=HL4
L 2	Al HT*HT*HT*HT=HT4
L 2	Al RT13**2=1/3
L 2	Al RT15**2=1/5
L 2	Al,Multi,RT12**2=1/2
L 3	Id UNIT=1
L 3	Al UNI=1
L 3	Al HL*HL*HL=0
L 3	Al HT*HT*HT=0
L 4	Id,Ainbe,HL*HL=2*HA*HA
L 4	Al,Ainbe,HT*HT=2*HB*HB
L 5	Id HL=0
L 5	Al HT=0
	*next

Terms in output 18
Running time 10 sec			Used	Maximum
Generated terms 68 	Input space 	1154 	100000
Equal terms 50     	Output space 	576 	250000
Cancellations 0   	Nr of expr.  	55 	255
Multiplications 4053	String space 	0 	4096
Records written 67 	Merging		0 	0

 
LH9 = 
 + LL9*GG*FF
  * ( - 48/5*RT13*RT15*HA^2*HB0 - 108/5*RT13*RT15*HB^2*HB0
  - 56/5*RT13*RT15*HB0*HXM*HXP - 28/5*RT13*RT15*HB0^3 )
 
 + LL9*GG^2
  * ( - 4/5*HA^2*HB0^2 - 4*HA^2*HXM*HXP - 9/5*HB^2*HB0^2 - 4*HB^2*HXM
  *HXP - 14/15*HB0^2*HXM*HXP - 7/30*HB0^4 - 2*HXM^2*HXP^2 )
 
 + LL9*GG^-1*FF^3
  * ( - 336/25*RT13*RT15*HB0 )
 
 + LL9*FF^2
  * ( - 48/25*HA^2 - 108/25*HB^2 - 84/25*HB0^2 - 56/25*HXM*HXP )
 
 - 1/4*HL4*LL9*GG^2
 
 - 1/4*HT4*LL9*GG^2 + 0.
 
	S LL10,LL11,LL12,LL21,LL23
	B GG,I,HP,HM,PHIG,PHI,HA,HB0,HB,HXP,HXM,MMX
	Z LHA=LH1+LH2+LH3+LH4+LH5+LH6+LH7+LH8+LH9
	   -MMX**2*HXP*HXM
C PART OF GAUGE FIXING TERM
L 2	Id MM2**2=6*RT12/5*FF*MM4-48/5*FF**2*LL7-56/25*FF**2*LL9
L 3	Id MM4=-FF*LL11*RT12/15+4*FF*LL12*RT12/15
L 3	Al LL7=-LL11/32-LL12/48+5*LL10/96
L 3	Al LL9=LL12/8+LL11/8
L 3	Al MM1**2=6*FF*MM3*RT12/5-12*FF**2*LL6/5-18*FF**2*LL8/25+FF**2*LL21
L 4	Id MM3=2*FF*LL8*RT12/5+RT12*FF*LL23-RT12*FF*LL21
L 5	Id,Multi,RT12**2=1/2
> P output
C HIGGS POTENTIAL
	*begin

Terms in output 93
Running time 11 sec			Used	Maximum
Generated terms 220 	Input space 	1196 	100000
Equal terms 105     	Output space 	3578 	250000
Cancellations 22   	Nr of expr.  	43 	255
Multiplications 904	String space 	0 	4096
Records written 69 	Merging		0 	0

 
LHA = 
 + GG*I*HM*PHIG*HXP
  * ( RT12*FF*LL21 - RT12*FF*LL23 )
 
 + GG*I*HP*PHI*HXM
  * ( - RT12*FF*LL21 + RT12*FF*LL23 )
 
 + GG*HA^2*HB0
  * ( - 5/4*RT13*RT15*FF*LL10 - 1/4*RT13*RT15*FF*LL11 - 3/2*RT13*RT15
  *FF*LL12 )
 
 + GG*HB0*HB^2
  * ( - 5/4*RT13*RT15*FF*LL10 - 9/4*RT13*RT15*FF*LL11 - RT13*RT15*FF
  *LL12 )
 
 + GG*HB0*HXP*HXM
  * ( - 5/2*RT13*RT15*FF*LL10 )
 
 + GG*HB0^3
  * ( - 5/4*RT13*RT15*FF*LL10 + 1/60*RT13*RT15*FF*LL11 - 1/15*RT13
  *RT15*FF*LL12 )
 
 + GG*PHIG*PHI*HB0
  * ( - 12*RT13*RT15*FF*LL6 - 3*RT13*RT15*FF*LL8 - 3/2*RT13*RT15*FF
  *LL21 + 3/2*RT13*RT15*FF*LL23 )
 
 + GG*HP*HM*HB0
  * ( - 12*RT13*RT15*FF*LL6 - 2*RT13*RT15*FF*LL8 + RT13*RT15*FF*LL21
   - RT13*RT15*FF*LL23 )
 
 + GG^2*I*HM*PHIG*HB0*HXP
  * ( RT12*RT13*RT15*LL8 )
 
 + GG^2*I*HP*PHI*HB0*HXM
  * ( - RT12*RT13*RT15*LL8 )
 
 + GG^2*HA^2*HB^2
  * ( - 5/48*LL10 + 1/16*LL11 + 1/24*LL12 )
 
 + GG^2*HA^2*HB0^2
  * ( - 5/48*LL10 - 3/80*LL11 - 7/120*LL12 )
 
 + GG^2*HA^2*HXP*HXM
  * ( - 5/24*LL10 - 3/8*LL11 - 5/12*LL12 )
 
 + GG^2*HA^4
  * ( - 5/96*LL10 + 1/32*LL11 + 1/48*LL12 )
 
 + GG^2*HB^2*HXP*HXM
  * ( - 5/24*LL10 - 3/8*LL11 - 5/12*LL12 )
 
 + GG^2*HB^4
  * ( - 5/96*LL10 + 1/32*LL11 + 1/48*LL12 )
 
 + GG^2*HB0^2*HB^2
  * ( - 5/48*LL10 - 13/80*LL11 - 11/60*LL12 )
 
 + GG^2*HB0^2*HXP*HXM
  * ( - 5/24*LL10 + 1/120*LL11 - 1/30*LL12 )
 
 + GG^2*HB0^4
  * ( - 5/96*LL10 + 1/480*LL11 - 1/120*LL12 )
 
 + GG^2*PHIG*PHI*HA^2
  * ( - LL6 )
 
 + GG^2*PHIG*PHI*HB^2
  * ( - LL6 )
 
 + GG^2*PHIG*PHI*HB0^2
  * ( - LL6 - 3/10*LL8 )
 
 + GG^2*PHIG*PHI*HXP*HXM
  * ( - 2*LL6 - LL8 )
 
 + GG^2*PHIG^2*PHI^2
  * ( - LL5 )
 
 + GG^2*HXP^2*HXM^2
  * ( - 5/24*LL10 - 1/8*LL11 - 1/6*LL12 )
 
 + GG^2*HP*HM*HA^2
  * ( - LL6 )
 
 + GG^2*HP*HM*HB^2
  * ( - LL6 )
 
 + GG^2*HP*HM*HB0^2
  * ( - LL6 - 2/15*LL8 )
 
 + GG^2*HP*HM*PHIG*PHI
  * ( - 2*LL5 )
 
 + GG^2*HP*HM*HXP*HXM
  * ( - 2*LL6 - LL8 )
 
 + GG^2*HP^2*HM^2
  * ( - LL5 )
 
 + HA^2
  * ( - 1/2*FF^2*LL12 )
 
 + HB^2
  * ( - 1/2*FF^2*LL11 )
 
 + HB0^2
  * ( - 1/2*FF^2*LL10 )
 
 + PHIG*PHI
  * ( - FF^2*LL21 )
 
 - HXP*HXM*MMX^2
 
 + HP*HM
  * ( - FF^2*LL23 )
 
 + TA*GG*PHIG*PHI*HB
  * ( FF*LL8 + 1/2*FF*LL21 - 1/2*FF*LL23 )
 
 + TA*GG^2*I*HM*PHIG*HB*HXP
  * ( - RT12*LL8 )
 
 + TA*GG^2*I*HP*PHI*HB*HXM
  * ( RT12*LL8 )
 
 + TA*GG^2*PHIG*PHI*HB0*HB
  * ( 3*RT13*RT15*LL8 )
 
 + TA*TA*GG^2*PHIG*PHI*HB^2
  * ( - 1/2*LL8 )
 
 + LA*GG*HP*HM*HA
  * ( - FF*LL8 + 1/2*FF*LL21 - 1/2*FF*LL23 )
 
 + LA*GG^2*I*HM*PHIG*HA*HXP
  * ( - RT12*LL8 )
 
 + LA*GG^2*I*HP*PHI*HA*HXM
  * ( RT12*LL8 )
 
 + LA*GG^2*HP*HM*HA*HB0
  * ( - 2*RT13*RT15*LL8 )
 
 + LA*LA*GG^2*HP*HM*HA^2
  * ( - 1/2*LL8 )
 
 + HL4*GG^2
  * ( - 1/32*LL11 - 1/32*LL12 )
 
 + HT4*GG^2
  * ( - 1/32*LL11 - 1/32*LL12 ) + 0.
 

Begin. Time 11 sec.
	Common A,E,DIF
C RT12=SQRT(1/2) ETC
C GG = GAUGE COUPLING CONSTANT
C          SUMMATION CONVENTIONS
C UNIT = 3 BY 3 UNIT MATRIX
C UNI= 2 BY 2 MATRIX
C LG(MU)=LAMBDA(A)*GL(A,MU)
C TB(MU)=TAU(A)*B(A,MU)
C LDIFF(GL)=LAMBDA(A)*DIFF(GL(A))
C TDIFF(B)=TAU(A)*DIFF(B(MU))
C FGGDG(MU,NU,RO,SI)=F(A,B,C)*GL(A,MU)*GL(B,NU)*D(RO)*GL(C,SI)
C EBBDB(MU,NU,RO,SI)=Epf(A,B,C)*B(A,MU)*B(B,NU)*D(RO)*B(C,SI)
C FGGL(MU,NU)=F(A,B,C)*GL(A,MU)*GL(B,NU)*LAMBDA(C)
C EBBT(MU,NU)=Epf(A,B,C)*B(A,MU)*B(B,NU)*TAU(C)
C F2G4(MU,NU,RO,SI)=F(A,B,E)*F(C,D,E)*GL(A,MU)*GL(B,NU)*GL(C,RO)*GL(D,SI
C E2B4(MU,NU,RO,SI)=Epf(A,B,E)*Epf(C,D,E)*B(A,MU)*B(B,NU)*B(C,RO)*B(D,SI
C E2B4(MU,NU,MU,NU)=B(I,MU)*B(I,MU)*B(J,NU)*B(J,NU)-B(I,MU)*B(I,NU)*B(J,
C    B(J,NU)
C XXXX=XP(A,I,MU)*XM(A,J,NU)*XP(B,J,NU)*XM(B,I,MU)
C XP.XP*XM.XM=XP(A,I,MU)*XM(A,J,NU)*XP(B,J,MU)*XM(B,I,NU)
C (XP.XM)**2=XP(A,I,MU)*XM(A,J,MU)*XP(B,J,NU)*XM(B,I,NU)
	B GG
	S GG,UNIT,RT12,RT13,RT15,UNI
	I MU1,MU2,MU3,MU4,I1=3,I2=3,I3=3,I4=3
	V GL,B,B0,XM,XP
	F XXXX,DIFF,LDIFF,TDIFF,LG,TB,FGGDG,EBBDB,FGGL,EBBT,F2G4,E2B4,MX=c
	Oldnew MXC=PX
	Z DIF(MU1,MU2,I1,I2)=-I*RT12*(
	   +DIFF(MU1,XM,MU2)*D(I1,1)*D(I2,2)
	   +DIFF(MU1,XP,MU2)*D(I1,2)*D(I2,1)
	   +(RT12*LDIFF(MU1,GL,MU2)+UNIT*2*RT12*RT13*RT15*DIFF(MU1,B0,MU2))
	   *D(I1,1)*D(I2,1)
	   +(RT12*TDIFF(MU1,B,MU2)-UNI*3*RT12*RT13*RT15*DIFF(MU1,B0,MU2))
	   *D(I1,2)*D(I2,2))
L 3	Id RT12**2=1/2
	*next

Terms in output 6
Running time 11 sec			Used	Maximum
Generated terms 6 	Input space 	662 	100000
Equal terms 0     	Output space 	352 	250000
Cancellations 0   	Nr of expr.  	36 	255
Multiplications 25	String space 	0 	4096
Records written 69 	Merging		0 	0

 
DIF(MU1,MU2,I1,I2) = 
 + DIFF(MU1,B0,MU2)*D(I1,1)*D(I2,1)
  * ( - I*UNIT*RT13*RT15 )
 
 + DIFF(MU1,B0,MU2)*D(I1,2)*D(I2,2)
  * ( 3/2*I*RT13*RT15*UNI )
 
 + DIFF(MU1,XM,MU2)*D(I1,1)*D(I2,2)
  * ( - I*RT12 )
 
 + DIFF(MU1,XP,MU2)*D(I1,2)*D(I2,1)
  * ( - I*RT12 )
 
 + LDIFF(MU1,GL,MU2)*D(I1,1)*D(I2,1)
  * ( - 1/2*I )
 
 + TDIFF(MU1,B,MU2)*D(I1,2)*D(I2,2)
  * ( - 1/2*I ) + 0.
 
	Z A(MU1,I1,I2)=DIF(MU2,MU1,I1,I2)
L 2	Id DIFF(MU1~,XM,MU2~)=MX(MU2)
L 2	Al DIFF(MU1~,XP,MU2~)=PX(MU2)
L 2	Al LDIFF(MU1~,GL,MU2~)=LG(MU2)
L 2	Al TDIFF(MU1~,B,MU2~)=TB(MU2)
L 3	Id DIFF(MU1~,B0~,MU2~)=B0(MU2)
	*next

Terms in output 6
Running time 12 sec			Used	Maximum
Generated terms 6 	Input space 	584 	100000
Equal terms 0     	Output space 	324 	250000
Cancellations 0   	Nr of expr.  	42 	255
Multiplications 43	String space 	0 	4096
Records written 122 	Merging		0 	0

 
A(MU1,I1,I2) = 
 + D(I1,1)*D(I2,1)*B0(MU1)
  * ( - I*UNIT*RT13*RT15 )
 
 + D(I1,2)*D(I2,2)*B0(MU1)
  * ( 3/2*I*RT13*RT15*UNI )
 
 + LG(MU1)*D(I1,1)*D(I2,1)
  * ( - 1/2*I )
 
 + TB(MU1)*D(I1,2)*D(I2,2)
  * ( - 1/2*I )
 
 + MX(MU1)*D(I1,1)*D(I2,2)
  * ( - I*RT12 )
 
 + PX(MU1)*D(I1,2)*D(I2,1)
  * ( - I*RT12 ) + 0.
 
	B GG
	Z E(I1,I3)=GG*(A(MU1,I1,I2)*A(MU2,I2,I3)-A(MU2,I1,I2)*A(MU1,I2,I3))
	*yep

Terms in output 24
Running time 13 sec			Used	Maximum
Generated terms 36 	Input space 	434 	100000
Equal terms 6     	Output space 	1360 	250000
Cancellations 6   	Nr of expr.  	40 	255
Multiplications 581	String space 	0 	4096
Records written 175 	Merging		0 	0

L 1	Id,Multi,RT12**2=1/2
L 1	Al LG(MU1)*LG(MU2)=LG(MU2)*LG(MU1)+2*I*FGGL(MU1,MU2)
L 1	Al TB(MU1)*TB(MU2)=TB(MU2)*TB(MU1)+2*I*EBBT(MU1,MU2)
L 1	Al UNIT**N~=UNIT**N/UNIT
L 1	Al UNI**N~=UNI**N/UNI
	*next

Terms out 24, in 24.

Terms in output 18
Running time 13 sec			Used	Maximum
Generated terms 26 	Input space 	468 	100000
Equal terms 6     	Output space 	1108 	250000
Cancellations 2   	Nr of expr.  	39 	255
Multiplications 80	String space 	0 	4096
Records written 175 	Merging		0 	0

 
E(I1,I3) = 
 + LG(MU1)*MX(MU2)*D(I1,1)*D(I3,2)*GG
  * ( - 1/2*RT12 )
 
 + LG(MU2)*MX(MU1)*D(I1,1)*D(I3,2)*GG
  * ( 1/2*RT12 )
 
 + TB(MU1)*PX(MU2)*D(I1,2)*D(I3,1)*GG
  * ( - 1/2*RT12 )
 
 + TB(MU2)*PX(MU1)*D(I1,2)*D(I3,1)*GG
  * ( 1/2*RT12 )
 
 + FGGL(MU1,MU2)*D(I1,1)*D(I3,1)*GG
  * ( - 1/2*I )
 
 + EBBT(MU1,MU2)*D(I1,2)*D(I3,2)*GG
  * ( - 1/2*I )
 
 + MX(MU1)*D(I1,1)*D(I3,2)*B0(MU2)*GG
  * ( 5/2*RT12*RT13*RT15 )
 
 + MX(MU1)*TB(MU2)*D(I1,1)*D(I3,2)*GG
  * ( - 1/2*RT12 )
 
 - 1/2*MX(MU1)*PX(MU2)*D(I1,1)*D(I3,1)*GG
 
 + MX(MU2)*D(I1,1)*D(I3,2)*B0(MU1)*GG
  * ( - 5/2*RT12*RT13*RT15 )
 
 + MX(MU2)*TB(MU1)*D(I1,1)*D(I3,2)*GG
  * ( 1/2*RT12 )
 
 + 1/2*MX(MU2)*PX(MU1)*D(I1,1)*D(I3,1)*GG
 
 + PX(MU1)*D(I1,2)*D(I3,1)*B0(MU2)*GG
  * ( - 5/2*RT12*RT13*RT15 )
 
 + PX(MU1)*LG(MU2)*D(I1,2)*D(I3,1)*GG
  * ( - 1/2*RT12 )
 
 - 1/2*PX(MU1)*MX(MU2)*D(I1,2)*D(I3,2)*GG
 
 + PX(MU2)*D(I1,2)*D(I3,1)*B0(MU1)*GG
  * ( 5/2*RT12*RT13*RT15 )
 
 + PX(MU2)*LG(MU1)*D(I1,2)*D(I3,1)*GG
  * ( 1/2*RT12 )
 
 + 1/2*PX(MU2)*MX(MU1)*D(I1,2)*D(I3,2)*GG + 0.
 
	B GG
	Z ZG0=DIF(MU1,MU2,I1,I2)*DIF(MU1,MU2,I2,I1)
	Z ZG00=-DIF(MU1,MU1,I1,I2)*DIF(MU2,MU2,I2,I1)
C ZG00=0 WHEN THE GAUGE FIXING TERM IS ADDED
	Z ZG1=2*E(I1,I2)*DIF(MU1,MU2,I2,I1)
	Z ZG2=E(I1,I2)*E(I2,I1)/2
	*yep

Terms in output 128
Running time 14 sec			Used	Maximum
Generated terms 134 	Input space 	528 	100000
Equal terms 6     	Output space 	7568 	250000
Cancellations 0   	Nr of expr.  	44 	255
Multiplications 3800	String space 	0 	4096
Records written 177 	Merging		0 	0

L 1	Id UNIT**N~=UNIT**N/UNIT
L 1	Al UNI**N~=UNI**N/UNI
L 1	Al RT12**2=1/2
L 1	Al RT13**2=1/3
L 1	Al RT15**2=1/5
	Sum MU1,MU2
L 2	Id,Ainbe,LG(MU1~)*LG(MU2~)=2*GL(MU1)*GL(MU2)
L 2	Al,Ainbe,TB(MU1~)*TB(MU2~)=2*B(MU1)*B(MU2)
L 2	Al LDIFF(MU1~,GL,MU2~)*LDIFF(MU3~,GL,MU4~)=2*DIFF(MU1,GL,MU2)*DIFF(MU3,
	   GL,MU4)
L 2	Al TDIFF(MU1~,B,MU2~)*TDIFF(MU3~,B,MU4~)=2*DIFF(MU1,B,MU2)*DIFF(MU3,B,
	   MU4)
L 2	Al FGGL(MU1~,MU2~)*LDIFF(MU3~,GL,MU4~)=2*FGGDG(MU1,MU2,MU3,MU4)
L 2	Al EBBT(MU1~,MU2~)*TDIFF(MU3~,B,MU4~)=2*EBBDB(MU1,MU2,MU3,MU4)
L 2	Al FGGL(MU1~,MU2~)*FGGL(MU3~,MU4~)=2*F2G4(MU1,MU2,MU3,MU4)
L 2	Al EBBT(MU1~,MU2~)*EBBT(MU3~,MU4~)=2*E2B4(MU1,MU2,MU3,MU4)
L 3	Id FGGL(MU1~,MU2~)=0
L 3	Al EBBT(MU1~,MU2~)=0
L 3	Al LG(MU1~)=0
L 3	Al TB(MU1~)=0
L 3	Al LDIFF(MU1~,GL,MU2~)=0
L 3	Al TDIFF(MU1~,B,MU2~)=0
L 3	Al UNIT=3
L 3	Al UNI=2
	*yep

Terms out 128, in 128.

Terms in output 38
Running time 15 sec			Used	Maximum
Generated terms 54 	Input space 	1308 	100000
Equal terms 16     	Output space 	1916 	250000
Cancellations 0   	Nr of expr.  	59 	255
Multiplications 688	String space 	0 	4096
Records written 177 	Merging		0 	0

	B GG,B0DB0,BDB,GLDGL,XPDXM,XMDXM,XPDXP
L 1	Id PX(MU1~)*MX(MU2~)*PX(MU2~)*MX(MU1~)=XXXX
L 2	Id MX(MU1~)=XM(MU1)
L 2	Al PX(MU1~)=XP(MU1)
L 3	Id,Commu,DIFF
C -1/4*F(MU,NU,A)*F(MU,NU,A)
C ZG0+ZG1+ZG2=-1/4*F(MU,NU)**2   + PART OF GAUGE FIXING
	*begin

Terms out 38, in 38.

Terms in output 28
Running time 15 sec			Used	Maximum
Generated terms 38 	Input space 	380 	100000
Equal terms 10     	Output space 	1316 	250000
Cancellations 0   	Nr of expr.  	44 	255
Multiplications 182	String space 	0 	4096
Records written 177 	Merging		0 	0

 
ZG0 = 
 - 1/2*DIFF(Naa,GL,Nab)*DIFF(Naa,GL,Nab)
 
 - 1/2*DIFF(Naa,B,Nab)*DIFF(Naa,B,Nab)
 
 - 1/2*DIFF(Naa,B0,Nab)*DIFF(Naa,B0,Nab)
 
 - DIFF(Naa,XM,Nab)*DIFF(Naa,XP,Nab)
 
ZG00 = 
 + 1/2*DIFF(Naa,GL,Naa)*DIFF(Nab,GL,Nab)
 
 + 1/2*DIFF(Naa,B,Naa)*DIFF(Nab,B,Nab)
 
 + 1/2*DIFF(Naa,B0,Naa)*DIFF(Nab,B0,Nab)
 
 + 1/2*DIFF(Naa,XM,Naa)*DIFF(Nab,XP,Nab)
 
 + 1/2*DIFF(Naa,XP,Naa)*DIFF(Nab,XM,Nab)
 
ZG1 = 
 + DIFF(B0,XM,XP)*GG
  * ( - 5/2*I*RT13*RT15 )
 
 + DIFF(B0,XP,XM)*GG
  * ( 5/2*I*RT13*RT15 )
 
 + DIFF(XM,B0,XP)*GG
  * ( 5/2*I*RT13*RT15 )
 
 + DIFF(XM,XP,B0)*GG
  * ( - 5/2*I*RT13*RT15 )
 
 + DIFF(XP,B0,XM)*GG
  * ( - 5/2*I*RT13*RT15 )
 
 + DIFF(XP,XM,B0)*GG
  * ( 5/2*I*RT13*RT15 )
 
 - FGGDG(Naa,Nab,Naa,Nab)*GG
 
 - EBBDB(Naa,Nab,Naa,Nab)*GG
 
ZG2 = 
 + GG^2
  * ( 1/2*GLDXM*GLDXP + 1/2*BDXM*BDXP + 5/12*B0DXM*B0DXP )
 
 - 1/2*GG^2*GLDGL*XMDXP
 
 - 1/2*GG^2*BDB*XMDXP
 
 - 5/12*GG^2*B0DB0*XMDXP
 
 + 1/2*GG^2*XMDXM*XPDXP
 
 - 1/4*GG^2*XMDXP^2
 
 - 1/4*XXXX*GG^2
 
 - 1/4*F2G4(Naa,Nab,Naa,Nab)*GG^2
 
 - 1/4*E2B4(Naa,Nab,Naa,Nab)*GG^2 + 0.
 

Begin. Time 15 sec.
	B I,GG,RT12,RT13,RT15
C THERE IS IMPLICIT LA IN G(1,GL) AND TA IN G(1,B)
	S GG,RT12,RT13,RT15,T
	I I1=5,I2=5,I3=5
	V GL,B,B0,XM,XP,K
	F CH
	F C=c,Cc=c,L=c,UPB=c,DNB=c,ELB=c,UDB=c,ENB=c
	Oldnew CC=CG,Cc=CC,CcC=CCG
	Oldnew LC=R,UPBC=UP,DNBC=DN,ELBC=EL,UDBC=UD,ENBC=EN
	X ASLSH(I1,I2)=-I*RT12*(G(1,XM)*(D(I1,1)+D(I1,2))*(D(I2,4)+D(I2,5))
	   +G(1,XP)*(D(I1,4)+D(I1,5))*(D(I2,1)+D(I2,2)))
	   -I/2*((G(1,GL)+2*RT13*RT15*G(1,B0))*D(I1,1)*D(I2,1)
	   +(-2*G(1,GL)+2*RT13*RT15*G(1,B0))*D(I1,2)*D(I2,2)
	   +(G(1,B)-3*RT13*RT15*G(1,B0))*D(I1,4)*D(I2,4)
	   +(-2*G(1,B)-3*RT13*RT15*G(1,B0))*D(I1,5)*D(I2,5))
	X DSLSH(T,I1,I2)=I*G(1,K)*D(I1,I2)+T*GG*ASLSH(I1,I2)
	X MM(I1,I2,L,CC,C)=RT12*(
	   C(L,UP  )*(D(I1,1)*D(I2,2)-D(I1,2)*D(I2,1))*Epf(1,2,3)
	   +CC(L,UD)*(D(I1,1)*D(I2,4)-D(I1,4)*D(I2,1))
	  +C(L,EL  )*(D(I1,4)*D(I2,5)-D(I1,5)*D(I2,4))*Epf(1,2))
	X M(I1,I2)=MM(I1,I2,L,CC,C)
	X MB(I1,I2)=Conjg(MM(I2,I1,L,CC,C))
	X P(I1)=CC(R,DN)*D(I1,1)+C(R,EN)*D(I1,4)
	X PB(I1)=Conjg(P(I1))
	Z LGRN1=
	   -PB(I1)*DSLSH(1,I1,I2)*P(I2)
	Z LGRN2=
	   -MB(I1,I2)*DSLSH(2,I2,I3)*M(I3,I1)
	*yep

Terms in output 22
Running time 16 sec			Used	Maximum
Generated terms 30 	Input space 	2296 	100000
Equal terms 8     	Output space 	1636 	250000
Cancellations 0   	Nr of expr.  	44 	255
Multiplications 2520	String space 	0 	4096
Records written 177 	Merging		0 	0

L 1	Id,Multi,RT12**2=1/2
L 1	Al Epf(1,2,3)*Epf(1,2,3)=-1
L 1	Al Epf(1,2)*Epf(1,2)=-1
L 1	Al CG(R~,DN~)*G(1,K )*C(L~,EL~)= Conjg(EL)*L*G(1,K)*R*Conjg(DN)
L 3	Id CG(R~,DN~)*G(1,K~)*C(L~,EL~)=-Conjg(EL)*L*G(1,K)*R*Conjg(DN)
L 5	Id CC(L~,EL~)=L*EL
L 5	Al CCG(R~,ELB~)=ELB*R
L 5	Al C(L~,EL~)=L*CH*EL
L 5	Al CG(R~,ELB~)=ELB*CH*R
	*yep

Terms out 22, in 22.

Terms in output 22
Running time 16 sec			Used	Maximum
Generated terms 22 	Input space 	2488 	100000
Equal terms 0     	Output space 	1512 	250000
Cancellations 0   	Nr of expr.  	47 	255
Multiplications 201	String space 	0 	4096
Records written 177 	Merging		0 	0

L 1	Id,Adiso,L*G(1,K)*R=G(1,K)
L 2	Id L*G(1,B~)*R=G(1,B)*R
L 2	Al R*G(1,B~)*L=G(1,B)*L
> P output
C FERMION KINETIC TERMS
C   AND FERMION INTERACTIONS WITH GAUGE FIELD
	*yep

Terms out 22, in 22.

Terms in output 22
Running time 16 sec			Used	Maximum
Generated terms 22 	Input space 	1804 	100000
Equal terms 0     	Output space 	1404 	250000
Cancellations 0   	Nr of expr.  	39 	255
Multiplications 110	String space 	0 	4096
Records written 177 	Merging		0 	0

 
LGRN1 = 
 + 1/2*DNB*G(1,GL)*R*DN*I*GG
 
 + DNB*G(1,B0)*R*DN*I*GG*RT13*RT15
 
 + DNB*G(1,XM)*R*CH*EN*I*GG*RT12
 
 - DNB*G(1,K)*DN*I
 
 - 1/2*ENB*G(1,B)*L*EN*I*GG
 
 + 3/2*ENB*G(1,B0)*L*EN*I*GG*RT13*RT15
 
 - ENB*G(1,K)*EN*I
 
 + ENB*CH*G(1,XP)*R*DN*I*GG*RT12
 
LGRN2 = 
 + 1/2*UPB*G(1,GL)*R*UP*I*GG
 
 - 2*UPB*G(1,B0)*R*UP*I*GG*RT13*RT15
 
 - UPB*G(1,K)*UP*I
 
 - UPB*CH*G(1,XM)*L*UD*Epf(1,2,3)*I*GG*RT12
 
 + 1/2*ELB*G(1,B)*R*EL*I*GG
 
 + 3*ELB*G(1,B0)*R*EL*I*GG*RT13*RT15
 
 - ELB*G(1,K)*EL*I
 
 + ELB*CH*G(1,XP)*L*UD*Epf(1,2)*I*GG*RT12
 
 + 1/2*UDB*G(1,GL)*L*UD*I*GG
 
 + 1/2*UDB*G(1,B)*L*UD*I*GG
 
 - 1/2*UDB*G(1,B0)*L*UD*I*GG*RT13*RT15
 
 - UDB*G(1,XM)*L*CH*EL*Epf(1,2)*I*GG*RT12
 
 + UDB*G(1,XP)*L*CH*UP*Epf(1,2,3)*I*GG*RT12
 
 - UDB*G(1,K)*UD*I + 0.
 
L 1	Id L=G6(1)/2
L 1	Al R=G7(1)/2
	*begin

Terms out 22, in 22.

Terms in output 22
Running time 16 sec			Used	Maximum
Generated terms 22 	Input space 	1684 	100000
Equal terms 0     	Output space 	1438 	250000
Cancellations 0   	Nr of expr.  	38 	255
Multiplications 95	String space 	0 	4096
Records written 177 	Merging		0 	0

 
LGRN1 = 
 + 1/4*DNB*G(1,GL)*G7(1)*DN*I*GG
 
 + 1/2*DNB*G(1,B0)*G7(1)*DN*I*GG*RT13*RT15
 
 + 1/2*DNB*G(1,XM)*G7(1)*CH*EN*I*GG*RT12
 
 - DNB*G(1,K)*DN*I
 
 - 1/4*ENB*G(1,B)*G6(1)*EN*I*GG
 
 + 3/4*ENB*G(1,B0)*G6(1)*EN*I*GG*RT13*RT15
 
 - ENB*G(1,K)*EN*I
 
 + 1/2*ENB*CH*G(1,XP)*G7(1)*DN*I*GG*RT12
 
LGRN2 = 
 + 1/4*UPB*G(1,GL)*G7(1)*UP*I*GG
 
 - UPB*G(1,B0)*G7(1)*UP*I*GG*RT13*RT15
 
 - UPB*G(1,K)*UP*I
 
 - 1/2*UPB*CH*G(1,XM)*G6(1)*UD*Epf(1,2,3)*I*GG*RT12
 
 + 1/4*ELB*G(1,B)*G7(1)*EL*I*GG
 
 + 3/2*ELB*G(1,B0)*G7(1)*EL*I*GG*RT13*RT15
 
 - ELB*G(1,K)*EL*I
 
 + 1/2*ELB*CH*G(1,XP)*G6(1)*UD*Epf(1,2)*I*GG*RT12
 
 + 1/4*UDB*G(1,GL)*G6(1)*UD*I*GG
 
 + 1/4*UDB*G(1,B)*G6(1)*UD*I*GG
 
 - 1/4*UDB*G(1,B0)*G6(1)*UD*I*GG*RT13*RT15
 
 - 1/2*UDB*G(1,XM)*G6(1)*CH*EL*Epf(1,2)*I*GG*RT12
 
 + 1/2*UDB*G(1,XP)*G6(1)*CH*UP*Epf(1,2,3)*I*GG*RT12
 
 - UDB*G(1,K)*UD*I + 0.
 

Begin. Time 16 sec.
	S HM=c,PHI=c
	Oldnew HMC=HP,PHIC=PHIG
	I I1=5,I2=5
	Z H(I1)=I*HM*D(I1,1)+I*PHI*(D(I1,4)+D(I1,5))
	*next

Terms in output 3
Running time 16 sec			Used	Maximum
Generated terms 3 	Input space 	260 	100000
Equal terms 0     	Output space 	132 	250000
Cancellations 0   	Nr of expr.  	36 	255
Multiplications 6	String space 	0 	4096
Records written 177 	Merging		0 	0

 
H(I1) = + D(I1,1)
  * ( I*HM )
 
 + D(I1,4)
  * ( I*PHI )
 
 + D(I1,5)
  * ( I*PHI ) + 0.
 
C EN*Epf(1,2)*PHIG=Epf(I1,I2)*EN(I1)*PHIG(I2)
C ENB*Epf(1,2)*PHI=Epf(I1,I2)*PHI(I1)*ENB(I2)
	S RT12,L2
	B L2,I,RT12,HM,HP,PHI,PHIG
	F CH
	F C=c,Cc=c,L=c,UPB=c,DNB=c,ELB=c,UDB=c,ENB=c
	Oldnew CC=CG,Cc=CC,CcC=CCG
	Oldnew LC=R,UPBC=UP,DNBC=DN,ELBC=EL,UDBC=UD,ENBC=EN
	X MM(I1,I2,L,CC,C)=RT12*(
	   -C(L,UP)*(D(I1,1)*D(I2,3)-D(I1,3)*D(I2,1))*Epf(3,2,1)
	   +CC(L,UD)*(D(I1,1)*D(I2,4)-D(I1,4)*D(I2,1))
	  +C(L,EL  )*(D(I1,4)*D(I2,5)-D(I1,5)*D(I2,4))*Epf(1,2))
	X P(I1)=CC(R,DN)*(D(I1,1)+D(I1,3))+C(R,EN)*D(I1,4)
	X PB(I1)=Conjg(P(I1))
	X M(I1,I2)=MM(I1,I2,L,CC,C)
	X MB(I1,I2)=Conjg(MM(I2,I1,L,CC,C))
	Z Z=-L2*(H(I1)*MB(I1,I2)*P(I2)+PB(I1)*M(I1,I2)*Conjg(H(I2)))
	*yep

Terms in output 8
Running time 17 sec			Used	Maximum
Generated terms 8 	Input space 	1462 	100000
Equal terms 0     	Output space 	548 	250000
Cancellations 0   	Nr of expr.  	42 	255
Multiplications 500	String space 	0 	4096
Records written 232 	Merging		0 	0

L 1	Al CG(R~,UP~)*C(L~,EL~)=Conjg(EL)*L*R*Conjg(UP)
L 3	Id CC(L~,EL~)=L*EL
L 3	Al CCG(R~,ELB~)=ELB*R
L 3	Al C(L~,EL~)=L*CH*EL
L 3	Al CG(R~,ELB~)=ELB*CH*R
L 4	Id R*R=R
L 4	Al L*L=L
> P output
C FERMION HIGGS COUPLING 2
	*yep

Terms out 8, in 8.

Terms in output 8
Running time 18 sec			Used	Maximum
Generated terms 8 	Input space 	1458 	100000
Equal terms 0     	Output space 	532 	250000
Cancellations 0   	Nr of expr.  	45 	255
Multiplications 82	String space 	0 	4096
Records written 232 	Merging		0 	0

 
Z = 
 - UPB*CH*R*DN*Epf(1,2,3)*L2*I*RT12*HM
 
 - DNB*L*CH*UP*Epf(1,2,3)*L2*I*RT12*HP
 
 + DNB*L*UD*L2*I*RT12*PHIG
 
 + ELB*L*EN*Epf(1,2)*L2*I*RT12*PHIG
 
 + UDB*R*CH*EN*L2*I*RT12*HM
 
 - UDB*R*DN*L2*I*RT12*PHI
 
 - ENB*CH*L*UD*L2*I*RT12*HP
 
 + ENB*R*EL*Epf(1,2)*L2*I*RT12*PHI + 0.
 
L 1	Id L=G6(1)/2
L 1	Al R=G7(1)/2
	*begin

Terms out 8, in 8.

Terms in output 8
Running time 18 sec			Used	Maximum
Generated terms 8 	Input space 	892 	100000
Equal terms 0     	Output space 	548 	250000
Cancellations 0   	Nr of expr.  	38 	255
Multiplications 40	String space 	0 	4096
Records written 232 	Merging		0 	0

 
Z = 
 - 1/2*UPB*CH*G7(1)*DN*Epf(1,2,3)*L2*I*RT12*HM
 
 - 1/2*DNB*G6(1)*CH*UP*Epf(1,2,3)*L2*I*RT12*HP
 
 + 1/2*DNB*G6(1)*UD*L2*I*RT12*PHIG
 
 + 1/2*ELB*G6(1)*EN*Epf(1,2)*L2*I*RT12*PHIG
 
 + 1/2*UDB*G7(1)*CH*EN*L2*I*RT12*HM
 
 - 1/2*UDB*G7(1)*DN*L2*I*RT12*PHI
 
 + 1/2*ENB*G7(1)*EL*Epf(1,2)*L2*I*RT12*PHI
 
 - 1/2*ENB*CH*G6(1)*UD*L2*I*RT12*HP + 0.
 

Begin. Time 18 sec.
	S HM=c,PHI=c
	Oldnew HMC=HP,PHIC=PHIG
	I I1=5,I2=5,I3=5,I4=5,I5=5
	Z H(I1)=I*HM*D(I1,1)+I*PHI*D(I1,4)
	*next

Terms in output 2
Running time 18 sec			Used	Maximum
Generated terms 2 	Input space 	166 	100000
Equal terms 0     	Output space 	88 	250000
Cancellations 0   	Nr of expr.  	34 	255
Multiplications 2	String space 	0 	4096
Records written 232 	Merging		0 	0

 
H(I1) = + D(I1,1)
  * ( I*HM )
 
 + D(I1,4)
  * ( I*PHI ) + 0.
 
	S RT12,L1
	B L1,I,RT12,HM,HP,PHI,PHIG
	F CH
	F C=c,Cc=c,L=c,UPB=c,UDB=c,ELB=c
	Oldnew CC=CG,Cc=CC,CcC=CCG
	Oldnew LC=R,UPBC=UP,UDBC=UD,ELBC=EL
	X MM(I1,I2,L,CC,C)=RT12*(
	   C(L,UP  )*(D(I1,1)*D(I2,2)-D(I1,2)*D(I2,1))
	  +C(L,UP  )*(D(I1,2)*D(I2,3)-D(I1,3)*D(I2,2))
	  +CC(L,UD  )*(D(I1,2)*D(I2,4)-D(I1,4)*D(I2,2))*Epf(3,2,1)*Epf(2,1)
	 /2
	  +CC(L,UD  )*(D(I1,3)*D(I2,5)-D(I1,5)*D(I2,3))
	  +C(L,EL  )*(D(I1,4)*D(I2,5)-D(I1,5)*D(I2,4)))
	X M(I1,I2)=MM(I1,I2,L,CC,C)
	X MC(I1,I2)=MM(I1,I2,R,C,CC)
	X MB(I1,I2)=Conjg(MM(I2,I1,L,CC,C))
	X MCB(I1,I2)=Conjg(MM(I2,I1,R,C,CC))
	Z Z=-L1*Epf(I1,I2,I3,I4,I5)*
	   (MCB(I1,I2)*M(I3,I4)*H(I5)+MB(I1,I2)*MC(I3,I4)*Conjg(H(I5)))
	*yep

Terms in output 10
Running time 19 sec			Used	Maximum
Generated terms 48 	Input space 	1824 	100000
Equal terms 38     	Output space 	816 	250000
Cancellations 0   	Nr of expr.  	42 	255
Multiplications 2174	String space 	0 	4096
Records written 287 	Merging		0 	0

L 1	Id Epf(1,2,3,4,5)=1
L 1	Al CG(R~,UP~)*C(L~,EL~)=Conjg(EL)*L*R*Conjg(UP)
L 1	Al CCG(R~,UP~)*C(L~,EL)=ELB*L*R*CH*Conjg(UP)
L 1	Al CG(R~,ELB)*CC(L~,UP~)=Conjg(UP)*CH*L*R*EL
L 3	Id CC(L~,EL~)=L*EL
L 3	Al CCG(R~,ELB~)=ELB*R
L 3	Al C(L~,EL~)=L*CH*EL
L 3	Al CG(R~,ELB~)=ELB*CH*R
L 4	Id,Multi,RT12**2=1/2
L 5	Id Epf(1,2,3)*Epf(1,2)=Epf(1,2)*Epf(1,2,3)
L 6	Id R*R=R
L 6	Al L*L=L
> P output
C FERMION HIGGS COUPLING 1
	*yep

Terms out 10, in 10.

Terms in output 6
Running time 19 sec			Used	Maximum
Generated terms 10 	Input space 	2104 	100000
Equal terms 4     	Output space 	388 	250000
Cancellations 0   	Nr of expr.  	50 	255
Multiplications 140	String space 	0 	4096
Records written 287 	Merging		0 	0

 
Z = 
 - 4*UPB*CH*R*EL*L1*I*HP
 
 - 4*UPB*L*UD*L1*I*PHI
 
 - 2*UDB*CH*L*UD*Epf(1,2)*Epf(1,2,3)*L1*I*HM
 
 + 2*UDB*R*CH*UD*Epf(1,2)*Epf(1,2,3)*L1*I*HP
 
 + 4*UDB*R*UP*L1*I*PHIG
 
 + 4*ELB*L*CH*UP*L1*I*HM + 0.
 
L 1	Id L=G6(1)/2
L 1	Al R=G7(1)/2
	*end

Terms out 6, in 6.

Terms in output 6
Running time 19 sec			Used	Maximum
Generated terms 6 	Input space 	1032 	100000
Equal terms 0     	Output space 	400 	250000
Cancellations 0   	Nr of expr.  	38 	255
Multiplications 30	String space 	0 	4096
Records written 287 	Merging		0 	0

 
Z = 
 - 2*UPB*G6(1)*UD*L1*I*PHI
 
 - 2*UPB*CH*G7(1)*EL*L1*I*HP
 
 + UDB*G7(1)*CH*UD*Epf(1,2)*Epf(1,2,3)*L1*I*HP
 
 + 2*UDB*G7(1)*UP*L1*I*PHIG
 
 - UDB*CH*G6(1)*UD*Epf(1,2)*Epf(1,2,3)*L1*I*HM
 
 + 2*ELB*G6(1)*CH*UP*L1*I*HM + 0.
 

End run. Time 20 sec.
Schoonschip, 68000 version of June 27, 1991. Public version.
Date: Sun Dec 12 1993 18:24:19.  Memory: start 0001BCDC, length 476860.


C Varia 8. Lagrangian for SU(5) twice broken to SU(3)*U(1).

C PROGRAM WRITTEN BY MARTIN GREEN, AUGUST 1981.
> P stat
	Common A,DIF,DIFH,CDIFH,DIFHH,F1,F2,DIFZ,DIFZB,ZB,GAUGE
	   ,H,HH,F1B,F0,MZ,HSH,HHHH,HH2
	   ,LH1,LH2,LH3,LH4,LH5,LH6,LH7,LH8,LH9
C RT12=SQRT(1/2) ETC
C GG = GAUGE COUPLING CONSTANT
C UNIT = 3 BY 3 UNIT MATRIX
C          SUMMATION CONVENTIONS
C LG(MU)=LAMBDA(A)*GL(A,MU)
C LDIFF(GL)=LAMBDA(A)*DIFF(GL(A))
> P noutp
	Oldnew i=I
	B GG
	S GG,UNIT,RT12,RT13,RT15
	I MU1,MU2,MU3,MU4,I1=3,I2=3,I3=3,I4=3
	V Z,PH,GL,WP,WM,XM,XP,YM,YP
	F DIFF,LDIFF,LG,MX=c,MY=c
	Oldnew MXC=PX,MYC=PY
C   DIFFERENTIAL OF A(MU)
	Z DIF(MU1,MU2,I1,I2)=-I*RT12*(
	   DIFF(MU1,WP,MU2)*D(I1,2)*D(I2,3)+DIFF(MU1,WM,MU2)*D(I1,3)*D(I2,2)
	   +DIFF(MU1,XM,MU2)*D(I1,1)*D(I2,2)+DIFF(MU1,YM,MU2)*D(I1,1)*D(I2,3)
	   +DIFF(MU1,XP,MU2)*D(I1,2)*D(I2,1)+DIFF(MU1,YP,MU2)*D(I1,3)*D(I2,1)
	 +(RT12*LDIFF(MU1,GL,MU2)+UNIT*DIFF(MU1,Z,MU2)*RT15/2-UNIT*DIFF(MU1,PH,
	   MU2)*RT13/2)*D(I1,1)*D(I2,1)+(DIFF(MU1,Z,MU2)*RT15/2+3*DIFF(MU1,PH,MU
	   2)*RT13/2)*D(I1,2)*D(I2,2)-2*DIFF(MU1,Z,MU2)*RT15*D(I1,3)*D(I2,3))
L 3	Id RT12**2=1/2
	*next

Terms in output 12
Running time 1 sec			Used	Maximum
Generated terms 12 	Input space 	884 	100000
Equal terms 0     	Output space 	708 	250000
Cancellations 0   	Nr of expr.  	10 	255
Multiplications 31	String space 	0 	4096
Records written 0 	Merging		0 	0

C                     A(MU)
	Z A(MU1,I1,I2)=DIF(MU2,MU1,I1,I2)
L 2	Id DIFF(MU1~,XM,MU2~)=MX(MU2)
L 2	Al DIFF(MU1~,XP,MU2~)=PX(MU2)
L 2	Al DIFF(MU1~,YM,MU2~)=MY(MU2)
L 2	Al DIFF(MU1~,YP,MU2~)=PY(MU2)
L 2	Al LDIFF(MU1~,GL,MU2~)=LG(MU2)
L 3	Id DIFF(MU1~,Z~,MU2~)=Z(MU2)
	*next

Terms in output 12
Running time 1 sec			Used	Maximum
Generated terms 12 	Input space 	634 	100000
Equal terms 0     	Output space 	646 	250000
Cancellations 0   	Nr of expr.  	18 	255
Multiplications 85	String space 	0 	4096
Records written 2 	Merging		0 	0

C          SUMMATION CONVENTIONS
C SUMMED COLOUR IS OF THE FORM PX.MY OR PY.MX ETC
C SUMMED COLOUR IN XX IS XP.XM ETC
	B GG,I
	S MMW,MMY,MMX
	S C1,S1,C2,S2
	F HM1=c
	Oldnew HM1C=HP1
	S HB0,HB3
	S XX,YY,HXX,HYY,XHX,YHY,HXHX,HYHY
	S H1Y,H1H1,YH1,H1HY,HYH1
	S HA,HZ,HPH,HWP=c,FF
	S HXM=c,HYM=c
	Oldnew HXMC=HXP,HYMC=HYP
	F HL,HMX=c,HMY=c,LA,FHAGL
	Oldnew HWPC=HWM,HMXC=HPX,HMYC=HPY
C          SUMMATION CONVENTIONS
C HM*HP*YMDYP=YM(MU1,I1)*HP(I1)*YP(MU1,I2)*HM(I2)    I.E.  P.M  ETC
	S HM=c,PHIP=c,F,H0,PHI0
	Oldnew HMC=HP,PHIPC=PHIM
	X HH1(I1,I2)=HMX*D(I1,1)*D(I2,2)+(C1*HMY+S1*HM1)*D(I1,1)*D(I2,3)
	   +(C2*HWP-S2*PHIP)*D(I1,2)*D(I2,3)
C                       HIGGS 24
	Z HH(I1,I2)=-I*HH1(I1,I2)+I*Conjg(HH1(I2,I1))
	   +(HL*RT12+UNIT*(2*HB0*RT12*RT13*RT15+4*RT12*FF/GG/5))*D(I1,1)*D(I2,1)
	   +(HB3*RT12-3*HB0*RT12*RT13*RT15-6*RT12*FF/GG/5)*D(I1,2)*D(I2,2)
	   -(HB3*RT12+3*HB0*RT12*RT13*RT15+6*RT12*FF/GG/5)*D(I1,3)*D(I2,3)
	   +EPS/GG*(D(I1,2)*D(I2,2)-D(I1,3)*D(I2,3))*2*RT12
C                         HIGGS 5
	Z H(I1)=I*(C1*HM-S1*HYM)*D(I1,1)+I*(C2*PHIP+S2*HWP)*D(I1,2)
	   +(H0+2*F/GG-I*PHI0)*RT12*D(I1,3)
	*next

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

	X DIFFH(I1)=I*(C1*DIFF(MU1,HM)-S1*DIFF(MU1,HYM))*D(I1,1)
	   +I*(C2*DIFF(MU1,PHIP)+S2*DIFF(MU1,HWP))*D(I1,2)
	   +(DIFF(MU1,H0)*RT12-I*DIFF(MU1,PHI0)*RT12)*D(I1,3)
	Z DIFH(I1)=DIFFH(I1)+GG*A(MU1,I1,I2)*H(I2)
	Z DIFHH(I1,I2)=GG*A(MU1,I1,I3)*HH(I3,I2)-HH(I1,I3)*A(MU1,I3,I2)*GG
	 -I*DIFF(MU1,HXM)*D(I1,1)*D(I2,2)+DIFF(MU1,HXP)*D(I1,2)*D(I2,1)*I
	   -I*(C1*DIFF(MU1,HYM)+S1*DIFF(MU1,HM))*D(I1,1)*D(I2,3)
	   +I*(C1*DIFF(MU1,HYP)+S1*DIFF(MU1,HP))*D(I1,3)*D(I2,1)
	   -I*(C2*DIFF(MU1,HWP)-S2*DIFF(MU1,PHIP))*D(I1,2)*D(I2,3)
	   +I*(C2*DIFF(MU1,HWM)-S2*DIFF(MU1,PHIM))*D(I1,3)*D(I2,2)
	   +(DIFF(MU1,HL)*RT12+UNIT*UNIT* DIFF(MU1,HB0)*2*RT12*RT13*RT15)
	            *D(I1,1)*D(I2,1)
	   +(DIFF(MU1,HB3)*RT12-3*DIFF(MU1,HB0)*RT12*RT13*RT15)*D(I1,2)*D(I2,2)
	   -(DIFF(MU1,HB3)*RT12+3*DIFF(MU1,HB0)*RT12*RT13*RT15)*D(I1,3)*D(I2,3)
L 3	Id UNIT**N~=UNIT**N/UNIT
L 3	Al,Multi,RT12**2=1/2
L 3	Al RT13**2=1/3
L 3	Al RT15**2=1/5
L 4	Id HL*LG(MU1)=LG(MU1)*HL+2*I*FHAGL*LA
L 5	Id HL=HA*LA
L 5	Al LG(MU1)=GL(MU1)*LA
L 5	Al DIFF(MU1,HL)=DIFF(MU1,HA)*LA
	*next

Terms in output 138
Running time 3 sec			Used	Maximum
Generated terms 214 	Input space 	2202 	100000
Equal terms 49     	Output space 	6636 	250000
Cancellations 27   	Nr of expr.  	27 	255
Multiplications 4866	String space 	0 	4096
Records written 8 	Merging		0 	0

	B GG
	Z CDIFH(I1)=Conjg(DIFH(I1))
L 3	Id WP(MU1)=GL(MU1)
L 4	Id WM(MU1)=WP(MU1)
L 5	Id GL(MU1)=WM(MU1)
	*next

Terms in output 33
Running time 3 sec			Used	Maximum
Generated terms 33 	Input space 	622 	100000
Equal terms 0     	Output space 	1428 	250000
Cancellations 0   	Nr of expr.  	21 	255
Multiplications 222	String space 	0 	4096
Records written 12 	Merging		0 	0

	B GG,I,F,EPS,FFEPS,MMW,MMY
	Z Z=-CDIFH(I1)*DIFH(I1)
	   -DIFHH(I1,I2)*DIFHH(I2,I1)/2
	   -4*F*RT12*RT15*DIFF(Z,PHI0)
	   -(FF-EPS)*(DIFF(XP,HXM)+DIFF(XM,HXP))
	   -MMY*(DIFF(YP,HYM)+DIFF(YM,HYP))
	   -MMW*(DIFF(WM,PHIP)+DIFF(WP,PHIM))
C PART OF GAUGE FIXING TERM
L 3	Id UNIT**2=3
L 3	Al RT13**2=1/3
L 3	Al RT15**2=1/5
L 3	Al,Multi,RT12**2=1/2
L 4	Id UNIT=1
L 4	Al,Ainbe,LA*LA=2
L 5	Id LA=0
L 5	Al S1**2=1-C1*C1
L 5	Al S2**2=1-C2*C2
L 5	Al S2*F=-2*EPS*C2
L 5	Al S1*FF=-EPS*S1-F*C1
L 5	Al S1*F=(FF+EPS)*C1-MMY
L 5	Al S2*EPS=F*C2/2-MMW/2
	*yep

Terms in output 962
Running time 22 sec			Used	Maximum
Generated terms 1500 	Input space 	1620 	100000
Equal terms 464     	Output space 	42916 	250000
Cancellations 74   	Nr of expr.  	34 	255
Multiplications 90826	String space 	0 	4096
Records written 14 	Merging		0 	0

C          SUMMATION CONVENTIONS
L 1	Id MX(MU1)*HPX*MX(MU1)*HPX=HXX**2
L 1	Al MX(MU1)*HPX*HMX*PX(MU1)=HXHX*XX
L 1	Al PX(MU1)*HMX*PX(MU1)*HMX=XHX**2
L 1	Al PX(MU1)*HMX*HPX*MX(MU1)=XHX*HXX
L 1	Al HMX*PX(MU1)*MX(MU1)*HPX=XX*HXHX
L 1	Al HMX*PX(MU1)*HMX*PX(MU1)=XHX**2
L 1	Al HPX*MX(MU1)*PX(MU1)*HMX=HXX*XHX
L 1	Al HPX*MX(MU1)*HPX*MX(MU1)=HXX**2
L 1	Al MY(MU1)*HPY*MY(MU1)*HPY=HYY**2
L 1	Al MY(MU1)*HP1*MY(MU1)*HP1=H1Y**2
L 1	Al MY(MU1)*HP1*MY(MU1)*HPY=HYY*H1Y
L 1	Al MY(MU1)*HPY*MY(MU1)*HP1=HYY*H1Y
L 1	Al MY(MU1)*HPY*HMY*PY(MU1)=HYHY*YY
L 1	Al MY(MU1)*HPY*HM1*PY(MU1)=HYH1*YY
L 1	Al MY(MU1)*HP1*HMY*PY(MU1)=H1HY*YY
L 1	Al MY(MU1)*HP1*HM1*PY(MU1)=H1H1*YY
L 1	Al PY(MU1)*HMY*PY(MU1)*HMY=YHY**2
L 1	Al PY(MU1)*HM1*PY(MU1)*HMY=YHY*YH1
L 1	Al PY(MU1)*HMY*PY(MU1)*HM1=YHY*YH1
L 1	Al PY(MU1)*HM1*PY(MU1)*HM1=YH1**2
L 1	Al PY(MU1)*HMY*HPY*MY(MU1)=YHY*HYY
L 1	Al PY(MU1)*HM1*HPY*MY(MU1)=YH1*HYY
L 1	Al PY(MU1)*HMY*HP1*MY(MU1)=YHY*H1Y
L 1	Al PY(MU1)*HM1*HP1*MY(MU1)=YH1*H1Y
L 1	Al HMY*PY(MU1)*MY(MU1)*HPY=YY*HYHY
L 1	Al HM1*PY(MU1)*MY(MU1)*HP1=YY*H1H1
L 1	Al HM1*PY(MU1)*MY(MU1)*HPY=YY*HYH1
L 1	Al HMY*PY(MU1)*MY(MU1)*HP1=YY*H1HY
L 1	Al HMY*PY(MU1)*HMY*PY(MU1)=YHY**2
L 1	Al HM1*PY(MU1)*HMY*PY(MU1)=YHY*YH1
L 1	Al HMY*PY(MU1)*HM1*PY(MU1)=YHY*YH1
L 1	Al HM1*PY(MU1)*HM1*PY(MU1)=YH1**2
L 1	Al HPY*MY(MU1)*PY(MU1)*HMY=HYY*YHY
L 1	Al HPY*MY(MU1)*PY(MU1)*HM1=HYY*YH1
L 1	Al HP1*MY(MU1)*PY(MU1)*HM1=H1Y*YH1
L 1	Al HP1*MY(MU1)*PY(MU1)*HMY=H1Y*YHY
L 1	Al HPY*MY(MU1)*HPY*MY(MU1)=HYY**2
L 1	Al HP1*MY(MU1)*HPY*MY(MU1)=HYY*H1Y
L 1	Al HPY*MY(MU1)*HP1*MY(MU1)=HYY*H1Y
L 1	Al HP1*MY(MU1)*HP1*MY(MU1)=H1Y**2
	*yep

Terms out 962, in 962.

Terms in output 936
Running time 30 sec			Used	Maximum
Generated terms 962 	Input space 	3038 	100000
Equal terms 26     	Output space 	39944 	250000
Cancellations 0   	Nr of expr.  	55 	255
Multiplications 2020	String space 	0 	4096
Records written 17 	Merging		0 	0

L 1	Id MX(MU1~)=XM(MU1)
L 1	Al PX(MU1~)=XP(MU1)
L 1	Al HMX=HXM
L 1	Al HPX=HXP
L 1	Al MY(MU1~)=YM(MU1)
L 1	Al PY(MU1~)=YP(MU1)
L 1	Al HMY=HYM
L 1	Al HPY=HYP
L 1	Al HM1=HM
L 1	Al HP1=HP
L 1	Al S1=-F/MMY
L 1	Al S2=-2*EPS/MMW
L 1	Al C1=(FF+EPS)/MMY
L 1	Al C2=F/MMW
L 3	Id,Commu,DIFF
L 4	Id FF=FFEPS-EPS
	*yep

Terms out 936, in 936.

Terms in output 520
Running time 35 sec			Used	Maximum
Generated terms 2216 	Input space 	1022 	100000
Equal terms 1119     	Output space 	21230 	250000
Cancellations 577   	Nr of expr.  	38 	255
Multiplications 10849	String space 	0 	4096
Records written 20 	Merging		0 	0

	B GG,I,F,FF
C    THROWING AWAY VERY NEGLIGABLE TERMS
L 1	Id,Count,0,F,-1,EPS,-2,MMW,-1,H0,1,PHI0,1,PHIP,1,PHIM,1
	   ,WM,1,WP,1,Z,1
L 2	Id FFEPS=FF
L 2	Al MMY**N~=FF**N
L 2	Al MMW**N~=F**N
L 2	Al GG**1=GG*GG1
L 3	Id,Count,-2,GG,-1,GG1,-1,F,-1,EPS,-2
L 4	Id GG1=1
C HIGGS KINETIC TERM
	*next

Terms out 520, in 520.

Terms in output 240
Running time 36 sec			Used	Maximum
Generated terms 284 	Input space 	574 	100000
Equal terms 33     	Output space 	8454 	250000
Cancellations 11   	Nr of expr.  	25 	255
Multiplications 2448	String space 	0 	4096
Records written 22 	Merging		0 	0

 
Z = 
 + GG*I*FF
  * ( 2*RT12*RT13*HXM*PHDXP - 2*RT12*RT13*HXP*PHDXM + 1/2*RT12*RT13
  *HYM*PHDYP - 1/2*RT12*RT13*HYP*PHDYM - 5/2*RT12*RT15*HYM*ZDYP
  + 5/2*RT12*RT15*HYP*ZDYM - 2*RT12*HWP*XMDYP + 2*RT12*HWM*XPDYM
  + RT12*HXM*WPDYP - RT12*HXP*WMDYM + RT12*HYM*WMDXP - RT12*HYP*WPDXM )
 
 + GG*FF
  * ( - 5*RT13*RT15*HB0*XMDXP - 5*RT13*RT15*HB0*YMDYP + HB3*XMDXP
  - HB3*YMDYP )
 
 + GG^2
  * ( - 1/4*RT12*RT13*HM*PHI0*PHDYP - 1/4*RT12*RT13*HP*PHI0*PHDYM
  + 3/4*RT12*RT13*PHIP*PHI0*PHDWM + 3/4*RT12*RT13*PHIM*PHI0*PHDWP
  - 3/4*RT12*RT15*HM*PHI0*ZDYP - 3/4*RT12*RT15*HP*PHI0*ZDYM
  - 3/4*RT12*RT15*PHIP*PHI0*ZDWM - 3/4*RT12*RT15*PHIM*PHI0*ZDWP
  + 1/2*RT12*HM*PHI0*WMDXP + 1/2*RT12*HP*PHI0*WPDXM + 1/2*RT12*PHIP
  *PHI0*XMDYP + 1/2*RT12*PHIM*PHI0*XPDYM + 5/2*RT13*RT15*HB0*HB3*XMDXP
   - 5/2*RT13*RT15*HB0*HB3*YMDYP - 15/4*RT13*RT15*HWP*HWM*ZDPH
  + 5/4*RT13*RT15*HYM*HYP*ZDPH + 1/4*RT13*RT15*HM*HP*ZDPH
  - 3/4*RT13*RT15*PHIP*PHIM*ZDPH - 7/4*RT13*HWP*HXM*PHDYP
  - 1/2*RT13*HWP*HYP*PHDXM - 7/4*RT13*HWM*HXP*PHDYM - 1/2*RT13*HWM
  *HYM*PHDXP - 5/4*RT13*HXM*HYP*PHDWP - 5/4*RT13*HXP*HYM*PHDWM
  - 1/2*RT13*HM*PHIM*PHDXP - 1/2*RT13*HP*PHIP*PHDXM - 5/4*RT15*HWP
  *HXM*ZDYP - 5/2*RT15*HWP*HYP*ZDXM - 5/4*RT15*HWM*HXP*ZDYM
  - 5/2*RT15*HWM*HYM*ZDXP + 5/4*RT15*HXM*HYP*ZDWP + 5/4*RT15*HXP*HYM
  *ZDWM - 1/2*RT15*HM*PHIM*ZDXP - 1/2*RT15*HP*PHIP*ZDXM - 5/12*HB0^2
  *XMDXP - 5/12*HB0^2*YMDYP - HB3^2*WPDWM - 1/4*HB3^2*XMDXP
  - 1/4*HB3^2*YMDYP - 1/2*XX*HXHX - 1/2*YY*HYHY - 1/2*HXX*XHX
  - 1/2*HXX^2 - 1/2*HYY*YHY - 1/2*HYY^2 - 1/2*XHX^2 - 1/2*YHY^2
  - 1/2*HA^2*XMDXP - 1/2*HA^2*YMDYP - 5/8*HWP*HWM*ZDZ - 3/8*HWP*HWM
  *PHDPH - HWP*HWM*WPDWM - 1/2*HWP*HWM*XMDXP - 1/2*HWP*HWM*YMDYP
  + 1/2*HWP*HXM*WMDXP + HWP*HXP*WMDXM - HWP*HYM*WMDYP - 1/2*HWP*HYP
  *WMDYM - 1/2*HWP^2*WMDWM + HWM*HXM*WPDXP + 1/2*HWM*HXP*WPDXM
  - 1/2*HWM*HYM*WPDYP - HWM*HYP*WPDYM - 1/2*HWM^2*WPDWP - 2/3*HXM*HXP
  *PHDPH - 1/2*HXM*HXP*GLDGL - 1/2*HXM*HXP*WPDWM - 1/2*HXM*HXP*YMDYP
   - HXM*HYM*XPDYP - 1/2*HXM*HYP*XPDYM - 1/2*HXP*HYM*XMDYP
  - HXP*HYP*XMDYM - 5/8*HYM*HYP*ZDZ - 1/24*HYM*HYP*PHDPH - 1/2*HYM
  *HYP*GLDGL - 1/2*HYM*HYP*WPDWM - 1/2*HYM*HYP*XMDXP - 1/40*HM*HP*ZDZ
   - 1/24*HM*HP*PHDPH - 1/2*HM*HP*GLDWM - 1/2*HM*HP*XMDXP
  - 1/2*HM*HP*YMDYP - 1/2*HM*PHIM*WPDYP - 1/2*HP*PHIP*WMDYM
  - 1/40*PHIP*PHIM*ZDZ - 3/8*PHIP*PHIM*PHDPH - 1/2*PHIP*PHIM*WPDWM
   - 1/2*PHIP*PHIM*XMDXP - 1/5*H0^2*ZDZ - 1/4*H0^2*WPDWM - 1/4*H0^2
  *YMDYP - 1/5*PHI0^2*ZDZ - 1/4*PHI0^2*WPDWM - 1/4*PHI0^2*YMDYP )
 
 + GG^2*I
  * ( - 5*RT12*RT13*RT15*HB0*HWP*XMDYP + 5*RT12*RT13*RT15*HB0*HWM*XPDYM
   + 5/2*RT12*RT13*RT15*HB0*HXM*WPDYP - 5/2*RT12*RT13*RT15*HB0*HXP
  *WMDYM + 5/2*RT12*RT13*RT15*HB0*HYM*WMDXP - 5/2*RT12*RT13*RT15*HB0
  *HYP*WPDXM - 5/4*RT12*RT13*HB0*HYM*ZDYP + 5/4*RT12*RT13*HB0*HYP*ZDYM
   - 3/2*RT12*RT13*HB3*HWP*PHDWM + 3/2*RT12*RT13*HB3*HWM*PHDWP
  - RT12*RT13*HB3*HXM*PHDXP + RT12*RT13*HB3*HXP*PHDXM + 1/4*RT12*RT13
  *HB3*HYM*PHDYP - 1/4*RT12*RT13*HB3*HYP*PHDYM + 1/4*RT12*RT13*HM*H0
  *PHDYP - 1/4*RT12*RT13*HP*H0*PHDYM - 3/4*RT12*RT13*PHIP*H0*PHDWM
   + 3/4*RT12*RT13*PHIM*H0*PHDWP + 5/3*RT12*RT15*HB0*HXM*PHDXP
  - 5/3*RT12*RT15*HB0*HXP*PHDXM + 5/12*RT12*RT15*HB0*HYM*PHDYP
  - 5/12*RT12*RT15*HB0*HYP*PHDYM - 5/2*RT12*RT15*HB3*HWP*ZDWM
  + 5/2*RT12*RT15*HB3*HWM*ZDWP - 5/4*RT12*RT15*HB3*HYM*ZDYP
  + 5/4*RT12*RT15*HB3*HYP*ZDYM + 3/4*RT12*RT15*HM*H0*ZDYP
  - 3/4*RT12*RT15*HP*H0*ZDYM + 3/4*RT12*RT15*PHIP*H0*ZDWM
  - 3/4*RT12*RT15*PHIM*H0*ZDWP + 3/2*RT12*HB3*HXM*WPDYP - 3/2*RT12
  *HB3*HXP*WMDYM - 3/2*RT12*HB3*HYM*WMDXP + 3/2*RT12*HB3*HYP*WPDXM
   - 1/2*RT12*HM*H0*WMDXP + 1/2*RT12*HP*H0*WPDXM - 1/2*RT12*PHIP*H0
  *XMDYP + 1/2*RT12*PHIM*H0*XPDYM - 1/2*HA*HXM*GLDXP + 1/2*HA*HXP*GLDXM
   - 1/2*HA*HYM*GLDYP + 1/2*HA*HYP*GLDYM )
 
 + FF^2
  * ( - XMDXP - YMDYP )
 
 + F^2
  * ( - 4/5*ZDZ - WPDWM )
 
 - 1/2*DIFF(MU1,HB0)*DIFF(MU1,HB0)
 
 - 1/2*DIFF(MU1,HB3)*DIFF(MU1,HB3)
 
 - 1/2*DIFF(MU1,HA)*DIFF(MU1,HA)
 
 - DIFF(MU1,HWP)*DIFF(MU1,HWM)
 
 - DIFF(MU1,HXM)*DIFF(MU1,HXP)
 
 - DIFF(MU1,HYM)*DIFF(MU1,HYP)
 
 - DIFF(MU1,HM)*DIFF(MU1,HP)
 
 - DIFF(MU1,PHIP)*DIFF(MU1,PHIM)
 
 - 1/2*DIFF(MU1,H0)*DIFF(MU1,H0)
 
 - 1/2*DIFF(MU1,PHI0)*DIFF(MU1,PHI0)
 
 + DIFF(Z,HWP)*GG*I
  * ( - 5/2*RT12*RT15*HWM )
 
 + DIFF(Z,HWM)*GG*I
  * ( 5/2*RT12*RT15*HWP )
 
 + DIFF(Z,HYM)*GG*I
  * ( - 5/2*RT12*RT15*HYP )
 
 + DIFF(Z,HYP)*GG*I
  * ( 5/2*RT12*RT15*HYM )
 
 + DIFF(Z,HM)*GG*I
  * ( - 1/2*RT12*RT15*HP )
 
 + DIFF(Z,HP)*GG*I
  * ( 1/2*RT12*RT15*HM )
 
 + DIFF(Z,PHIP)*GG*I
  * ( - 1/2*RT12*RT15*PHIM )
 
 + DIFF(Z,PHIM)*GG*I
  * ( 1/2*RT12*RT15*PHIP )
 
 + DIFF(Z,H0)*GG
  * ( - 2*RT12*RT15*PHI0 )
 
 + DIFF(Z,PHI0)*GG
  * ( 2*RT12*RT15*H0 )
 
 + DIFF(PH,HWP)*GG*I
  * ( - 3/2*RT12*RT13*HWM )
 
 + DIFF(PH,HWM)*GG*I
  * ( 3/2*RT12*RT13*HWP )
 
 + DIFF(PH,HXM)*GG*I
  * ( 2*RT12*RT13*HXP )
 
 + DIFF(PH,HXP)*GG*I
  * ( - 2*RT12*RT13*HXM )
 
 + DIFF(PH,HYM)*GG*I
  * ( 1/2*RT12*RT13*HYP )
 
 + DIFF(PH,HYP)*GG*I
  * ( - 1/2*RT12*RT13*HYM )
 
 + DIFF(PH,HM)*GG*I
  * ( 1/2*RT12*RT13*HP )
 
 + DIFF(PH,HP)*GG*I
  * ( - 1/2*RT12*RT13*HM )
 
 + DIFF(PH,PHIP)*GG*I
  * ( - 3/2*RT12*RT13*PHIM )
 
 + DIFF(PH,PHIM)*GG*I
  * ( 3/2*RT12*RT13*PHIP )
 
 + DIFF(WP,HB3)*GG
  * ( - HWM )
 
 + DIFF(WP,HWM)*GG
  * ( HB3 )
 
 + DIFF(WP,HXM)*GG*I
  * ( RT12*HYP )
 
 + DIFF(WP,HYP)*GG*I
  * ( - RT12*HXM )
 
 + DIFF(WP,PHIM)*GG
  * ( 1/2*H0 )
 
 + DIFF(WP,PHIM)*GG*I
  * ( - 1/2*PHI0 )
 
 + DIFF(WP,H0)*GG
  * ( - 1/2*PHIM )
 
 + DIFF(WP,PHI0)*GG*I
  * ( 1/2*PHIM )
 
 + DIFF(WM,HB3)*GG
  * ( - HWP )
 
 + DIFF(WM,HWP)*GG
  * ( HB3 )
 
 + DIFF(WM,HXP)*GG*I
  * ( - RT12*HYM )
 
 + DIFF(WM,HYM)*GG*I
  * ( RT12*HXP )
 
 + DIFF(WM,PHIP)*GG
  * ( 1/2*H0 )
 
 + DIFF(WM,PHIP)*GG*I
  * ( 1/2*PHI0 )
 
 + DIFF(WM,H0)*GG
  * ( - 1/2*PHIP )
 
 + DIFF(WM,PHI0)*GG*I
  * ( - 1/2*PHIP )
 
 + DIFF(XM,HB0)*GG
  * ( - 5/2*RT13*RT15*HXP )
 
 + DIFF(XM,HB3)*GG
  * ( 1/2*HXP )
 
 + DIFF(XM,HWP)*GG*I
  * ( - RT12*HYP )
 
 + DIFF(XM,HXP)*GG
  * ( 5/2*RT13*RT15*HB0 - 1/2*HB3 )
 
 + DIFF(XM,HYP)*GG*I
  * ( RT12*HWP )
 
 + DIFF(XM,HP)*GG*I
  * ( RT12*PHIP )
 
 + DIFF(XM,PHIP)*GG*I
  * ( - RT12*HP )
 
 + DIFF(XP,HB0)*GG
  * ( - 5/2*RT13*RT15*HXM )
 
 + DIFF(XP,HB3)*GG
  * ( 1/2*HXM )
 
 + DIFF(XP,HWM)*GG*I
  * ( RT12*HYM )
 
 + DIFF(XP,HXM)*GG
  * ( 5/2*RT13*RT15*HB0 - 1/2*HB3 )
 
 + DIFF(XP,HYM)*GG*I
  * ( - RT12*HWM )
 
 + DIFF(XP,HM)*GG*I
  * ( - RT12*PHIM )
 
 + DIFF(XP,PHIM)*GG*I
  * ( RT12*HM )
 
 + DIFF(YM,HB0)*GG
  * ( - 5/2*RT13*RT15*HYP )
 
 + DIFF(YM,HB3)*GG
  * ( - 1/2*HYP )
 
 + DIFF(YM,HWM)*GG*I
  * ( RT12*HXP )
 
 + DIFF(YM,HXP)*GG*I
  * ( - RT12*HWM )
 
 + DIFF(YM,HYP)*GG
  * ( 5/2*RT13*RT15*HB0 + 1/2*HB3 )
 
 + DIFF(YM,HP)*GG
  * ( 1/2*H0 )
 
 + DIFF(YM,HP)*GG*I
  * ( - 1/2*PHI0 )
 
 + DIFF(YM,H0)*GG
  * ( - 1/2*HP )
 
 + DIFF(YM,PHI0)*GG*I
  * ( 1/2*HP )
 
 + DIFF(YP,HB0)*GG
  * ( - 5/2*RT13*RT15*HYM )
 
 + DIFF(YP,HB3)*GG
  * ( - 1/2*HYM )
 
 + DIFF(YP,HWP)*GG*I
  * ( - RT12*HXM )
 
 + DIFF(YP,HXM)*GG*I
  * ( RT12*HWP )
 
 + DIFF(YP,HYM)*GG
  * ( 5/2*RT13*RT15*HB0 + 1/2*HB3 )
 
 + DIFF(YP,HM)*GG
  * ( 1/2*H0 )
 
 + DIFF(YP,HM)*GG*I
  * ( 1/2*PHI0 )
 
 + DIFF(YP,H0)*GG
  * ( - 1/2*HM )
 
 + DIFF(YP,PHI0)*GG*I
  * ( - 1/2*HM )
 
 + FHAGL*DIFF(MU1,HA)*GG
 
 - 1/2*FHAGL*FHAGL*GG^2 + 0.
 
> P noutput
	F ZXM=c,ZXP=c,ZYM=c,ZYP=c,ZWM=c,ZWP=c,ZA=c,ZPH=c,ZZ=c
	Oldnew ZXMC=ZXMG,ZYMC=ZYMG,ZYPC=ZYPG,ZWMC=ZWMG,ZWPC=ZWPG,ZAC=ZAG,ZPHC=ZPHG
	Oldnew ZZC=ZZG,ZXPC=ZXPG
C   DIFFERENTIAL OF F.P. GHOST MULTIPLET
	Z DIFZ(I1,I2)=
	       D(I1,1)*D(I2,2)*DIFF(MU1,ZXM)+D(I1,1)*D(I2,3)*DIFF(MU1,ZYM)
	   +D(I1,2)*D(I2,1)*DIFF(MU1,ZXP)+D(I1,3)*D(I2,1)*DIFF(MU1,ZYP)
	   +D(I1,2)*D(I2,3)*DIFF(MU1,ZWP)+D(I1,3)*D(I2,2)*DIFF(MU1,ZWM)
	   +D(I1,1)*D(I2,1)*(RT12*LA*DIFF(MU1,ZA)+UNIT*(-DIFF(MU1,ZPH)*RT13+DIFF
	   (MU1,ZZ)*RT15)/2)
	   +D(I1,2)*D(I2,2)*(3*DIFF(MU1,ZPH)*RT13+DIFF(MU1,ZZ)*RT15)/2
	   -D(I1,3)*D(I2,3)*2*RT15*DIFF(MU1,ZZ)
	*next

Terms in output 12
Running time 37 sec			Used	Maximum
Generated terms 12 	Input space 	762 	100000
Equal terms 0     	Output space 	644 	250000
Cancellations 0   	Nr of expr.  	16 	255
Multiplications 21	String space 	0 	4096
Records written 22 	Merging		0 	0

	Z DIFZB(I1,I2)=Conjg(DIFZ(I2,I1))
	Z HH(I1,I2)=HH(I1,I2)
L 3	Id HMX=HXM
L 3	Al HPX=HXP
L 3	Al HMY=HYM
L 3	Al HPY=HYP
L 3	Al HM1=HM
L 3	Al HP1=HP
	*next

Terms in output 33
Running time 37 sec			Used	Maximum
Generated terms 33 	Input space 	622 	100000
Equal terms 0     	Output space 	1432 	250000
Cancellations 0   	Nr of expr.  	27 	255
Multiplications 194	String space 	0 	4096
Records written 24 	Merging		0 	0

C      GHOST MULTIPLET
	Z GAUGE(I1,I2)=DIFZ(I1,I2)
	Z ZB(I1,I2)=DIFZB(I1,I2)
L 2	Id DIFF(MU1,ZZ~)=ZZ
	*next

Terms in output 24
Running time 38 sec			Used	Maximum
Generated terms 24 	Input space 	448 	100000
Equal terms 0     	Output space 	1192 	250000
Cancellations 0   	Nr of expr.  	22 	255
Multiplications 171	String space 	0 	4096
Records written 43 	Merging		0 	0

	B GG,I
	F FZAHA,FZAGL
C          SUMMATION CONVENTIONS
C FZAHA=F(A,B,C)*ZA(B)*HA(C)      ETC
C   INFINITESIMAL GAUGE TRANSFORMATIONS OF FIELDS
	Z F0(I1,I2)=GAUGE(I1,I3)*A(MU1,I3,I2)-A(MU1,I1,I3)*GAUGE(I3,I2)
	Z F1(I1)=-I*GG*RT12*H(I2)*GAUGE(I1,I2)
	Z F1B(I1)=I*GG*RT12*Conjg(H(I2))*GAUGE(I2,I1)
	Z F2(I1,I2)=-I*GG*RT12*(GAUGE(I1,I3)*HH(I3,I2)-HH(I1,I3)*GAUGE(I3,I2))
L 4	Id LA*ZA*HL=HL*LA*ZA+2*I*FZAHA*LA
L 4	Al LA*ZA*LG(MU1)=LG(MU1)*LA*ZA+2*I*LA*FZAGL(MU1)
L 4	Al,Multi,RT12**2=1/2
L 4	Al UNIT=1
L 5	Id HL=HA*LA
L 5	Al LG(MU1)=LA*GL(MU1)
	*next

Terms in output 212
Running time 40 sec			Used	Maximum
Generated terms 320 	Input space 	1290 	100000
Equal terms 69     	Output space 	11514 	250000
Cancellations 39   	Nr of expr.  	34 	255
Multiplications 7584	String space 	0 	4096
Records written 47 	Merging		0 	0

	B GG,I,F,FF,EPS
C   INFINITESIMAL GAUGE TRANSFORMATIONS OF GAUGE FIXING TERM
	Z MZ(I1,I2)=I*GG*RT12*(4*RT12*EPS/GG
	        *(F2(2,3)*D(I1,2)*D(I2,3)-F2(3,2)*D(I1,3)*D(I2,2))
	   +2*RT12*(FF-EPS)/GG
	                *(F2(1,2)*D(I1,1)*D(I2,2)-F2(2,1)*D(I1,2)*D(I2,1))
	   +2*RT12*(FF+EPS)/GG
	                *(F2(1,3)*D(I1,1)*D(I2,3)-F2(3,1)*D(I1,3)*D(I2,1))
	   +2*RT12*F/GG
	     *(-F1(1)*D(I1,1)*D(I2,3)+F1B(1)*D(I1,3)*D(I2,1)
	   -F1(2)*D(I1,2)*D(I2,3)+F1B(2)*D(I1,3)*D(I2,2)
	   +(F1(3)-F1B(3))/5*(UNIT*D(I1,1)*D(I2,1)+D(I1,2)*D(I2,2)-4*D(I1,3)*D(I
	   2,3))))
	*next

Terms in output 184
Running time 42 sec			Used	Maximum
Generated terms 200 	Input space 	1396 	100000
Equal terms 13     	Output space 	9370 	250000
Cancellations 3   	Nr of expr.  	26 	255
Multiplications 4065	String space 	0 	4096
Records written 55 	Merging		0 	0

	B GG,I,F,FF
	Z LFP1=-DIFZB(I1,I2)*DIFZ(I2,I1)
	Z LFP2=DIFZB(I1,I2)*F0(I2,I1)*GG
	Z LFP3=ZB(I1,I2)*MZ(I2,I1)
	*yep

Terms in output 308
Running time 47 sec			Used	Maximum
Generated terms 321 	Input space 	572 	100000
Equal terms 13     	Output space 	15004 	250000
Cancellations 0   	Nr of expr.  	32 	255
Multiplications 22569	String space 	0 	4096
Records written 57 	Merging		0 	0

	B MMW,MMY,GG,I,F,FFEPS,EPS
L 1	Id,Ainbe,LA*LA=2
L 1	Al,UNIT**2=3
L 1	Al MX(MU1)=XM(MU1)
L 1	Al PX(MU1)=XP(MU1)
L 1	Al MY(MU1)=YM(MU1)
L 1	Al PY(MU1)=YP(MU1)
L 2	Id LA=0
L 2	Al UNIT=1
L 2	Al RT13**2=1/3
L 2	Al RT15**2=1/5
L 2	Al,Multi,RT12**2=1/2
L 2	Al S1=-F/MMY
L 2	Al S2=-2*EPS/MMW
L 2	Al C1=(FF+EPS)/MMY
L 2	Al C2=F/MMW
L 4	Id FF=FFEPS-EPS
	*yep

Terms out 308, in 308.

Terms in output 158
Running time 48 sec			Used	Maximum
Generated terms 364 	Input space 	1030 	100000
Equal terms 132     	Output space 	8802 	250000
Cancellations 74   	Nr of expr.  	45 	255
Multiplications 1854	String space 	0 	4096
Records written 57 	Merging		0 	0

	B GG,I,F,FF
C    THROWING AWAY VERY NEGLIGABLE TERMS
L 1	Id,Count,0,F,-1,EPS,-2,MMW,-1,H0,1,PHI0,1,PHIP,1,PHIM,1
	   ,ZWMG,1,ZWM,1,ZZG,1,ZZ,1,ZWPG,1,ZWP,1
L 2	Id FFEPS=FF
L 2	Al MMY**N~=FF**N
L 2	Al MMW**N~=F**N
L 2	Al GG**1=GG*GG1
L 3	Id,Count,-2,GG,-1,GG1,-1,F,-1,EPS,-2
L 4	Id GG1=1
C FADEEV POPOV GHOST LAGRANGIAN
	*next

Terms out 158, in 158.

Terms in output 81
Running time 48 sec			Used	Maximum
Generated terms 81 	Input space 	588 	100000
Equal terms 0     	Output space 	4218 	250000
Cancellations 0   	Nr of expr.  	33 	255
Multiplications 760	String space 	0 	4096
Records written 57 	Merging		0 	0

 
LFP1 = 
 - DIFF(MU1,ZXMG)*DIFF(MU1,ZXM)
 
 - DIFF(MU1,ZXPG)*DIFF(MU1,ZXP)
 
 - DIFF(MU1,ZYMG)*DIFF(MU1,ZYM)
 
 - DIFF(MU1,ZYPG)*DIFF(MU1,ZYP)
 
 - DIFF(MU1,ZWMG)*DIFF(MU1,ZWM)
 
 - DIFF(MU1,ZWPG)*DIFF(MU1,ZWP)
 
 - DIFF(MU1,ZAG)*DIFF(MU1,ZA)
 
 - DIFF(MU1,ZPHG)*DIFF(MU1,ZPH)
 
 - DIFF(MU1,ZZG)*DIFF(MU1,ZZ)
 
LFP2 = 
 + DIFF(MU1,ZAG)*FZAGL(MU1)*GG
 
 + DIFF(Z,ZYMG)*ZYM*GG*I
  * ( 5/2*RT12*RT15 )
 
 + DIFF(Z,ZYPG)*ZYP*GG*I
  * ( - 5/2*RT12*RT15 )
 
 + DIFF(Z,ZWMG)*ZWM*GG*I
  * ( - 5/2*RT12*RT15 )
 
 + DIFF(Z,ZWPG)*ZWP*GG*I
  * ( 5/2*RT12*RT15 )
 
 + DIFF(PH,ZXMG)*ZXM*GG*I
  * ( - 2*RT12*RT13 )
 
 + DIFF(PH,ZXPG)*ZXP*GG*I
  * ( 2*RT12*RT13 )
 
 + DIFF(PH,ZYMG)*ZYM*GG*I
  * ( - 1/2*RT12*RT13 )
 
 + DIFF(PH,ZYPG)*ZYP*GG*I
  * ( 1/2*RT12*RT13 )
 
 + DIFF(PH,ZWMG)*ZWM*GG*I
  * ( - 3/2*RT12*RT13 )
 
 + DIFF(PH,ZWPG)*ZWP*GG*I
  * ( 3/2*RT12*RT13 )
 
 + DIFF(WP,ZXPG)*ZYP*GG*I
  * ( RT12 )
 
 + DIFF(WP,ZYMG)*ZXM*GG*I
  * ( - RT12 )
 
 + DIFF(WP,ZWPG)*ZPH*GG*I
  * ( - 3/2*RT12*RT13 )
 
 + DIFF(WP,ZWPG)*ZZ*GG*I
  * ( - 5/2*RT12*RT15 )
 
 + DIFF(WP,ZPHG)*ZWM*GG*I
  * ( 3/2*RT12*RT13 )
 
 + DIFF(WP,ZZG)*ZWM*GG*I
  * ( 5/2*RT12*RT15 )
 
 + DIFF(WM,ZXMG)*ZYM*GG*I
  * ( - RT12 )
 
 + DIFF(WM,ZYPG)*ZXP*GG*I
  * ( RT12 )
 
 + DIFF(WM,ZWMG)*ZPH*GG*I
  * ( 3/2*RT12*RT13 )
 
 + DIFF(WM,ZWMG)*ZZ*GG*I
  * ( 5/2*RT12*RT15 )
 
 + DIFF(WM,ZPHG)*ZWP*GG*I
  * ( - 3/2*RT12*RT13 )
 
 + DIFF(WM,ZZG)*ZWP*GG*I
  * ( - 5/2*RT12*RT15 )
 
 + DIFF(XM,ZXMG)*ZPH*GG*I
  * ( 2*RT12*RT13 )
 
 + DIFF(XM,ZYMG)*ZWP*GG*I
  * ( RT12 )
 
 + DIFF(XM,ZWMG)*ZYP*GG*I
  * ( - RT12 )
 
 + DIFF(XM,ZPHG)*ZXP*GG*I
  * ( - 2*RT12*RT13 )
 
 + DIFF(XP,ZXPG)*ZPH*GG*I
  * ( - 2*RT12*RT13 )
 
 + DIFF(XP,ZYPG)*ZWM*GG*I
  * ( - RT12 )
 
 + DIFF(XP,ZWPG)*ZYM*GG*I
  * ( RT12 )
 
 + DIFF(XP,ZPHG)*ZXM*GG*I
  * ( 2*RT12*RT13 )
 
 + DIFF(YM,ZXMG)*ZWM*GG*I
  * ( RT12 )
 
 + DIFF(YM,ZYMG)*ZPH*GG*I
  * ( 1/2*RT12*RT13 )
 
 + DIFF(YM,ZYMG)*ZZ*GG*I
  * ( - 5/2*RT12*RT15 )
 
 + DIFF(YM,ZWPG)*ZXP*GG*I
  * ( - RT12 )
 
 + DIFF(YM,ZPHG)*ZYP*GG*I
  * ( - 1/2*RT12*RT13 )
 
 + DIFF(YM,ZZG)*ZYP*GG*I
  * ( 5/2*RT12*RT15 )
 
 + DIFF(YP,ZXPG)*ZWP*GG*I
  * ( - RT12 )
 
 + DIFF(YP,ZYPG)*ZPH*GG*I
  * ( - 1/2*RT12*RT13 )
 
 + DIFF(YP,ZYPG)*ZZ*GG*I
  * ( 5/2*RT12*RT15 )
 
 + DIFF(YP,ZWMG)*ZXM*GG*I
  * ( RT12 )
 
 + DIFF(YP,ZPHG)*ZYM*GG*I
  * ( 1/2*RT12*RT13 )
 
 + DIFF(YP,ZZG)*ZYM*GG*I
  * ( - 5/2*RT12*RT15 )
 
LFP3 = 
 + ZXMG*ZXM*GG*FF
  * ( - 5/2*RT13*RT15*HB0 + 1/2*HB3 )
 
 - ZXMG*ZXM*FF^2
 
 + ZXMG*ZYM*GG*I*FF
  * ( RT12*HWM )
 
 + ZXMG*ZWM*GG*I*FF
  * ( RT12*HYM )
 
 + ZXMG*ZPH*GG*I*FF
  * ( 2*RT12*RT13*HXM )
 
 + ZXPG*ZXP*GG*FF
  * ( - 5/2*RT13*RT15*HB0 + 1/2*HB3 )
 
 - ZXPG*ZXP*FF^2
 
 + ZXPG*ZYP*GG*I*FF
  * ( - RT12*HWP )
 
 + ZXPG*ZWP*GG*I*FF
  * ( - RT12*HYP )
 
 + ZXPG*ZPH*GG*I*FF
  * ( - 2*RT12*RT13*HXP )
 
 + ZYMG*ZXM*GG*I*FF
  * ( - RT12*HWP )
 
 + ZYMG*ZYM*GG*FF
  * ( - 5/2*RT13*RT15*HB0 - 1/2*HB3 )
 
 - ZYMG*ZYM*FF^2
 
 + ZYMG*ZWP*GG*I*FF
  * ( RT12*HXM )
 
 + ZYMG*ZPH*GG*I*FF
  * ( 1/2*RT12*RT13*HYM )
 
 + ZYMG*ZZ*GG*I*FF
  * ( - 5/2*RT12*RT15*HYM )
 
 + ZYPG*ZXP*GG*I*FF
  * ( RT12*HWM )
 
 + ZYPG*ZYP*GG*FF
  * ( - 5/2*RT13*RT15*HB0 - 1/2*HB3 )
 
 - ZYPG*ZYP*FF^2
 
 + ZYPG*ZWM*GG*I*FF
  * ( - RT12*HXP )
 
 + ZYPG*ZPH*GG*I*FF
  * ( - 1/2*RT12*RT13*HYP )
 
 + ZYPG*ZZ*GG*I*FF
  * ( 5/2*RT12*RT15*HYP )
 
 - ZWMG*ZWM*F^2
 
 - ZWPG*ZWP*F^2
 
 - 8/5*ZZG*ZZ*F^2 + 0.
 
> P noutp
	B GG,I,F,FF,EPS
	Z HSH=Conjg(H(I1))*H(I1)
	Z HHHH=HH(I1,I2)*HH(I2,I1)
L 4	Id UNIT**2=3
L 4	Al RT13**2=1/3
L 4	Al RT15**2=1/5
L 4	Al,Multi,RT12**2=1/2
L 4	Al HL*HL=2*HA*HA
L 5	Id UNIT=1
L 5	Al HL=0
	*next

Terms in output 28
Running time 49 sec			Used	Maximum
Generated terms 72 	Input space 	780 	100000
Equal terms 38     	Output space 	840 	250000
Cancellations 6   	Nr of expr.  	38 	255
Multiplications 3573	String space 	0 	4096
Records written 57 	Merging		0 	0

	B GG,I,FF,EPS
	Z HH2(I1,I2)=HH(I1,I3)*HH(I3,I2)
L 2	Id UNIT**N~=UNIT**N/UNIT
L 2	Al,RT13**2=1/3
L 2	Al RT15**2=1/5
L 2	Al,Multi,RT12**2=1/2
	*next

Terms in output 98
Running time 50 sec			Used	Maximum
Generated terms 149 	Input space 	574 	100000
Equal terms 43     	Output space 	3908 	250000
Cancellations 8   	Nr of expr.  	36 	255
Multiplications 3506	String space 	0 	4096
Records written 61 	Merging		0 	0

	S MM1,MM2
	B MM1,MM2,GG,I,F,FF,EPS
	Z LH1=-MM1**2*HSH
	Z LH2=-MM2**2/2*HHHH
L 2	Id GG**-2=0
	*next

Terms in output 25
Running time 50 sec			Used	Maximum
Generated terms 25 	Input space 	356 	100000
Equal terms 0     	Output space 	740 	250000
Cancellations 0   	Nr of expr.  	31 	255
Multiplications 120	String space 	0 	4096
Records written 63 	Merging		0 	0

	S MM3,MM4
	B MM3,GG,I,F,FF,EPS
C LH3 COLOUR IS HP.LA*HA.HM
	Z LH3=-GG*MM3*Conjg(H(I1))*HH(I1,I2)*H(I2)
L 4	Id UNIT=1
L 4	Al HL=LA*HA
L 4	Al,Multi,RT12**2=1/2
L 4	Al GG**-2=0
	*next

Terms in output 82
Running time 51 sec			Used	Maximum
Generated terms 118 	Input space 	1022 	100000
Equal terms 24     	Output space 	2640 	250000
Cancellations 12   	Nr of expr.  	41 	255
Multiplications 2932	String space 	0 	4096
Records written 67 	Merging		0 	0

	B MM4,GG,I,F,FF,EPS
	Z LH4=-GG*MM4*HH(I1,I2)*HH(I2,I3)*HH(I3,I1)
L 2	Id UNIT**3=3
L 2	Al HL*HL*HL=0
L 3	Id UNIT=1
L 3	Al GG**-2=0
L 3	Al HL*HL=2*HA*HA
L 3	Al,Multi,RT12**2=1/2
L 3	Al,Multi,RT13**2=1/3
L 3	Al,Multi,RT15**2=1/5
L 4	Id HL=0
	*next

Terms in output 46
Running time 64 sec			Used	Maximum
Generated terms 335 	Input space 	1360 	100000
Equal terms 263     	Output space 	1534 	250000
Cancellations 26   	Nr of expr.  	48 	255
Multiplications 78634	String space 	0 	4096
Records written 69 	Merging		0 	0

	S LL5,LL6,LL7,LL8,LL9
	B LL5,LL6,LL7,GG,I,F,FF,EPS
C LH5 COLOUR IS POWERS OF HP.HM
C LH6 COLOUR IS HP.HM AND X.X OR Y.Y
C LH7 COLOUR IS POWERS OF X.X AND Y.Y
	Z LH5=-LL5*GG*GG*HSH*HSH
	Z LH6=-LL6*GG*GG*HSH*HHHH
	Z LH7=-LL7*GG*GG*HHHH*HHHH
L 2	Id GG**-2=0
L 2	Al RT12**2=1/2
L 2	Al RT13**2=1/3
L 2	Al RT15**2=1/5
	*next

Terms in output 387
Running time 65 sec			Used	Maximum
Generated terms 585 	Input space 	646 	100000
Equal terms 198     	Output space 	11816 	250000
Cancellations 0   	Nr of expr.  	41 	255
Multiplications 4164	String space 	0 	4096
Records written 71 	Merging		0 	0

	B LL8,GG,I,F,FF,EPS
C SUMMED COLOUR IS HP.HXM , HXP.HM AND SAME FOR Y
C ALSO COLOUR HP.LA.LA.HM AND HP.LA.HM
	Z LH8=-LL8*Conjg(H(I1))*HH2(I1,I2)*H(I2)*GG*GG
L 4	Id UNIT=1
L 4	Al HL=LA*HA
L 5	Id,Multi,RT12**2=1/2
L 5	Al GG**-2=0
L 5	Al,Commu,LA
	*next

Terms in output 399
Running time 70 sec			Used	Maximum
Generated terms 551 	Input space 	1092 	100000
Equal terms 102     	Output space 	13338 	250000
Cancellations 50   	Nr of expr.  	46 	255
Multiplications 13980	String space 	0 	4096
Records written 77 	Merging		0 	0

	B LL9,GG,I,FF,EPS
	F HL4
C SUMMED COLOUR IS OF THE FORM HXP,HYM OR HYP.HXM OR (HXP.HXM)**2 OR SAM
	Z LH9=-LL9*GG*GG*HH2(I1,I2)*HH2(I2,I1)
L 2	Id UNIT**2=3
L 2	Al GG**-2=0
L 2	Al HL*HL*HL*HL=HL4
L 2	Al RT13**2=1/3
L 2	Al RT15**2=1/5
L 2	Al,Multi,RT12**2=1/2
L 3	Id UNIT=1
L 3	Al HL*HL*HL=0
L 4	Id,Ainbe,HL*HL=2*HA*HA
L 5	Id HL=0
	*next

Terms in output 158
Running time 82 sec			Used	Maximum
Generated terms 1025 	Input space 	912 	100000
Equal terms 805     	Output space 	4980 	250000
Cancellations 62   	Nr of expr.  	51 	255
Multiplications 70787	String space 	0 	4096
Records written 79 	Merging		0 	0

	S FFEPS
	B GG,I,HP,HM,PHIP,PHIM,H0,PHI0,HA,HB0,HB3,HYP,HYM,HXP,HXM,HWP,HWM,MMW
	   ,MMX,MMY
	   ,FF,F
	Z LHA=LH1+LH2+LH3+LH4+LH5+LH6+LH7+LH8+LH9
	   -4*F*F/5*PHI0**2-MMW**2*PHIP*PHIM-MMY**2*HYP*HYM-MMX**2*HXP*HXM
C PART OF GAUGE FIXING TERM
C    REPLACING HIGGS PARAMETERS IN TERMS OF V.E.V.,S
L 2	Id MM1**2=6*RT12/5*FF*MM3-12/5*LL6*FF**2-18/25*FF**2*LL8-4*LL5*F*F
	      -4*LL6*EPS**2-2*LL8*EPS**2-12/5*EPS*FF*LL8+2*RT12*MM3*EPS
L 2	Al MM2**2=6*RT12/5*FF*MM4-48/5*FF**2*LL7-56/25*FF**2*LL9-4*F*F*LL6
	   -6*EPS*MM4*RT12+32/5*LL9*EPS*(EPS+FF)+6/5*F*F*LL8
	   -6/5*LL8*F*F
	   -72/5*EPS**2*LL9
	   -16*LL7*EPS**2
L 4	Id MM3=-6*MM4*EPS*(FF+EPS)/F/F+LL8*(12/5*FF+4*EPS)*RT12
	   +64/5*LL9*EPS*FF*(FF+EPS)*RT12/F/F
L 6	Id,Multi,RT12**2=1/2
L 7	Id S1=-F/MMY
L 7	Al S2=-2*EPS/MMW
L 7	Al C1=(FF+EPS)/MMY
L 7	Al C2=F/MMW
	*yep

Terms in output 1483
Running time 89 sec			Used	Maximum
Generated terms 3026 	Input space 	2062 	100000
Equal terms 1223     	Output space 	79440 	250000
Cancellations 320   	Nr of expr.  	48 	255
Multiplications 17331	String space 	0 	4096
Records written 81 	Merging		0 	0

C    THROWING AWAY VERY NEGLIGABLE TERMS
L 1	Id,Count,0,F,-1,EPS,-2,MMW,-1
	   ,H0,1,PHI0,1,PHIP,1,PHIM,1
	*yep

Terms out 1483, in 1483.

Terms in output 501
Running time 92 sec			Used	Maximum
Generated terms 501 	Input space 	148 	100000
Equal terms 0     	Output space 	25262 	250000
Cancellations 0   	Nr of expr.  	34 	255
Multiplications 2966	String space 	0 	4096
Records written 86 	Merging		0 	0

	S LL,LL10,LL11,LL12,LL13,LL14,LL15
C REPLACING HIGGS PARAMETERS BY MASSES OF PHYSICAL HIGGS FIELDS
L 1	Id MM4=-RT12*FF*LL11/15+4*RT12*LL12*FF/15
L 1	Al LL7=-LL11/32-LL12/48+5*LL10/96
L 1	Al LL9=LL12/8+LL11/8
L 1	Al LL8=LL13/2-FF*EPS/F/F*LL11
L 1	Al LL6=LL11*EPS*FF/F/F/4+LL14*RT13*RT15*5/16*LL10
L 2	Id MMW**N~=F**N
L 2	Al RT12**2=1/2
L 2	Al RT13**2=1/3
L 2	Al RT15**2=1/5
L 2	Al MMX=FF
L 2	Al MMY**N~=FF**N
	*yep

Terms out 501, in 501.

Terms in output 635
Running time 96 sec			Used	Maximum
Generated terms 1010 	Input space 	856 	100000
Equal terms 302     	Output space 	30234 	250000
Cancellations 73   	Nr of expr.  	50 	255
Multiplications 5101	String space 	0 	4096
Records written 88 	Merging		0 	0

	S F10,F11,F12,F13,F14,F15
C     DIAGONALISING NEUTRAL HIGGS FIELDS
L 1	Id HB3=HB3+2*EPS*H0/F
L 1	Al HB0=HB0-F*LL14*H0/FF/2
L 1	Al LL5=LL15/8+FF**2*EPS**2/F**4*LL11/2+LL14*LL10/32*LL14
	*yep

Terms out 635, in 635.

Terms in output 1002
Running time 99 sec			Used	Maximum
Generated terms 1311 	Input space 	392 	100000
Equal terms 270     	Output space 	44422 	250000
Cancellations 39   	Nr of expr.  	42 	255
Multiplications 4094	String space 	0 	4096
Records written 90 	Merging		0 	0

L 1	Id GG**1=GG*GG1
C    THROWING AWAY VERY NEGLIGABLE TERMS
L 2	Id Count,-2,GG,-1,GG1,-1,F,-1,EPS,-2
L 3	Id GG1=1
L 4	Id EPS=LL*F*F/FF
> P outp
C HIGGS POTENTIAL
	*begin

Terms out 1002, in 1002.

Terms in output 289
Running time 101 sec			Used	Maximum
Generated terms 289 	Input space 	456 	100000
Equal terms 0     	Output space 	10998 	250000
Cancellations 0   	Nr of expr.  	40 	255
Multiplications 2536	String space 	0 	4096
Records written 93 	Merging		0 	0

 
LHA = 
 + GG*I*HYM*HXP*HWM*FF
  * ( RT12*LL11 )
 
 + GG*I*HYP*HXM*HWP*FF
  * ( - RT12*LL11 )
 
 + GG*I*HM*PHIM*HXP*FF
  * ( - RT12*LL13 )
 
 + GG*I*HM*PHI0*HYP*FF
  * ( 1/2*LL13 )
 
 + GG*I*HP*PHIP*HXM*FF
  * ( RT12*LL13 )
 
 + GG*I*HP*PHI0*HYM*FF
  * ( - 1/2*LL13 )
 
 + GG*I*PHIP*PHI0*HWM*FF
  * ( LL*LL11 )
 
 + GG*I*PHIM*PHI0*HWP*FF
  * ( - LL*LL11 )
 
 + GG*HB0*HB3^2*FF
  * ( - 5/4*RT13*RT15*LL10 - 9/4*RT13*RT15*LL11 - RT13*RT15*LL12 )
 
 + GG*HB0*HWP*HWM*FF
  * ( - 5/2*RT13*RT15*LL10 - 9/2*RT13*RT15*LL11 - 2*RT13*RT15*LL12 )
 
 + GG*HB0*HXP*HXM*FF
  * ( - 5/2*RT13*RT15*LL10 )
 
 + GG*HB0*HYP*HYM*FF
  * ( - 5/2*RT13*RT15*LL10 )
 
 + GG*HB0^3*FF
  * ( - 5/4*RT13*RT15*LL10 + 1/60*RT13*RT15*LL11 - 1/15*RT13*RT15*LL12 )
 
 + GG*HB3*HXP*HXM*FF
  * ( 1/2*LL11 )
 
 + GG*HB3*HYP*HYM*FF
  * ( - 1/2*LL11 )
 
 + GG*HA^2*HB0*FF
  * ( - 5/4*RT13*RT15*LL10 - 1/4*RT13*RT15*LL11 - 3/2*RT13*RT15*LL12 )
 
 + GG*HM*H0*HYP*FF
  * ( 1/2*LL13 )
 
 + GG*HP*HM*HB0*FF
  * ( - RT13*RT15*LL*LL11 - 2*RT13*RT15*LL13 - 1/4*LL10*LL14 )
 
 + GG*HP*H0*HYM*FF
  * ( 1/2*LL13 )
 
 + GG*PHIP*PHIM*HB0*FF
  * ( - 1/4*LL10*LL14 )
 
 + GG*PHIP*PHIM*HB3*FF
  * ( - LL*LL11 )
 
 + GG*PHIP*H0*HWM*FF
  * ( LL*LL11 )
 
 + GG*PHIM*H0*HWP*FF
  * ( LL*LL11 )
 
 + GG*H0^2*HB0*FF
  * ( - 1/8*LL10*LL14 )
 
 + GG*H0^2*HB3*FF
  * ( 1/2*LL*LL11 )
 
 + GG*PHI0^2*HB0*FF
  * ( - 1/8*LL10*LL14 )
 
 + GG*PHI0^2*HB3*FF
  * ( 1/2*LL*LL11 )
 
 + GG^2*I*HB0*HYM*HXP*HWM
  * ( 2*RT12*RT13*RT15*LL11 + 2*RT12*RT13*RT15*LL12 )
 
 + GG^2*I*HB0*HYP*HXM*HWP
  * ( - 2*RT12*RT13*RT15*LL11 - 2*RT12*RT13*RT15*LL12 )
 
 + GG^2*I*HM*PHIM*HB0*HXP
  * ( - RT12*RT13*RT15*LL*LL11 + 1/2*RT12*RT13*RT15*LL13 )
 
 + GG^2*I*HM*PHIM*HB3*HXP
  * ( RT12*LL*LL11 - 1/2*RT12*LL13 )
 
 + GG^2*I*HM*H0*HXP*HWM
  * ( - RT12*LL*LL11 + 1/2*RT12*LL13 )
 
 + GG^2*I*HM*PHI0*HB0*HYP
  * ( 1/2*RT13*RT15*LL*LL11 - 1/4*RT13*RT15*LL13 )
 
 + GG^2*I*HM*PHI0*HB3*HYP
  * ( 1/2*LL*LL11 - 1/4*LL13 )
 
 + GG^2*I*HP*PHIP*HB0*HXM
  * ( RT12*RT13*RT15*LL*LL11 - 1/2*RT12*RT13*RT15*LL13 )
 
 + GG^2*I*HP*PHIP*HB3*HXM
  * ( - RT12*LL*LL11 + 1/2*RT12*LL13 )
 
 + GG^2*I*HP*H0*HXM*HWP
  * ( RT12*LL*LL11 - 1/2*RT12*LL13 )
 
 + GG^2*I*HP*PHI0*HB0*HYM
  * ( - 1/2*RT13*RT15*LL*LL11 + 1/4*RT13*RT15*LL13 )
 
 + GG^2*I*HP*PHI0*HB3*HYM
  * ( - 1/2*LL*LL11 + 1/4*LL13 )
 
 + GG^2*I*PHIP*H0*HYP*HXM
  * ( RT12*LL*LL11 - 1/2*RT12*LL13 )
 
 + GG^2*I*PHIP*PHI0*HB0*HWM
  * ( 3*RT13*RT15*LL*LL11 - 3/2*RT13*RT15*LL13 )
 
 + GG^2*I*PHIM*H0*HYM*HXP
  * ( - RT12*LL*LL11 + 1/2*RT12*LL13 )
 
 + GG^2*I*PHIM*PHI0*HB0*HWP
  * ( - 3*RT13*RT15*LL*LL11 + 3/2*RT13*RT15*LL13 )
 
 + GG^2*HB0*HB3*HXP*HXM
  * ( RT13*RT15*LL11 + RT13*RT15*LL12 )
 
 + GG^2*HB0*HB3*HYP*HYM
  * ( - RT13*RT15*LL11 - RT13*RT15*LL12 )
 
 + GG^2*HB0^2*HB3^2
  * ( - 5/48*LL10 - 13/80*LL11 - 11/60*LL12 )
 
 + GG^2*HB0^2*HWP*HWM
  * ( - 5/24*LL10 - 13/40*LL11 - 11/30*LL12 )
 
 + GG^2*HB0^2*HXP*HXM
  * ( - 5/24*LL10 + 1/120*LL11 - 1/30*LL12 )
 
 + GG^2*HB0^2*HYP*HYM
  * ( - 5/24*LL10 + 1/120*LL11 - 1/30*LL12 )
 
 + GG^2*HB0^4
  * ( - 5/96*LL10 + 1/480*LL11 - 1/120*LL12 )
 
 + GG^2*HB3^2*HWP*HWM
  * ( - 5/24*LL10 - 1/8*LL11 - 1/6*LL12 )
 
 + GG^2*HB3^2*HXP*HXM
  * ( - 5/24*LL10 - 1/8*LL11 - 1/6*LL12 )
 
 + GG^2*HB3^2*HYP*HYM
  * ( - 5/24*LL10 - 1/8*LL11 - 1/6*LL12 )
 
 + GG^2*HB3^4
  * ( - 5/96*LL10 - 1/32*LL11 - 1/24*LL12 )
 
 + GG^2*HA^2*HB0^2
  * ( - 5/48*LL10 - 3/80*LL11 - 7/120*LL12 )
 
 + GG^2*HA^2*HB3^2
  * ( - 5/48*LL10 + 1/16*LL11 + 1/24*LL12 )
 
 + GG^2*HA^2*HWP*HWM
  * ( - 5/24*LL10 + 1/8*LL11 + 1/12*LL12 )
 
 + GG^2*HA^2*HXP*HXM
  * ( - 5/24*LL10 - 3/8*LL11 - 5/12*LL12 )
 
 + GG^2*HA^2*HYP*HYM
  * ( - 5/24*LL10 - 3/8*LL11 - 5/12*LL12 )
 
 + GG^2*HA^4
  * ( - 5/96*LL10 + 1/32*LL11 + 1/48*LL12 )
 
 + GG^2*HWP^2*HWM^2
  * ( - 5/24*LL10 - 1/8*LL11 - 1/6*LL12 )
 
 + GG^2*HXP*HXM*HWP*HWM
  * ( - 5/12*LL10 - 1/4*LL11 - 1/3*LL12 )
 
 + GG^2*HXP^2*HXM^2
  * ( - 5/24*LL10 - 1/8*LL11 - 1/6*LL12 )
 
 + GG^2*HYP*HYM*HWP*HWM
  * ( - 5/12*LL10 - 1/4*LL11 - 1/3*LL12 )
 
 + GG^2*HYP*HYM*HXP*HXM
  * ( - 5/12*LL10 - 1/4*LL11 - 1/3*LL12 )
 
 + GG^2*HYP^2*HYM^2
  * ( - 5/24*LL10 - 1/8*LL11 - 1/6*LL12 )
 
 + GG^2*HM*PHIM*HYP*HWP
  * ( LL*LL11 - 1/2*LL13 )
 
 + GG^2*HM*H0*HB0*HYP
  * ( 1/2*RT13*RT15*LL*LL11 - 1/4*RT13*RT15*LL13 )
 
 + GG^2*HM*H0*HB3*HYP
  * ( 1/2*LL*LL11 - 1/4*LL13 )
 
 + GG^2*HM*PHI0*HXP*HWM
  * ( RT12*LL*LL11 - 1/2*RT12*LL13 )
 
 + GG^2*HP*HM*HB0^2
  * ( - 5/16*RT13*RT15*LL10*LL14 - 7/60*LL*LL11 - 1/15*LL13 )
 
 + GG^2*HP*HM*HB3^2
  * ( - 5/16*RT13*RT15*LL10*LL14 - 1/4*LL*LL11 )
 
 + GG^2*HP*HM*HA^2
  * ( - 5/16*RT13*RT15*LL10*LL14 - 1/4*LL*LL11 )
 
 + GG^2*HP*HM*HWP*HWM
  * ( - 5/8*RT13*RT15*LL10*LL14 - 1/2*LL*LL11 )
 
 + GG^2*HP*HM*HXP*HXM
  * ( - 5/8*RT13*RT15*LL10*LL14 + 1/2*LL*LL11 - 1/2*LL13 )
 
 + GG^2*HP*HM*HYP*HYM
  * ( - 5/8*RT13*RT15*LL10*LL14 + 1/2*LL*LL11 - 1/2*LL13 )
 
 + GG^2*HP*HM*PHIP*PHIM
  * ( - LL^2*LL11 - 1/16*LL10*LL14^2 - 1/4*LL15 )
 
 + GG^2*HP*HM*H0^2
  * ( - 1/2*LL^2*LL11 - 1/32*LL10*LL14^2 - 1/8*LL15 )
 
 + GG^2*HP*HM*PHI0^2
  * ( - 1/2*LL^2*LL11 - 1/32*LL10*LL14^2 - 1/8*LL15 )
 
 + GG^2*HP*PHIP*HYM*HWM
  * ( LL*LL11 - 1/2*LL13 )
 
 + GG^2*HP*H0*HB0*HYM
  * ( 1/2*RT13*RT15*LL*LL11 - 1/4*RT13*RT15*LL13 )
 
 + GG^2*HP*H0*HB3*HYM
  * ( 1/2*LL*LL11 - 1/4*LL13 )
 
 + GG^2*HP*PHI0*HXM*HWP
  * ( RT12*LL*LL11 - 1/2*RT12*LL13 )
 
 + GG^2*HP^2*HM^2
  * ( - 1/2*LL^2*LL11 - 1/32*LL10*LL14^2 - 1/8*LL15 )
 
 + GG^2*PHIP*PHIM*HB0*HB3
  * ( - 3*RT13*RT15*LL*LL11 + 3/2*RT13*RT15*LL13 )
 
 + GG^2*PHIP*PHIM*HB0^2
  * ( - 5/16*RT13*RT15*LL10*LL14 + 1/20*LL*LL11 - 3/20*LL13 )
 
 + GG^2*PHIP*PHIM*HB3^2
  * ( - 5/16*RT13*RT15*LL10*LL14 + 1/4*LL*LL11 - 1/4*LL13 )
 
 + GG^2*PHIP*PHIM*HA^2
  * ( - 5/16*RT13*RT15*LL10*LL14 - 1/4*LL*LL11 )
 
 + GG^2*PHIP*PHIM*HWP*HWM
  * ( - 5/8*RT13*RT15*LL10*LL14 + 1/2*LL*LL11 - 1/2*LL13 )
 
 + GG^2*PHIP*PHIM*HXP*HXM
  * ( - 5/8*RT13*RT15*LL10*LL14 + 1/2*LL*LL11 - 1/2*LL13 )
 
 + GG^2*PHIP*PHIM*HYP*HYM
  * ( - 5/8*RT13*RT15*LL10*LL14 - 1/2*LL*LL11 )
 
 + GG^2*PHIP*PHIM*H0^2
  * ( - 1/2*LL^2*LL11 - 1/32*LL10*LL14^2 - 1/8*LL15 )
 
 + GG^2*PHIP*PHIM*PHI0^2
  * ( - 1/2*LL^2*LL11 - 1/32*LL10*LL14^2 - 1/8*LL15 )
 
 + GG^2*PHIP*H0*HB0*HWM
  * ( 3*RT13*RT15*LL*LL11 - 3/2*RT13*RT15*LL13 )
 
 + GG^2*PHIP*PHI0*HYP*HXM
  * ( - RT12*LL*LL11 + 1/2*RT12*LL13 )
 
 + GG^2*PHIP^2*PHIM^2
  * ( - 1/2*LL^2*LL11 - 1/32*LL10*LL14^2 - 1/8*LL15 )
 
 + GG^2*PHIM*H0*HB0*HWP
  * ( 3*RT13*RT15*LL*LL11 - 3/2*RT13*RT15*LL13 )
 
 + GG^2*PHIM*PHI0*HYM*HXP
  * ( - RT12*LL*LL11 + 1/2*RT12*LL13 )
 
 + GG^2*H0^2*HB0*HB3
  * ( 3/2*RT13*RT15*LL*LL11 - 3/4*RT13*RT15*LL13 )
 
 + GG^2*H0^2*HB0^2
  * ( - 5/32*RT13*RT15*LL10*LL14 + 1/40*LL*LL11 - 3/40*LL13 )
 
 + GG^2*H0^2*HB3^2
  * ( - 5/32*RT13*RT15*LL10*LL14 + 1/8*LL*LL11 - 1/8*LL13 )
 
 + GG^2*H0^2*HA^2
  * ( - 5/32*RT13*RT15*LL10*LL14 - 1/8*LL*LL11 )
 
 + GG^2*H0^2*HWP*HWM
  * ( - 5/16*RT13*RT15*LL10*LL14 + 1/4*LL*LL11 - 1/4*LL13 )
 
 + GG^2*H0^2*HXP*HXM
  * ( - 5/16*RT13*RT15*LL10*LL14 - 1/4*LL*LL11 )
 
 + GG^2*H0^2*HYP*HYM
  * ( - 5/16*RT13*RT15*LL10*LL14 + 1/4*LL*LL11 - 1/4*LL13 )
 
 + GG^2*H0^2*PHI0^2
  * ( - 1/4*LL^2*LL11 - 1/64*LL10*LL14^2 - 1/16*LL15 )
 
 + GG^2*H0^4
  * ( - 1/8*LL^2*LL11 - 1/128*LL10*LL14^2 - 1/32*LL15 )
 
 + GG^2*PHI0^2*HB0*HB3
  * ( 3/2*RT13*RT15*LL*LL11 - 3/4*RT13*RT15*LL13 )
 
 + GG^2*PHI0^2*HB0^2
  * ( - 5/32*RT13*RT15*LL10*LL14 + 1/40*LL*LL11 - 3/40*LL13 )
 
 + GG^2*PHI0^2*HB3^2
  * ( - 5/32*RT13*RT15*LL10*LL14 + 1/8*LL*LL11 - 1/8*LL13 )
 
 + GG^2*PHI0^2*HA^2
  * ( - 5/32*RT13*RT15*LL10*LL14 - 1/8*LL*LL11 )
 
 + GG^2*PHI0^2*HWP*HWM
  * ( - 5/16*RT13*RT15*LL10*LL14 + 1/4*LL*LL11 - 1/4*LL13 )
 
 + GG^2*PHI0^2*HXP*HXM
  * ( - 5/16*RT13*RT15*LL10*LL14 - 1/4*LL*LL11 )
 
 + GG^2*PHI0^2*HYP*HYM
  * ( - 5/16*RT13*RT15*LL10*LL14 + 1/4*LL*LL11 - 1/4*LL13 )
 
 + GG^2*PHI0^4
  * ( - 1/8*LL^2*LL11 - 1/128*LL10*LL14^2 - 1/32*LL15 )
 
 + HB0^2*FF^2
  * ( - 1/2*LL10 )
 
 + HB3^2*FF^2
  * ( - 1/2*LL11 )
 
 + HA^2*FF^2
  * ( - 1/2*LL12 )
 
 + HWP*HWM*FF^2
  * ( - LL11 )
 
 - HXP*HXM*FF^2
 
 - HYP*HYM*FF^2
 
 + HP*HM*FF^2
  * ( - LL13 )
 
 - PHIP*PHIM*F^2
 
 + H0^2*F^2
  * ( - 1/2*LL15 )
 
 - 4/5*PHI0^2*F^2
 
 + LA*GG*HP*HM*HA*FF
  * ( LL*LL11 - LL13 )
 
 + LA*GG^2*I*HM*PHIM*HA*HXP
  * ( RT12*LL*LL11 - 1/2*RT12*LL13 )
 
 + LA*GG^2*I*HM*PHI0*HA*HYP
  * ( - 1/2*LL*LL11 + 1/4*LL13 )
 
 + LA*GG^2*I*HP*PHIP*HA*HXM
  * ( - RT12*LL*LL11 + 1/2*RT12*LL13 )
 
 + LA*GG^2*I*HP*PHI0*HA*HYM
  * ( 1/2*LL*LL11 - 1/4*LL13 )
 
 + LA*GG^2*HM*H0*HA*HYP
  * ( - 1/2*LL*LL11 + 1/4*LL13 )
 
 + LA*GG^2*HP*HM*HA*HB0
  * ( 2*RT13*RT15*LL*LL11 - RT13*RT15*LL13 )
 
 + LA*GG^2*HP*H0*HA*HYM
  * ( - 1/2*LL*LL11 + 1/4*LL13 )
 
 + LA*LA*GG^2*HP*HM*HA^2
  * ( 1/2*LL*LL11 - 1/4*LL13 )
 
 + HL4*GG^2
  * ( - 1/32*LL11 - 1/32*LL12 ) + 0.
 

Begin. Time 102 sec.
	Common A,E,DIF
C RT12=SQRT(1/2) ETC
C GG = GAUGE COUPLING CONSTANT
C UNIT = 3 BY 3 UNIT MATRIX
C          SUMMATION CONVENTIONS
C LG(MU)=LAMBDA(A)*GL(A,MU)
C LDIFF(GL)=LAMBDA(A)*DIFF(GL(A))
C FGGDG(MU,NU,RO,SI)=F(A,B,C)*GL(A,MU)*GL(B,NU)*D(RO)*GL(C,SI)
C FGGL(MU,NU)=F(A,B,C)*GL(A,MU)*GL(B,NU)*LAMBDA(C)
C F2G4(MU,NU,RO,SI)=F(A,B,E)*F(C,D,E)*GL(A,MU)*GL(B,NU)*GL(C,RO)*GL(D,SI
C XYYX=XP(A,MU)*YM(A,NU)*YP(B,NU)*XM(B,MU)   ETC
C P.PM.M=P(A,MU)*P(B,MU)*M(A,NU)*M(B,NU)
C (P.M)**2=(P(A,MU)*M(A,MU))**2
> P noutp
	B GG
	S GG,UNIT,RT12,RT13,RT15
	I MU1,MU2,MU3,MU4,I1=3,I2=3,I3=3,I4=3
	V Z,PH,GL,WP,WM,XM,XP,YM,YP
	F XXXX,XYYX,YYYY,DIFF,LDIFF,LG,FGGDG,FGGL,F2G4,MX=c,MY=c
	Oldnew MXC=PX,MYC=PY
	Z DIF(MU1,MU2,I1,I2)=-I*RT12*(
	   DIFF(MU1,WP,MU2)*D(I1,2)*D(I2,3)+DIFF(MU1,WM,MU2)*D(I1,3)*D(I2,2)
	   +DIFF(MU1,XM,MU2)*D(I1,1)*D(I2,2)+DIFF(MU1,YM,MU2)*D(I1,1)*D(I2,3)
	   +DIFF(MU1,XP,MU2)*D(I1,2)*D(I2,1)+DIFF(MU1,YP,MU2)*D(I1,3)*D(I2,1)
	 +(RT12*LDIFF(MU1,GL,MU2)+UNIT*DIFF(MU1,Z,MU2)*RT15/2-UNIT*DIFF(MU1,PH,
	   MU2)*RT13/2)*D(I1,1)*D(I2,1)+(DIFF(MU1,Z,MU2)*RT15/2+3*DIFF(MU1,PH,MU
	   2)*RT13/2)*D(I1,2)*D(I2,2)-2*DIFF(MU1,Z,MU2)*RT15*D(I1,3)*D(I2,3))
L 3	Id RT12**2=1/2
	*next

Terms in output 12
Running time 102 sec			Used	Maximum
Generated terms 12 	Input space 	884 	100000
Equal terms 0     	Output space 	708 	250000
Cancellations 0   	Nr of expr.  	38 	255
Multiplications 31	String space 	0 	4096
Records written 93 	Merging		0 	0

> P noutp
	Z A(MU1,I1,I2)=DIF(MU2,MU1,I1,I2)
L 2	Id DIFF(MU1~,XM,MU2~)=MX(MU2)
L 2	Al DIFF(MU1~,XP,MU2~)=PX(MU2)
L 2	Al DIFF(MU1~,YM,MU2~)=MY(MU2)
L 2	Al DIFF(MU1~,YP,MU2~)=PY(MU2)
L 2	Al LDIFF(MU1~,GL,MU2~)=LG(MU2)
L 3	Id DIFF(MU1~,Z~,MU2~)=Z(MU2)
	*next

Terms in output 12
Running time 104 sec			Used	Maximum
Generated terms 12 	Input space 	634 	100000
Equal terms 0     	Output space 	646 	250000
Cancellations 0   	Nr of expr.  	45 	255
Multiplications 85	String space 	0 	4096
Records written 150 	Merging		0 	0

> P noutp
	B GG
	Z E(I1,I3)=GG*(A(MU1,I1,I2)*A(MU2,I2,I3)-A(MU2,I1,I2)*A(MU1,I2,I3))
	*yep

Terms in output 70
Running time 107 sec			Used	Maximum
Generated terms 100 	Input space 	434 	100000
Equal terms 17     	Output space 	3864 	250000
Cancellations 13   	Nr of expr.  	42 	255
Multiplications 2221	String space 	0 	4096
Records written 207 	Merging		0 	0

L 1	Id,Multi,RT12**2=1/2
L 1	Al LG(MU1)*LG(MU2)=LG(MU2)*LG(MU1)+2*I*FGGL(MU1,MU2)
L 1	Al UNIT**N~=UNIT**N/UNIT
	*next

Terms out 70, in 70.

Terms in output 53
Running time 107 sec			Used	Maximum
Generated terms 71 	Input space 	342 	100000
Equal terms 13     	Output space 	3146 	250000
Cancellations 5   	Nr of expr.  	41 	255
Multiplications 296	String space 	0 	4096
Records written 207 	Merging		0 	0

	B GG
	Z ZG0=DIF(MU1,MU2,I1,I2)*DIF(MU1,MU2,I2,I1)
	Z ZG00=-DIF(MU1,MU1,I1,I2)*DIF(MU2,MU2,I2,I1)
C ZG00=0 WHEN THE GAUGE FIXING TERM IS ADDED
	Z ZG1=2*E(I1,I2)*DIF(MU1,MU2,I2,I1)
	Z ZG2=E(I1,I2)*E(I2,I1)/2
	*yep

Terms in output 309
Running time 112 sec			Used	Maximum
Generated terms 436 	Input space 	532 	100000
Equal terms 127     	Output space 	16304 	250000
Cancellations 0   	Nr of expr.  	46 	255
Multiplications 27007	String space 	0 	4096
Records written 209 	Merging		0 	0

L 1	Id UNIT**N~=UNIT**N/UNIT
L 1	Al RT12**2=1/2
L 1	Al RT13**2=1/3
L 1	Al RT15**2=1/5
	Sum MU1,MU2
L 2	Id,Ainbe,LG(MU1~)*LG(MU2~)=2*GL(MU1)*GL(MU2)
L 2	Al LDIFF(MU1~,GL,MU2~)*LDIFF(MU3~,GL,MU4~)=2*DIFF(MU1,GL,MU2)*DIFF(MU3,
	   GL,MU4)
L 2	Al FGGL(MU1~,MU2~)*LDIFF(MU3~,GL,MU4~)=2*FGGDG(MU1,MU2,MU3,MU4)
L 2	Al FGGL(MU1~,MU2~)*FGGL(MU3~,MU4~)=2*F2G4(MU1,MU2,MU3,MU4)
L 3	Id FGGL(MU1~,MU2~)=0
L 3	Al LG(MU1~)=0
L 3	Al LDIFF(MU1~,GL,MU2~)=0
L 3	Al UNIT=3
	*yep

Terms out 309, in 309.

Terms in output 153
Running time 113 sec			Used	Maximum
Generated terms 209 	Input space 	808 	100000
Equal terms 52     	Output space 	7598 	250000
Cancellations 4   	Nr of expr.  	51 	255
Multiplications 1082	String space 	0 	4096
Records written 211 	Merging		0 	0

	B GG,PHDPH,ZDZ,GLDGL,WPDWM,XPDXM,YPDYM,XMDXM,YMDYM,XMDYM,XPDXP,YPDYP
	   ,XPDYP,XPDYM,YPDXM
L 1	Id PX(MU1~)*MX(MU2~)*PX(MU2~)*MX(MU1~)=XXXX
L 1	Al PX(MU1~)*MY(MU2~)*PY(MU2~)*MX(MU1~)=XYYX
L 1	Al PY(MU1~)*MY(MU2~)*PY(MU2~)*MY(MU1~)=YYYY
L 1	Al PY(MU1~)*MX(MU2~)*PX(MU2~)*MY(MU1~)=XYYX
L 2	Id MX(MU1~)=XM(MU1)
L 2	Al PX(MU1~)=XP(MU1)
L 2	Al MY(MU1~)=YM(MU1)
L 2	Al PY(MU1~)=YP(MU1)
L 3	Id,Commu,DIFF
C -1/4*F(MU,NU,A)*F(MU,NU,A)
C ZG0+ZG1+ZG2=-1/4*F(MU,NU)**2+PART OF GAUGE FIXING
	*begin

Terms out 153, in 153.

Terms in output 108
Running time 114 sec			Used	Maximum
Generated terms 153 	Input space 	692 	100000
Equal terms 43     	Output space 	4700 	250000
Cancellations 2   	Nr of expr.  	51 	255
Multiplications 792	String space 	0 	4096
Records written 211 	Merging		0 	0

 
ZG0 = 
 - 1/2*DIFF(Naa,Z,Nab)*DIFF(Naa,Z,Nab)
 
 - 1/2*DIFF(Naa,PH,Nab)*DIFF(Naa,PH,Nab)
 
 - 1/2*DIFF(Naa,GL,Nab)*DIFF(Naa,GL,Nab)
 
 - DIFF(Naa,WP,Nab)*DIFF(Naa,WM,Nab)
 
 - DIFF(Naa,XM,Nab)*DIFF(Naa,XP,Nab)
 
 - DIFF(Naa,YM,Nab)*DIFF(Naa,YP,Nab)
 
ZG00 = 
 + 1/2*DIFF(Naa,Z,Naa)*DIFF(Nab,Z,Nab)
 
 + 1/2*DIFF(Naa,PH,Naa)*DIFF(Nab,PH,Nab)
 
 + 1/2*DIFF(Naa,GL,Naa)*DIFF(Nab,GL,Nab)
 
 + 1/2*DIFF(Naa,WP,Naa)*DIFF(Nab,WM,Nab)
 
 + 1/2*DIFF(Naa,WM,Naa)*DIFF(Nab,WP,Nab)
 
 + 1/2*DIFF(Naa,XM,Naa)*DIFF(Nab,XP,Nab)
 
 + 1/2*DIFF(Naa,XP,Naa)*DIFF(Nab,XM,Nab)
 
 + 1/2*DIFF(Naa,YM,Naa)*DIFF(Nab,YP,Nab)
 
 + 1/2*DIFF(Naa,YP,Naa)*DIFF(Nab,YM,Nab)
 
ZG1 = 
 + DIFF(Z,WP,WM)*GG
  * ( - 5/2*I*RT12*RT15 )
 
 + DIFF(Z,WM,WP)*GG
  * ( 5/2*I*RT12*RT15 )
 
 + DIFF(Z,YM,YP)*GG
  * ( - 5/2*I*RT12*RT15 )
 
 + DIFF(Z,YP,YM)*GG
  * ( 5/2*I*RT12*RT15 )
 
 + DIFF(PH,WP,WM)*GG
  * ( - 3/2*I*RT12*RT13 )
 
 + DIFF(PH,WM,WP)*GG
  * ( 3/2*I*RT12*RT13 )
 
 + DIFF(PH,XM,XP)*GG
  * ( 2*I*RT12*RT13 )
 
 + DIFF(PH,XP,XM)*GG
  * ( - 2*I*RT12*RT13 )
 
 + DIFF(PH,YM,YP)*GG
  * ( 1/2*I*RT12*RT13 )
 
 + DIFF(PH,YP,YM)*GG
  * ( - 1/2*I*RT12*RT13 )
 
 + DIFF(WP,Z,WM)*GG
  * ( 5/2*I*RT12*RT15 )
 
 + DIFF(WP,PH,WM)*GG
  * ( 3/2*I*RT12*RT13 )
 
 + DIFF(WP,WM,Z)*GG
  * ( - 5/2*I*RT12*RT15 )
 
 + DIFF(WP,WM,PH)*GG
  * ( - 3/2*I*RT12*RT13 )
 
 + DIFF(WP,XM,YP)*GG
  * ( I*RT12 )
 
 + DIFF(WP,YP,XM)*GG
  * ( - I*RT12 )
 
 + DIFF(WM,Z,WP)*GG
  * ( - 5/2*I*RT12*RT15 )
 
 + DIFF(WM,PH,WP)*GG
  * ( - 3/2*I*RT12*RT13 )
 
 + DIFF(WM,WP,Z)*GG
  * ( 5/2*I*RT12*RT15 )
 
 + DIFF(WM,WP,PH)*GG
  * ( 3/2*I*RT12*RT13 )
 
 + DIFF(WM,XP,YM)*GG
  * ( - I*RT12 )
 
 + DIFF(WM,YM,XP)*GG
  * ( I*RT12 )
 
 + DIFF(XM,PH,XP)*GG
  * ( - 2*I*RT12*RT13 )
 
 + DIFF(XM,WP,YP)*GG
  * ( - I*RT12 )
 
 + DIFF(XM,XP,PH)*GG
  * ( 2*I*RT12*RT13 )
 
 + DIFF(XM,YP,WP)*GG
  * ( I*RT12 )
 
 + DIFF(XP,PH,XM)*GG
  * ( 2*I*RT12*RT13 )
 
 + DIFF(XP,WM,YM)*GG
  * ( I*RT12 )
 
 + DIFF(XP,XM,PH)*GG
  * ( - 2*I*RT12*RT13 )
 
 + DIFF(XP,YM,WM)*GG
  * ( - I*RT12 )
 
 + DIFF(YM,Z,YP)*GG
  * ( 5/2*I*RT12*RT15 )
 
 + DIFF(YM,PH,YP)*GG
  * ( - 1/2*I*RT12*RT13 )
 
 + DIFF(YM,WM,XP)*GG
  * ( - I*RT12 )
 
 + DIFF(YM,XP,WM)*GG
  * ( I*RT12 )
 
 + DIFF(YM,YP,Z)*GG
  * ( - 5/2*I*RT12*RT15 )
 
 + DIFF(YM,YP,PH)*GG
  * ( 1/2*I*RT12*RT13 )
 
 + DIFF(YP,Z,YM)*GG
  * ( - 5/2*I*RT12*RT15 )
 
 + DIFF(YP,PH,YM)*GG
  * ( 1/2*I*RT12*RT13 )
 
 + DIFF(YP,WP,XM)*GG
  * ( I*RT12 )
 
 + DIFF(YP,XM,WP)*GG
  * ( - I*RT12 )
 
 + DIFF(YP,YM,Z)*GG
  * ( 5/2*I*RT12*RT15 )
 
 + DIFF(YP,YM,PH)*GG
  * ( - 1/2*I*RT12*RT13 )
 
 - FGGDG(Naa,Nab,Naa,Nab)*GG
 
ZG2 = 
 + GG^2
  * ( 15/8*RT13*RT15*ZDWP*PHDWM + 15/8*RT13*RT15*ZDWM*PHDWP
  - 5/8*RT13*RT15*ZDYM*PHDYP - 5/8*RT13*RT15*ZDYP*PHDYM - 1/2*RT13
  *PHDXM*WPDYP - 1/2*RT13*PHDXP*WMDYM + 7/4*RT13*PHDYM*WMDXP
  + 7/4*RT13*PHDYP*WPDXM - 5/2*RT15*ZDXM*WPDYP - 5/2*RT15*ZDXP*WMDYM
   + 5/4*RT15*ZDYM*WMDXP + 5/4*RT15*ZDYP*WPDXM + 5/8*ZDWP*ZDWM
  + 5/8*ZDYM*ZDYP + 3/8*PHDWP*PHDWM + 2/3*PHDXM*PHDXP + 1/24*PHDYM
  *PHDYP + 1/2*GLDXM*GLDXP + 1/2*GLDYM*GLDYP + 1/2*WPDWP*WMDWM
  - 1/2*WPDXM*WMDXP + WPDXP*WMDXM + WPDYM*WMDYP - 1/2*WPDYP*WMDYM )
 
 - 5/8*GG^2*ZDZ*WPDWM
 
 - 5/8*GG^2*ZDZ*YMDYP
 
 - 3/8*GG^2*PHDPH*WPDWM
 
 - 2/3*GG^2*PHDPH*XMDXP
 
 - 1/24*GG^2*PHDPH*YMDYP
 
 - 1/2*GG^2*GLDGL*XMDXP
 
 - 1/2*GG^2*GLDGL*YMDYP
 
 + GG^2*WPDWM
  * ( - 15/4*RT13*RT15*ZDPH )
 
 - 1/2*GG^2*WPDWM*XMDXP
 
 - 1/2*GG^2*WPDWM*YMDYP
 
 - 1/2*GG^2*WPDWM^2
 
 + 1/2*GG^2*XMDXM*XPDXP
 
 - 1/4*GG^2*XMDXP^2
 
 + GG^2*XMDYM*XPDYP
 
 + GG^2*XMDYP
  * ( - 5/4*RT13*PHDWP + 5/4*RT15*ZDWP )
 
 + GG^2*XPDYM
  * ( - 5/4*RT13*PHDWM + 5/4*RT15*ZDWM )
 
 - 1/2*GG^2*XPDYM*XMDYP
 
 + 1/2*GG^2*YMDYM*YPDYP
 
 + GG^2*YMDYP
  * ( 5/4*RT13*RT15*ZDPH )
 
 - 1/4*GG^2*YMDYP^2
 
 - 1/4*XXXX*GG^2
 
 - 1/2*XYYX*GG^2
 
 - 1/4*YYYY*GG^2
 
 - 1/4*F2G4(Naa,Nab,Naa,Nab)*GG^2 + 0.
 

Begin. Time 114 sec.
	B I,GG,RT12,RT13,RT15
C THERE IS IMPLICIT LA IN G(1,GL)
	S GG,RT12,RT13,RT15,T
	I I1=5,I2=5,I3=5
	V WP,WM,XM,XP,YM,YP,GL,PH,Z,K
	F UQB=c
	Oldnew UQBC=UQ
	F CH=c,TR
	F C=c,Cc=c,L=c,UPB=c,DNB=c,ELB=c,NUB=c
	Oldnew CC=CG,Cc=CC,CcC=CCG,CHC=CHG
	Oldnew LC=R,UPBC=UP,DNBC=DN,ELBC=EL,NUBC=NU
	X ASLSH(I1,I2)=-I*RT12*(G(1,WP)*D(I1,4)*D(I2,5)+G(1,WM)*D(I1,5)*D(I2,4)
	  +(RT12*G(1,GL)+RT15/2*G(1,Z)-RT13/2*G(1,PH))*D(I1,1)*D(I2,1)
	   +(-2*
	    RT12*G(1,GL)+RT15/2*G(1,Z)-RT13/2*G(1,PH))*D(I1,2)*D(I2,2)
	   +(RT15/2*G(1,Z)+3*RT13/2*G(1,PH))*D(I1,4)*D(I2,4)
	   -2*RT15*G(1,Z)*D(I1,5)*D(I2,5)
	   +G(1,XM)*(D(I1,1)+D(I1,2))*D(I2,4)+G(1,XP)*D(I1,4)*(D(I2,1)+D(I2,2))
	   +G(1,YM)*(D(I1,1)+D(I1,2))*D(I2,5)+G(1,YP)*D(I1,5)*(D(I2,1)+D(I2,2)))
	X DSLSH(T,I1,I2)=I*G(1,K)*D(I1,I2)+T*GG*ASLSH(I1,I2)
	X MM(I1,I2,L,CC,C)=RT12*(
	   C(L,UQ  )*(D(I1,1)*D(I2,2)-D(I1,2)*D(I2,1))*Epf(1,2,3)
	   +CC(L,UP)*(D(I1,1)*D(I2,4)-D(I1,4)*D(I2,1))
	   +CC(L,DN)*(D(I1,1)*D(I2,5)-D(I1,5)*D(I2,1))
	  +C(L,EL  )*(D(I1,4)*D(I2,5)-D(I1,5)*D(I2,4)))
	X M(I1,I2)=MM(I1,I2,L,CC,C)
	X MB(I1,I2)=Conjg(MM(I2,I1,L,CC,C))
	X P(I1)=CC(R,DN)*D(I1,1)+C(R,EL)*D(I1,4)-C(R,NU)*D(I1,5)
	X PB(I1)=Conjg(P(I1))
	Z LAGRN=
	   -PB(I1)*DSLSH(1,I1,I2)*P(I2)
	   -MB(I1,I2)*DSLSH(2,I2,I3)*M(I3,I1)
	*yep

Terms in output 40
Running time 115 sec			Used	Maximum
Generated terms 51 	Input space 	2548 	100000
Equal terms 11     	Output space 	2852 	250000
Cancellations 0   	Nr of expr.  	43 	255
Multiplications 4322	String space 	0 	4096
Records written 211 	Merging		0 	0

L 1	Id,Multi,RT12**2=1/2
L 1	Al Epf(1,2,3)*Epf(1,2,3)=-1
L 1	Al CG(R~,NU~)*G(1,K )*C(L~,EL~)= Conjg(EL)*L*G(1,K)*R*Conjg(NU)
L 3	Id CG(R~,NU~)*G(1,K~)*C(L~,EL~)=-Conjg(EL)*L*G(1,K)*R*Conjg(NU)
L 5	Id CC(L~,EL~)=L*EL
L 5	Al CCG(R~,ELB~)=ELB*R
L 5	Al C(L~,EL~)=L*CH*TR*Conjg(EL)
L 5	Al CG(R~,ELB~)=Conjg(ELB)*TR*CHG*R
> P outp
	*yep

Terms out 40, in 40.

Terms in output 40
Running time 116 sec			Used	Maximum
Generated terms 40 	Input space 	2798 	100000
Equal terms 0     	Output space 	2836 	250000
Cancellations 0   	Nr of expr.  	48 	255
Multiplications 384	String space 	0 	4096
Records written 211 	Merging		0 	0

 
LAGRN = 
 + 1/2*UQB*L*G(1,GL)*R*UQ*I*GG
 
 + UQB*L*G(1,PH)*R*UQ*I*GG*RT12*RT13
 
 - UQB*L*G(1,Z)*R*UQ*I*GG*RT12*RT15
 
 - UQB*L*G(1,K)*R*UQ*I
 
 - UQ*TR*CHG*R*G(1,XM)*L*UP*Epf(1,2,3)*I*GG*RT12
 
 - UQ*TR*CHG*R*G(1,YM)*L*DN*Epf(1,2,3)*I*GG*RT12
 
 + UPB*R*G(1,WP)*L*DN*I*GG*RT12
 
 + UPB*R*G(1,XP)*L*CH*TR*UQB*Epf(1,2,3)*I*GG*RT12
 
 - UPB*R*G(1,YM)*L*CH*TR*ELB*I*GG*RT12
 
 + 1/2*UPB*R*G(1,GL)*L*UP*I*GG
 
 + UPB*R*G(1,PH)*L*UP*I*GG*RT12*RT13
 
 + UPB*R*G(1,Z)*L*UP*I*GG*RT12*RT15
 
 - UPB*R*G(1,K)*L*UP*I
 
 + DNB*L*G(1,XM)*R*CH*TR*ELB*I*GG*RT12
 
 - DNB*L*G(1,YM)*R*CH*TR*NUB*I*GG*RT12
 
 + 1/2*DNB*L*G(1,GL)*R*DN*I*GG
 
 - 1/2*DNB*L*G(1,PH)*R*DN*I*GG*RT12*RT13
 
 + 1/2*DNB*L*G(1,Z)*R*DN*I*GG*RT12*RT15
 
 - DNB*L*G(1,K)*R*DN*I
 
 + DNB*R*G(1,WM)*L*UP*I*GG*RT12
 
 + DNB*R*G(1,XM)*L*CH*TR*ELB*I*GG*RT12
 
 + DNB*R*G(1,YP)*L*CH*TR*UQB*Epf(1,2,3)*I*GG*RT12
 
 + 1/2*DNB*R*G(1,GL)*L*DN*I*GG
 
 - 1/2*DNB*R*G(1,PH)*L*DN*I*GG*RT12*RT13
 
 - 3/2*DNB*R*G(1,Z)*L*DN*I*GG*RT12*RT15
 
 - DNB*R*G(1,K)*L*DN*I
 
 - 3/2*ELB*L*G(1,PH)*R*EL*I*GG*RT12*RT13
 
 + 3/2*ELB*L*G(1,Z)*R*EL*I*GG*RT12*RT15
 
 - ELB*L*G(1,K)*R*EL*I
 
 + ELB*R*G(1,WM)*L*NU*I*GG*RT12
 
 - 3/2*ELB*R*G(1,PH)*L*EL*I*GG*RT12*RT13
 
 - 1/2*ELB*R*G(1,Z)*L*EL*I*GG*RT12*RT15
 
 - ELB*R*G(1,K)*L*EL*I
 
 + EL*TR*CHG*L*G(1,XP)*R*DN*I*GG*RT12
 
 + EL*TR*CHG*R*G(1,XP)*L*DN*I*GG*RT12
 
 - EL*TR*CHG*R*G(1,YP)*L*UP*I*GG*RT12
 
 + NUB*R*G(1,WP)*L*EL*I*GG*RT12
 
 + 2*NUB*R*G(1,Z)*L*NU*I*GG*RT12*RT15
 
 - NUB*R*G(1,K)*L*NU*I
 
 - NU*TR*CHG*L*G(1,YP)*R*DN*I*GG*RT12 + 0.
 
	F UU=c,UUT=c,U7=c
	Oldnew UUTC=UUS,UUC=UUG,U7C=U7G
C T=TRANSPOSE , S=STAR , G=DAGGER=INVERSE
L 1	Id UP=UUG*UP
L 1	Al UPB=UPB*UU
L 1	Al UQ*TR*CHG*R=UP*TR*CHG*U7*UU*R
L 1	Al L*CH*TR*UQB=L*UUG*U7G*CH*TR*UPB
L 1	Al R*UQ=R*UUT*U7*UP
L 1	Al UQB*L=UPB*U7G*UUS*L
L 2	Id,Ainbe,UU*UUG=1
L 2	Al,Ainbe,UUS*UUT=1
L 2	Al,Adiso,U7*U7G=1
	*yep

Terms out 40, in 40.

Terms in output 40
Running time 116 sec			Used	Maximum
Generated terms 40 	Input space 	2486 	100000
Equal terms 0     	Output space 	2876 	250000
Cancellations 0   	Nr of expr.  	49 	255
Multiplications 176	String space 	0 	4096
Records written 211 	Merging		0 	0

L 1	Id L*G(1,Z~)*R=L*G(1,Z)
L 1	Al R*G(1,Z~)*L=R*G(1,Z)
L 2	Id R*G(1,K)=(1-L)*G(1,K)
L 2	Al R*G(1,PH)=(1-L)*G(1,PH)
L 2	Al R*G(1,GL)=(1-L)*G(1,GL)
L 4	Id NUB*L=0
L 4	Al L*G(1,Z)=G(1,Z)*(1+G5(1))/2
L 4	Al R*G(1,Z)=G(1,Z)*(1-G5(1))/2
L 4	Al ELB*CH*R*G(1,XP)=ELB*CH*(1-L)*G(1,XP)
L 4	Al R*G(1,XM)*CH*EL=(1-L)*G(1,XM)*CH*EL
> P stat
C FERMION KINETIC TERMS
C   AND FERMION INTERACTIONS WITH GAUGE FIELD
	*begin

Terms out 40, in 40.

Terms in output 32
Running time 116 sec			Used	Maximum
Generated terms 55 	Input space 	3016 	100000
Equal terms 14     	Output space 	2184 	250000
Cancellations 9   	Nr of expr.  	48 	255
Multiplications 346	String space 	0 	4096
Records written 211 	Merging		0 	0

 
LAGRN = 
 + 1/2*UPB*G(1,GL)*UP*I*GG
 
 + UPB*G(1,PH)*UP*I*GG*RT12*RT13
 
 - UPB*G(1,Z)*G5(1)*UP*I*GG*RT12*RT15
 
 - UPB*G(1,K)*UP*I
 
 + UPB*R*G(1,XP)*U7G*CH*TR*UPB*Epf(1,2,3)*I*GG*RT12
 
 + UPB*UU*R*G(1,WP)*DN*I*GG*RT12
 
 - UPB*UU*R*G(1,YM)*CH*TR*ELB*I*GG*RT12
 
 - UP*TR*CHG*U7*R*G(1,XM)*UP*Epf(1,2,3)*I*GG*RT12
 
 - UP*TR*CHG*U7*UU*R*G(1,YM)*DN*Epf(1,2,3)*I*GG*RT12
 
 + 1/2*DNB*G(1,GL)*DN*I*GG
 
 - 1/2*DNB*G(1,PH)*DN*I*GG*RT12*RT13
 
 + DNB*G(1,Z)*G5(1)*DN*I*GG*RT12*RT15
 
 - 1/2*DNB*G(1,Z)*DN*I*GG*RT12*RT15
 
 - DNB*G(1,K)*DN*I
 
 + DNB*L*G(1,XM)*CH*TR*ELB*I*GG*RT12
 
 - DNB*L*G(1,YM)*CH*TR*NUB*I*GG*RT12
 
 + DNB*R*G(1,WM)*UUG*UP*I*GG*RT12
 
 + DNB*R*G(1,XM)*CH*TR*ELB*I*GG*RT12
 
 + DNB*R*G(1,YP)*UUG*U7G*CH*TR*UPB*Epf(1,2,3)*I*GG*RT12
 
 - 3/2*ELB*G(1,PH)*EL*I*GG*RT12*RT13
 
 + ELB*G(1,Z)*G5(1)*EL*I*GG*RT12*RT15
 
 + 1/2*ELB*G(1,Z)*EL*I*GG*RT12*RT15
 
 - ELB*G(1,K)*EL*I
 
 + ELB*R*G(1,WM)*NU*I*GG*RT12
 
 + EL*TR*CHG*L*G(1,XP)*DN*I*GG*RT12
 
 + EL*TR*CHG*R*G(1,XP)*DN*I*GG*RT12
 
 - EL*TR*CHG*R*G(1,YP)*UUG*UP*I*GG*RT12
 
 - NUB*G(1,Z)*G5(1)*NU*I*GG*RT12*RT15
 
 + NUB*G(1,Z)*NU*I*GG*RT12*RT15
 
 - NUB*G(1,K)*NU*I
 
 + NUB*R*G(1,WP)*EL*I*GG*RT12
 
 - NU*TR*CHG*L*G(1,YP)*DN*I*GG*RT12 + 0.
 

Begin. Time 116 sec.
	S HM=c,PHIP=c,F,H0,PHI0,RT12
	Oldnew HMC=HP,PHIPC=PHIM
	I I1=5,I2=5
	Z H(I1)=I*HM*D(I1,1)+I*PHIP*D(I1,4)+RT12*(H0+2*F/GG-I*PHI0)*D(I1,5)
> P noutp
	*next

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

C UPB*CH*DN*HM*Epf(1,2,3)=Epf(I1,I2,I3)*UPB(I1)*CH*DN(I2)*HM(I3)   ETC
	S L2,M2,GGM2M
	B L2,M2,F,HM,HP,PHIP,PHIM,H0,PHI0,GGM2M
	F UQB=c
	Oldnew UQBC=UQ
	F CH=c,TR
	F C=c,Cc=c,L=c,UPB=c,DNB=c,ELB=c,NUB=c
	Oldnew CC=CG,Cc=CC,CcC=CCG,CHC=CHG
	Oldnew LC=R,UPBC=UP,DNBC=DN,ELBC=EL,NUBC=NU
	X MM(I1,I2,L,CC,C)=RT12*(
	   -C(L,UQ)*(D(I1,1)*D(I2,3)-D(I1,3)*D(I2,1))*Epf(3,2,1)
	   +CC(L,UP)*(D(I1,1)*D(I2,4)-D(I1,4)*D(I2,1))
	   +CC(L,DN)*(D(I1,1)*D(I2,5)-D(I1,5)*D(I2,1))
	  +C(L,EL  )*(D(I1,4)*D(I2,5)-D(I1,5)*D(I2,4)))
	X P(I1)=CC(R,DN)*(D(I1,1)+D(I1,3))+C(R,EL)*D(I1,4)-C(R,NU)*D(I1,5)
	X PB(I1)=Conjg(P(I1))
	X M(I1,I2)=MM(I1,I2,L,CC,C)
	X MB(I1,I2)=Conjg(MM(I2,I1,L,CC,C))
	Z Z=-L2*(H(I1)*MB(I1,I2)*P(I2)+PB(I1)*M(I1,I2)*Conjg(H(I2)))
L 9	Id L2=GG*M2/F
L 9	Al CG(R~,UP~)*C(L~,EL~)=Conjg(EL)*L*R*Conjg(UP)
L11	Id CC(L~,EL~)=L*EL
L11	Al CCG(R~,ELB~)=ELB*R
L11	Al C(L~,EL~)=L*CH*TR*Conjg(EL)
L11	Al CG(R~,ELB~)=Conjg(ELB)*TR*CHG*R
L11	Al M2*F**-1=GGM2M/GG
L13	Id,Multi,RT12**2=1/2
> P outp
	*yep

Terms in output 22
Running time 119 sec			Used	Maximum
Generated terms 22 	Input space 	2446 	100000
Equal terms 0     	Output space 	1332 	250000
Cancellations 0   	Nr of expr.  	52 	255
Multiplications 1534	String space 	0 	4096
Records written 270 	Merging		0 	0

	F UU=c,UUT=c,U7=c
	Oldnew UUTC=UUS,UUC=UUG,U7C=U7G
C T=TRANSPOSE , S=STAR , G=DAGGER=INVERSE
L 1	Id UP=UUG*UP
L 1	Al UPB=UPB*UU
L 1	Al UQ*TR*CHG*R=UP*TR*CHG*U7*UU*R
L 1	Al L*CH*TR*UQB=L*UUG*U7G*CH*TR*UPB
L 2	Id R*R=R
L 2	Al L*L=L
L 3	Id L*M2=G6(1)/2*M2
L 3	Al R*M2=G7(1)/2*M2
L 3	Al L*H0=G6(1)/2*H0
L 3	Al R*H0=G7(1)/2*H0
L 3	Al L*PHI0=G6(1)/2*PHI0
L 3	Al R*PHI0=G7(1)/2*PHI0
L 4	Id Trick,1
L12	Id Gi(1)=1
> P outp
C FERMION HIGGS COUPLING 2
	*yep

Terms out 22, in 22.

Terms in output 16
Running time 120 sec			Used	Maximum
Generated terms 34 	Input space 	1826 	100000
Equal terms 12     	Output space 	956 	250000
Cancellations 6   	Nr of expr.  	51 	255
Multiplications 270	String space 	0 	4096
Records written 270 	Merging		0 	0

 
Z = 
 + UPB*UU*R*CH*TR*ELB*HM*GGM2M
  * ( I*RT12 )
 
 + UPB*UU*R*DN*PHIP*GGM2M
  * ( - I*RT12 )
 
 + UP*TR*CHG*U7*UU*R*DN*Epf(1,2,3)*HM*GGM2M
  * ( - I*RT12 )
 
 + DNB*G5(1)*DN*PHI0*GGM2M
  * ( - 1/2*I )
 
 + DNB*L*UUG*UP*PHIM*GGM2M
  * ( I*RT12 )
 
 + DNB*L*UUG*U7G*CH*TR*UPB*Epf(1,2,3)*HP*GGM2M
  * ( - I*RT12 )
 
 + DNB*R*CH*TR*NUB*HM*GGM2M
  * ( - I*RT12 )
 
 - 1/2*DNB*DN*H0*GGM2M
 
 - DNB*DN*M2
 
 + ELB*G5(1)*EL*PHI0*GGM2M
  * ( - 1/2*I )
 
 + ELB*L*NU*PHIM*GGM2M
  * ( I*RT12 )
 
 - 1/2*ELB*EL*H0*GGM2M
 
 - ELB*EL*M2
 
 + EL*TR*CHG*L*UUG*UP*HP*GGM2M
  * ( - I*RT12 )
 
 + NUB*R*EL*PHIP*GGM2M
  * ( - I*RT12 )
 
 + NU*TR*CHG*L*DN*HP*GGM2M
  * ( I*RT12 ) + 0.
 
	S FFEPS,EPS,MMW,MMY,HYM,HYP,HWP,HWM
	B FFEPS,EPS,F,MMW,MMY,M2,GGM2M
L 1	Id HM=FFEPS/MMY*HM+F*HYM/MMY
L 1	Al HP=FFEPS/MMY*HP+F*HYP/MMY
L 1	Al PHIP=F*PHIP/MMW-2*EPS/MMW*HWP
L 1	Al PHIM=F*PHIM/MMW-2*EPS/MMW*HWM
> P noutp
	*begin

Terms out 16, in 16.

Terms in output 26
Running time 120 sec			Used	Maximum
Generated terms 26 	Input space 	1236 	100000
Equal terms 0     	Output space 	1728 	250000
Cancellations 0   	Nr of expr.  	42 	255
Multiplications 76	String space 	0 	4096
Records written 270 	Merging		0 	0


Begin. Time 120 sec.
	Common Z
	S HM=c,PHIP=c,F,H0,PHI0,RT12
	Oldnew HMC=HP,PHIPC=PHIM
	I I1=5,I2=5,I3=5,I4=5,I5=5
	Z H(I1)=I*HM*D(I1,1)+I*PHIP*D(I1,4)+RT12*(H0+2*F/GG-I*PHI0)*D(I1,5)
> P noutp
	*next

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

	F L1,M1
	B F,HM,HP,PHIP,PHIM,H0,PHI0,GG
	F UQB=c
	Oldnew UQBC=UQ
	F CH=c,TR
	F C=c,Cc=c,L=c,UPB=c,DNB=c,ELB=c
	Oldnew CC=CG,Cc=CC,CcC=CCG,CHC=CHG
	Oldnew LC=R,UPBC=UP,DNBC=DN,ELBC=EL
	X MM(I1,I2,L,CC,C)=RT12*(
	   C(L,UQ  )*(D(I1,1)*D(I2,2)-D(I1,2)*D(I2,1))
	  +C(L,UQ  )*(D(I1,2)*D(I2,3)-D(I1,3)*D(I2,2))
	  +CC(L,UP  )*(D(I1,2)*D(I2,4)-D(I1,4)*D(I2,2))*Epf(3,2,1)
	  +CC(L,UP  )*(D(I1,3)*D(I2,4)-D(I1,4)*D(I2,3))
	  +CC(L,DN  )*(D(I1,3)*D(I2,5)-D(I1,5)*D(I2,3))
	  +C(L,EL  )*(D(I1,4)*D(I2,5)-D(I1,5)*D(I2,4)))
	X M(I1,I2)=MM(I1,I2,L,CC,C)
	X MCT(I1,I2)=Conjg(MM(I2,I1,R,C,CC))
	Z Z=-Epf(I1,I2,I3,I4,I5)*MCT(I1,I2)*L1*M(I3,I4)*H(I5)
	*yep

Terms in output 12
Running time 123 sec			Used	Maximum
Generated terms 48 	Input space 	1602 	100000
Equal terms 36     	Output space 	908 	250000
Cancellations 0   	Nr of expr.  	43 	255
Multiplications 3841	String space 	0 	4096
Records written 329 	Merging		0 	0

L 1	Id Epf(1,2,3,4,5)=1
L 2	Id CG(R~,UP~)*L1~*C(L~,EL~)=Conjg(EL)*L*L1*R*Conjg(UP)
L 2	Al CG(R~,DNB)*L1~*CC(L~,UP~)*Epf(1,2,3)=-UP*TR*CHG*L*L1*R*DN*Epf(1,2,3)
L 4	Id CC(L~,EL~)=L*EL
L 4	Al CCG(R~,ELB~)=ELB*R
L 4	Al C(L~,EL~)=L*CH*TR*Conjg(EL)
L 4	Al CG(R~,ELB~)=Conjg(ELB)*TR*CHG*R
L 6	Id,Multi,RT12**2=1/2
> P outp
	*yep

Terms out 12, in 12.

Terms in output 7
Running time 123 sec			Used	Maximum
Generated terms 12 	Input space 	1904 	100000
Equal terms 5     	Output space 	446 	250000
Cancellations 0   	Nr of expr.  	48 	255
Multiplications 143	String space 	0 	4096
Records written 329 	Merging		0 	0

 
Z = 
 + UQB*L*L1*L*CH*TR*ELB*HM
  * ( 2*I )
 
 + UQB*L*L1*L*UP*F*GG^-1
  * ( 8*RT12 )
 
 + UQB*L*L1*L*UP*H0
  * ( 4*RT12 )
 
 + UQB*L*L1*L*UP*PHI0
  * ( - 4*I*RT12 )
 
 + UQB*L*L1*L*DN*PHIP
  * ( - 4*I )
 
 + UP*TR*CHG*L*L1*L*DN*Epf(1,2,3)*HM
  * ( - 4*I )
 
 + ELB*L*L1*L*CH*TR*UQB*HM
  * ( 2*I ) + 0.
 
	F UU=c,UUT=c,U7=c
	Oldnew UUTC=UUS,UUC=UUG,U7C=U7G
C T=TRANSPOSE , S=STAR , G=DAGGER=INVERSE
L 1	Id L1=UUT*L1*U7*UU
L 1	Al UQB*L=UPB*L*U7G*UUS
L 1	Al UP*TR*CHG*L=UP*TR*CHG*L*UUS
L 1	Al L*CH*TR*UQB=UUG*U7G*L*CH*TR*UPB
L 1	Al L*UP=UUG*L*UP
L 2	Id,Ainbe,L*L=L
L 3	Id UU*UUG=1
L 3	Al UUS*UUT=1
L 4	Id U7*U7G=1
L 5	Id U7G*L1*U7=L1
> P noutp
	*next

Terms out 7, in 7.

Terms in output 7
Running time 124 sec			Used	Maximum
Generated terms 7 	Input space 	1768 	100000
Equal terms 0     	Output space 	438 	250000
Cancellations 0   	Nr of expr.  	51 	255
Multiplications 117	String space 	0 	4096
Records written 329 	Merging		0 	0

> P outp
	B F,HM,HP,PHIP,PHIM,H0,PHI0,GGM1M
	Z Z=Z+Conjg(Z)
L 4	Id UPB*L1*L=UPB*(1-G5(1))/2*L1
L 4	Al R*L1*UP=(1+G5(1))/2*L1*UP
L 6	Id L1=-GG*M1*RT12/4/F
L 7	Id RT12**2=1/2
> P outp
C FERMION HIGGS COUPLING 1
	*yep

Terms in output 11
Running time 124 sec			Used	Maximum
Generated terms 20 	Input space 	928 	100000
Equal terms 6     	Output space 	764 	250000
Cancellations 3   	Nr of expr.  	46 	255
Multiplications 210	String space 	0 	4096
Records written 331 	Merging		0 	0

 
Z = 
 + UPB*G5(1)*M1*UP*F^-1*PHI0
  * ( - 1/2*I*GG )
 
 - UPB*M1*UP
 
 + UPB*M1*UP*F^-1*H0
  * ( - 1/2*GG )
 
 + UPB*M1*UU*L*CH*TR*ELB*F^-1*HM
  * ( - 1/2*I*RT12*GG )
 
 + UPB*M1*UU*L*DN*F^-1*PHIP
  * ( I*RT12*GG )
 
 + UP*TR*CHG*M1*U7*UU*L*DN*Epf(1,2,3)*F^-1*HM
  * ( I*RT12*GG )
 
 + UP*TR*CHG*R*M1*UUS*EL*F^-1*HP
  * ( 1/2*I*RT12*GG )
 
 + DNB*R*UUG*M1*UP*F^-1*PHIM
  * ( - I*RT12*GG )
 
 + DNB*R*UUG*U7G*M1*CH*TR*UPB*Epf(1,2,3)*F^-1*HP
  * ( I*RT12*GG )
 
 + ELB*UUT*M1*L*CH*TR*UPB*F^-1*HM
  * ( - 1/2*I*RT12*GG )
 
 + EL*TR*CHG*R*UUG*M1*UP*F^-1*HP
  * ( 1/2*I*RT12*GG ) + 0.
 
	S FFEPS,EPS,MMW,MMY,HYM,HYP,HWP,HWM
	B FFEPS,EPS,F,MMW,MMY,GGM1M
C    INCLUDING EXCEEDINGLY SMALL TERMS
L 1	Id HM=FFEPS/MMY*HM+F*HYM/MMY
L 1	Al HP=FFEPS/MMY*HP+F*HYP/MMY
L 1	Al PHIP=F*PHIP/MMW-2*EPS/MMW*HWP
L 1	Al PHIM=F*PHIM/MMW-2*EPS/MMW*HWM
	*end

Terms out 11, in 11.

Terms in output 19
Running time 124 sec			Used	Maximum
Generated terms 19 	Input space 	474 	100000
Equal terms 0     	Output space 	1396 	250000
Cancellations 0   	Nr of expr.  	43 	255
Multiplications 58	String space 	0 	4096
Records written 331 	Merging		0 	0

 
Z = 
 + UPB*G5(1)*M1*UP*F^-1
  * ( - 1/2*I*PHI0*GG )
 
 - UPB*M1*UP
 
 + UPB*M1*UP*F^-1
  * ( - 1/2*H0*GG )
 
 + UPB*M1*UU*L*CH*TR*ELB*FFEPS*F^-1*MMY^-1
  * ( - 1/2*I*HM*RT12*GG )
 
 + UPB*M1*UU*L*CH*TR*ELB*MMY^-1
  * ( - 1/2*I*RT12*GG*HYM )
 
 + UPB*M1*UU*L*DN*EPS*F^-1*MMW^-1
  * ( - 2*I*RT12*GG*HWP )
 
 + UPB*M1*UU*L*DN*MMW^-1
  * ( I*PHIP*RT12*GG )
 
 + UP*TR*CHG*M1*U7*UU*L*DN*Epf(1,2,3)*FFEPS*F^-1*MMY^-1
  * ( I*HM*RT12*GG )
 
 + UP*TR*CHG*M1*U7*UU*L*DN*Epf(1,2,3)*MMY^-1
  * ( I*RT12*GG*HYM )
 
 + UP*TR*CHG*R*M1*UUS*EL*FFEPS*F^-1*MMY^-1
  * ( 1/2*I*HP*RT12*GG )
 
 + UP*TR*CHG*R*M1*UUS*EL*MMY^-1
  * ( 1/2*I*RT12*GG*HYP )
 
 + DNB*R*UUG*M1*UP*EPS*F^-1*MMW^-1
  * ( 2*I*RT12*GG*HWM )
 
 + DNB*R*UUG*M1*UP*MMW^-1
  * ( - I*PHIM*RT12*GG )
 
 + DNB*R*UUG*U7G*M1*CH*TR*UPB*Epf(1,2,3)*FFEPS*F^-1*MMY^-1
  * ( I*HP*RT12*GG )
 
 + DNB*R*UUG*U7G*M1*CH*TR*UPB*Epf(1,2,3)*MMY^-1
  * ( I*RT12*GG*HYP )
 
 + ELB*UUT*M1*L*CH*TR*UPB*FFEPS*F^-1*MMY^-1
  * ( - 1/2*I*HM*RT12*GG )
 
 + ELB*UUT*M1*L*CH*TR*UPB*MMY^-1
  * ( - 1/2*I*RT12*GG*HYM )
 
 + EL*TR*CHG*R*UUG*M1*UP*FFEPS*F^-1*MMY^-1
  * ( 1/2*I*HP*RT12*GG )
 
 + EL*TR*CHG*R*UUG*M1*UP*MMY^-1
  * ( 1/2*I*RT12*GG*HYP ) + 0.
 

End run. Time 124 sec.
Schoonschip, 68000 version of June 27, 1991. Public version.
Date: Sun Dec 12 1993 18:26:25.  Memory: start 0001BCDC, length 476860.

C Varia 9. Numerical integration.

> P stats
	Digits 25
	Ratio 0

C Common functions correct up to 25 decimal digits.

C Range e^x: -2 < x < 2.
	X E(x)=1 + DS(J,1,35,(x^J),(1/J))

C Range Sin(x): -Pi < x < Pi.
	X Sin(x)=x*{1-1/6*DS{K,1,20,(x^K*x^K),(-1/(2*K)/(2*K+1))}}
	X Cos(x)=1-1/2*DS{K,1,20,(x^K*x^K),(-1/(2*K-1)/(2*K))}

C Range Ln(x): 0.5 < x < 2
	X Ln2(x)=2*x*{1 + DS(K,1,25,{x^K*x^K/(2*K+1)})}
	X Lnp(x)=Ln2( (x/(2.+x)))
	X Ln(x)=Lnp((x-1.))

	X log2	= 0.69314 71805 59945 30941 72321 21
	X log3	= 1.09861 22886 68109 69139 52452 36
	X log10	= 2.30258 50929 94045 68401 79914 54
	X Pi	= 3.14159 26535 89793 23846 26433 83
	X EE	= 2.71828 18284 59045 23536 02874 71
	X W2	= 1.41421 35623 73095 04880 16887 24
	X W3	= 1.73205 08075 68877 29352 74463 42
	X Ga	= 0.57721 56649 01532 86060 6512

C Gaussian 16 point integration method.

	D Gw(n)=

	 0.18945 06104 55068 496285, 0.18260 34150 44923 588867,
	 0.16915 65193 95002 538189, 0.14959 59888 16576 732081,
	 0.12462 89712 55533 872052, 0.09515 85116 82492 784810,
	 0.06225 35239 38647 892863, 0.02715 24594 11754 094852

	D Gx(n)=
	  0.09501 25098 37637 440185,  0.28160 35507 79258 913230,
	  0.45801 67776 57227 386342,  0.61787 62444 02643 748447,
	  0.75540 44083 55003 033895,  0.86563 12023 87831 743880,
	  0.94457 50230 73232 576078,  0.98940 09349 91649 932596


C Integration function.
  The argument E is just any other X-function.

	X Int(E,a,b) = 0.5*(b-a)*DS{J,1,8,(
			Gw(J)*{ E{ (0.5*(b-a)*Gx(J)+0.5*a + 0.5*b) }
	       		      + E{ (0.5*(a-b)*Gx(J)+0.5*a + 0.5*b) } } ) }

	*fix

Begin. Time 1 sec.

	Z Zx = W2/2 	+ a0*Sin((Pi/4.))	+ a1*Cos((Pi/4.))
			+ a2*Ln((2))		+ a3*E((1.))
			+ a4*(W2)^2 		+ a5*(W3)^2
	*begin

Terms in output 7
Running time 1 sec			Used	Maximum
Generated terms 9 	Input space 	2270 	100000
Equal terms 2     	Output space 	164 	250000
Cancellations 0   	Nr of expr.  	27 	255
Multiplications 23	String space 	0 	4096
Records written 0 	Merging		0 	0

 
Zx = 
  + .7071067811865475244008444 + .7071067811865475244008444*a0
  + .7071067811865475244008444*a1 + .6931471805599453094172321*a2
  + .2718281828459045235360287D+1*a3 + 2*a4 + 3*a5 + 0.
 

Begin. Time 1 sec.

C Compute the integral of a given function Fx of x from 2 to 5.
  The calculation uses the 16 point Gaussian method.

	Prec 20
	Digits 19
	Ratio 20

	X Fx(x)=x^20

	Z xx = Int(Fx,2,5)

C Below the correct answer, to check.
  The calculation takes about 62 millisec. on a 16 Mhz 68020.

	Z xc = 1/21*(5^21 - 2^21)

	*end

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

 
xx =  + 158945718701991/7
 
xc =  + 158945718701991/7 + 0.
 

End run. Time 1 sec.
Schoonschip, 68000 version of June 27, 1991. Public version.
Date: Sun Dec 12 1993 18:26:28.  Memory: start 0001BCDC, length 476860.


C Varia 10. W-W-gamma. First problem done, Dec 1963.

C The WW-photon triangle graph.
  X refers to the ksi of the Lee-Yang ksi limiting procedure.
  Z is the vector boson magnetic moment.
  A and B parametrize the vector boson propagator: D(mu,nu)+A*P(mu)*P(nu).
  Time on an IBM 7094: about 20 minutes.

	I al,alp,alpp,be,bep,bepp,mu,mup
	V P,Pp,Q
	F Fa

	Z WWA = (D(al,bep)*{2*P(mup) - Q(mup) }
		- D(al,mup)*{Z*Q(bep) + P(bep) - X*(P(bep) - Q(bep)) }
		- D(bep,mup)*{- Z*Q(al) + P(al) - Q(al) - X*P(al)} )
	     * (D(bep,alpp) + A*( P(bep) - Q(bep))*(P(alpp) - Q(alpp) ) )
	     * (D(alpp,bepp)*{P(mu) + Pp(mu) - 2*Q(mu) }
		- D(alpp,mu)*{Z*(P(bepp) - Pp(bepp))
		 + P(bepp) - Q(bepp)  - X*(Pp(bepp) - Q(bepp)) }
		- D(bepp,mu)*{Z*(Pp(alpp) - P(alpp)) + Pp(alpp) - Q(alpp)
		- X*(P(alpp) - Q(alpp))} )
	     * (D(bepp,alp) + B*(Pp(bepp) - Q(bepp))*(Pp(alp) - Q(alp)) )
	     * (D(alp,be)*(2*Pp(mup) - Q(mup))
		- D(alp,mup)*{ - Z*Q(be) + Pp(be) - Q(be) - X*Pp(be)}
		- D(be,mup)*{Z*Q(alp) + Pp(alp) - X*(Pp(alp) - Q(alp))} )
> P stats
C Id,X=0
C Al,B=A
L 4	Id,Count,Fa,Q,1
C Id,Fa(4)=0
C Al,Fa(3)=0
C Al,Fa(2)=0
C Al,Fa(1)=0
C Al,Fa(0)=0
	Outlimit,2000000
C P noutput
	*end

Terms in output 2029
Running time 12 sec			Used	Maximum
Generated terms 8192 	Input space 	2008 	100000
Equal terms 4929     	Output space 	79576 	250000
Cancellations 1234   	Nr of expr.  	15 	255
Multiplications 49737	String space 	0 	4096
Records written 0 	Merging		0 	0


Terms in output 3144
Running time 23 sec			Used	Maximum
Generated terms 16384 	Input space 	2008 	100000
Equal terms 10965     	Output space 	137344 	250000
Cancellations 2275   	Nr of expr.  	15 	255
Multiplications 99557	String space 	0 	4096
Records written 0 	Merging		0 	0


Terms in output 3195
Running time 34 sec			Used	Maximum
Generated terms 24576 	Input space 	2008 	100000
Equal terms 17434     	Output space 	180332 	250000
Cancellations 3947   	Nr of expr.  	15 	255
Multiplications 147965	String space 	0 	4096
Records written 0 	Merging		0 	0


Terms in output 4834
Running time 46 sec			Used	Maximum
Generated terms 32768 	Input space 	2012 	100000
Equal terms 23007     	Output space 	144562 	250000
Cancellations 4927   	Nr of expr.  	15 	255
Multiplications 195527	String space 	0 	4096
Records written 0 	Merging		0 	0


Terms in output 4883
Running time 53 sec			Used	Maximum
Generated terms 37500 	Input space 	2012 	100000
Equal terms 26824     	Output space 	170638 	250000
Cancellations 5793   	Nr of expr.  	15 	255
Multiplications 222329	String space 	0 	4096
Records written 0 	Merging		0 	0

 
WWA = 
 + Fa(0)*P(al)*P(be)*P(mu)
  * ( - A*B*Z*X^2*PDPp*PpDPp + A*B*Z*X^2*PpDPp^2 + A*B*Z*PDPp*PpDPp
   - A*B*Z*PpDPp^2 - A*B*X*PpDPp^2 + A*B*X^3*PpDPp^2 - 2*A*Z*X*PDPp
   - A*Z*X^2*PDPp + A*Z*X^2*PpDPp - A*Z*PDPp - A*Z*PpDPp - A*X*PpDPp
   + A*X^3*PpDPp )
 
 + Fa(0)*P(al)*P(be)*Pp(mu)
  * ( 2 + A*B*Z*X^2*PDP*PpDPp - A*B*Z*X^2*PDPp*PpDPp - A*B*Z*PDP*PpDPp
   + A*B*Z*PDPp*PpDPp - A*B*X*PDP*PpDPp + A*B*X^3*PDP*PpDPp
  + A*Z*X^2*PDP - A*Z*X^2*PDPp - A*Z*PDP + A*Z*PDPp - A*X*PDP
  + 2*A*X*PDPp + A*X^3*PDP + 2*A*PDPp + B*Z*X^2*PpDPp - B*Z*PpDPp
  - B*X*PpDPp + B*X^3*PpDPp + Z - 2*Z*X + Z*X^2 - 3*X + X^3 )
 
 + Fa(0)*P(al)*Pp(be)*P(mu)
  * ( 2*A*B*Z*X*PDPp*PpDPp - 2*A*B*Z*X*PDPp^2 + A*B*Z*X^2*PDPp*PpDPp
   - A*B*Z*X^2*PDPp^2 + A*B*Z*PDPp*PpDPp - A*B*Z*PDPp^2 + A*B*X*PDPp
  *PpDPp + 2*A*B*X^2*PDPp*PpDPp + A*B*X^3*PDPp*PpDPp + 2*A*Z*X*PDP
   + 2*A*Z*X*PDPp - A*Z*X^2*PDP - A*Z*PDP + 2*A*Z*PDPp - A*X*PDP
  + A*X*PDPp + A*X^2*PDPp + A*X^3*PDP + A*X^3*PDPp + A*PDPp
  - 2*B*X*PpDPp + 2*B*X^2*PpDPp - 3*Z + 4*Z*X - Z*X^2 - 5*X
  + 4*X^2 + X^3 )
 
 + Fa(0)*P(al)*Pp(be)*Pp(mu)
  * ( 2*A*B*Z*X*PDP*PDPp - 2*A*B*Z*X*PDPp^2 + A*B*Z*X^2*PDP*PDPp
  - A*B*Z*X^2*PDPp^2 + A*B*Z*PDP*PDPp - A*B*Z*PDPp^2 + A*B*X*PDP*PDPp
   + 2*A*B*X^2*PDP*PDPp + A*B*X^3*PDP*PDPp - 2*A*X*PDP + 2*A*X^2*PDP
   + 2*B*Z*X*PDPp + 2*B*Z*X*PpDPp - B*Z*X^2*PpDPp + 2*B*Z*PDPp
  - B*Z*PpDPp + B*X*PDPp - B*X*PpDPp + B*X^2*PDPp + B*X^3*PDPp
  + B*X^3*PpDPp + B*PDPp - 3*Z + 4*Z*X - Z*X^2 - 5*X + 4*X^2
  + X^3 )
 
 + Fa(0)*Pp(al)*P(be)*P(mu)
  * ( - 2 - 2*A*Z*X*PDP + 2*A*Z*PDP + 2*B*X*PpDPp - 2*B*PpDPp
  + 2*Z - 2*Z*X + 2*X )
 
 + Fa(0)*Pp(al)*P(be)*Pp(mu)
  * ( - 2 + 2*A*X*PDP - 2*A*PDP - 2*B*Z*X*PpDPp + 2*B*Z*PpDPp
  + 2*Z - 2*Z*X + 2*X )
 
 + Fa(0)*Pp(al)*Pp(be)*P(mu)
  * ( 2 - A*B*Z*X^2*PDP*PDPp + A*B*Z*X^2*PDP*PpDPp + A*B*Z*PDP*PDPp
   - A*B*Z*PDP*PpDPp - A*B*X*PDP*PpDPp + A*B*X^3*PDP*PpDPp
  + A*Z*X^2*PDP - A*Z*PDP - A*X*PDP + A*X^3*PDP - B*Z*X^2*PDPp
  + B*Z*X^2*PpDPp + B*Z*PDPp - B*Z*PpDPp + 2*B*X*PDPp - B*X*PpDPp
  + B*X^3*PpDPp + 2*B*PDPp + Z - 2*Z*X + Z*X^2 - 3*X + X^3 )
 
 + Fa(0)*Pp(al)*Pp(be)*Pp(mu)
  * ( - A*B*Z*X^2*PDP*PDPp + A*B*Z*X^2*PDP^2 + A*B*Z*PDP*PDPp
  - A*B*Z*PDP^2 - A*B*X*PDP^2 + A*B*X^3*PDP^2 - 2*B*Z*X*PDPp
  + B*Z*X^2*PDP - B*Z*X^2*PDPp - B*Z*PDP - B*Z*PDPp - B*X*PDP
  + B*X^3*PDP )
 
 + Fa(0)*D(al,be)*P(mu)
  * ( 2*A*B*Z*X*PDP*PDPp*PpDPp - 2*A*B*Z*X*PDP*PpDPp^2 - A*B*Z*X^2
  *PDP*PDPp*PpDPp + A*B*Z*X^2*PDP*PpDPp^2 - A*B*Z*PDP*PDPp*PpDPp
  + A*B*Z*PDP*PpDPp^2 + A*B*X*PDP*PpDPp^2 - 2*A*B*X^2*PDP*PpDPp^2
  + A*B*X^3*PDP*PpDPp^2 + 2*A*Z*X*PDP*PDPp - 2*A*Z*X*PDP*PpDPp
  - A*Z*X^2*PDP*PDPp + A*Z*X^2*PDP*PpDPp - A*Z*PDP*PDPp + A*Z*PDP*PpDPp
   + A*X*PDP*PpDPp - 2*A*X^2*PDP*PpDPp + A*X^3*PDP*PpDPp + 2*B*Z*X
  *PDPp*PpDPp - 2*B*Z*X*PpDPp^2 - B*Z*X^2*PDPp*PpDPp + B*Z*X^2*PpDPp^2
   - B*Z*PDPp*PpDPp + B*Z*PpDPp^2 + B*X*PpDPp^2 - 2*B*X^2*PpDPp^2
  + B*X^3*PpDPp^2 + 2*Z*X*PDPp - 2*Z*X*PpDPp - Z*X^2*PDPp
  + Z*X^2*PpDPp - Z*PDPp + Z*PpDPp + X*PpDPp - 2*X^2*PpDPp
  + X^3*PpDPp + 4*PDPp )
 
 + Fa(0)*D(al,be)*Pp(mu)
  * ( 2*A*B*Z*X*PDP*PDPp*PpDPp - 2*A*B*Z*X*PDP^2*PpDPp - A*B*Z*X^2
  *PDP*PDPp*PpDPp + A*B*Z*X^2*PDP^2*PpDPp - A*B*Z*PDP*PDPp*PpDPp
  + A*B*Z*PDP^2*PpDPp + A*B*X*PDP^2*PpDPp - 2*A*B*X^2*PDP^2*PpDPp
  + A*B*X^3*PDP^2*PpDPp + 2*A*Z*X*PDP*PDPp - 2*A*Z*X*PDP^2
  - A*Z*X^2*PDP*PDPp + A*Z*X^2*PDP^2 - A*Z*PDP*PDPp + A*Z*PDP^2
  + A*X*PDP^2 - 2*A*X^2*PDP^2 + A*X^3*PDP^2 - 2*B*Z*X*PDP*PpDPp
  + 2*B*Z*X*PDPp*PpDPp + B*Z*X^2*PDP*PpDPp - B*Z*X^2*PDPp*PpDPp
  + B*Z*PDP*PpDPp - B*Z*PDPp*PpDPp + B*X*PDP*PpDPp - 2*B*X^2*PDP*PpDPp
   + B*X^3*PDP*PpDPp - 2*Z*X*PDP + 2*Z*X*PDPp + Z*X^2*PDP
  - Z*X^2*PDPp + Z*PDP - Z*PDPp + X*PDP - 2*X^2*PDP + X^3*PDP
  + 4*PDPp )
 
 + Fa(0)*D(al,mu)*P(be)
  * ( - 2*B*Z*X*PDPp*PpDPp + 2*B*Z*X*PpDPp^2 + 2*B*Z*PDPp*PpDPp
  - 2*B*Z*PpDPp^2 - 2*B*X*PDPp*PpDPp - 2*B*X*PpDPp^2 + 2*B*X^2*PpDPp^2
   + 2*B*PDPp*PpDPp - 2*Z*X*PDPp + 2*Z*X*PpDPp - 2*Z*PDPp
  - 2*Z*PpDPp - 2*X*PDPp - 2*X*PpDPp + 2*X^2*PpDPp - 2*PDPp )
 
 + Fa(0)*D(al,mu)*Pp(be)
  * ( 2*A*Z*X*PDP*PDPp - 2*A*Z*X*PDP^2 - A*Z*X^2*PDP*PDPp
  + A*Z*X^2*PDP^2 - A*Z*PDP*PDPp + A*Z*PDP^2 + 2*A*X*PDP*PDPp
  + A*X*PDP^2 - A*X^2*PDP*PDPp - 2*A*X^2*PDP^2 + A*X^3*PDP^2
  - A*PDP*PDPp + 2*B*Z*X*PDPp*PpDPp - 2*B*Z*X*PDPp^2 + 2*B*Z*PDPp*PpDPp
   - 2*B*Z*PDPp^2 + 2*B*X*PDPp*PpDPp - 2*B*X*PDPp^2 + 2*B*X^2*PDPp
  *PpDPp - 2*B*PDPp^2 - 4*Z*X*PDP + 4*Z*X*PDPp + Z*X^2*PDP
  - Z*X^2*PDPp + 3*Z*PDP + Z*PDPp - X*PDP + 4*X*PDPp - 2*X^2*PDP
  + X^2*PDPp + X^3*PDP + 2*PDP - PDPp )
 
 + Fa(0)*D(be,mu)*P(al)
  * ( 2*A*Z*X*PDP*PDPp - 2*A*Z*X*PDPp^2 + 2*A*Z*PDP*PDPp - 2*A*Z*PDPp^2
   + 2*A*X*PDP*PDPp - 2*A*X*PDPp^2 + 2*A*X^2*PDP*PDPp - 2*A*PDPp^2
   + 2*B*Z*X*PDPp*PpDPp - 2*B*Z*X*PpDPp^2 - B*Z*X^2*PDPp*PpDPp
  + B*Z*X^2*PpDPp^2 - B*Z*PDPp*PpDPp + B*Z*PpDPp^2 + 2*B*X*PDPp*PpDPp
   + B*X*PpDPp^2 - B*X^2*PDPp*PpDPp - 2*B*X^2*PpDPp^2 + B*X^3*PpDPp^2
   - B*PDPp*PpDPp + 4*Z*X*PDPp - 4*Z*X*PpDPp - Z*X^2*PDPp
  + Z*X^2*PpDPp + Z*PDPp + 3*Z*PpDPp + 4*X*PDPp - X*PpDPp
  + X^2*PDPp - 2*X^2*PpDPp + X^3*PpDPp - PDPp + 2*PpDPp )
 
 + Fa(0)*D(be,mu)*Pp(al)
  * ( - 2*A*Z*X*PDP*PDPp + 2*A*Z*X*PDP^2 + 2*A*Z*PDP*PDPp
  - 2*A*Z*PDP^2 - 2*A*X*PDP*PDPp - 2*A*X*PDP^2 + 2*A*X^2*PDP^2
  + 2*A*PDP*PDPp + 2*Z*X*PDP - 2*Z*X*PDPp - 2*Z*PDP - 2*Z*PDPp
  - 2*X*PDP - 2*X*PDPp + 2*X^2*PDP - 2*PDPp )
 
 + Fa(1)*P(al)*P(be)*P(mu)
  * ( A*B*Z*X*PDPp*PpDQ - 2*A*B*Z*X*PpDPp*PpDQ + 2*A*B*Z*X^2*PDPp*PpDQ
   + A*B*Z*X^2*PDQ*PpDPp - 4*A*B*Z*X^2*PpDPp*PpDQ - A*B*Z*PDPp*PpDQ
   - A*B*Z*PDQ*PpDPp + 2*A*B*Z*PpDPp*PpDQ + A*B*Z^2*X*PDPp*PpDQ
  - A*B*Z^2*X*PpDPp*PpDQ + A*B*Z^2*PDPp*PpDQ - A*B*Z^2*PpDPp*PpDQ
  + 3*A*B*X*PpDPp*PpDQ - A*B*X^2*PpDPp*PpDQ - 4*A*B*X^3*PpDPp*PpDQ
   + 2*A*Z*X*PDQ + A*Z*X^2*PDQ - 2*A*Z*X^2*PpDQ + A*Z*PDQ
  + A*Z^2*X*PDQ - A*Z^2*X*PpDQ + A*Z^2*PDQ - A*Z^2*PpDQ + A*X*PpDQ
   - A*X^2*PpDQ - 2*A*X^3*PpDQ )
 
 + Fa(1)*P(al)*P(be)*Pp(mu)
  * ( - 2*A*B*Z*X*PDP*PpDQ + A*B*Z*X*PDPp*PpDQ - 3*A*B*Z*X^2*PDP*PpDQ
   + 2*A*B*Z*X^2*PDPp*PpDQ - A*B*Z*X^2*PDQ*PpDPp + A*B*Z*X^2*PpDPp
  *PpDQ + A*B*Z*PDP*PpDQ - A*B*Z*PDPp*PpDQ + A*B*Z*PDQ*PpDPp
  - A*B*Z*PpDPp*PpDQ - A*B*Z^2*X*PDP*PpDQ + A*B*Z^2*X*PDPp*PpDQ
  - A*B*Z^2*PDP*PpDQ + A*B*Z^2*PDPp*PpDQ + A*B*X*PDP*PpDQ
  + 2*A*B*X*PDQ*PpDPp - A*B*X^2*PDP*PpDQ - 2*A*B*X^3*PDP*PpDQ
  - 2*A*B*X^3*PDQ*PpDPp - A*Z*X*PDQ - A*Z*X^2*PDQ + A*Z*X^2*PpDQ
  - A*Z*PpDQ - 2*A*X*PpDQ - 2*A*X^3*PDQ - 2*A*PDQ - 2*B*Z*X*PpDQ
  - 3*B*Z*X^2*PpDQ + B*Z*PpDQ - B*Z^2*X*PpDQ - B*Z^2*PpDQ
  + B*X*PpDQ - B*X^2*PpDQ - 2*B*X^3*PpDQ )
 
 + Fa(1)*P(al)*P(be)*Q(mu)
  * ( - 1 - A*B*Z*X^2*PDP*PpDPp + 2*A*B*Z*X^2*PDPp*PpDPp - A*B*Z*X^2
  *PpDPp^2 + A*B*Z*PDP*PpDPp - 2*A*B*Z*PDPp*PpDPp + A*B*Z*PpDPp^2
  + A*B*X*PDP*PpDPp + A*B*X*PpDPp^2 - A*B*X^3*PDP*PpDPp - A*B*X^3*PpDPp^2
   - 2*A*Z*X*PDP + 4*A*Z*X*PDPp - 2*A*Z*X^2*PDP + 2*A*Z*X^2*PDPp
  - A*Z*X^2*PpDPp + 2*A*Z*PDPp + A*Z*PpDPp - A*Z^2*X*PDP + A*Z^2*X
  *PDPp - A*Z^2*PDP + A*Z^2*PDPp - A*X*PDPp + A*X*PpDPp - A*X^2*PDP
   - A*X^3*PDP - A*X^3*PpDPp - A*PDPp - B*Z*X^2*PpDPp + B*Z*PpDPp
  + B*X*PpDPp - B*X^3*PpDPp - Z - Z*X - 2*Z*X^2 - Z^2 - Z^2*X
  + X - X^2 - X^3 )
 
 + Fa(1)*P(al)*Pp(be)*P(mu)
  * ( 3*A*B*Z*X*PDPp*PDQ - A*B*Z*X*PDPp*PpDQ - A*B*Z*X*PDQ*PpDPp
  - A*B*Z*X*PpDPp*PpDQ + 2*A*B*Z*X^2*PDPp*PDQ - A*B*Z*X^2*PDQ*PpDPp
   - A*B*Z*X^2*PpDPp*PpDQ + A*B*Z*PDPp*PDQ - A*B*Z*PDPp*PpDQ
  - 2*A*B*X*PDPp*PpDQ - 4*A*B*X^2*PDPp*PpDQ - A*B*X^2*PDQ*PpDPp
  - A*B*X^2*PpDPp*PpDQ - 2*A*B*X^3*PDPp*PpDQ - A*B*X^3*PDQ*PpDPp
  - A*B*X^3*PpDPp*PpDQ - 5*A*Z*X*PDQ - A*Z*X*PpDQ + 2*A*Z*X^2*PDQ
  + A*Z*PDQ - A*Z*PpDQ + A*Z^2*X*PDQ - A*Z^2*PDQ + 2*A*X*PDQ
  - 3*A*X^3*PDQ - A*X^3*PpDQ - A*PDQ - A*PpDQ - B*Z*X*PpDQ
  + B*Z*PpDQ + 4*B*X*PpDQ - 4*B*X^2*PpDQ )
 
 + Fa(1)*P(al)*Pp(be)*Pp(mu)
  * ( - A*B*Z*X*PDP*PDQ - A*B*Z*X*PDP*PpDQ - A*B*Z*X*PDPp*PDQ
  + 3*A*B*Z*X*PDPp*PpDQ - A*B*Z*X^2*PDP*PDQ - A*B*Z*X^2*PDP*PpDQ
  + 2*A*B*Z*X^2*PDPp*PpDQ - A*B*Z*PDPp*PDQ + A*B*Z*PDPp*PpDQ
  - 2*A*B*X*PDPp*PDQ - A*B*X^2*PDP*PDQ - A*B*X^2*PDP*PpDQ
  - 4*A*B*X^2*PDPp*PDQ - A*B*X^3*PDP*PDQ - A*B*X^3*PDP*PpDQ
  - 2*A*B*X^3*PDPp*PDQ - A*Z*X*PDQ + A*Z*PDQ + 4*A*X*PDQ - 4*A*X^2
  *PDQ - B*Z*X*PDQ - 5*B*Z*X*PpDQ + 2*B*Z*X^2*PpDQ - B*Z*PDQ
  + B*Z*PpDQ + B*Z^2*X*PpDQ - B*Z^2*PpDQ + 2*B*X*PpDQ - B*X^3*PDQ
  - 3*B*X^3*PpDQ - B*PDQ - B*PpDQ )
 
 + Fa(1)*P(al)*Pp(be)*Q(mu)
  * ( - 2 - 2*A*B*Z*X*PDP*PDPp - 2*A*B*Z*X*PDPp*PpDPp + 4*A*B*Z*X*PDPp^2
   - A*B*Z*X^2*PDP*PDPp - A*B*Z*X^2*PDPp*PpDPp + 2*A*B*Z*X^2*PDPp^2
   - A*B*Z*PDP*PDPp - A*B*Z*PDPp*PpDPp + 2*A*B*Z*PDPp^2 - A*B*X*PDP
  *PDPp - A*B*X*PDPp*PpDPp - 2*A*B*X^2*PDP*PDPp - 2*A*B*X^2*PDPp*PpDPp
   - A*B*X^3*PDP*PDPp - A*B*X^3*PDPp*PpDPp - A*Z*X*PDP - 3*A*Z*X*PDPp
   + A*Z*X^2*PDP - A*Z*PDPp + 2*A*X*PDP - 2*A*X*PDPp - A*X^2*PDP
  - A*X^2*PDPp - A*X^3*PDP - A*X^3*PDPp - 3*B*Z*X*PDPp - B*Z*X*PpDPp
   + B*Z*X^2*PpDPp - B*Z*PDPp - 2*B*X*PDPp + 2*B*X*PpDPp - B*X^2*PDPp
   - B*X^2*PpDPp - B*X^3*PDPp - B*X^3*PpDPp - 2*Z*X + 2*Z*X^2
  - 2*Z^2 + 2*Z^2*X + 10*X - 6*X^2 - 2*X^3 )
 
 + Fa(1)*P(al)*Q(be)*P(mu)
  * ( - A*B*Z*X*PDPp*PpDPp + A*B*Z*X*PDPp^2 + A*B*Z*X*PpDPp^2
  + 2*A*B*Z*X^2*PDPp*PpDPp - A*B*Z*X^2*PpDPp^2 - A*B*Z*PDPp*PpDPp
  + A*B*Z*PDPp^2 + A*B*Z^2*X*PDPp*PpDPp - A*B*Z^2*X*PDPp^2
  + A*B*Z^2*PDPp*PpDPp - A*B*Z^2*PDPp^2 - A*B*X*PDPp*PpDPp
  - A*B*X^2*PDPp*PpDPp + A*B*X^2*PpDPp^2 - A*B*X^3*PpDPp^2
  - A*Z*X*PDPp + A*Z*X*PpDPp + A*Z*X^2*PDP + 2*A*Z*X^2*PDPp
  - A*Z*X^2*PpDPp + A*Z*PDP - A*Z*PDPp - A*Z^2*X*PDP + A*Z^2*PDP
  + A*X*PDP - 2*A*X*PDPp + A*X^2*PDP - A*X^2*PDPp + A*X^2*PpDPp
  - A*X^3*PpDPp - A*PDPp + B*Z*X*PpDPp - B*Z*PpDPp + B*X*PpDPp
  - B*X^2*PpDPp + 3*Z + 2*Z*X + Z*X^2 + 3*Z^2 - Z^2*X + 4*X )
 
 + Fa(1)*P(al)*Q(be)*Pp(mu)
  * ( - 2 + A*B*Z*X*PDP*PpDPp - A*B*Z*X*PDPp*PpDPp + A*B*Z*X*PDPp^2
   + A*B*Z*X^2*PDP*PDPp - A*B*Z*X^2*PDP*PpDPp + A*B*Z*X^2*PDPp*PpDPp
   - A*B*Z*PDP*PDPp + A*B*Z*PDPp^2 + A*B*Z^2*X*PDP*PDPp - A*B*Z^2*X
  *PDPp^2 + A*B*Z^2*PDP*PDPp - A*B*Z^2*PDPp^2 - A*B*X*PDP*PDPp
  - A*B*X^2*PDP*PDPp + A*B*X^2*PDP*PpDPp - A*B*X^3*PDP*PpDPp
  + 3*A*Z*X*PDP - A*Z*X*PDPp - A*Z*X^2*PDP + A*Z*X^2*PDPp
  + 2*A*X*PDP - 2*A*X*PDPp + A*X^2*PDP - A*X^3*PDP - 2*A*PDPp
  - 2*B*Z*X*PpDPp + B*Z*X^2*PDPp + B*Z*X^2*PpDPp - B*Z*PDPp
  + B*Z*PpDPp + 2*B*Z^2*PDPp + B*X*PpDPp - B*X^2*PDPp - B*X^3*PpDPp
   - B*PDPp + Z*X + Z*X^2 + 5*X - X^3 )
 
 + Fa(1)*Pp(al)*P(be)*P(mu)
  * ( 4*A*Z*X*PDQ - 2*A*Z*PDQ + 2*A*Z^2*PDQ - 2*B*Z*PpDQ - 4*B*X*PpDQ
   + 2*B*PpDQ )
 
 + Fa(1)*Pp(al)*P(be)*Pp(mu)
  * ( - 2*A*Z*PDQ - 4*A*X*PDQ + 2*A*PDQ + 4*B*Z*X*PpDQ - 2*B*Z*PpDQ
   + 2*B*Z^2*PpDQ )
 
 + Fa(1)*Pp(al)*P(be)*Q(mu)
  * ( 8 + 2*A*Z*X*PDP - 2*A*Z*PDP - 2*A*X*PDP + 2*A*PDP + 2*B*Z*X*PpDPp
   - 2*B*Z*PpDPp - 2*B*X*PpDPp + 2*B*PpDPp + 4*Z + 4*Z*X + 4*Z^2
  - 4*X )
 
 + Fa(1)*Pp(al)*Pp(be)*P(mu)
  * ( A*B*Z*X*PDPp*PDQ - 2*A*B*Z*X*PDQ*PpDPp + A*B*Z*X^2*PDP*PDQ
  - A*B*Z*X^2*PDP*PpDQ + 2*A*B*Z*X^2*PDPp*PDQ - 3*A*B*Z*X^2*PDQ*PpDPp
   - A*B*Z*PDP*PDQ + A*B*Z*PDP*PpDQ - A*B*Z*PDPp*PDQ + A*B*Z*PDQ*PpDPp
   + A*B*Z^2*X*PDPp*PDQ - A*B*Z^2*X*PDQ*PpDPp + A*B*Z^2*PDPp*PDQ
  - A*B*Z^2*PDQ*PpDPp + 2*A*B*X*PDP*PpDQ + A*B*X*PDQ*PpDPp
  - A*B*X^2*PDQ*PpDPp - 2*A*B*X^3*PDP*PpDQ - 2*A*B*X^3*PDQ*PpDPp
  - 2*A*Z*X*PDQ - 3*A*Z*X^2*PDQ + A*Z*PDQ - A*Z^2*X*PDQ - A*Z^2*PDQ
   + A*X*PDQ - A*X^2*PDQ - 2*A*X^3*PDQ - B*Z*X*PpDQ + B*Z*X^2*PDQ
  - B*Z*X^2*PpDQ - B*Z*PDQ - 2*B*X*PDQ - 2*B*X^3*PpDQ - 2*B*PpDQ )
 
 + Fa(1)*Pp(al)*Pp(be)*Pp(mu)
  * ( - 2*A*B*Z*X*PDP*PDQ + A*B*Z*X*PDPp*PDQ - 4*A*B*Z*X^2*PDP*PDQ
   + A*B*Z*X^2*PDP*PpDQ + 2*A*B*Z*X^2*PDPp*PDQ + 2*A*B*Z*PDP*PDQ
  - A*B*Z*PDP*PpDQ - A*B*Z*PDPp*PDQ - A*B*Z^2*X*PDP*PDQ + A*B*Z^2*X
  *PDPp*PDQ - A*B*Z^2*PDP*PDQ + A*B*Z^2*PDPp*PDQ + 3*A*B*X*PDP*PDQ
   - A*B*X^2*PDP*PDQ - 4*A*B*X^3*PDP*PDQ + 2*B*Z*X*PpDQ - 2*B*Z*X^2
  *PDQ + B*Z*X^2*PpDQ + B*Z*PpDQ - B*Z^2*X*PDQ + B*Z^2*X*PpDQ
  - B*Z^2*PDQ + B*Z^2*PpDQ + B*X*PDQ - B*X^2*PDQ - 2*B*X^3*PDQ )
 
 + Fa(1)*Pp(al)*Pp(be)*Q(mu)
  * ( - 1 + 2*A*B*Z*X^2*PDP*PDPp - A*B*Z*X^2*PDP*PpDPp - A*B*Z*X^2
  *PDP^2 - 2*A*B*Z*PDP*PDPp + A*B*Z*PDP*PpDPp + A*B*Z*PDP^2
  + A*B*X*PDP*PpDPp + A*B*X*PDP^2 - A*B*X^3*PDP*PpDPp - A*B*X^3*PDP^2
   - A*Z*X^2*PDP + A*Z*PDP + A*X*PDP - A*X^3*PDP + 4*B*Z*X*PDPp
  - 2*B*Z*X*PpDPp - B*Z*X^2*PDP + 2*B*Z*X^2*PDPp - 2*B*Z*X^2*PpDPp
   + B*Z*PDP + 2*B*Z*PDPp + B*Z^2*X*PDPp - B*Z^2*X*PpDPp + B*Z^2*PDPp
   - B*Z^2*PpDPp + B*X*PDP - B*X*PDPp - B*X^2*PpDPp - B*X^3*PDP
  - B*X^3*PpDPp - B*PDPp - Z - Z*X - 2*Z*X^2 - Z^2 - Z^2*X
  + X - X^2 - X^3 )
 
 + Fa(1)*Pp(al)*Q(be)*P(mu)
  * ( - 3 + A*B*Z*X*PDP*PDPp - 2*A*B*Z*X*PDP*PpDPp + A*B*Z*X^2*PDP
  *PpDPp - A*B*Z*PDP*PDPp + A*B*Z*PDP*PpDPp - A*B*Z^2*X*PDP*PDPp
  + A*B*Z^2*X*PDP*PpDPp + A*B*Z^2*PDP*PDPp - A*B*Z^2*PDP*PpDPp
  + A*B*X*PDP*PpDPp - A*B*X^2*PDP*PpDPp + A*Z*X^2*PDP - A*Z*PDP
  + A*Z^2*X*PDP - A*Z^2*PDP + A*X*PDP - A*X^2*PDP + B*Z*X*PDPp
  - 2*B*Z*X*PpDPp + B*Z*X^2*PpDPp + B*Z*PDPp + B*Z*PpDPp - B*Z^2*X
  *PDPp + B*Z^2*X*PpDPp + B*Z^2*PDPp - B*Z^2*PpDPp - B*X^2*PpDPp
  - 2*B*PDPp + B*PpDPp - 7*Z + Z*X^2 - 3*Z^2 + Z^2*X - X^2 )
 
 + Fa(1)*Pp(al)*Q(be)*Pp(mu)
  * ( A*B*Z*X*PDP*PDPp - 2*A*B*Z*X*PDP^2 + A*B*Z*X^2*PDP^2
  - A*B*Z*PDP*PDPp + A*B*Z*PDP^2 - A*B*Z^2*X*PDP*PDPp + A*B*Z^2*X*PDP^2
   + A*B*Z^2*PDP*PDPp - A*B*Z^2*PDP^2 + A*B*X*PDP^2 - A*B*X^2*PDP^2
   - 2*A*X*PDP + 2*A*PDP - 2*B*Z*X*PDP + B*Z*X*PDPp + B*Z*X*PpDPp
  + B*Z*X^2*PDP + B*Z*PDP + B*Z*PDPp - B*Z*PpDPp + B*Z^2*X*PDP
  - B*Z^2*X*PDPp - B*Z^2*PDP - B*Z^2*PDPp + B*X*PDP - B*X^2*PDP
  - 3*Z + Z*X - 2*X )
 
 + Fa(1)*Q(al)*P(be)*P(mu)
  * ( A*B*Z*X*PDPp*PpDPp - 2*A*B*Z*X*PpDPp^2 + A*B*Z*X^2*PpDPp^2
  - A*B*Z*PDPp*PpDPp + A*B*Z*PpDPp^2 - A*B*Z^2*X*PDPp*PpDPp
  + A*B*Z^2*X*PpDPp^2 + A*B*Z^2*PDPp*PpDPp - A*B*Z^2*PpDPp^2
  + A*B*X*PpDPp^2 - A*B*X^2*PpDPp^2 + A*Z*X*PDP + A*Z*X*PDPp
  - 2*A*Z*X*PpDPp + A*Z*X^2*PpDPp - A*Z*PDP + A*Z*PDPp + A*Z*PpDPp
   - A*Z^2*X*PDPp + A*Z^2*X*PpDPp - A*Z^2*PDPp - A*Z^2*PpDPp
  + A*X*PpDPp - A*X^2*PpDPp - 2*B*X*PpDPp + 2*B*PpDPp - 3*Z
  + Z*X - 2*X )
 
 + Fa(1)*Q(al)*P(be)*Pp(mu)
  * ( - 3 - 2*A*B*Z*X*PDP*PpDPp + A*B*Z*X*PDPp*PpDPp + A*B*Z*X^2*PDP
  *PpDPp + A*B*Z*PDP*PpDPp - A*B*Z*PDPp*PpDPp + A*B*Z^2*X*PDP*PpDPp
   - A*B*Z^2*X*PDPp*PpDPp - A*B*Z^2*PDP*PpDPp + A*B*Z^2*PDPp*PpDPp
   + A*B*X*PDP*PpDPp - A*B*X^2*PDP*PpDPp - 2*A*Z*X*PDP + A*Z*X*PDPp
   + A*Z*X^2*PDP + A*Z*PDP + A*Z*PDPp + A*Z^2*X*PDP - A*Z^2*X*PDPp
   - A*Z^2*PDP + A*Z^2*PDPp - A*X^2*PDP + A*PDP - 2*A*PDPp
  + B*Z*X^2*PpDPp - B*Z*PpDPp + B*Z^2*X*PpDPp - B*Z^2*PpDPp
  + B*X*PpDPp - B*X^2*PpDPp - 7*Z + Z*X^2 - 3*Z^2 + Z^2*X
  - X^2 )
 
 + Fa(1)*Q(al)*Pp(be)*P(mu)
  * ( - 2 - A*B*Z*X*PDP*PDPp + A*B*Z*X*PDP*PpDPp + A*B*Z*X*PDPp^2
  + A*B*Z*X^2*PDP*PDPp - A*B*Z*X^2*PDP*PpDPp + A*B*Z*X^2*PDPp*PpDPp
   - A*B*Z*PDPp*PpDPp + A*B*Z*PDPp^2 + A*B*Z^2*X*PDPp*PpDPp
  - A*B*Z^2*X*PDPp^2 + A*B*Z^2*PDPp*PpDPp - A*B*Z^2*PDPp^2
  - A*B*X*PDPp*PpDPp + A*B*X^2*PDP*PpDPp - A*B*X^2*PDPp*PpDPp
  - A*B*X^3*PDP*PpDPp - 2*A*Z*X*PDP + A*Z*X^2*PDP + A*Z*X^2*PDPp
  + A*Z*PDP - A*Z*PDPp + 2*A*Z^2*PDPp + A*X*PDP - A*X^2*PDPp
  - A*X^3*PDP - A*PDPp - B*Z*X*PDPp + 3*B*Z*X*PpDPp + B*Z*X^2*PDPp
   - B*Z*X^2*PpDPp - 2*B*X*PDPp + 2*B*X*PpDPp + B*X^2*PpDPp
  - B*X^3*PpDPp - 2*B*PDPp + Z*X + Z*X^2 + 5*X - X^3 )
 
 + Fa(1)*Q(al)*Pp(be)*Pp(mu)
  * ( - A*B*Z*X*PDP*PDPp + A*B*Z*X*PDP^2 + A*B*Z*X*PDPp^2
  + 2*A*B*Z*X^2*PDP*PDPp - A*B*Z*X^2*PDP^2 - A*B*Z*PDP*PDPp
  + A*B*Z*PDPp^2 + A*B*Z^2*X*PDP*PDPp - A*B*Z^2*X*PDPp^2 + A*B*Z^2
  *PDP*PDPp - A*B*Z^2*PDPp^2 - A*B*X*PDP*PDPp - A*B*X^2*PDP*PDPp
  + A*B*X^2*PDP^2 - A*B*X^3*PDP^2 + A*Z*X*PDP - A*Z*PDP + A*X*PDP
  - A*X^2*PDP + B*Z*X*PDP - B*Z*X*PDPp - B*Z*X^2*PDP + 2*B*Z*X^2*PDPp
   + B*Z*X^2*PpDPp - B*Z*PDPp + B*Z*PpDPp - B*Z^2*X*PpDPp
  + B*Z^2*PpDPp - 2*B*X*PDPp + B*X*PpDPp + B*X^2*PDP - B*X^2*PDPp
  + B*X^2*PpDPp - B*X^3*PDP - B*PDPp + 3*Z + 2*Z*X + Z*X^2
  + 3*Z^2 - Z^2*X + 4*X )
 
 + Fa(1)*D(al,be)*P(mu)
  * ( - 3*A*B*Z*X*PDP*PDPp*PpDQ - 2*A*B*Z*X*PDP*PDQ*PpDPp
  + 6*A*B*Z*X*PDP*PpDPp*PpDQ - 3*A*B*Z*X*PDPp*PDQ*PpDPp + 4*A*B*Z*X
  *PDQ*PpDPp^2 + 2*A*B*Z*X^2*PDP*PDPp*PpDQ + A*B*Z*X^2*PDP*PDQ*PpDPp
   - 4*A*B*Z*X^2*PDP*PpDPp*PpDQ + 2*A*B*Z*X^2*PDPp*PDQ*PpDPp
  - 3*A*B*Z*X^2*PDQ*PpDPp^2 + A*B*Z*PDP*PDPp*PpDQ + A*B*Z*PDP*PDQ*PpDPp
   - 2*A*B*Z*PDP*PpDPp*PpDQ + A*B*Z*PDPp*PDQ*PpDPp - A*B*Z*PDQ*PpDPp^2
   + A*B*Z^2*X*PDP*PDPp*PpDQ - A*B*Z^2*X*PDP*PpDPp*PpDQ + A*B*Z^2*X
  *PDPp*PDQ*PpDPp - A*B*Z^2*X*PDQ*PpDPp^2 - A*B*Z^2*PDP*PDPp*PpDQ
  + A*B*Z^2*PDP*PpDPp*PpDQ - A*B*Z^2*PDPp*PDQ*PpDPp + A*B*Z^2*PDQ*PpDPp^2
   - 3*A*B*X*PDP*PpDPp*PpDQ - A*B*X*PDQ*PpDPp^2 + 7*A*B*X^2*PDP*PpDPp
  *PpDQ + 3*A*B*X^2*PDQ*PpDPp^2 - 4*A*B*X^3*PDP*PpDPp*PpDQ
  - 2*A*B*X^3*PDQ*PpDPp^2 - A*Z*X*PDP*PDQ + 2*A*Z*X*PDP*PpDQ
  - 3*A*Z*X*PDPp*PDQ + 4*A*Z*X*PDQ*PpDPp + A*Z*X^2*PDP*PDQ
  - 2*A*Z*X^2*PDP*PpDQ + 2*A*Z*X^2*PDPp*PDQ - 3*A*Z*X^2*PDQ*PpDPp
  + A*Z*PDPp*PDQ - A*Z*PDQ*PpDPp + A*Z^2*X*PDP*PDQ - A*Z^2*X*PDP*PpDQ
   + A*Z^2*X*PDPp*PDQ - A*Z^2*X*PDQ*PpDPp - A*Z^2*PDP*PDQ
  + A*Z^2*PDP*PpDQ - A*Z^2*PDPp*PDQ + A*Z^2*PDQ*PpDPp - A*X*PDP*PpDQ
   - A*X*PDQ*PpDPp + 3*A*X^2*PDP*PpDQ + 3*A*X^2*PDQ*PpDPp
  - 2*A*X^3*PDP*PpDQ - 2*A*X^3*PDQ*PpDPp - 3*B*Z*X*PDPp*PpDQ
  - 2*B*Z*X*PDQ*PpDPp + 5*B*Z*X*PpDPp*PpDQ + 2*B*Z*X^2*PDPp*PpDQ
  + B*Z*X^2*PDQ*PpDPp - 4*B*Z*X^2*PpDPp*PpDQ + B*Z*PDPp*PpDQ
  + B*Z*PDQ*PpDPp - B*Z*PpDPp*PpDQ + B*Z^2*X*PDPp*PpDQ - B*Z^2*X*PpDPp
  *PpDQ - B*Z^2*PDPp*PpDQ + B*Z^2*PpDPp*PpDQ - 4*B*X*PpDPp*PpDQ
  + 7*B*X^2*PpDPp*PpDQ - 4*B*X^3*PpDPp*PpDQ + B*PpDPp*PpDQ
  - Z*X*PDQ + Z*X*PpDQ + Z*X^2*PDQ - 2*Z*X^2*PpDQ + Z*PpDQ
  + Z^2*X*PDQ - Z^2*X*PpDQ - Z^2*PDQ + Z^2*PpDQ - 2*X*PpDQ
  + 3*X^2*PpDQ - 2*X^3*PpDQ - 2*PDQ - PpDQ )
 
 + Fa(1)*D(al,be)*Pp(mu)
  * ( - 3*A*B*Z*X*PDP*PDPp*PpDQ + 6*A*B*Z*X*PDP*PDQ*PpDPp
  - 2*A*B*Z*X*PDP*PpDPp*PpDQ + 4*A*B*Z*X*PDP^2*PpDQ - 3*A*B*Z*X*PDPp
  *PDQ*PpDPp + 2*A*B*Z*X^2*PDP*PDPp*PpDQ - 4*A*B*Z*X^2*PDP*PDQ*PpDPp
   + A*B*Z*X^2*PDP*PpDPp*PpDQ - 3*A*B*Z*X^2*PDP^2*PpDQ + 2*A*B*Z*X^2
  *PDPp*PDQ*PpDPp + A*B*Z*PDP*PDPp*PpDQ - 2*A*B*Z*PDP*PDQ*PpDPp
  + A*B*Z*PDP*PpDPp*PpDQ - A*B*Z*PDP^2*PpDQ + A*B*Z*PDPp*PDQ*PpDPp
   + A*B*Z^2*X*PDP*PDPp*PpDQ - A*B*Z^2*X*PDP*PDQ*PpDPp - A*B*Z^2*X
  *PDP^2*PpDQ + A*B*Z^2*X*PDPp*PDQ*PpDPp - A*B*Z^2*PDP*PDPp*PpDQ
  + A*B*Z^2*PDP*PDQ*PpDPp + A*B*Z^2*PDP^2*PpDQ - A*B*Z^2*PDPp*PDQ*PpDPp
   - 3*A*B*X*PDP*PDQ*PpDPp - A*B*X*PDP^2*PpDQ + 7*A*B*X^2*PDP*PDQ*PpDPp
   + 3*A*B*X^2*PDP^2*PpDQ - 4*A*B*X^3*PDP*PDQ*PpDPp - 2*A*B*X^3*PDP^2
  *PpDQ + 5*A*Z*X*PDP*PDQ - 2*A*Z*X*PDP*PpDQ - 3*A*Z*X*PDPp*PDQ
  - 4*A*Z*X^2*PDP*PDQ + A*Z*X^2*PDP*PpDQ + 2*A*Z*X^2*PDPp*PDQ
  - A*Z*PDP*PDQ + A*Z*PDP*PpDQ + A*Z*PDPp*PDQ - A*Z^2*X*PDP*PDQ
  + A*Z^2*X*PDPp*PDQ + A*Z^2*PDP*PDQ - A*Z^2*PDPp*PDQ - 4*A*X*PDP*PDQ
   + 7*A*X^2*PDP*PDQ - 4*A*X^3*PDP*PDQ + A*PDP*PDQ + 4*B*Z*X*PDP*PpDQ
   - 3*B*Z*X*PDPp*PpDQ + 2*B*Z*X*PDQ*PpDPp - B*Z*X*PpDPp*PpDQ
  - 3*B*Z*X^2*PDP*PpDQ + 2*B*Z*X^2*PDPp*PpDQ - 2*B*Z*X^2*PDQ*PpDPp
   + B*Z*X^2*PpDPp*PpDQ - B*Z*PDP*PpDQ + B*Z*PDPp*PpDQ - B*Z^2*X*PDP
  *PpDQ + B*Z^2*X*PDPp*PpDQ - B*Z^2*X*PDQ*PpDPp + B*Z^2*X*PpDPp*PpDQ
   + B*Z^2*PDP*PpDQ - B*Z^2*PDPp*PpDQ + B*Z^2*PDQ*PpDPp - B*Z^2*PpDPp
  *PpDQ - B*X*PDP*PpDQ - B*X*PDQ*PpDPp + 3*B*X^2*PDP*PpDQ
  + 3*B*X^2*PDQ*PpDPp - 2*B*X^3*PDP*PpDQ - 2*B*X^3*PDQ*PpDPp
  + Z*X*PDQ - Z*X*PpDQ - 2*Z*X^2*PDQ + Z*X^2*PpDQ + Z*PDQ
  - Z^2*X*PDQ + Z^2*X*PpDQ + Z^2*PDQ - Z^2*PpDQ - 2*X*PDQ
  + 3*X^2*PDQ - 2*X^3*PDQ - PDQ - 2*PpDQ )
 
 + Fa(1)*D(al,be)*Q(mu)
  * ( - 4*A*B*Z*X*PDP*PDPp*PpDPp + 2*A*B*Z*X*PDP*PpDPp^2 + 2*A*B*Z
  *X*PDP^2*PpDPp + 2*A*B*Z*X^2*PDP*PDPp*PpDPp - A*B*Z*X^2*PDP*PpDPp^2
   - A*B*Z*X^2*PDP^2*PpDPp + 2*A*B*Z*PDP*PDPp*PpDPp - A*B*Z*PDP*PpDPp^2
   - A*B*Z*PDP^2*PpDPp - A*B*X*PDP*PpDPp^2 - A*B*X*PDP^2*PpDPp
  + 2*A*B*X^2*PDP*PpDPp^2 + 2*A*B*X^2*PDP^2*PpDPp - A*B*X^3*PDP*PpDPp^2
   - A*B*X^3*PDP^2*PpDPp - 2*A*Z*X*PDP*PDPp + 2*A*Z*X*PDP*PpDPp
  + 2*A*Z*X*PDP^2 + 2*A*Z*X^2*PDP*PDPp - A*Z*X^2*PDP*PpDPp
  - 2*A*Z*X^2*PDP^2 - A*Z*PDP*PpDPp + A*Z^2*X*PDP*PDPp - A*Z^2*X*PDP^2
   - A*Z^2*PDP*PDPp + A*Z^2*PDP^2 + A*X*PDP*PDPp - A*X*PDP*PpDPp
  + 2*A*X^2*PDP*PpDPp + A*X^2*PDP^2 - A*X^3*PDP*PpDPp - A*X^3*PDP^2
   - A*PDP*PDPp + 2*B*Z*X*PDP*PpDPp - 2*B*Z*X*PDPp*PpDPp + 2*B*Z*X
  *PpDPp^2 - B*Z*X^2*PDP*PpDPp + 2*B*Z*X^2*PDPp*PpDPp - 2*B*Z*X^2*PpDPp^2
   - B*Z*PDP*PpDPp + B*Z^2*X*PDPp*PpDPp - B*Z^2*X*PpDPp^2
  - B*Z^2*PDPp*PpDPp + B*Z^2*PpDPp^2 - B*X*PDP*PpDPp + B*X*PDPp*PpDPp
   + 2*B*X^2*PDP*PpDPp + B*X^2*PpDPp^2 - B*X^3*PDP*PpDPp - B*X^3*PpDPp^2
   - B*PDPp*PpDPp + 2*Z*X*PDP + 2*Z*X*PpDPp - 2*Z*X^2*PDP
  + 2*Z*X^2*PDPp - 2*Z*X^2*PpDPp - 2*Z*PDPp - Z^2*X*PDP + 2*Z^2*X*PDPp
   - Z^2*X*PpDPp + Z^2*PDP - 2*Z^2*PDPp + Z^2*PpDPp + 2*X*PDPp
  + X^2*PDP + X^2*PpDPp - X^3*PDP - X^3*PpDPp - 10*PDPp )
 
 + Fa(1)*D(al,mu)*P(be)
  * ( 4*B*Z*X*PDPp*PpDQ + 2*B*Z*X*PDQ*PpDPp - 8*B*Z*X*PpDPp*PpDQ
  - 2*B*Z*PDQ*PpDPp + 4*B*Z*PpDPp*PpDQ + 2*B*Z^2*PDPp*PpDQ
  - 2*B*Z^2*PpDPp*PpDQ + 4*B*X*PDPp*PpDQ + 2*B*X*PDQ*PpDPp
  + 8*B*X*PpDPp*PpDQ - 8*B*X^2*PpDPp*PpDQ - 2*B*PDPp*PpDQ
  - 2*B*PDQ*PpDPp - 2*B*PpDPp*PpDQ + 2*Z*X*PDQ - 4*Z*X*PpDQ
  + 4*Z*PDQ + 2*Z*PpDQ + 2*Z^2*PDQ - 2*Z^2*PpDQ + 2*X*PDQ
  + 4*X*PpDQ - 4*X^2*PpDQ + 2*PDQ )
 
 + Fa(1)*D(al,mu)*Pp(be)
  * ( 6*A*Z*X*PDP*PDQ - 2*A*Z*X*PDP*PpDQ - 2*A*Z*X*PDPp*PDQ
  - 4*A*Z*X^2*PDP*PDQ + A*Z*X^2*PDP*PpDQ + 2*A*Z*X^2*PDPp*PDQ
  - 2*A*Z*PDP*PDQ + A*Z*PDP*PpDQ - A*Z^2*X*PDP*PDQ + A*Z^2*X*PDPp*PDQ
   + A*Z^2*PDP*PDQ - A*Z^2*PDPp*PDQ - 5*A*X*PDP*PDQ - 2*A*X*PDP*PpDQ
   - 3*A*X*PDPp*PDQ + 8*A*X^2*PDP*PDQ + A*X^2*PDP*PpDQ + 2*A*X^2*PDPp
  *PDQ - 4*A*X^3*PDP*PDQ + A*PDP*PDQ + A*PDP*PpDQ + A*PDPp*PDQ
  + 4*B*Z*X*PDPp*PDQ - B*Z*X*PDPp*PpDQ - 2*B*Z*X*PDQ*PpDPp
  - B*Z*X*PpDPp*PpDQ + 2*B*Z*PDPp*PDQ - B*Z*PDPp*PpDQ - B*Z*PpDPp*PpDQ
   + 4*B*X*PDPp*PDQ - B*X*PDPp*PpDQ - B*X*PpDPp*PpDQ - 4*B*X^2*PDPp
  *PpDQ - 2*B*X^2*PDQ*PpDPp - B*X^2*PpDPp*PpDQ + 2*B*PDPp*PDQ
  + 3*B*PDPp*PpDQ + 3*Z*X*PDQ - Z*X*PpDQ - 2*Z*X^2*PDQ + Z*X^2*PpDQ
   - 3*Z*PDQ - 2*Z*PpDQ - Z^2*X*PDQ + Z^2*X*PpDQ + Z^2*PDQ
  - Z^2*PpDQ - 2*X*PpDQ + 2*X^2*PDQ - 2*X^3*PDQ - 2*PDQ )
 
 + Fa(1)*D(al,mu)*Q(be)
  * ( - 2*A*Z*X*PDP*PDPp + A*Z*X^2*PDP^2 + 2*A*Z*PDP*PDPp
  - A*Z*PDP^2 - A*Z^2*X*PDP*PDPp + A*Z^2*X*PDP^2 + A*Z^2*PDP*PDPp
  - A*Z^2*PDP^2 - A*X*PDP*PDPp - A*X*PDP^2 + A*X^2*PDP^2 + A*PDP*PDPp
   + 3*B*Z*X*PDPp*PpDPp - B*Z*X*PpDPp^2 - 3*B*Z*PDPp*PpDPp
  + B*Z*PpDPp^2 + 2*B*Z^2*PDPp*PpDPp - 2*B*Z^2*PDPp^2 - B*X*PDPp*PpDPp
   + B*X*PpDPp^2 - B*X^2*PpDPp^2 - B*PDPp*PpDPp + 2*B*PDPp^2
  + Z*X*PDPp - Z*X*PpDPp + Z*X^2*PDP - 5*Z*PDP + 3*Z*PDPp
  + Z*PpDPp + Z^2*X*PDP - Z^2*X*PDPp - 3*Z^2*PDP + 3*Z^2*PDPp
  - X*PDP - 2*X*PDPp + X*PpDPp + X^2*PDP - X^2*PpDPp - 2*PDP
  + 4*PDPp )
 
 + Fa(1)*D(be,mu)*P(al)
  * ( - A*Z*X*PDP*PDQ - 2*A*Z*X*PDP*PpDQ - A*Z*X*PDPp*PDQ
  + 4*A*Z*X*PDPp*PpDQ - A*Z*PDP*PDQ - A*Z*PDPp*PDQ + 2*A*Z*PDPp*PpDQ
   - A*X*PDP*PDQ - A*X*PDPp*PDQ + 4*A*X*PDPp*PpDQ - A*X^2*PDP*PDQ
  - 2*A*X^2*PDP*PpDQ - 4*A*X^2*PDPp*PDQ + 3*A*PDPp*PDQ + 2*A*PDPp*PpDQ
   - 2*B*Z*X*PDPp*PpDQ - 2*B*Z*X*PDQ*PpDPp + 6*B*Z*X*PpDPp*PpDQ
  + 2*B*Z*X^2*PDPp*PpDQ + B*Z*X^2*PDQ*PpDPp - 4*B*Z*X^2*PpDPp*PpDQ
   + B*Z*PDQ*PpDPp - 2*B*Z*PpDPp*PpDQ + B*Z^2*X*PDPp*PpDQ
  - B*Z^2*X*PpDPp*PpDQ - B*Z^2*PDPp*PpDQ + B*Z^2*PpDPp*PpDQ
  - 3*B*X*PDPp*PpDQ - 2*B*X*PDQ*PpDPp - 5*B*X*PpDPp*PpDQ + 2*B*X^2
  *PDPp*PpDQ + B*X^2*PDQ*PpDPp + 8*B*X^2*PpDPp*PpDQ - 4*B*X^3*PpDPp
  *PpDQ + B*PDPp*PpDQ + B*PDQ*PpDPp + B*PpDPp*PpDQ - Z*X*PDQ
  + 3*Z*X*PpDQ + Z*X^2*PDQ - 2*Z*X^2*PpDQ - 2*Z*PDQ - 3*Z*PpDQ
  + Z^2*X*PDQ - Z^2*X*PpDQ - Z^2*PDQ + Z^2*PpDQ - 2*X*PDQ
  + 2*X^2*PpDQ - 2*X^3*PpDQ - 2*PpDQ )
 
 + Fa(1)*D(be,mu)*Pp(al)
  * ( - 8*A*Z*X*PDP*PDQ + 2*A*Z*X*PDP*PpDQ + 4*A*Z*X*PDPp*PDQ
  + 4*A*Z*PDP*PDQ - 2*A*Z*PDP*PpDQ - 2*A*Z^2*PDP*PDQ + 2*A*Z^2*PDPp
  *PDQ + 8*A*X*PDP*PDQ + 2*A*X*PDP*PpDQ + 4*A*X*PDPp*PDQ - 8*A*X^2
  *PDP*PDQ - 2*A*PDP*PDQ - 2*A*PDP*PpDQ - 2*A*PDPp*PDQ - 4*Z*X*PDQ
   + 2*Z*X*PpDQ + 2*Z*PDQ + 4*Z*PpDQ - 2*Z^2*PDQ + 2*Z^2*PpDQ
  + 4*X*PDQ + 2*X*PpDQ - 4*X^2*PDQ + 2*PpDQ )
 
 + Fa(1)*D(be,mu)*Q(al)
  * ( 3*A*Z*X*PDP*PDPp - A*Z*X*PDP^2 - 3*A*Z*PDP*PDPp + A*Z*PDP^2
  + 2*A*Z^2*PDP*PDPp - 2*A*Z^2*PDPp^2 - A*X*PDP*PDPp + A*X*PDP^2
  - A*X^2*PDP^2 - A*PDP*PDPp + 2*A*PDPp^2 - 2*B*Z*X*PDPp*PpDPp
  + B*Z*X^2*PpDPp^2 + 2*B*Z*PDPp*PpDPp - B*Z*PpDPp^2 - B*Z^2*X*PDPp
  *PpDPp + B*Z^2*X*PpDPp^2 + B*Z^2*PDPp*PpDPp - B*Z^2*PpDPp^2
  - B*X*PDPp*PpDPp - B*X*PpDPp^2 + B*X^2*PpDPp^2 + B*PDPp*PpDPp
  - Z*X*PDP + Z*X*PDPp + Z*X^2*PpDPp + Z*PDP + 3*Z*PDPp - 5*Z*PpDPp
   - Z^2*X*PDPp + Z^2*X*PpDPp + 3*Z^2*PDPp - 3*Z^2*PpDPp + X*PDP
  - 2*X*PDPp - X*PpDPp - X^2*PDP + X^2*PpDPp + 4*PDPp - 2*PpDPp )
 
 + Fa(2)*P(al)*P(be)*P(mu)
  * ( - A*B*Z*X*PDPp*QDQ - A*B*Z*X*PDQ*PpDQ + 2*A*B*Z*X*PpDPp*QDQ
  + 3*A*B*Z*X*PpDQ^2 - A*B*Z*X^2*PDPp*QDQ - 2*A*B*Z*X^2*PDQ*PpDQ
  + 2*A*B*Z*X^2*PpDPp*QDQ + 4*A*B*Z*X^2*PpDQ^2 + A*B*Z*PDQ*PpDQ
  - A*B*Z*PpDQ^2 - A*B*Z^2*X*PDPp*QDQ - A*B*Z^2*X*PDQ*PpDQ
  + A*B*Z^2*X*PpDPp*QDQ + A*B*Z^2*X*PpDQ^2 - A*B*Z^2*PDPp*QDQ
  - A*B*Z^2*PDQ*PpDQ + A*B*Z^2*PpDPp*QDQ + A*B*Z^2*PpDQ^2
  - A*B*X*PpDPp*QDQ - 2*A*B*X*PpDQ^2 + A*B*X^2*PpDPp*QDQ + 2*A*B*X^2
  *PpDQ^2 + 2*A*B*X^3*PpDPp*QDQ + 4*A*B*X^3*PpDQ^2 + A*Z*X^2*QDQ
  + A*X^2*QDQ + A*X^3*QDQ )
 
 + Fa(2)*P(al)*P(be)*Pp(mu)
  * ( 2*A*B*Z*X*PDP*QDQ - A*B*Z*X*PDPp*QDQ + 3*A*B*Z*X*PDQ*PpDQ
  - A*B*Z*X*PpDQ^2 + 2*A*B*Z*X^2*PDP*QDQ - A*B*Z*X^2*PDPp*QDQ
  + 4*A*B*Z*X^2*PDQ*PpDQ - 2*A*B*Z*X^2*PpDQ^2 - A*B*Z*PDQ*PpDQ
  + A*B*Z*PpDQ^2 + A*B*Z^2*X*PDP*QDQ - A*B*Z^2*X*PDPp*QDQ
  + A*B*Z^2*X*PDQ*PpDQ - A*B*Z^2*X*PpDQ^2 + A*B*Z^2*PDP*QDQ
  - A*B*Z^2*PDPp*QDQ + A*B*Z^2*PDQ*PpDQ - A*B*Z^2*PpDQ^2 - 2*A*B*X
  *PDQ*PpDQ - A*B*X*PpDPp*QDQ + A*B*X^2*PDP*QDQ + 2*A*B*X^2*PDQ*PpDQ
   + A*B*X^3*PDP*QDQ + 4*A*B*X^3*PDQ*PpDQ + A*B*X^3*PpDPp*QDQ
  + A*Z*X*QDQ + A*Z*QDQ + A*X*QDQ + A*X^3*QDQ + A*QDQ + 2*B*Z*X*QDQ
   + 2*B*Z*X^2*QDQ + B*Z^2*X*QDQ + B*Z^2*QDQ + B*X^2*QDQ + B*X^3*QDQ )
 
 + Fa(2)*P(al)*P(be)*Q(mu)
  * ( 2*A*B*Z*X*PDP*PpDQ - 2*A*B*Z*X*PDPp*PpDQ + 2*A*B*Z*X*PpDPp*PpDQ
   + 3*A*B*Z*X^2*PDP*PpDQ - 4*A*B*Z*X^2*PDPp*PpDQ + 3*A*B*Z*X^2*PpDPp
  *PpDQ - A*B*Z*PDP*PpDQ + 2*A*B*Z*PDPp*PpDQ - A*B*Z*PpDPp*PpDQ
  + A*B*Z^2*X*PDP*PpDQ - 2*A*B*Z^2*X*PDPp*PpDQ + A*B*Z^2*X*PpDPp*PpDQ
   + A*B*Z^2*PDP*PpDQ - 2*A*B*Z^2*PDPp*PpDQ + A*B*Z^2*PpDPp*PpDQ
  - A*B*X*PDP*PpDQ - 2*A*B*X*PDQ*PpDPp - 3*A*B*X*PpDPp*PpDQ
  + A*B*X^2*PDP*PpDQ + A*B*X^2*PpDPp*PpDQ + 2*A*B*X^3*PDP*PpDQ
  + 2*A*B*X^3*PDQ*PpDPp + 4*A*B*X^3*PpDPp*PpDQ + A*Z*X*PDQ
  - 2*A*Z*X*PpDQ + 2*A*Z*X^2*PDQ + A*Z*X^2*PpDQ - A*Z*PDQ
  - A*Z*PpDQ + A*X*PDQ + 2*A*X^2*PDQ + A*X^2*PpDQ + 2*A*X^3*PDQ
  + 2*A*X^3*PpDQ + A*PDQ - A*PpDQ + 2*B*Z*X*PpDQ + 3*B*Z*X^2*PpDQ
  - B*Z*PpDQ + B*Z^2*X*PpDQ + B*Z^2*PpDQ - B*X*PpDQ + B*X^2*PpDQ
  + 2*B*X^3*PpDQ )
 
 + Fa(2)*P(al)*Pp(be)*P(mu)
  * ( - A*B*Z*X*PDQ^2 + A*B*Z*X*PpDQ^2 - A*B*Z*X^2*PDPp*QDQ
  - A*B*Z*X^2*PDQ^2 + A*B*Z*X^2*PpDPp*QDQ + A*B*Z*X^2*PpDQ^2
  + A*B*X*PDPp*QDQ + 2*A*B*X^2*PDPp*QDQ + 2*A*B*X^2*PDQ*PpDQ
  + 2*A*B*X^2*PpDQ^2 + A*B*X^3*PDPp*QDQ + 2*A*B*X^3*PDQ*PpDQ
  + A*B*X^3*PpDPp*QDQ + 2*A*B*X^3*PpDQ^2 + 2*A*Z*X*QDQ - A*Z*X^2*QDQ
   - A*Z^2*X*QDQ + A*Z^2*QDQ - A*X*QDQ - A*X^2*QDQ + 2*A*X^3*QDQ
  + A*QDQ + B*Z*X*QDQ - B*Z*QDQ - 2*B*X*QDQ + 2*B*X^2*QDQ )
 
 + Fa(2)*P(al)*Pp(be)*Pp(mu)
  * ( A*B*Z*X*PDQ^2 - A*B*Z*X*PpDQ^2 + A*B*Z*X^2*PDP*QDQ - A*B*Z*X^2
  *PDPp*QDQ + A*B*Z*X^2*PDQ^2 - A*B*Z*X^2*PpDQ^2 + A*B*X*PDPp*QDQ
  + 2*A*B*X^2*PDPp*QDQ + 2*A*B*X^2*PDQ*PpDQ + 2*A*B*X^2*PDQ^2
  + A*B*X^3*PDP*QDQ + A*B*X^3*PDPp*QDQ + 2*A*B*X^3*PDQ*PpDQ
  + 2*A*B*X^3*PDQ^2 + A*Z*X*QDQ - A*Z*QDQ - 2*A*X*QDQ + 2*A*X^2*QDQ
   + 2*B*Z*X*QDQ - B*Z*X^2*QDQ - B*Z^2*X*QDQ + B*Z^2*QDQ - B*X*QDQ
   - B*X^2*QDQ + 2*B*X^3*QDQ + B*QDQ )
 
 + Fa(2)*P(al)*Pp(be)*Q(mu)
  * ( A*B*Z*X*PDP*PDQ + A*B*Z*X*PDP*PpDQ - 2*A*B*Z*X*PDPp*PDQ
  - 2*A*B*Z*X*PDPp*PpDQ + A*B*Z*X*PDQ*PpDPp + A*B*Z*X*PpDPp*PpDQ
  + A*B*Z*X^2*PDP*PDQ + A*B*Z*X^2*PDP*PpDQ - 2*A*B*Z*X^2*PDPp*PDQ
  - 2*A*B*Z*X^2*PDPp*PpDQ + A*B*Z*X^2*PDQ*PpDPp + A*B*Z*X^2*PpDPp*PpDQ
   + 2*A*B*X*PDPp*PDQ + 2*A*B*X*PDPp*PpDQ + A*B*X^2*PDP*PDQ
  + A*B*X^2*PDP*PpDQ + 4*A*B*X^2*PDPp*PDQ + 4*A*B*X^2*PDPp*PpDQ
  + A*B*X^2*PDQ*PpDPp + A*B*X^2*PpDPp*PpDQ + A*B*X^3*PDP*PDQ
  + A*B*X^3*PDP*PpDQ + 2*A*B*X^3*PDPp*PDQ + 2*A*B*X^3*PDPp*PpDQ
  + A*B*X^3*PDQ*PpDPp + A*B*X^3*PpDPp*PpDQ + 5*A*Z*X*PDQ + 2*A*Z*X
  *PpDQ - 2*A*Z*X^2*PDQ - A*Z*PDQ - A*Z^2*X*PDQ + A*Z^2*PDQ
  - 3*A*X*PDQ + A*X*PpDQ + 2*A*X^2*PDQ + 3*A*X^3*PDQ + A*X^3*PpDQ
  + 2*B*Z*X*PDQ + 5*B*Z*X*PpDQ - 2*B*Z*X^2*PpDQ - B*Z*PpDQ
  - B*Z^2*X*PpDQ + B*Z^2*PpDQ + B*X*PDQ - 3*B*X*PpDQ + 2*B*X^2*PpDQ
   + B*X^3*PDQ + 3*B*X^3*PpDQ )
 
 + Fa(2)*P(al)*Q(be)*P(mu)
  * ( - A*B*Z*X*PDPp*PDQ - A*B*Z*X*PDPp*PpDQ - A*B*Z*X*PpDPp*PpDQ
  - 4*A*B*Z*X^2*PDPp*PpDQ - 2*A*B*Z*X^2*PDQ*PpDPp + 3*A*B*Z*X^2*PpDPp
  *PpDQ - A*B*Z*PDPp*PDQ + A*B*Z*PDPp*PpDQ + 2*A*B*Z^2*X*PDPp*PDQ
  - A*B*Z^2*X*PDPp*PpDQ - A*B*Z^2*X*PDQ*PpDPp + 2*A*B*Z^2*PDPp*PDQ
   - A*B*Z^2*PDPp*PpDQ - A*B*Z^2*PDQ*PpDPp + 2*A*B*X*PDPp*PpDQ
  + 2*A*B*X^2*PDPp*PpDQ - 2*A*B*X^2*PpDPp*PpDQ + 4*A*B*X^3*PpDPp*PpDQ
   + A*Z*X*PpDQ - 4*A*Z*X^2*PDQ + A*Z*X^2*PpDQ - A*Z*PDQ + 2*A*Z*PpDQ
   + A*Z^2*X*PDQ + A*Z^2*X*PpDQ - A*Z^2*PDQ + A*Z^2*PpDQ + A*Z^3*PDQ
   - A*X*PDQ + A*X*PpDQ - 2*A*X^2*PDQ + 2*A*X^3*PpDQ + A*PDQ
  + A*PpDQ - B*Z*X*PpDQ + B*Z*PpDQ - 2*B*X*PpDQ + 2*B*X^2*PpDQ )
 
 + Fa(2)*P(al)*Q(be)*Pp(mu)
  * ( - A*B*Z*X*PDP*PDQ - A*B*Z*X*PDPp*PDQ - A*B*Z*X*PDPp*PpDQ
  - A*B*Z*X*PDQ*PpDPp + A*B*Z*X*PpDPp*PpDQ - A*B*Z*X^2*PDP*PDQ
  + 2*A*B*Z*X^2*PDP*PpDQ - 2*A*B*Z*X^2*PDPp*PDQ - 2*A*B*Z*X^2*PDPp
  *PpDQ + A*B*Z*X^2*PDQ*PpDPp - A*B*Z*X^2*PpDPp*PpDQ + A*B*Z*PDPp*PDQ
   - A*B*Z*PDPp*PpDQ - A*B*Z^2*X*PDP*PDQ + A*B*Z^2*X*PDPp*PpDQ
  - A*B*Z^2*PDP*PDQ + A*B*Z^2*PDPp*PpDQ + 2*A*B*X*PDPp*PDQ
  + 2*A*B*X^2*PDPp*PDQ - 2*A*B*X^2*PDQ*PpDPp + 2*A*B*X^3*PDP*PpDQ
  + 2*A*B*X^3*PDQ*PpDPp - 4*A*Z*X*PDQ + A*Z*X*PpDQ + A*Z*X^2*PDQ
  - A*Z*X^2*PpDQ - A*Z*PDQ - A*Z^2*PDQ - 2*A*X*PDQ + 2*A*X*PpDQ
  - 2*A*X^2*PDQ + 2*A*X^3*PDQ + A*PDQ - B*Z*X*PDQ + 6*B*Z*X*PpDQ
  - B*Z*X^2*PDQ - 2*B*Z*X^2*PpDQ - 2*B*Z*PpDQ - 2*B*Z^2*PDQ
  - B*X*PDQ - 3*B*X*PpDQ + 2*B*X^2*PpDQ + 2*B*X^3*PpDQ + B*PDQ
  + B*PpDQ )
 
 + Fa(2)*P(al)*Q(be)*Q(mu)
  * ( 3 - A*B*Z*X*PDP*PpDPp + 2*A*B*Z*X*PDPp*PpDPp - 2*A*B*Z*X*PDPp^2
   - A*B*Z*X*PpDPp^2 - A*B*Z*X^2*PDP*PDPp + A*B*Z*X^2*PDP*PpDPp
  - 3*A*B*Z*X^2*PDPp*PpDPp + A*B*Z*X^2*PpDPp^2 + A*B*Z*PDP*PDPp
  + A*B*Z*PDPp*PpDPp - 2*A*B*Z*PDPp^2 - A*B*Z^2*X*PDP*PDPp
  - A*B*Z^2*X*PDPp*PpDPp + 2*A*B*Z^2*X*PDPp^2 - A*B*Z^2*PDP*PDPp
  - A*B*Z^2*PDPp*PpDPp + 2*A*B*Z^2*PDPp^2 + A*B*X*PDP*PDPp
  + A*B*X*PDPp*PpDPp + A*B*X^2*PDP*PDPp - A*B*X^2*PDP*PpDPp
  + A*B*X^2*PDPp*PpDPp - A*B*X^2*PpDPp^2 + A*B*X^3*PDP*PpDPp
  + A*B*X^3*PpDPp^2 - A*Z*X*PDP - A*Z*X*PpDPp + A*Z*X^2*PDP
  - 3*A*Z*X^2*PDPp + A*Z*X^2*PpDPp - A*Z*PDPp + 2*A*Z^2*X*PDP
  - A*Z^2*X*PDPp - A*Z^2*PDPp - 2*A*X*PDP + 3*A*X*PDPp - A*X^2*PDP
   + A*X^2*PDPp - A*X^2*PpDPp + A*X^3*PDP + A*X^3*PpDPp + 2*A*PDPp
   + B*Z*X*PDPp - B*Z*X^2*PDPp - B*Z*X^2*PpDPp + B*Z*PpDPp
  - 2*B*Z^2*PDPp + B*X*PDPp - B*X*PpDPp + B*X^2*PDPp + B*X^3*PpDPp
   + 3*Z - 3*Z*X - Z*X^2 + 2*Z^2 + Z^2*X + Z^3 - 7*X + X^3 )
 
 + Fa(2)*Pp(al)*P(be)*P(mu)
  * ( - 2*A*Z*X*QDQ - 2*A*Z^2*QDQ + 2*B*Z*QDQ + 2*B*X*QDQ )
 
 + Fa(2)*Pp(al)*P(be)*Pp(mu)
  * ( 2*A*Z*QDQ + 2*A*X*QDQ - 2*B*Z*X*QDQ - 2*B*Z^2*QDQ )
 
 + Fa(2)*Pp(al)*P(be)*Q(mu)
  * ( - 4*A*Z*X*PDQ + 4*A*Z*PDQ - 2*A*Z^2*PDQ + 4*A*X*PDQ
  - 2*A*PDQ - 4*B*Z*X*PpDQ + 4*B*Z*PpDQ - 2*B*Z^2*PpDQ + 4*B*X*PpDQ
   - 2*B*PpDQ )
 
 + Fa(2)*Pp(al)*Pp(be)*P(mu)
  * ( - A*B*Z*X*PDPp*QDQ + 3*A*B*Z*X*PDQ*PpDQ - A*B*Z*X*PDQ^2
  + 2*A*B*Z*X*PpDPp*QDQ - A*B*Z*X^2*PDPp*QDQ + 4*A*B*Z*X^2*PDQ*PpDQ
   - 2*A*B*Z*X^2*PDQ^2 + 2*A*B*Z*X^2*PpDPp*QDQ - A*B*Z*PDQ*PpDQ
  + A*B*Z*PDQ^2 - A*B*Z^2*X*PDPp*QDQ + A*B*Z^2*X*PDQ*PpDQ
  - A*B*Z^2*X*PDQ^2 + A*B*Z^2*X*PpDPp*QDQ - A*B*Z^2*PDPp*QDQ
  + A*B*Z^2*PDQ*PpDQ - A*B*Z^2*PDQ^2 + A*B*Z^2*PpDPp*QDQ - A*B*X*PDP
  *QDQ - 2*A*B*X*PDQ*PpDQ + 2*A*B*X^2*PDQ*PpDQ + A*B*X^2*PpDPp*QDQ
   + A*B*X^3*PDP*QDQ + 4*A*B*X^3*PDQ*PpDQ + A*B*X^3*PpDPp*QDQ
  + 2*A*Z*X*QDQ + 2*A*Z*X^2*QDQ + A*Z^2*X*QDQ + A*Z^2*QDQ
  + A*X^2*QDQ + A*X^3*QDQ + B*Z*X*QDQ + B*Z*QDQ + B*X*QDQ
  + B*X^3*QDQ + B*QDQ )
 
 + Fa(2)*Pp(al)*Pp(be)*Pp(mu)
  * ( 2*A*B*Z*X*PDP*QDQ - A*B*Z*X*PDPp*QDQ - A*B*Z*X*PDQ*PpDQ
  + 3*A*B*Z*X*PDQ^2 + 2*A*B*Z*X^2*PDP*QDQ - A*B*Z*X^2*PDPp*QDQ
  - 2*A*B*Z*X^2*PDQ*PpDQ + 4*A*B*Z*X^2*PDQ^2 + A*B*Z*PDQ*PpDQ
  - A*B*Z*PDQ^2 + A*B*Z^2*X*PDP*QDQ - A*B*Z^2*X*PDPp*QDQ - A*B*Z^2
  *X*PDQ*PpDQ + A*B*Z^2*X*PDQ^2 + A*B*Z^2*PDP*QDQ - A*B*Z^2*PDPp*QDQ
   - A*B*Z^2*PDQ*PpDQ + A*B*Z^2*PDQ^2 - A*B*X*PDP*QDQ - 2*A*B*X*PDQ^2
   + A*B*X^2*PDP*QDQ + 2*A*B*X^2*PDQ^2 + 2*A*B*X^3*PDP*QDQ
  + 4*A*B*X^3*PDQ^2 + B*Z*X^2*QDQ + B*X^2*QDQ + B*X^3*QDQ )
 
 + Fa(2)*Pp(al)*Pp(be)*Q(mu)
  * ( 2*A*B*Z*X*PDP*PDQ - 2*A*B*Z*X*PDPp*PDQ + 2*A*B*Z*X*PDQ*PpDPp
   + 3*A*B*Z*X^2*PDP*PDQ - 4*A*B*Z*X^2*PDPp*PDQ + 3*A*B*Z*X^2*PDQ*PpDPp
   - A*B*Z*PDP*PDQ + 2*A*B*Z*PDPp*PDQ - A*B*Z*PDQ*PpDPp + A*B*Z^2*X
  *PDP*PDQ - 2*A*B*Z^2*X*PDPp*PDQ + A*B*Z^2*X*PDQ*PpDPp + A*B*Z^2*PDP
  *PDQ - 2*A*B*Z^2*PDPp*PDQ + A*B*Z^2*PDQ*PpDPp - 3*A*B*X*PDP*PDQ
  - 2*A*B*X*PDP*PpDQ - A*B*X*PDQ*PpDPp + A*B*X^2*PDP*PDQ + A*B*X^2
  *PDQ*PpDPp + 4*A*B*X^3*PDP*PDQ + 2*A*B*X^3*PDP*PpDQ + 2*A*B*X^3*PDQ
  *PpDPp + 2*A*Z*X*PDQ + 3*A*Z*X^2*PDQ - A*Z*PDQ + A*Z^2*X*PDQ
  + A*Z^2*PDQ - A*X*PDQ + A*X^2*PDQ + 2*A*X^3*PDQ - 2*B*Z*X*PDQ
  + B*Z*X*PpDQ + B*Z*X^2*PDQ + 2*B*Z*X^2*PpDQ - B*Z*PDQ - B*Z*PpDQ
   + B*X*PpDQ + B*X^2*PDQ + 2*B*X^2*PpDQ + 2*B*X^3*PDQ + 2*B*X^3*PpDQ
   - B*PDQ + B*PpDQ )
 
 + Fa(2)*Pp(al)*Q(be)*P(mu)
  * ( - A*B*Z*X*PDP*PDQ + 3*A*B*Z*X*PDP*PpDQ - 2*A*B*Z*X*PDPp*PDQ
  + 4*A*B*Z*X*PDQ*PpDPp - 2*A*B*Z*X^2*PDP*PpDQ - 2*A*B*Z*X^2*PDQ*PpDPp
   + A*B*Z*PDP*PDQ - A*B*Z*PDP*PpDQ + A*B*Z*PDPp*PDQ - A*B*Z*PDQ*PpDPp
   + A*B*Z^2*X*PDP*PDQ - A*B*Z^2*X*PDP*PpDQ + 2*A*B*Z^2*X*PDPp*PDQ
   - 3*A*B*Z^2*X*PDQ*PpDPp - A*B*Z^2*PDP*PDQ + A*B*Z^2*PDP*PpDQ
  - 2*A*B*Z^2*PDPp*PDQ + 2*A*B*Z^2*PDQ*PpDPp + A*B*Z^3*PDPp*PDQ
  - A*B*Z^3*PDQ*PpDPp - 2*A*B*X*PDP*PpDQ - A*B*X*PDQ*PpDPp
  + 2*A*B*X^2*PDP*PpDQ + 2*A*B*X^2*PDQ*PpDPp - 2*A*Z*X^2*PDQ
  + A*Z*PDQ - 3*A*Z^2*X*PDQ - A*Z^3*PDQ - A*X*PDQ + 2*A*X^2*PDQ
  - B*Z*X*PDQ + 3*B*Z*X*PpDQ - 2*B*Z*X^2*PpDQ - B*Z*PDQ - B*Z*PpDQ
   + B*Z^2*X*PDQ - B*Z^2*X*PpDQ - B*Z^2*PDQ + 2*B*X^2*PpDQ
  + B*PpDQ )
 
 + Fa(2)*Pp(al)*Q(be)*Pp(mu)
  * ( 7*A*B*Z*X*PDP*PDQ - A*B*Z*X*PDP*PpDQ - 2*A*B*Z*X*PDPp*PDQ
  - 4*A*B*Z*X^2*PDP*PDQ - 2*A*B*Z*PDP*PDQ + A*B*Z*PDP*PpDQ
  + A*B*Z*PDPp*PDQ - 4*A*B*Z^2*X*PDP*PDQ + A*B*Z^2*X*PDP*PpDQ
  + 2*A*B*Z^2*X*PDPp*PDQ + 3*A*B*Z^2*PDP*PDQ - A*B*Z^2*PDP*PpDQ
  - 2*A*B*Z^2*PDPp*PDQ - A*B*Z^3*PDP*PDQ + A*B*Z^3*PDPp*PDQ
  - 3*A*B*X*PDP*PDQ + 4*A*B*X^2*PDP*PDQ + 2*A*Z*PDQ + 4*A*X*PDQ
  - 2*A*PDQ + 3*B*Z*X*PDQ - 3*B*Z*X*PpDQ - 2*B*Z*X^2*PDQ - 2*B*Z^2
  *X*PDQ + B*Z^2*X*PpDQ + 3*B*Z^2*PDQ - B*Z^2*PpDQ - B*Z^3*PDQ
  + B*Z^3*PpDQ - B*X*PDQ + 2*B*X^2*PDQ )
 
 + Fa(2)*Pp(al)*Q(be)*Q(mu)
  * ( - 1 - 2*A*B*Z*X*PDP*PDPp + 2*A*B*Z*X*PDP*PpDPp + 2*A*B*Z*X*PDP^2
   - A*B*Z*X^2*PDP*PpDPp - A*B*Z*X^2*PDP^2 + 2*A*B*Z*PDP*PDPp
  - A*B*Z*PDP*PpDPp - A*B*Z*PDP^2 + 2*A*B*Z^2*X*PDP*PDPp - A*B*Z^2
  *X*PDP*PpDPp - A*B*Z^2*X*PDP^2 - 2*A*B*Z^2*PDP*PDPp + A*B*Z^2*PDP
  *PpDPp + A*B*Z^2*PDP^2 - A*B*X*PDP*PpDPp - A*B*X*PDP^2 + A*B*X^2
  *PDP*PpDPp + A*B*X^2*PDP^2 - A*Z*X^2*PDP + A*Z*PDP - A*Z^2*X*PDP
   + A*Z^2*PDP + A*X*PDP + A*X^2*PDP - 2*A*PDP + 2*B*Z*X*PDP
  - 2*B*Z*X*PDPp + B*Z*X*PpDPp - B*Z*X^2*PDP - B*Z*X^2*PpDPp
  - B*Z*PDP - 3*B*Z*PDPp + B*Z*PpDPp - B*Z^2*X*PDP + 2*B*Z^2*X*PDPp
   - 2*B*Z^2*X*PpDPp + B*Z^2*PDP + B*Z^2*PDPp + B*Z^2*PpDPp
  + B*Z^3*PDPp - B*Z^3*PpDPp - B*X*PDP + B*X*PpDPp + B*X^2*PDP
  + B*X^2*PpDPp + B*PDPp - B*PpDPp + 3*Z - Z*X - Z*X^2 - Z^2
  - 2*Z^2*X - Z^3 + 3*X + X^2 )
 
 + Fa(2)*Q(al)*P(be)*P(mu)
  * ( - 2*A*B*Z*X*PDPp*PpDQ - A*B*Z*X*PDQ*PpDPp + 7*A*B*Z*X*PpDPp*PpDQ
   - 4*A*B*Z*X^2*PpDPp*PpDQ + A*B*Z*PDPp*PpDQ + A*B*Z*PDQ*PpDPp
  - 2*A*B*Z*PpDPp*PpDQ + 2*A*B*Z^2*X*PDPp*PpDQ + A*B*Z^2*X*PDQ*PpDPp
   - 4*A*B*Z^2*X*PpDPp*PpDQ - 2*A*B*Z^2*PDPp*PpDQ - A*B*Z^2*PDQ*PpDPp
   + 3*A*B*Z^2*PpDPp*PpDQ + A*B*Z^3*PDPp*PpDQ - A*B*Z^3*PpDPp*PpDQ
   - 3*A*B*X*PpDPp*PpDQ + 4*A*B*X^2*PpDPp*PpDQ - 3*A*Z*X*PDQ
  + 3*A*Z*X*PpDQ - 2*A*Z*X^2*PpDQ + A*Z^2*X*PDQ - 2*A*Z^2*X*PpDQ
  - A*Z^2*PDQ + 3*A*Z^2*PpDQ + A*Z^3*PDQ - A*Z^3*PpDQ - A*X*PpDQ
  + 2*A*X^2*PpDQ + 2*B*Z*PpDQ + 4*B*X*PpDQ - 2*B*PpDQ )
 
 + Fa(2)*Q(al)*P(be)*Pp(mu)
  * ( 4*A*B*Z*X*PDP*PpDQ - 2*A*B*Z*X*PDPp*PpDQ + 3*A*B*Z*X*PDQ*PpDPp
   - A*B*Z*X*PpDPp*PpDQ - 2*A*B*Z*X^2*PDP*PpDQ - 2*A*B*Z*X^2*PDQ*PpDPp
   - A*B*Z*PDP*PpDQ + A*B*Z*PDPp*PpDQ - A*B*Z*PDQ*PpDPp + A*B*Z*PpDPp
  *PpDQ - 3*A*B*Z^2*X*PDP*PpDQ + 2*A*B*Z^2*X*PDPp*PpDQ - A*B*Z^2*X
  *PDQ*PpDPp + A*B*Z^2*X*PpDPp*PpDQ + 2*A*B*Z^2*PDP*PpDQ - 2*A*B*Z^2
  *PDPp*PpDQ + A*B*Z^2*PDQ*PpDPp - A*B*Z^2*PpDPp*PpDQ - A*B*Z^3*PDP
  *PpDQ + A*B*Z^3*PDPp*PpDQ - A*B*X*PDP*PpDQ - 2*A*B*X*PDQ*PpDPp
  + 2*A*B*X^2*PDP*PpDQ + 2*A*B*X^2*PDQ*PpDPp + 3*A*Z*X*PDQ
  - A*Z*X*PpDQ - 2*A*Z*X^2*PDQ - A*Z*PDQ - A*Z*PpDQ - A*Z^2*X*PDQ
  + A*Z^2*X*PpDQ - A*Z^2*PpDQ + 2*A*X^2*PDQ + A*PDQ - 2*B*Z*X^2*PpDQ
   + B*Z*PpDQ - 3*B*Z^2*X*PpDQ - B*Z^3*PpDQ - B*X*PpDQ + 2*B*X^2*PpDQ )
 
 + Fa(2)*Q(al)*P(be)*Q(mu)
  * ( - 1 + 2*A*B*Z*X*PDP*PpDPp - 2*A*B*Z*X*PDPp*PpDPp + 2*A*B*Z*X
  *PpDPp^2 - A*B*Z*X^2*PDP*PpDPp - A*B*Z*X^2*PpDPp^2 - A*B*Z*PDP*PpDPp
   + 2*A*B*Z*PDPp*PpDPp - A*B*Z*PpDPp^2 - A*B*Z^2*X*PDP*PpDPp
  + 2*A*B*Z^2*X*PDPp*PpDPp - A*B*Z^2*X*PpDPp^2 + A*B*Z^2*PDP*PpDPp
   - 2*A*B*Z^2*PDPp*PpDPp + A*B*Z^2*PpDPp^2 - A*B*X*PDP*PpDPp
  - A*B*X*PpDPp^2 + A*B*X^2*PDP*PpDPp + A*B*X^2*PpDPp^2 + A*Z*X*PDP
   - 2*A*Z*X*PDPp + 2*A*Z*X*PpDPp - A*Z*X^2*PDP - A*Z*X^2*PpDPp
  + A*Z*PDP - 3*A*Z*PDPp - A*Z*PpDPp - 2*A*Z^2*X*PDP + 2*A*Z^2*X*PDPp
   - A*Z^2*X*PpDPp + A*Z^2*PDP + A*Z^2*PDPp + A*Z^2*PpDPp
  - A*Z^3*PDP + A*Z^3*PDPp + A*X*PDP - A*X*PpDPp + A*X^2*PDP
  + A*X^2*PpDPp - A*PDP + A*PDPp - B*Z*X^2*PpDPp + B*Z*PpDPp
  - B*Z^2*X*PpDPp + B*Z^2*PpDPp + B*X*PpDPp + B*X^2*PpDPp
  - 2*B*PpDPp + 3*Z - Z*X - Z*X^2 - Z^2 - 2*Z^2*X - Z^3 + 3*X
  + X^2 )
 
 + Fa(2)*Q(al)*Pp(be)*P(mu)
  * ( A*B*Z*X*PDP*PDQ - A*B*Z*X*PDP*PpDQ - A*B*Z*X*PDPp*PDQ
  - A*B*Z*X*PDPp*PpDQ - A*B*Z*X*PpDPp*PpDQ - A*B*Z*X^2*PDP*PDQ
  + A*B*Z*X^2*PDP*PpDQ - 2*A*B*Z*X^2*PDPp*PDQ - 2*A*B*Z*X^2*PDPp*PpDQ
   + 2*A*B*Z*X^2*PDQ*PpDPp - A*B*Z*X^2*PpDPp*PpDQ - A*B*Z*PDPp*PDQ
   + A*B*Z*PDPp*PpDQ + A*B*Z^2*X*PDPp*PDQ - A*B*Z^2*X*PpDPp*PpDQ
  + A*B*Z^2*PDPp*PDQ - A*B*Z^2*PpDPp*PpDQ + 2*A*B*X*PDPp*PpDQ
  - 2*A*B*X^2*PDP*PpDQ + 2*A*B*X^2*PDPp*PpDQ + 2*A*B*X^3*PDP*PpDQ
  + 2*A*B*X^3*PDQ*PpDPp + 6*A*Z*X*PDQ - A*Z*X*PpDQ - 2*A*Z*X^2*PDQ
   - A*Z*X^2*PpDQ - 2*A*Z*PDQ - 2*A*Z^2*PpDQ - 3*A*X*PDQ - A*X*PpDQ
   + 2*A*X^2*PDQ + 2*A*X^3*PDQ + A*PDQ + A*PpDQ + B*Z*X*PDQ
  - 4*B*Z*X*PpDQ - B*Z*X^2*PDQ + B*Z*X^2*PpDQ - B*Z*PpDQ - B*Z^2*PpDQ
   + 2*B*X*PDQ - 2*B*X*PpDQ - 2*B*X^2*PpDQ + 2*B*X^3*PpDQ
  + B*PpDQ )
 
 + Fa(2)*Q(al)*Pp(be)*Pp(mu)
  * ( - A*B*Z*X*PDP*PDQ - A*B*Z*X*PDPp*PDQ - A*B*Z*X*PDPp*PpDQ
  + 3*A*B*Z*X^2*PDP*PDQ - 2*A*B*Z*X^2*PDP*PpDQ - 4*A*B*Z*X^2*PDPp*PDQ
   + A*B*Z*PDPp*PDQ - A*B*Z*PDPp*PpDQ - A*B*Z^2*X*PDP*PpDQ
  - A*B*Z^2*X*PDPp*PDQ + 2*A*B*Z^2*X*PDPp*PpDQ - A*B*Z^2*PDP*PpDQ
  - A*B*Z^2*PDPp*PDQ + 2*A*B*Z^2*PDPp*PpDQ + 2*A*B*X*PDPp*PDQ
  - 2*A*B*X^2*PDP*PDQ + 2*A*B*X^2*PDPp*PDQ + 4*A*B*X^3*PDP*PDQ
  - A*Z*X*PDQ + A*Z*PDQ - 2*A*X*PDQ + 2*A*X^2*PDQ + B*Z*X*PDQ
  + B*Z*X^2*PDQ - 4*B*Z*X^2*PpDQ + 2*B*Z*PDQ - B*Z*PpDQ + B*Z^2*X*PDQ
   + B*Z^2*X*PpDQ + B*Z^2*PDQ - B*Z^2*PpDQ + B*Z^3*PpDQ + B*X*PDQ
  - B*X*PpDQ - 2*B*X^2*PpDQ + 2*B*X^3*PDQ + B*PDQ + B*PpDQ )
 
 + Fa(2)*Q(al)*Pp(be)*Q(mu)
  * ( 3 + 2*A*B*Z*X*PDP*PDPp - A*B*Z*X*PDP*PpDPp - A*B*Z*X*PDP^2
  - 2*A*B*Z*X*PDPp^2 - 3*A*B*Z*X^2*PDP*PDPp + A*B*Z*X^2*PDP*PpDPp
  + A*B*Z*X^2*PDP^2 - A*B*Z*X^2*PDPp*PpDPp + A*B*Z*PDP*PDPp
  + A*B*Z*PDPp*PpDPp - 2*A*B*Z*PDPp^2 - A*B*Z^2*X*PDP*PDPp
  - A*B*Z^2*X*PDPp*PpDPp + 2*A*B*Z^2*X*PDPp^2 - A*B*Z^2*PDP*PDPp
  - A*B*Z^2*PDPp*PpDPp + 2*A*B*Z^2*PDPp^2 + A*B*X*PDP*PDPp
  + A*B*X*PDPp*PpDPp + A*B*X^2*PDP*PDPp - A*B*X^2*PDP*PpDPp
  - A*B*X^2*PDP^2 + A*B*X^2*PDPp*PpDPp + A*B*X^3*PDP*PpDPp
  + A*B*X^3*PDP^2 + A*Z*X*PDPp - A*Z*X^2*PDP - A*Z*X^2*PDPp
  + A*Z*PDP - 2*A*Z^2*PDPp - A*X*PDP + A*X*PDPp + A*X^2*PDPp
  + A*X^3*PDP - B*Z*X*PDP - B*Z*X*PpDPp + B*Z*X^2*PDP - 3*B*Z*X^2*PDPp
   + B*Z*X^2*PpDPp - B*Z*PDPp - B*Z^2*X*PDPp + 2*B*Z^2*X*PpDPp
  - B*Z^2*PDPp + 3*B*X*PDPp - 2*B*X*PpDPp - B*X^2*PDP + B*X^2*PDPp
   - B*X^2*PpDPp + B*X^3*PDP + B*X^3*PpDPp + 2*B*PDPp + 3*Z
  - 3*Z*X - Z*X^2 + 2*Z^2 + Z^2*X + Z^3 - 7*X + X^3 )
 
 + Fa(2)*Q(al)*Q(be)*P(mu)
  * ( 3 + A*B*Z*X*PDP*PpDPp - 2*A*B*Z*X*PDPp*PpDPp + A*B*Z*X*PpDPp^2
   - A*B*Z*X^2*PDP*PpDPp - A*B*Z*X^2*PpDPp^2 + A*B*Z*PDPp*PpDPp
  - A*B*Z*PDPp^2 + A*B*Z^2*X*PDP*PDPp - A*B*Z^2*X*PDP*PpDPp
  + 2*A*B*Z^2*X*PDPp*PpDPp - A*B*Z^2*X*PpDPp^2 - A*B*Z^2*PDP*PDPp
  + A*B*Z^2*PDP*PpDPp - 3*A*B*Z^2*PDPp*PpDPp + 2*A*B*Z^2*PDPp^2
  + A*B*Z^2*PpDPp^2 + A*B*Z^3*PDPp*PpDPp - A*B*Z^3*PDPp^2
  + A*B*X*PDPp*PpDPp + A*Z*X*PDP - 2*A*Z*X*PDPp + A*Z*X*PpDPp
  - A*Z*X^2*PDP - A*Z*X^2*PpDPp + A*Z^2*X*PDP + 2*A*Z^2*X*PDPp
  - A*Z^2*X*PpDPp - 2*A*Z^2*PDPp + A*Z^2*PpDPp - A*X*PDP + A*X*PDPp
   + A*PDPp - B*Z*X^2*PpDPp - 2*B*Z*PDPp + B*Z*PpDPp + B*Z^2*X*PDPp
   - B*Z^2*X*PpDPp - B*Z^2*PDPp + 2*B*Z^2*PpDPp + 2*B*PDPp
  - B*PpDPp + 5*Z - Z*X^2 + Z^2 + Z^2*X - X )
 
 + Fa(2)*Q(al)*Q(be)*Pp(mu)
  * ( 3 - 2*A*B*Z*X*PDP*PDPp + A*B*Z*X*PDP*PpDPp + A*B*Z*X*PDP^2
  - A*B*Z*X^2*PDP*PpDPp - A*B*Z*X^2*PDP^2 + A*B*Z*PDP*PDPp
  - A*B*Z*PDPp^2 + 2*A*B*Z^2*X*PDP*PDPp - A*B*Z^2*X*PDP*PpDPp
  - A*B*Z^2*X*PDP^2 + A*B*Z^2*X*PDPp*PpDPp - 3*A*B*Z^2*PDP*PDPp
  + A*B*Z^2*PDP*PpDPp + A*B*Z^2*PDP^2 - A*B*Z^2*PDPp*PpDPp
  + 2*A*B*Z^2*PDPp^2 + A*B*Z^3*PDP*PDPp - A*B*Z^3*PDPp^2 + A*B*X*PDP
  *PDPp - A*Z*X^2*PDP + A*Z*PDP - 2*A*Z*PDPp - A*Z^2*X*PDP
  + A*Z^2*X*PDPp + 2*A*Z^2*PDP - A*Z^2*PDPp - A*PDP + 2*A*PDPp
  + B*Z*X*PDP - 2*B*Z*X*PDPp + B*Z*X*PpDPp - B*Z*X^2*PDP - B*Z*X^2
  *PpDPp - B*Z^2*X*PDP + 2*B*Z^2*X*PDPp + B*Z^2*X*PpDPp + B*Z^2*PDP
   - 2*B*Z^2*PDPp + B*X*PDPp - B*X*PpDPp + B*PDPp + 5*Z - Z*X^2
  + Z^2 + Z^2*X - X )
 
 + Fa(2)*D(al,be)*P(mu)
  * ( A*B*Z*X*PDP*PDPp*QDQ + 3*A*B*Z*X*PDP*PDQ*PpDQ - 2*A*B*Z*X*PDP
  *PpDPp*QDQ - 5*A*B*Z*X*PDP*PpDQ^2 + 4*A*B*Z*X*PDPp*PDQ*PpDQ
  + A*B*Z*X*PDPp*PpDPp*QDQ - 11*A*B*Z*X*PDQ*PpDPp*PpDQ + 3*A*B*Z*X
  *PDQ^2*PpDPp - 2*A*B*Z*X*PpDPp^2*QDQ - A*B*Z*X^2*PDP*PDPp*QDQ
  - 2*A*B*Z*X^2*PDP*PDQ*PpDQ + 2*A*B*Z*X^2*PDP*PpDPp*QDQ + 4*A*B*Z
  *X^2*PDP*PpDQ^2 - 4*A*B*Z*X^2*PDPp*PDQ*PpDQ - A*B*Z*X^2*PDPp*PpDPp
  *QDQ + 12*A*B*Z*X^2*PDQ*PpDPp*PpDQ - 2*A*B*Z*X^2*PDQ^2*PpDPp
  + 2*A*B*Z*X^2*PpDPp^2*QDQ - A*B*Z*PDP*PDQ*PpDQ + A*B*Z*PDP*PpDQ^2
   - A*B*Z*PDPp*PDQ*PpDQ + 2*A*B*Z*PDQ*PpDPp*PpDQ - A*B*Z*PDQ^2*PpDPp
   - A*B*Z^2*X*PDP*PDPp*QDQ - A*B*Z^2*X*PDP*PDQ*PpDQ + A*B*Z^2*X*PDP
  *PpDPp*QDQ + A*B*Z^2*X*PDP*PpDQ^2 - 4*A*B*Z^2*X*PDPp*PDQ*PpDQ
  - A*B*Z^2*X*PDPp*PpDPp*QDQ + 6*A*B*Z^2*X*PDQ*PpDPp*PpDQ
  - A*B*Z^2*X*PDQ^2*PpDPp + A*B*Z^2*X*PpDPp^2*QDQ + A*B*Z^2*PDP*PDPp
  *QDQ + A*B*Z^2*PDP*PDQ*PpDQ - A*B*Z^2*PDP*PpDPp*QDQ - A*B*Z^2*PDP
  *PpDQ^2 + 2*A*B*Z^2*PDPp*PDQ*PpDQ + A*B*Z^2*PDPp*PpDPp*QDQ
  - 3*A*B*Z^2*PDQ*PpDPp*PpDQ + A*B*Z^2*PDQ^2*PpDPp - A*B*Z^2*PpDPp^2
  *QDQ - A*B*Z^3*PDPp*PDQ*PpDQ + A*B*Z^3*PDQ*PpDPp*PpDQ + A*B*X*PDP
  *PpDPp*QDQ + 2*A*B*X*PDP*PpDQ^2 + 3*A*B*X*PDQ*PpDPp*PpDQ
  - 3*A*B*X^2*PDP*PpDPp*QDQ - 6*A*B*X^2*PDP*PpDQ^2 - 10*A*B*X^2*PDQ
  *PpDPp*PpDQ - A*B*X^2*PpDPp^2*QDQ + 2*A*B*X^3*PDP*PpDPp*QDQ
  + 4*A*B*X^3*PDP*PpDQ^2 + 8*A*B*X^3*PDQ*PpDPp*PpDQ + A*B*X^3*PpDPp^2
  *QDQ - A*Z*X*PDP*QDQ + A*Z*X*PDPp*QDQ - 3*A*Z*X*PDQ*PpDQ
  + A*Z*X*PDQ^2 - 2*A*Z*X*PpDPp*QDQ + A*Z*X^2*PDP*QDQ - A*Z*X^2*PDPp
  *QDQ + 6*A*Z*X^2*PDQ*PpDQ - 2*A*Z*X^2*PDQ^2 + 2*A*Z*X^2*PpDPp*QDQ
   - A*Z^2*X*PDPp*QDQ + 4*A*Z^2*X*PDQ*PpDQ - 3*A*Z^2*X*PDQ^2
  + A*Z^2*X*PpDPp*QDQ + A*Z^2*PDPp*QDQ - A*Z^2*PDQ*PpDQ + A*Z^2*PDQ^2
   - A*Z^2*PpDPp*QDQ + A*Z^3*PDQ*PpDQ - A*Z^3*PDQ^2 + A*X*PDQ*PpDQ
   - A*X^2*PDP*QDQ - 4*A*X^2*PDQ*PpDQ - A*X^2*PpDPp*QDQ + A*X^3*PDP
  *QDQ + 4*A*X^3*PDQ*PpDQ + A*X^3*PpDPp*QDQ + B*Z*X*PDPp*QDQ
  + 3*B*Z*X*PDQ*PpDQ - B*Z*X*PpDPp*QDQ - 3*B*Z*X*PpDQ^2 - B*Z*X^2*PDPp
  *QDQ - 2*B*Z*X^2*PDQ*PpDQ + 2*B*Z*X^2*PpDPp*QDQ + 4*B*Z*X^2*PpDQ^2
   - B*Z*PDQ*PpDQ - B*Z*PpDPp*QDQ + B*Z*PpDQ^2 - B*Z^2*X*PDPp*QDQ
  - B*Z^2*X*PDQ*PpDQ + B*Z^2*X*PpDPp*QDQ + B*Z^2*X*PpDQ^2
  + B*Z^2*PDPp*QDQ + B*Z^2*PDQ*PpDQ - B*Z^2*PpDPp*QDQ + 2*B*X*PpDPp
  *QDQ + 4*B*X*PpDQ^2 - 3*B*X^2*PpDPp*QDQ - 6*B*X^2*PpDQ^2
  + 2*B*X^3*PpDPp*QDQ + 4*B*X^3*PpDQ^2 - B*PpDPp*QDQ - B*PpDQ^2
  + Z*X^2*QDQ + Z*QDQ + Z^2*QDQ + X*QDQ - X^2*QDQ + X^3*QDQ
  + QDQ )
 
 + Fa(2)*D(al,be)*Pp(mu)
  * ( A*B*Z*X*PDP*PDPp*QDQ - 11*A*B*Z*X*PDP*PDQ*PpDQ - 2*A*B*Z*X*PDP
  *PpDPp*QDQ + 3*A*B*Z*X*PDP*PpDQ^2 - 2*A*B*Z*X*PDP^2*QDQ
  + 4*A*B*Z*X*PDPp*PDQ*PpDQ + A*B*Z*X*PDPp*PpDPp*QDQ + 3*A*B*Z*X*PDQ
  *PpDPp*PpDQ - 5*A*B*Z*X*PDQ^2*PpDPp - A*B*Z*X^2*PDP*PDPp*QDQ
  + 12*A*B*Z*X^2*PDP*PDQ*PpDQ + 2*A*B*Z*X^2*PDP*PpDPp*QDQ
  - 2*A*B*Z*X^2*PDP*PpDQ^2 + 2*A*B*Z*X^2*PDP^2*QDQ - 4*A*B*Z*X^2*PDPp
  *PDQ*PpDQ - A*B*Z*X^2*PDPp*PpDPp*QDQ - 2*A*B*Z*X^2*PDQ*PpDPp*PpDQ
   + 4*A*B*Z*X^2*PDQ^2*PpDPp + 2*A*B*Z*PDP*PDQ*PpDQ - A*B*Z*PDP*PpDQ^2
   - A*B*Z*PDPp*PDQ*PpDQ - A*B*Z*PDQ*PpDPp*PpDQ + A*B*Z*PDQ^2*PpDPp
   - A*B*Z^2*X*PDP*PDPp*QDQ + 6*A*B*Z^2*X*PDP*PDQ*PpDQ + A*B*Z^2*X
  *PDP*PpDPp*QDQ - A*B*Z^2*X*PDP*PpDQ^2 + A*B*Z^2*X*PDP^2*QDQ
  - 4*A*B*Z^2*X*PDPp*PDQ*PpDQ - A*B*Z^2*X*PDPp*PpDPp*QDQ - A*B*Z^2
  *X*PDQ*PpDPp*PpDQ + A*B*Z^2*X*PDQ^2*PpDPp + A*B*Z^2*PDP*PDPp*QDQ
   - 3*A*B*Z^2*PDP*PDQ*PpDQ - A*B*Z^2*PDP*PpDPp*QDQ + A*B*Z^2*PDP*PpDQ^2
   - A*B*Z^2*PDP^2*QDQ + 2*A*B*Z^2*PDPp*PDQ*PpDQ + A*B*Z^2*PDPp*PpDPp
  *QDQ + A*B*Z^2*PDQ*PpDPp*PpDQ - A*B*Z^2*PDQ^2*PpDPp + A*B*Z^3*PDP
  *PDQ*PpDQ - A*B*Z^3*PDPp*PDQ*PpDQ + 3*A*B*X*PDP*PDQ*PpDQ
  + A*B*X*PDP*PpDPp*QDQ + 2*A*B*X*PDQ^2*PpDPp - 10*A*B*X^2*PDP*PDQ
  *PpDQ - 3*A*B*X^2*PDP*PpDPp*QDQ - A*B*X^2*PDP^2*QDQ - 6*A*B*X^2*PDQ^2
  *PpDPp + 8*A*B*X^3*PDP*PDQ*PpDQ + 2*A*B*X^3*PDP*PpDPp*QDQ
  + A*B*X^3*PDP^2*QDQ + 4*A*B*X^3*PDQ^2*PpDPp - A*Z*X*PDP*QDQ
  + A*Z*X*PDPp*QDQ + 3*A*Z*X*PDQ*PpDQ - 3*A*Z*X*PDQ^2 + 2*A*Z*X^2*PDP
  *QDQ - A*Z*X^2*PDPp*QDQ - 2*A*Z*X^2*PDQ*PpDQ + 4*A*Z*X^2*PDQ^2
  - A*Z*PDP*QDQ - A*Z*PDQ*PpDQ + A*Z*PDQ^2 + A*Z^2*X*PDP*QDQ
  - A*Z^2*X*PDPp*QDQ - A*Z^2*X*PDQ*PpDQ + A*Z^2*X*PDQ^2 - A*Z^2*PDP
  *QDQ + A*Z^2*PDPp*QDQ + A*Z^2*PDQ*PpDQ + 2*A*X*PDP*QDQ + 4*A*X*PDQ^2
   - 3*A*X^2*PDP*QDQ - 6*A*X^2*PDQ^2 + 2*A*X^3*PDP*QDQ + 4*A*X^3*PDQ^2
   - A*PDP*QDQ - A*PDQ^2 - 2*B*Z*X*PDP*QDQ + B*Z*X*PDPp*QDQ
  - 3*B*Z*X*PDQ*PpDQ - B*Z*X*PpDPp*QDQ + B*Z*X*PpDQ^2 + 2*B*Z*X^2*PDP
  *QDQ - B*Z*X^2*PDPp*QDQ + 6*B*Z*X^2*PDQ*PpDQ + B*Z*X^2*PpDPp*QDQ
   - 2*B*Z*X^2*PpDQ^2 + B*Z^2*X*PDP*QDQ - B*Z^2*X*PDPp*QDQ
  + 4*B*Z^2*X*PDQ*PpDQ - 3*B*Z^2*X*PpDQ^2 - B*Z^2*PDP*QDQ
  + B*Z^2*PDPp*QDQ - B*Z^2*PDQ*PpDQ + B*Z^2*PpDQ^2 + B*Z^3*PDQ*PpDQ
   - B*Z^3*PpDQ^2 + B*X*PDQ*PpDQ - B*X^2*PDP*QDQ - 4*B*X^2*PDQ*PpDQ
   - B*X^2*PpDPp*QDQ + B*X^3*PDP*QDQ + 4*B*X^3*PDQ*PpDQ + B*X^3*PpDPp
  *QDQ + Z*X^2*QDQ + Z*QDQ + Z^2*QDQ + X*QDQ - X^2*QDQ + X^3*QDQ
  + QDQ )
 
 + Fa(2)*D(al,be)*Q(mu)
  * ( 6*A*B*Z*X*PDP*PDPp*PpDQ - 4*A*B*Z*X*PDP*PDQ*PpDPp - 4*A*B*Z*X
  *PDP*PpDPp*PpDQ - 4*A*B*Z*X*PDP^2*PpDQ + 6*A*B*Z*X*PDPp*PDQ*PpDPp
   - 4*A*B*Z*X*PDQ*PpDPp^2 - 4*A*B*Z*X^2*PDP*PDPp*PpDQ + 3*A*B*Z*X^2
  *PDP*PDQ*PpDPp + 3*A*B*Z*X^2*PDP*PpDPp*PpDQ + 3*A*B*Z*X^2*PDP^2*PpDQ
   - 4*A*B*Z*X^2*PDPp*PDQ*PpDPp + 3*A*B*Z*X^2*PDQ*PpDPp^2
  - 2*A*B*Z*PDP*PDPp*PpDQ + A*B*Z*PDP*PDQ*PpDPp + A*B*Z*PDP*PpDPp*PpDQ
   + A*B*Z*PDP^2*PpDQ - 2*A*B*Z*PDPp*PDQ*PpDPp + A*B*Z*PDQ*PpDPp^2
   - 2*A*B*Z^2*X*PDP*PDPp*PpDQ + A*B*Z^2*X*PDP*PDQ*PpDPp + A*B*Z^2
  *X*PDP*PpDPp*PpDQ + A*B*Z^2*X*PDP^2*PpDQ - 2*A*B*Z^2*X*PDPp*PDQ*PpDPp
   + A*B*Z^2*X*PDQ*PpDPp^2 + 2*A*B*Z^2*PDP*PDPp*PpDQ - A*B*Z^2*PDP
  *PDQ*PpDPp - A*B*Z^2*PDP*PpDPp*PpDQ - A*B*Z^2*PDP^2*PpDQ
  + 2*A*B*Z^2*PDPp*PDQ*PpDPp - A*B*Z^2*PDQ*PpDPp^2 + 3*A*B*X*PDP*PDQ
  *PpDPp + 3*A*B*X*PDP*PpDPp*PpDQ + A*B*X*PDP^2*PpDQ + A*B*X*PDQ*PpDPp^2
   - 7*A*B*X^2*PDP*PDQ*PpDPp - 7*A*B*X^2*PDP*PpDPp*PpDQ - 3*A*B*X^2
  *PDP^2*PpDQ - 3*A*B*X^2*PDQ*PpDPp^2 + 4*A*B*X^3*PDP*PDQ*PpDPp
  + 4*A*B*X^3*PDP*PpDPp*PpDQ + 2*A*B*X^3*PDP^2*PpDQ + 2*A*B*X^3*PDQ
  *PpDPp^2 - 4*A*Z*X*PDP*PDQ - 2*A*Z*X*PDP*PpDQ + 2*A*Z*X*PDPp*PDQ
   - 4*A*Z*X*PDQ*PpDPp + 7*A*Z*X^2*PDP*PDQ + A*Z*X^2*PDP*PpDQ
  - 4*A*Z*X^2*PDPp*PDQ + 3*A*Z*X^2*PDQ*PpDPp + A*Z*PDP*PpDQ
  - A*Z*PDPp*PDQ + A*Z*PDQ*PpDPp + 4*A*Z^2*X*PDP*PDQ - 4*A*Z^2*X*PDPp
  *PDQ + A*Z^2*X*PDQ*PpDPp - A*Z^2*PDP*PDQ + A*Z^2*PDPp*PDQ
  - A*Z^2*PDQ*PpDPp + A*Z^3*PDP*PDQ - A*Z^3*PDPp*PDQ - 2*A*X*PDPp*PDQ
   + A*X*PDQ*PpDPp - 3*A*X^2*PDP*PDQ - 3*A*X^2*PDP*PpDQ - 3*A*X^2*PDQ
  *PpDPp + 4*A*X^3*PDP*PDQ + 2*A*X^3*PDP*PpDQ + 2*A*X^3*PDQ*PpDPp
  + A*PDP*PpDQ + A*PDPp*PDQ - 4*B*Z*X*PDP*PpDQ + 2*B*Z*X*PDPp*PpDQ
   - 2*B*Z*X*PDQ*PpDPp - 4*B*Z*X*PpDPp*PpDQ + 3*B*Z*X^2*PDP*PpDQ
  - 4*B*Z*X^2*PDPp*PpDQ + B*Z*X^2*PDQ*PpDPp + 7*B*Z*X^2*PpDPp*PpDQ
   + B*Z*PDP*PpDQ - B*Z*PDPp*PpDQ + B*Z*PDQ*PpDPp + B*Z^2*X*PDP*PpDQ
   - 4*B*Z^2*X*PDPp*PpDQ + 4*B*Z^2*X*PpDPp*PpDQ - B*Z^2*PDP*PpDQ
  + B*Z^2*PDPp*PpDQ - B*Z^2*PpDPp*PpDQ - B*Z^3*PDPp*PpDQ + B*Z^3*PpDPp
  *PpDQ + B*X*PDP*PpDQ - 2*B*X*PDPp*PpDQ - 3*B*X^2*PDP*PpDQ
  - 3*B*X^2*PDQ*PpDPp - 3*B*X^2*PpDPp*PpDQ + 2*B*X^3*PDP*PpDQ
  + 2*B*X^3*PDQ*PpDPp + 4*B*X^3*PpDPp*PpDQ + B*PDPp*PpDQ + B*PDQ*PpDPp
   - 2*Z*X*PDQ - 2*Z*X*PpDQ + 3*Z*X^2*PDQ + 3*Z*X^2*PpDQ - Z*PDQ
  - Z*PpDQ + Z^2*X*PDQ + Z^2*X*PpDQ - Z^2*PDQ - Z^2*PpDQ - X*PDQ
  - X*PpDQ - X^2*PDQ - X^2*PpDQ + 2*X^3*PDQ + 2*X^3*PpDQ + 4*PDQ
  + 4*PpDQ )
 
 + Fa(2)*D(al,mu)*P(be)
  * ( - 2*B*Z*X*PDPp*QDQ - 4*B*Z*X*PDQ*PpDQ + 4*B*Z*X*PpDPp*QDQ
  + 8*B*Z*X*PpDQ^2 - 2*B*Z*PDPp*QDQ - 4*B*Z*PpDQ^2 - 2*B*Z^2*PDPp*QDQ
   - 2*B*Z^2*PDQ*PpDQ + 2*B*Z^2*PpDPp*QDQ + 2*B*Z^2*PpDQ^2
  - 2*B*X*PDPp*QDQ - 4*B*X*PDQ*PpDQ - 4*B*X*PpDPp*QDQ - 8*B*X*PpDQ^2
   + 4*B*X^2*PpDPp*QDQ + 8*B*X^2*PpDQ^2 + 2*B*PDQ*PpDQ + 2*B*PpDPp
  *QDQ + 2*B*PpDQ^2 + 2*Z*X*QDQ - 3*Z*QDQ - 2*X*QDQ + 2*X^2*QDQ
  - QDQ )
 
 + Fa(2)*D(al,mu)*Pp(be)
  * ( - 2*A*Z*X*PDP*QDQ + 2*A*Z*X*PDQ*PpDQ - 6*A*Z*X*PDQ^2
  + 2*A*Z*X^2*PDP*QDQ - A*Z*X^2*PDPp*QDQ - 2*A*Z*X^2*PDQ*PpDQ
  + 4*A*Z*X^2*PDQ^2 + A*Z*PDPp*QDQ + 2*A*Z*PDQ^2 + A*Z^2*X*PDP*QDQ
   - A*Z^2*X*PDPp*QDQ - A*Z^2*X*PDQ*PpDQ + A*Z^2*X*PDQ^2 - A*Z^2*PDP
  *QDQ + A*Z^2*PDPp*QDQ + A*Z^2*PDQ*PpDQ - A*Z^2*PDQ^2 + 3*A*X*PDP
  *QDQ + A*X*PDPp*QDQ + 3*A*X*PDQ*PpDQ + 5*A*X*PDQ^2 - 4*A*X^2*PDP
  *QDQ - A*X^2*PDPp*QDQ - 2*A*X^2*PDQ*PpDQ - 8*A*X^2*PDQ^2
  + 2*A*X^3*PDP*QDQ + 4*A*X^3*PDQ^2 - A*PDP*QDQ - A*PDQ*PpDQ
  - A*PDQ^2 - B*Z*X*PDPp*QDQ + B*Z*X*PDQ*PpDQ - 2*B*Z*X*PDQ^2
  + B*Z*X*PpDPp*QDQ + B*Z*X*PpDQ^2 - B*Z*PDQ*PpDQ + B*Z*PpDQ^2
  - B*X*PDPp*QDQ - 3*B*X*PDQ*PpDQ - 2*B*X*PDQ^2 + B*X*PpDQ^2
  + 2*B*X^2*PDPp*QDQ + 4*B*X^2*PDQ*PpDQ + B*X^2*PpDPp*QDQ
  + 2*B*X^2*PpDQ^2 - 2*B*PDPp*QDQ - B*PDQ*PpDQ - B*PpDQ^2
  - 2*Z*X*QDQ + Z*X^2*QDQ + 2*Z*QDQ - X^2*QDQ + X^3*QDQ + QDQ )
 
 + Fa(2)*D(al,mu)*Q(be)
  * ( 2*A*Z*X*PDP*PpDQ + 4*A*Z*X*PDPp*PDQ - 4*A*Z*X^2*PDP*PDQ
  + A*Z*PDP*PDQ - 2*A*Z*PDP*PpDQ - A*Z*PDPp*PDQ - 4*A*Z^2*X*PDP*PDQ
   + A*Z^2*X*PDP*PpDQ + 2*A*Z^2*X*PDPp*PDQ + A*Z^2*PDP*PDQ
  - A*Z^2*PDP*PpDQ + A*Z^2*PDPp*PDQ - A*Z^3*PDP*PDQ + A*Z^3*PDPp*PDQ
   + 4*A*X*PDP*PDQ + A*X*PDP*PpDQ + 2*A*X*PDPp*PDQ - 4*A*X^2*PDP*PDQ
   - A*PDP*PDQ - A*PDP*PpDQ - A*PDPp*PDQ - 6*B*Z*X*PDPp*PpDQ
  - 3*B*Z*X*PDQ*PpDPp + 3*B*Z*X*PpDPp*PpDQ + 2*B*Z*PDPp*PDQ
  + 4*B*Z*PDPp*PpDQ + B*Z*PDQ*PpDPp - B*Z*PpDPp*PpDQ + 4*B*Z^2*PDPp
  *PDQ - 2*B*Z^2*PDPp*PpDQ - 2*B*Z^2*PDQ*PpDPp + 2*B*X*PDPp*PpDQ
  - B*X*PDQ*PpDPp - 3*B*X*PpDPp*PpDQ + 4*B*X^2*PpDPp*PpDQ
  - 2*B*PDPp*PDQ - 2*B*PDPp*PpDQ + B*PDQ*PpDPp + B*PpDPp*PpDQ
  - 3*Z*X*PDQ + 3*Z*X*PpDQ - 2*Z*X^2*PDQ + 2*Z*PDQ - 2*Z^2*X*PDQ
  + Z^2*X*PpDQ - Z^2*PDQ + 2*Z^2*PpDQ - Z^3*PDQ + Z^3*PpDQ
  + X*PDQ - 2*X^2*PDQ + 2*X^2*PpDQ - PpDQ )
 
 + Fa(2)*D(be,mu)*P(al)
  * ( A*Z*X*PDP*QDQ - A*Z*X*PDPp*QDQ + A*Z*X*PDQ*PpDQ + A*Z*X*PDQ^2
   - 2*A*Z*X*PpDQ^2 - A*Z*PDQ*PpDQ + A*Z*PDQ^2 - A*X*PDPp*QDQ
  - 3*A*X*PDQ*PpDQ + A*X*PDQ^2 - 2*A*X*PpDQ^2 + A*X^2*PDP*QDQ
  + 2*A*X^2*PDPp*QDQ + 4*A*X^2*PDQ*PpDQ + 2*A*X^2*PDQ^2 - 2*A*PDPp
  *QDQ - A*PDQ*PpDQ - A*PDQ^2 + 2*B*Z*X*PDQ*PpDQ - 2*B*Z*X*PpDPp*QDQ
   - 6*B*Z*X*PpDQ^2 - B*Z*X^2*PDPp*QDQ - 2*B*Z*X^2*PDQ*PpDQ
  + 2*B*Z*X^2*PpDPp*QDQ + 4*B*Z*X^2*PpDQ^2 + B*Z*PDPp*QDQ
  + 2*B*Z*PpDQ^2 - B*Z^2*X*PDPp*QDQ - B*Z^2*X*PDQ*PpDQ + B*Z^2*X*PpDPp
  *QDQ + B*Z^2*X*PpDQ^2 + B*Z^2*PDPp*QDQ + B*Z^2*PDQ*PpDQ
  - B*Z^2*PpDPp*QDQ - B*Z^2*PpDQ^2 + B*X*PDPp*QDQ + 3*B*X*PDQ*PpDQ
   + 3*B*X*PpDPp*QDQ + 5*B*X*PpDQ^2 - B*X^2*PDPp*QDQ - 2*B*X^2*PDQ
  *PpDQ - 4*B*X^2*PpDPp*QDQ - 8*B*X^2*PpDQ^2 + 2*B*X^3*PpDPp*QDQ
  + 4*B*X^3*PpDQ^2 - B*PDQ*PpDQ - B*PpDPp*QDQ - B*PpDQ^2 - 2*Z*X*QDQ
   + Z*X^2*QDQ + 2*Z*QDQ - X^2*QDQ + X^3*QDQ + QDQ )
 
 + Fa(2)*D(be,mu)*Pp(al)
  * ( 4*A*Z*X*PDP*QDQ - 2*A*Z*X*PDPp*QDQ - 4*A*Z*X*PDQ*PpDQ
  + 8*A*Z*X*PDQ^2 - 2*A*Z*PDPp*QDQ - 4*A*Z*PDQ^2 + 2*A*Z^2*PDP*QDQ
   - 2*A*Z^2*PDPp*QDQ - 2*A*Z^2*PDQ*PpDQ + 2*A*Z^2*PDQ^2 - 4*A*X*PDP
  *QDQ - 2*A*X*PDPp*QDQ - 4*A*X*PDQ*PpDQ - 8*A*X*PDQ^2 + 4*A*X^2*PDP
  *QDQ + 8*A*X^2*PDQ^2 + 2*A*PDP*QDQ + 2*A*PDQ*PpDQ + 2*A*PDQ^2
  + 2*Z*X*QDQ - 3*Z*QDQ - 2*X*QDQ + 2*X^2*QDQ - QDQ )
 
 + Fa(2)*D(be,mu)*Q(al)
  * ( 3*A*Z*X*PDP*PDQ - 3*A*Z*X*PDP*PpDQ - 6*A*Z*X*PDPp*PDQ
  - A*Z*PDP*PDQ + A*Z*PDP*PpDQ + 4*A*Z*PDPp*PDQ + 2*A*Z*PDPp*PpDQ
  - 2*A*Z^2*PDP*PpDQ - 2*A*Z^2*PDPp*PDQ + 4*A*Z^2*PDPp*PpDQ
  - 3*A*X*PDP*PDQ - A*X*PDP*PpDQ + 2*A*X*PDPp*PDQ + 4*A*X^2*PDP*PDQ
   + A*PDP*PDQ + A*PDP*PpDQ - 2*A*PDPp*PDQ - 2*A*PDPp*PpDQ
  + 4*B*Z*X*PDPp*PpDQ + 2*B*Z*X*PDQ*PpDPp - 4*B*Z*X^2*PpDPp*PpDQ
  - B*Z*PDPp*PpDQ - 2*B*Z*PDQ*PpDPp + B*Z*PpDPp*PpDQ + 2*B*Z^2*X*PDPp
  *PpDQ + B*Z^2*X*PDQ*PpDPp - 4*B*Z^2*X*PpDPp*PpDQ + B*Z^2*PDPp*PpDQ
   - B*Z^2*PDQ*PpDPp + B*Z^2*PpDPp*PpDQ + B*Z^3*PDPp*PpDQ
  - B*Z^3*PpDPp*PpDQ + 2*B*X*PDPp*PpDQ + B*X*PDQ*PpDPp + 4*B*X*PpDPp
  *PpDQ - 4*B*X^2*PpDPp*PpDQ - B*PDPp*PpDQ - B*PDQ*PpDPp - B*PpDPp
  *PpDQ + 3*Z*X*PDQ - 3*Z*X*PpDQ - 2*Z*X^2*PpDQ + 2*Z*PpDQ
  + Z^2*X*PDQ - 2*Z^2*X*PpDQ + 2*Z^2*PDQ - Z^2*PpDQ + Z^3*PDQ
  - Z^3*PpDQ + X*PpDQ + 2*X^2*PDQ - 2*X^2*PpDQ - PDQ )
 
 + Fa(3)*P(al)*P(be)*P(mu)
  * ( A*B*Z*X*PDQ*QDQ - 4*A*B*Z*X*PpDQ*QDQ + A*B*Z*X^2*PDQ*QDQ
  - 4*A*B*Z*X^2*PpDQ*QDQ + A*B*Z^2*X*PDQ*QDQ - A*B*Z^2*X*PpDQ*QDQ
  + A*B*Z^2*PDQ*QDQ - A*B*Z^2*PpDQ*QDQ + A*B*X*PpDQ*QDQ - 3*A*B*X^2
  *PpDQ*QDQ - 4*A*B*X^3*PpDQ*QDQ )
 
 + Fa(3)*P(al)*P(be)*Pp(mu)
  * ( - 3*A*B*Z*X*PDQ*QDQ - 3*A*B*Z*X^2*PDQ*QDQ - A*B*Z^2*X*PDQ*QDQ
   + A*B*Z^2*X*PpDQ*QDQ - A*B*Z^2*PDQ*QDQ + A*B*Z^2*PpDQ*QDQ
  + A*B*X*PpDQ*QDQ - 2*A*B*X^2*PDQ*QDQ - A*B*X^2*PpDQ*QDQ
  - 2*A*B*X^3*PDQ*QDQ - 2*A*B*X^3*PpDQ*QDQ )
 
 + Fa(3)*P(al)*P(be)*Q(mu)
  * ( - 2*A*B*Z*X*PDP*QDQ + 2*A*B*Z*X*PDPp*QDQ - 2*A*B*Z*X*PDQ*PpDQ
   - 2*A*B*Z*X*PpDPp*QDQ - 2*A*B*Z*X*PpDQ^2 - 2*A*B*Z*X^2*PDP*QDQ
  + 2*A*B*Z*X^2*PDPp*QDQ - 2*A*B*Z*X^2*PDQ*PpDQ - 2*A*B*Z*X^2*PpDPp
  *QDQ - 2*A*B*Z*X^2*PpDQ^2 - A*B*Z^2*X*PDP*QDQ + 2*A*B*Z^2*X*PDPp
  *QDQ - A*B*Z^2*X*PpDPp*QDQ - A*B*Z^2*PDP*QDQ + 2*A*B*Z^2*PDPp*QDQ
   - A*B*Z^2*PpDPp*QDQ + 2*A*B*X*PDQ*PpDQ + 2*A*B*X*PpDPp*QDQ
  + 2*A*B*X*PpDQ^2 - A*B*X^2*PDP*QDQ - 2*A*B*X^2*PDQ*PpDQ
  - A*B*X^2*PpDPp*QDQ - 2*A*B*X^2*PpDQ^2 - A*B*X^3*PDP*QDQ
  - 4*A*B*X^3*PDQ*PpDQ - 3*A*B*X^3*PpDPp*QDQ - 4*A*B*X^3*PpDQ^2
  - A*Z*X*QDQ - 2*A*Z*X^2*QDQ - A*X*QDQ - 2*A*X^2*QDQ - 2*A*X^3*QDQ
   - 2*B*Z*X*QDQ - 2*B*Z*X^2*QDQ - B*Z^2*X*QDQ - B*Z^2*QDQ
  - B*X^2*QDQ - B*X^3*QDQ )
 
 + Fa(3)*P(al)*Pp(be)*P(mu)
  * ( A*B*Z*X^2*PDQ*QDQ - A*B*Z*X^2*PpDQ*QDQ - A*B*X^2*PDQ*QDQ
  - A*B*X^2*PpDQ*QDQ - A*B*X^3*PDQ*QDQ - 3*A*B*X^3*PpDQ*QDQ )
 
 + Fa(3)*P(al)*Pp(be)*Pp(mu)
  * ( - A*B*Z*X^2*PDQ*QDQ + A*B*Z*X^2*PpDQ*QDQ - A*B*X^2*PDQ*QDQ
  - A*B*X^2*PpDQ*QDQ - 3*A*B*X^3*PDQ*QDQ - A*B*X^3*PpDQ*QDQ )
 
 + Fa(3)*P(al)*Pp(be)*Q(mu)
  * ( - A*B*Z*X^2*PDP*QDQ + 2*A*B*Z*X^2*PDPp*QDQ - A*B*Z*X^2*PpDPp
  *QDQ - 2*A*B*X*PDPp*QDQ - 4*A*B*X^2*PDPp*QDQ - 4*A*B*X^2*PDQ*PpDQ
   - 2*A*B*X^2*PDQ^2 - 2*A*B*X^2*PpDQ^2 - A*B*X^3*PDP*QDQ
  - 2*A*B*X^3*PDPp*QDQ - 4*A*B*X^3*PDQ*PpDQ - 2*A*B*X^3*PDQ^2
  - A*B*X^3*PpDPp*QDQ - 2*A*B*X^3*PpDQ^2 - 3*A*Z*X*QDQ + A*Z*X^2*QDQ
   + A*Z*QDQ + A*Z^2*X*QDQ - A*Z^2*QDQ + A*X*QDQ - 2*A*X^3*QDQ
  - 3*B*Z*X*QDQ + B*Z*X^2*QDQ + B*Z*QDQ + B*Z^2*X*QDQ - B*Z^2*QDQ
  + B*X*QDQ - 2*B*X^3*QDQ )
 
 + Fa(3)*P(al)*Q(be)*P(mu)
  * ( A*B*Z*X*PDPp*QDQ + 2*A*B*Z*X*PDQ*PpDQ + 2*A*B*Z*X^2*PDPp*QDQ
   + 4*A*B*Z*X^2*PDQ*PpDQ - A*B*Z*X^2*PpDPp*QDQ - 2*A*B*Z*X^2*PpDQ^2
   + A*B*Z^2*X*PDQ*PpDQ - A*B*Z^2*X*PDQ^2 + A*B*Z^2*PDQ*PpDQ
  - A*B*Z^2*PDQ^2 - A*B*X*PDPp*QDQ - A*B*X^2*PDPp*QDQ + A*B*X^2*PpDPp
  *QDQ - 2*A*B*X^3*PpDPp*QDQ - 4*A*B*X^3*PpDQ^2 - A*Z*X*QDQ
  + A*Z*X^2*QDQ - A*Z*QDQ - A*Z^2*X*QDQ - A*Z^2*QDQ - A*Z^3*QDQ
  + A*X^2*QDQ - A*X^3*QDQ - A*QDQ + B*X*QDQ - B*X^2*QDQ )
 
 + Fa(3)*P(al)*Q(be)*Pp(mu)
  * ( A*B*Z*X*PDPp*QDQ + 2*A*B*Z*X*PDQ^2 - A*B*Z*X^2*PDP*QDQ
  + 2*A*B*Z*X^2*PDPp*QDQ - 2*A*B*Z*X^2*PDQ*PpDQ + 2*A*B*Z*X^2*PDQ^2
   + 2*A*B*Z*X^2*PpDQ^2 - A*B*Z^2*X*PDQ*PpDQ + A*B*Z^2*X*PDQ^2
  - A*B*Z^2*PDQ*PpDQ + A*B*Z^2*PDQ^2 - A*B*X*PDPp*QDQ - A*B*X^2*PDPp
  *QDQ + A*B*X^2*PpDPp*QDQ - A*B*X^3*PDP*QDQ - 4*A*B*X^3*PDQ*PpDQ
  - A*B*X^3*PpDPp*QDQ + A*Z*X*QDQ + A*Z*QDQ + A*Z^2*QDQ + A*X^2*QDQ
   - A*X^3*QDQ - 3*B*Z*X*QDQ + B*Z*X^2*QDQ + B*Z*QDQ + 2*B*X*QDQ
  - B*X^2*QDQ - B*X^3*QDQ - B*QDQ )
 
 + Fa(3)*P(al)*Q(be)*Q(mu)
  * ( A*B*Z*X*PDP*PDQ + 2*A*B*Z*X*PDPp*PDQ + 2*A*B*Z*X*PDPp*PpDQ
  + A*B*Z*X*PDQ*PpDPp + A*B*Z*X^2*PDP*PDQ - 2*A*B*Z*X^2*PDP*PpDQ
  + 2*A*B*Z*X^2*PDPp*PDQ + 6*A*B*Z*X^2*PDPp*PpDQ + A*B*Z*X^2*PDQ*PpDPp
   - 2*A*B*Z*X^2*PpDPp*PpDQ + A*B*Z^2*X*PDP*PDQ - 2*A*B*Z^2*X*PDPp
  *PDQ + A*B*Z^2*X*PDQ*PpDPp + A*B*Z^2*PDP*PDQ - 2*A*B*Z^2*PDPp*PDQ
   + A*B*Z^2*PDQ*PpDPp - 2*A*B*X*PDPp*PDQ - 2*A*B*X*PDPp*PpDQ
  - 2*A*B*X^2*PDPp*PDQ - 2*A*B*X^2*PDPp*PpDQ + 2*A*B*X^2*PDQ*PpDPp
   + 2*A*B*X^2*PpDPp*PpDQ - 2*A*B*X^3*PDP*PpDQ - 2*A*B*X^3*PDQ*PpDPp
   - 4*A*B*X^3*PpDPp*PpDQ + 2*A*Z*X*PDQ + A*Z*X^2*PDQ + 2*A*Z*PDQ
  - 2*A*Z^2*X*PDQ + A*Z^2*PDQ - A*Z^3*PDQ + 2*A*X*PDQ - 2*A*X*PpDQ
   + 2*A*X^2*PDQ - 2*A*X^3*PDQ - 2*A*X^3*PpDQ - A*PDQ - 4*B*Z*X*PpDQ
   + B*Z*X^2*PDQ + 2*B*Z*X^2*PpDQ + B*Z*PDQ + 2*B*Z^2*PDQ
  + 2*B*X*PpDQ - 2*B*X^2*PpDQ - 2*B*X^3*PpDQ )
 
 + Fa(3)*Pp(al)*P(be)*Q(mu)
  * ( 2*A*Z*X*QDQ - 2*A*Z*QDQ + 2*A*Z^2*QDQ - 2*A*X*QDQ + 2*B*Z*X*QDQ
   - 2*B*Z*QDQ + 2*B*Z^2*QDQ - 2*B*X*QDQ )
 
 + Fa(3)*Pp(al)*Pp(be)*P(mu)
  * ( - 3*A*B*Z*X*PpDQ*QDQ - 3*A*B*Z*X^2*PpDQ*QDQ + A*B*Z^2*X*PDQ*QDQ
   - A*B*Z^2*X*PpDQ*QDQ + A*B*Z^2*PDQ*QDQ - A*B*Z^2*PpDQ*QDQ
  + A*B*X*PDQ*QDQ - A*B*X^2*PDQ*QDQ - 2*A*B*X^2*PpDQ*QDQ - 2*A*B*X^3
  *PDQ*QDQ - 2*A*B*X^3*PpDQ*QDQ )
 
 + Fa(3)*Pp(al)*Pp(be)*Pp(mu)
  * ( - 4*A*B*Z*X*PDQ*QDQ + A*B*Z*X*PpDQ*QDQ - 4*A*B*Z*X^2*PDQ*QDQ
   + A*B*Z*X^2*PpDQ*QDQ - A*B*Z^2*X*PDQ*QDQ + A*B*Z^2*X*PpDQ*QDQ
  - A*B*Z^2*PDQ*QDQ + A*B*Z^2*PpDQ*QDQ + A*B*X*PDQ*QDQ - 3*A*B*X^2
  *PDQ*QDQ - 4*A*B*X^3*PDQ*QDQ )
 
 + Fa(3)*Pp(al)*Pp(be)*Q(mu)
  * ( - 2*A*B*Z*X*PDP*QDQ + 2*A*B*Z*X*PDPp*QDQ - 2*A*B*Z*X*PDQ*PpDQ
   - 2*A*B*Z*X*PDQ^2 - 2*A*B*Z*X*PpDPp*QDQ - 2*A*B*Z*X^2*PDP*QDQ
  + 2*A*B*Z*X^2*PDPp*QDQ - 2*A*B*Z*X^2*PDQ*PpDQ - 2*A*B*Z*X^2*PDQ^2
   - 2*A*B*Z*X^2*PpDPp*QDQ - A*B*Z^2*X*PDP*QDQ + 2*A*B*Z^2*X*PDPp*QDQ
   - A*B*Z^2*X*PpDPp*QDQ - A*B*Z^2*PDP*QDQ + 2*A*B*Z^2*PDPp*QDQ
  - A*B*Z^2*PpDPp*QDQ + 2*A*B*X*PDP*QDQ + 2*A*B*X*PDQ*PpDQ
  + 2*A*B*X*PDQ^2 - A*B*X^2*PDP*QDQ - 2*A*B*X^2*PDQ*PpDQ - 2*A*B*X^2
  *PDQ^2 - A*B*X^2*PpDPp*QDQ - 3*A*B*X^3*PDP*QDQ - 4*A*B*X^3*PDQ*PpDQ
   - 4*A*B*X^3*PDQ^2 - A*B*X^3*PpDPp*QDQ - 2*A*Z*X*QDQ - 2*A*Z*X^2
  *QDQ - A*Z^2*X*QDQ - A*Z^2*QDQ - A*X^2*QDQ - A*X^3*QDQ - B*Z*X*QDQ
   - 2*B*Z*X^2*QDQ - B*X*QDQ - 2*B*X^2*QDQ - 2*B*X^3*QDQ )
 
 + Fa(3)*Pp(al)*Q(be)*P(mu)
  * ( - A*B*Z*X*PDP*QDQ + A*B*Z*X*PDPp*QDQ - 6*A*B*Z*X*PDQ*PpDQ
  + 2*A*B*Z*X*PDQ^2 - 2*A*B*Z*X*PpDPp*QDQ + A*B*Z*X^2*PDP*QDQ
  + 4*A*B*Z*X^2*PDQ*PpDQ + A*B*Z*X^2*PpDPp*QDQ + A*B*Z*PDQ*PpDQ
  - A*B*Z*PDQ^2 - A*B*Z^2*X*PDPp*QDQ + 4*A*B*Z^2*X*PDQ*PpDQ
  - 2*A*B*Z^2*X*PDQ^2 + 2*A*B*Z^2*X*PpDPp*QDQ + A*B*Z^2*PDPp*QDQ
  - 2*A*B*Z^2*PDQ*PpDQ + 2*A*B*Z^2*PDQ^2 - A*B*Z^2*PpDPp*QDQ
  - A*B*Z^3*PDPp*QDQ + A*B*Z^3*PDQ*PpDQ - A*B*Z^3*PDQ^2 + A*B*Z^3*PpDPp
  *QDQ + A*B*X*PDP*QDQ + 2*A*B*X*PDQ*PpDQ - A*B*X^2*PDP*QDQ
  - 4*A*B*X^2*PDQ*PpDQ - A*B*X^2*PpDPp*QDQ + A*Z*X^2*QDQ + 2*A*Z^2
  *X*QDQ + A*Z^2*QDQ + A*Z^3*QDQ - A*X^2*QDQ - B*Z*X*QDQ + B*Z*X^2
  *QDQ + B*Z^2*QDQ - B*X^2*QDQ - B*QDQ )
 
 + Fa(3)*Pp(al)*Q(be)*Pp(mu)
  * ( - 3*A*B*Z*X*PDP*QDQ + A*B*Z*X*PDPp*QDQ + 2*A*B*Z*X*PDQ*PpDQ
  - 6*A*B*Z*X*PDQ^2 + 2*A*B*Z*X^2*PDP*QDQ + 4*A*B*Z*X^2*PDQ^2
  - A*B*Z*PDQ*PpDQ + A*B*Z*PDQ^2 + 2*A*B*Z^2*X*PDP*QDQ - A*B*Z^2*X
  *PDPp*QDQ - 2*A*B*Z^2*X*PDQ*PpDQ + 4*A*B*Z^2*X*PDQ^2 - A*B*Z^2*PDP
  *QDQ + A*B*Z^2*PDPp*QDQ + 2*A*B*Z^2*PDQ*PpDQ - 2*A*B*Z^2*PDQ^2
  + A*B*Z^3*PDP*QDQ - A*B*Z^3*PDPp*QDQ - A*B*Z^3*PDQ*PpDQ
  + A*B*Z^3*PDQ^2 + A*B*X*PDP*QDQ + 2*A*B*X*PDQ^2 - 2*A*B*X^2*PDP*QDQ
   - 4*A*B*X^2*PDQ^2 - 2*A*Z*QDQ - 2*A*X*QDQ + B*Z*X^2*QDQ
  + B*Z^2*X*QDQ - B*X^2*QDQ )
 
 + Fa(3)*Pp(al)*Q(be)*Q(mu)
  * ( - 6*A*B*Z*X*PDP*PDQ - 2*A*B*Z*X*PDP*PpDQ + 4*A*B*Z*X*PDPp*PDQ
   - 4*A*B*Z*X*PDQ*PpDPp + 4*A*B*Z*X^2*PDP*PDQ + 2*A*B*Z*X^2*PDP*PpDQ
   + 2*A*B*Z*X^2*PDQ*PpDPp + A*B*Z*PDP*PDQ - 2*A*B*Z*PDPp*PDQ
  + A*B*Z*PDQ*PpDPp + 3*A*B*Z^2*X*PDP*PDQ - 4*A*B*Z^2*X*PDPp*PDQ
  + 3*A*B*Z^2*X*PDQ*PpDPp - 2*A*B*Z^2*PDP*PDQ + 4*A*B*Z^2*PDPp*PDQ
   - 2*A*B*Z^2*PDQ*PpDPp + A*B*Z^3*PDP*PDQ - 2*A*B*Z^3*PDPp*PDQ
  + A*B*Z^3*PDQ*PpDPp + 3*A*B*X*PDP*PDQ + 2*A*B*X*PDP*PpDQ
  + A*B*X*PDQ*PpDPp - 4*A*B*X^2*PDP*PDQ - 2*A*B*X^2*PDP*PpDQ
  - 2*A*B*X^2*PDQ*PpDPp + 2*A*Z*X^2*PDQ - 3*A*Z*PDQ + 3*A*Z^2*X*PDQ
   + A*Z^3*PDQ - 3*A*X*PDQ - 2*A*X^2*PDQ + 2*A*PDQ - 2*B*Z*X*PDQ
  + 2*B*Z*X^2*PDQ + 2*B*Z*X^2*PpDQ + 2*B*Z*PDQ + B*Z^2*X*PDQ
  + 2*B*Z^2*X*PpDQ - 3*B*Z^2*PDQ + B*X*PDQ - 2*B*X*PpDQ - 2*B*X^2*PDQ
   - 2*B*X^2*PpDQ + B*PDQ )
 
 + Fa(3)*Q(al)*P(be)*P(mu)
  * ( A*B*Z*X*PDPp*QDQ + 2*A*B*Z*X*PDQ*PpDQ - 3*A*B*Z*X*PpDPp*QDQ
  - 6*A*B*Z*X*PpDQ^2 + 2*A*B*Z*X^2*PpDPp*QDQ + 4*A*B*Z*X^2*PpDQ^2
  - A*B*Z*PDQ*PpDQ + A*B*Z*PpDQ^2 - A*B*Z^2*X*PDPp*QDQ - 2*A*B*Z^2
  *X*PDQ*PpDQ + 2*A*B*Z^2*X*PpDPp*QDQ + 4*A*B*Z^2*X*PpDQ^2
  + A*B*Z^2*PDPp*QDQ + 2*A*B*Z^2*PDQ*PpDQ - A*B*Z^2*PpDPp*QDQ
  - 2*A*B*Z^2*PpDQ^2 - A*B*Z^3*PDPp*QDQ - A*B*Z^3*PDQ*PpDQ
  + A*B*Z^3*PpDPp*QDQ + A*B*Z^3*PpDQ^2 + A*B*X*PpDPp*QDQ + 2*A*B*X
  *PpDQ^2 - 2*A*B*X^2*PpDPp*QDQ - 4*A*B*X^2*PpDQ^2 + A*Z*X^2*QDQ
  + A*Z^2*X*QDQ - A*X^2*QDQ - 2*B*Z*QDQ - 2*B*X*QDQ )
 
 + Fa(3)*Q(al)*P(be)*Pp(mu)
  * ( - 2*A*B*Z*X*PDP*QDQ + A*B*Z*X*PDPp*QDQ - 6*A*B*Z*X*PDQ*PpDQ
  - A*B*Z*X*PpDPp*QDQ + 2*A*B*Z*X*PpDQ^2 + A*B*Z*X^2*PDP*QDQ
  + 4*A*B*Z*X^2*PDQ*PpDQ + A*B*Z*X^2*PpDPp*QDQ + A*B*Z*PDQ*PpDQ
  - A*B*Z*PpDQ^2 + 2*A*B*Z^2*X*PDP*QDQ - A*B*Z^2*X*PDPp*QDQ
  + 4*A*B*Z^2*X*PDQ*PpDQ - 2*A*B*Z^2*X*PpDQ^2 - A*B*Z^2*PDP*QDQ
  + A*B*Z^2*PDPp*QDQ - 2*A*B*Z^2*PDQ*PpDQ + 2*A*B*Z^2*PpDQ^2
  + A*B*Z^3*PDP*QDQ - A*B*Z^3*PDPp*QDQ + A*B*Z^3*PDQ*PpDQ
  - A*B*Z^3*PpDQ^2 + 2*A*B*X*PDQ*PpDQ + A*B*X*PpDPp*QDQ - A*B*X^2*PDP
  *QDQ - 4*A*B*X^2*PDQ*PpDQ - A*B*X^2*PpDPp*QDQ - A*Z*X*QDQ
  + A*Z*X^2*QDQ + A*Z^2*QDQ - A*X^2*QDQ - A*QDQ + B*Z*X^2*QDQ
  + 2*B*Z^2*X*QDQ + B*Z^2*QDQ + B*Z^3*QDQ - B*X^2*QDQ )
 
 + Fa(3)*Q(al)*P(be)*Q(mu)
  * ( - 4*A*B*Z*X*PDP*PpDQ + 4*A*B*Z*X*PDPp*PpDQ - 2*A*B*Z*X*PDQ*PpDPp
   - 6*A*B*Z*X*PpDPp*PpDQ + 2*A*B*Z*X^2*PDP*PpDQ + 2*A*B*Z*X^2*PDQ
  *PpDPp + 4*A*B*Z*X^2*PpDPp*PpDQ + A*B*Z*PDP*PpDQ - 2*A*B*Z*PDPp*PpDQ
   + A*B*Z*PpDPp*PpDQ + 3*A*B*Z^2*X*PDP*PpDQ - 4*A*B*Z^2*X*PDPp*PpDQ
   + 3*A*B*Z^2*X*PpDPp*PpDQ - 2*A*B*Z^2*PDP*PpDQ + 4*A*B*Z^2*PDPp*PpDQ
   - 2*A*B*Z^2*PpDPp*PpDQ + A*B*Z^3*PDP*PpDQ - 2*A*B*Z^3*PDPp*PpDQ
   + A*B*Z^3*PpDPp*PpDQ + A*B*X*PDP*PpDQ + 2*A*B*X*PDQ*PpDPp
  + 3*A*B*X*PpDPp*PpDQ - 2*A*B*X^2*PDP*PpDQ - 2*A*B*X^2*PDQ*PpDPp
  - 4*A*B*X^2*PpDPp*PpDQ - 2*A*Z*X*PpDQ + 2*A*Z*X^2*PDQ + 2*A*Z*X^2
  *PpDQ + 2*A*Z*PpDQ + 2*A*Z^2*X*PDQ + A*Z^2*X*PpDQ - 3*A*Z^2*PpDQ
   - 2*A*X*PDQ + A*X*PpDQ - 2*A*X^2*PDQ - 2*A*X^2*PpDQ + A*PpDQ
  + 2*B*Z*X^2*PpDQ - 3*B*Z*PpDQ + 3*B*Z^2*X*PpDQ + B*Z^3*PpDQ
  - 3*B*X*PpDQ - 2*B*X^2*PpDQ + 2*B*PpDQ )
 
 + Fa(3)*Q(al)*Pp(be)*P(mu)
  * ( A*B*Z*X*PDPp*QDQ + 2*A*B*Z*X*PpDQ^2 + 2*A*B*Z*X^2*PDPp*QDQ
  - 2*A*B*Z*X^2*PDQ*PpDQ + 2*A*B*Z*X^2*PDQ^2 - A*B*Z*X^2*PpDPp*QDQ
   + 2*A*B*Z*X^2*PpDQ^2 - A*B*Z^2*X*PDQ*PpDQ + A*B*Z^2*X*PpDQ^2
  - A*B*Z^2*PDQ*PpDQ + A*B*Z^2*PpDQ^2 - A*B*X*PDPp*QDQ + A*B*X^2*PDP
  *QDQ - A*B*X^2*PDPp*QDQ - A*B*X^3*PDP*QDQ - 4*A*B*X^3*PDQ*PpDQ
  - A*B*X^3*PpDPp*QDQ - 3*A*Z*X*QDQ + A*Z*X^2*QDQ + A*Z*QDQ
  + 2*A*X*QDQ - A*X^2*QDQ - A*X^3*QDQ - A*QDQ + B*Z*X*QDQ
  + B*Z*QDQ + B*Z^2*QDQ + B*X^2*QDQ - B*X^3*QDQ )
 
 + Fa(3)*Q(al)*Pp(be)*Pp(mu)
  * ( A*B*Z*X*PDPp*QDQ + 2*A*B*Z*X*PDQ*PpDQ - A*B*Z*X^2*PDP*QDQ
  + 2*A*B*Z*X^2*PDPp*QDQ + 4*A*B*Z*X^2*PDQ*PpDQ - 2*A*B*Z*X^2*PDQ^2
   + A*B*Z^2*X*PDQ*PpDQ - A*B*Z^2*X*PpDQ^2 + A*B*Z^2*PDQ*PpDQ
  - A*B*Z^2*PpDQ^2 - A*B*X*PDPp*QDQ + A*B*X^2*PDP*QDQ - A*B*X^2*PDPp
  *QDQ - 2*A*B*X^3*PDP*QDQ - 4*A*B*X^3*PDQ^2 + A*X*QDQ - A*X^2*QDQ
   - B*Z*X*QDQ + B*Z*X^2*QDQ - B*Z*QDQ - B*Z^2*X*QDQ - B*Z^2*QDQ
  - B*Z^3*QDQ + B*X^2*QDQ - B*X^3*QDQ - B*QDQ )
 
 + Fa(3)*Q(al)*Pp(be)*Q(mu)
  * ( A*B*Z*X*PDP*PpDQ + 2*A*B*Z*X*PDPp*PDQ + 2*A*B*Z*X*PDPp*PpDQ
  + A*B*Z*X*PpDPp*PpDQ - 2*A*B*Z*X^2*PDP*PDQ + A*B*Z*X^2*PDP*PpDQ
  + 6*A*B*Z*X^2*PDPp*PDQ + 2*A*B*Z*X^2*PDPp*PpDQ - 2*A*B*Z*X^2*PDQ
  *PpDPp + A*B*Z*X^2*PpDPp*PpDQ + A*B*Z^2*X*PDP*PpDQ - 2*A*B*Z^2*X
  *PDPp*PpDQ + A*B*Z^2*X*PpDPp*PpDQ + A*B*Z^2*PDP*PpDQ - 2*A*B*Z^2
  *PDPp*PpDQ + A*B*Z^2*PpDPp*PpDQ - 2*A*B*X*PDPp*PDQ - 2*A*B*X*PDPp
  *PpDQ + 2*A*B*X^2*PDP*PDQ + 2*A*B*X^2*PDP*PpDQ - 2*A*B*X^2*PDPp*PDQ
   - 2*A*B*X^2*PDPp*PpDQ - 4*A*B*X^3*PDP*PDQ - 2*A*B*X^3*PDP*PpDQ
  - 2*A*B*X^3*PDQ*PpDPp - 4*A*Z*X*PDQ + 2*A*Z*X^2*PDQ + A*Z*X^2*PpDQ
   + A*Z*PpDQ + 2*A*Z^2*PpDQ + 2*A*X*PDQ - 2*A*X^2*PDQ - 2*A*X^3*PDQ
   + 2*B*Z*X*PpDQ + B*Z*X^2*PpDQ + 2*B*Z*PpDQ - 2*B*Z^2*X*PpDQ
  + B*Z^2*PpDQ - B*Z^3*PpDQ - 2*B*X*PDQ + 2*B*X*PpDQ + 2*B*X^2*PpDQ
   - 2*B*X^3*PDQ - 2*B*X^3*PpDQ - B*PpDQ )
 
 + Fa(3)*Q(al)*Q(be)*P(mu)
  * ( - 2*A*B*Z*X*PDP*PpDQ + 4*A*B*Z*X*PDPp*PpDQ - 2*A*B*Z*X*PpDPp
  *PpDQ + 2*A*B*Z*X^2*PDP*PpDQ + 2*A*B*Z*X^2*PDQ*PpDPp + 4*A*B*Z*X^2
  *PpDPp*PpDQ + A*B*Z*PDPp*PDQ - A*B*Z*PDPp*PpDQ - A*B*Z^2*X*PDP*PDQ
   + A*B*Z^2*X*PDP*PpDQ - 2*A*B*Z^2*X*PDPp*PDQ - 4*A*B*Z^2*X*PDPp*PpDQ
   + A*B*Z^2*X*PDQ*PpDPp + 3*A*B*Z^2*X*PpDPp*PpDQ + A*B*Z^2*PDP*PDQ
   - A*B*Z^2*PDP*PpDQ - 2*A*B*Z^2*PDPp*PDQ + 2*A*B*Z^2*PDPp*PpDQ
  + A*B*Z^2*PDQ*PpDPp - A*B*Z^2*PpDPp*PpDQ + A*B*Z^3*PDPp*PDQ
  - A*B*Z^3*PDPp*PpDQ - 2*A*B*X*PDPp*PpDQ + 2*A*Z*X^2*PDQ
  + 2*A*Z*X^2*PpDQ + A*Z*PDQ - A*Z*PpDQ - 3*A*Z^2*X*PDQ + A*Z^2*X*PpDQ
   + 2*A*Z^2*PDQ - A*Z^3*PDQ + A*Z^3*PpDQ + 2*A*X*PDQ - A*PDQ
  - A*PpDQ + 2*B*Z*X^2*PpDQ + 2*B*Z*PDQ - B*Z^2*X*PDQ + B*Z^2*X*PpDQ
   + B*Z^2*PDQ - B*Z^2*PpDQ )
 
 + Fa(3)*Q(al)*Q(be)*Pp(mu)
  * ( - 2*A*B*Z*X*PDP*PDQ + 4*A*B*Z*X*PDPp*PDQ - 2*A*B*Z*X*PDQ*PpDPp
   + 4*A*B*Z*X^2*PDP*PDQ + 2*A*B*Z*X^2*PDP*PpDQ + 2*A*B*Z*X^2*PDQ*PpDPp
   - A*B*Z*PDPp*PDQ + A*B*Z*PDPp*PpDQ + 3*A*B*Z^2*X*PDP*PDQ
  + A*B*Z^2*X*PDP*PpDQ - 4*A*B*Z^2*X*PDPp*PDQ - 2*A*B*Z^2*X*PDPp*PpDQ
   + A*B*Z^2*X*PDQ*PpDPp - A*B*Z^2*X*PpDPp*PpDQ - A*B*Z^2*PDP*PDQ
  + A*B*Z^2*PDP*PpDQ + 2*A*B*Z^2*PDPp*PDQ - 2*A*B*Z^2*PDPp*PpDQ
  - A*B*Z^2*PDQ*PpDPp + A*B*Z^2*PpDPp*PpDQ - A*B*Z^3*PDPp*PDQ
  + A*B*Z^3*PDPp*PpDQ - 2*A*B*X*PDPp*PDQ + 2*A*Z*X^2*PDQ + 2*A*Z*PpDQ
   + A*Z^2*X*PDQ - A*Z^2*X*PpDQ - A*Z^2*PDQ + A*Z^2*PpDQ + 2*B*Z*X^2
  *PDQ + 2*B*Z*X^2*PpDQ - B*Z*PDQ + B*Z*PpDQ + B*Z^2*X*PDQ
  - 3*B*Z^2*X*PpDQ + 2*B*Z^2*PpDQ + B*Z^3*PDQ - B*Z^3*PpDQ
  + 2*B*X*PpDQ - B*PDQ - B*PpDQ )
 
 + Fa(3)*Q(al)*Q(be)*Q(mu)
  * ( - 4 + 2*A*B*Z*X*PDP*PDPp - 2*A*B*Z*X*PDP*PpDPp - A*B*Z*X*PDP^2
   + 2*A*B*Z*X*PDPp*PpDPp - A*B*Z*X*PpDPp^2 + 2*A*B*Z*X^2*PDP*PpDPp
   + A*B*Z*X^2*PDP^2 + A*B*Z*X^2*PpDPp^2 - A*B*Z*PDP*PDPp
  - A*B*Z*PDPp*PpDPp + 2*A*B*Z*PDPp^2 - 3*A*B*Z^2*X*PDP*PDPp
  + 2*A*B*Z^2*X*PDP*PpDPp + A*B*Z^2*X*PDP^2 - 3*A*B*Z^2*X*PDPp*PpDPp
   + A*B*Z^2*X*PpDPp^2 + 4*A*B*Z^2*PDP*PDPp - 2*A*B*Z^2*PDP*PpDPp
  - A*B*Z^2*PDP^2 + 4*A*B*Z^2*PDPp*PpDPp - 4*A*B*Z^2*PDPp^2
  - A*B*Z^2*PpDPp^2 - A*B*Z^3*PDP*PDPp - A*B*Z^3*PDPp*PpDPp
  + 2*A*B*Z^3*PDPp^2 - A*B*X*PDP*PDPp - A*B*X*PDPp*PpDPp - A*Z*X*PDP
   + 2*A*Z*X*PDPp - A*Z*X*PpDPp + 2*A*Z*X^2*PDP + A*Z*X^2*PpDPp
  - 2*A*Z*PDP + 3*A*Z*PDPp + A*Z^2*X*PDP - 3*A*Z^2*X*PDPp
  + A*Z^2*X*PpDPp - 2*A*Z^2*PDP + 2*A*Z^2*PDPp - A*Z^2*PpDPp
  + A*Z^3*PDP - A*Z^3*PDPp - A*X*PDPp + A*PDP - 2*A*PDPp - B*Z*X*PDP
   + 2*B*Z*X*PDPp - B*Z*X*PpDPp + B*Z*X^2*PDP + 2*B*Z*X^2*PpDPp
  + 3*B*Z*PDPp - 2*B*Z*PpDPp + B*Z^2*X*PDP - 3*B*Z^2*X*PDPp
  + B*Z^2*X*PpDPp - B*Z^2*PDP + 2*B*Z^2*PDPp - 2*B*Z^2*PpDPp
  - B*Z^3*PDPp + B*Z^3*PpDPp - B*X*PDPp - 2*B*PDPp + B*PpDPp
  - 10*Z + 2*Z*X^2 - 4*Z^2 )
 
 + Fa(3)*D(al,be)*P(mu)
  * ( - A*B*Z*X*PDP*PDQ*QDQ + 4*A*B*Z*X*PDP*PpDQ*QDQ - A*B*Z*X*PDPp
  *PDQ*QDQ - A*B*Z*X*PDPp*PpDQ*QDQ + 2*A*B*Z*X*PDQ*PpDPp*QDQ
  + 8*A*B*Z*X*PDQ*PpDQ^2 - 4*A*B*Z*X*PDQ^2*PpDQ + 5*A*B*Z*X*PpDPp*PpDQ
  *QDQ + A*B*Z*X^2*PDP*PDQ*QDQ - 4*A*B*Z*X^2*PDP*PpDQ*QDQ
  + 2*A*B*Z*X^2*PDPp*PDQ*QDQ + 2*A*B*Z*X^2*PDPp*PpDQ*QDQ - 5*A*B*Z
  *X^2*PDQ*PpDPp*QDQ - 12*A*B*Z*X^2*PDQ*PpDQ^2 + 4*A*B*Z*X^2*PDQ^2
  *PpDQ - 8*A*B*Z*X^2*PpDPp*PpDQ*QDQ - A*B*Z*PDQ*PpDQ^2 + A*B*Z*PDQ^2
  *PpDQ + A*B*Z^2*X*PDP*PDQ*QDQ - A*B*Z^2*X*PDP*PpDQ*QDQ + 3*A*B*Z^2
  *X*PDPp*PDQ*QDQ + 3*A*B*Z^2*X*PDPp*PpDQ*QDQ - 3*A*B*Z^2*X*PDQ*PpDPp
  *QDQ - 6*A*B*Z^2*X*PDQ*PpDQ^2 + 4*A*B*Z^2*X*PDQ^2*PpDQ - 5*A*B*Z^2
  *X*PpDPp*PpDQ*QDQ - A*B*Z^2*PDP*PDQ*QDQ + A*B*Z^2*PDP*PpDQ*QDQ
  - A*B*Z^2*PDPp*PDQ*QDQ - A*B*Z^2*PDPp*PpDQ*QDQ + 2*A*B*Z^2*PDQ*PpDQ^2
   - 2*A*B*Z^2*PDQ^2*PpDQ + 2*A*B*Z^2*PpDPp*PpDQ*QDQ + A*B*Z^3*PDPp
  *PDQ*QDQ + A*B*Z^3*PDPp*PpDQ*QDQ - A*B*Z^3*PDQ*PpDPp*QDQ
  - A*B*Z^3*PDQ*PpDQ^2 + A*B*Z^3*PDQ^2*PpDQ - A*B*Z^3*PpDPp*PpDQ*QDQ
   - A*B*X*PDP*PpDQ*QDQ - A*B*X*PDQ*PpDPp*QDQ - 2*A*B*X*PDQ*PpDQ^2
   + 5*A*B*X^2*PDP*PpDQ*QDQ + 4*A*B*X^2*PDQ*PpDPp*QDQ + 8*A*B*X^2*PDQ
  *PpDQ^2 + 3*A*B*X^2*PpDPp*PpDQ*QDQ - 4*A*B*X^3*PDP*PpDQ*QDQ
  - 4*A*B*X^3*PDQ*PpDPp*QDQ - 8*A*B*X^3*PDQ*PpDQ^2 - 4*A*B*X^3*PpDPp
  *PpDQ*QDQ + A*Z*X*PDQ*QDQ + A*Z*X*PpDQ*QDQ - 2*A*Z*X^2*PDQ*QDQ
  - 4*A*Z*X^2*PpDQ*QDQ + A*Z^2*X*PDQ*QDQ - 3*A*Z^2*X*PpDQ*QDQ
  + A*Z^3*PDQ*QDQ - A*Z^3*PpDQ*QDQ + A*X^2*PDQ*QDQ + A*X^2*PpDQ*QDQ
   - 2*A*X^3*PDQ*QDQ - 2*A*X^3*PpDQ*QDQ - B*Z*X*PDQ*QDQ + B*Z*X*PpDQ
  *QDQ + B*Z*X^2*PDQ*QDQ - 4*B*Z*X^2*PpDQ*QDQ - B*Z*PpDQ*QDQ
  + B*Z^2*X*PDQ*QDQ - B*Z^2*X*PpDQ*QDQ - B*Z^2*PDQ*QDQ - B*Z^2*PpDQ
  *QDQ - 4*B*X*PpDQ*QDQ + 5*B*X^2*PpDQ*QDQ - 4*B*X^3*PpDQ*QDQ
  + B*PpDQ*QDQ )
 
 + Fa(3)*D(al,be)*Pp(mu)
  * ( 5*A*B*Z*X*PDP*PDQ*QDQ + 2*A*B*Z*X*PDP*PpDQ*QDQ - A*B*Z*X*PDPp
  *PDQ*QDQ - A*B*Z*X*PDPp*PpDQ*QDQ + 4*A*B*Z*X*PDQ*PpDPp*QDQ
  - 4*A*B*Z*X*PDQ*PpDQ^2 + 8*A*B*Z*X*PDQ^2*PpDQ - A*B*Z*X*PpDPp*PpDQ
  *QDQ - 8*A*B*Z*X^2*PDP*PDQ*QDQ - 5*A*B*Z*X^2*PDP*PpDQ*QDQ
  + 2*A*B*Z*X^2*PDPp*PDQ*QDQ + 2*A*B*Z*X^2*PDPp*PpDQ*QDQ - 4*A*B*Z
  *X^2*PDQ*PpDPp*QDQ + 4*A*B*Z*X^2*PDQ*PpDQ^2 - 12*A*B*Z*X^2*PDQ^2
  *PpDQ + A*B*Z*X^2*PpDPp*PpDQ*QDQ + A*B*Z*PDQ*PpDQ^2 - A*B*Z*PDQ^2
  *PpDQ - 5*A*B*Z^2*X*PDP*PDQ*QDQ - 3*A*B*Z^2*X*PDP*PpDQ*QDQ
  + 3*A*B*Z^2*X*PDPp*PDQ*QDQ + 3*A*B*Z^2*X*PDPp*PpDQ*QDQ - A*B*Z^2
  *X*PDQ*PpDPp*QDQ + 4*A*B*Z^2*X*PDQ*PpDQ^2 - 6*A*B*Z^2*X*PDQ^2*PpDQ
   + A*B*Z^2*X*PpDPp*PpDQ*QDQ + 2*A*B*Z^2*PDP*PDQ*QDQ - A*B*Z^2*PDPp
  *PDQ*QDQ - A*B*Z^2*PDPp*PpDQ*QDQ + A*B*Z^2*PDQ*PpDPp*QDQ
  - 2*A*B*Z^2*PDQ*PpDQ^2 + 2*A*B*Z^2*PDQ^2*PpDQ - A*B*Z^2*PpDPp*PpDQ
  *QDQ - A*B*Z^3*PDP*PDQ*QDQ - A*B*Z^3*PDP*PpDQ*QDQ + A*B*Z^3*PDPp
  *PDQ*QDQ + A*B*Z^3*PDPp*PpDQ*QDQ + A*B*Z^3*PDQ*PpDQ^2 - A*B*Z^3*PDQ^2
  *PpDQ - A*B*X*PDP*PpDQ*QDQ - A*B*X*PDQ*PpDPp*QDQ - 2*A*B*X*PDQ^2
  *PpDQ + 3*A*B*X^2*PDP*PDQ*QDQ + 4*A*B*X^2*PDP*PpDQ*QDQ + 5*A*B*X^2
  *PDQ*PpDPp*QDQ + 8*A*B*X^2*PDQ^2*PpDQ - 4*A*B*X^3*PDP*PDQ*QDQ
  - 4*A*B*X^3*PDP*PpDQ*QDQ - 4*A*B*X^3*PDQ*PpDPp*QDQ - 8*A*B*X^3*PDQ^2
  *PpDQ + A*Z*X*PDQ*QDQ - A*Z*X*PpDQ*QDQ - 4*A*Z*X^2*PDQ*QDQ
  + A*Z*X^2*PpDQ*QDQ - A*Z*PDQ*QDQ - A*Z^2*X*PDQ*QDQ + A*Z^2*X*PpDQ
  *QDQ - A*Z^2*PDQ*QDQ - A*Z^2*PpDQ*QDQ - 4*A*X*PDQ*QDQ + 5*A*X^2*PDQ
  *QDQ - 4*A*X^3*PDQ*QDQ + A*PDQ*QDQ + B*Z*X*PDQ*QDQ + B*Z*X*PpDQ*QDQ
   - 4*B*Z*X^2*PDQ*QDQ - 2*B*Z*X^2*PpDQ*QDQ - 3*B*Z^2*X*PDQ*QDQ
  + B*Z^2*X*PpDQ*QDQ - B*Z^3*PDQ*QDQ + B*Z^3*PpDQ*QDQ + B*X^2*PDQ*QDQ
   + B*X^2*PpDQ*QDQ - 2*B*X^3*PDQ*QDQ - 2*B*X^3*PpDQ*QDQ )
 
 + Fa(3)*D(al,be)*Q(mu)
  * ( - 2*A*B*Z*X*PDP*PDPp*QDQ + 8*A*B*Z*X*PDP*PDQ*PpDQ + 4*A*B*Z*X
  *PDP*PpDPp*QDQ + 2*A*B*Z*X*PDP*PpDQ^2 + 2*A*B*Z*X*PDP^2*QDQ
  - 8*A*B*Z*X*PDPp*PDQ*PpDQ - 2*A*B*Z*X*PDPp*PpDPp*QDQ + 8*A*B*Z*X
  *PDQ*PpDPp*PpDQ + 2*A*B*Z*X*PDQ^2*PpDPp + 2*A*B*Z*X*PpDPp^2*QDQ
  + 2*A*B*Z*X^2*PDP*PDPp*QDQ - 10*A*B*Z*X^2*PDP*PDQ*PpDQ - 4*A*B*Z
  *X^2*PDP*PpDPp*QDQ - 2*A*B*Z*X^2*PDP*PpDQ^2 - 2*A*B*Z*X^2*PDP^2*QDQ
   + 8*A*B*Z*X^2*PDPp*PDQ*PpDQ + 2*A*B*Z*X^2*PDPp*PpDPp*QDQ
  - 10*A*B*Z*X^2*PDQ*PpDPp*PpDQ - 2*A*B*Z*X^2*PDQ^2*PpDPp
  - 2*A*B*Z*X^2*PpDPp^2*QDQ - A*B*Z*PDP*PDQ*PpDQ + 2*A*B*Z*PDPp*PDQ
  *PpDQ - A*B*Z*PDQ*PpDPp*PpDQ + 2*A*B*Z^2*X*PDP*PDPp*QDQ
  - 5*A*B*Z^2*X*PDP*PDQ*PpDQ - 2*A*B*Z^2*X*PDP*PpDPp*QDQ - A*B*Z^2
  *X*PDP^2*QDQ + 8*A*B*Z^2*X*PDPp*PDQ*PpDQ + 2*A*B*Z^2*X*PDPp*PpDPp
  *QDQ - 5*A*B*Z^2*X*PDQ*PpDPp*PpDQ - A*B*Z^2*X*PpDPp^2*QDQ
  - 2*A*B*Z^2*PDP*PDPp*QDQ + 2*A*B*Z^2*PDP*PDQ*PpDQ + 2*A*B*Z^2*PDP
  *PpDPp*QDQ + A*B*Z^2*PDP^2*QDQ - 4*A*B*Z^2*PDPp*PDQ*PpDQ
  - 2*A*B*Z^2*PDPp*PpDPp*QDQ + 2*A*B*Z^2*PDQ*PpDPp*PpDQ + A*B*Z^2*PpDPp^2
  *QDQ - A*B*Z^3*PDP*PDQ*PpDQ + 2*A*B*Z^3*PDPp*PDQ*PpDQ - A*B*Z^3*PDQ
  *PpDPp*PpDQ - 3*A*B*X*PDP*PDQ*PpDQ - 2*A*B*X*PDP*PpDPp*QDQ
  - 2*A*B*X*PDP*PpDQ^2 - 3*A*B*X*PDQ*PpDPp*PpDQ - 2*A*B*X*PDQ^2*PpDPp
   + 10*A*B*X^2*PDP*PDQ*PpDQ + 6*A*B*X^2*PDP*PpDPp*QDQ + 6*A*B*X^2
  *PDP*PpDQ^2 + A*B*X^2*PDP^2*QDQ + 10*A*B*X^2*PDQ*PpDPp*PpDQ
  + 6*A*B*X^2*PDQ^2*PpDPp + A*B*X^2*PpDPp^2*QDQ - 8*A*B*X^3*PDP*PDQ
  *PpDQ - 4*A*B*X^3*PDP*PpDPp*QDQ - 4*A*B*X^3*PDP*PpDQ^2 - A*B*X^3
  *PDP^2*QDQ - 8*A*B*X^3*PDQ*PpDPp*PpDQ - 4*A*B*X^3*PDQ^2*PpDPp
  - A*B*X^3*PpDPp^2*QDQ + 2*A*Z*X*PDP*QDQ + 4*A*Z*X*PDQ*PpDQ
  + 2*A*Z*X*PDQ^2 + 2*A*Z*X*PpDPp*QDQ - 5*A*Z*X^2*PDP*QDQ
  + 2*A*Z*X^2*PDPp*QDQ - 4*A*Z*X^2*PDQ*PpDQ - 6*A*Z*X^2*PDQ^2
  - 2*A*Z*X^2*PpDPp*QDQ + A*Z*PDPp*QDQ - 3*A*Z^2*X*PDP*QDQ
  + 3*A*Z^2*X*PDPp*QDQ - A*Z^2*X*PDQ*PpDQ - 2*A*Z^2*X*PDQ^2
  - A*Z^2*X*PpDPp*QDQ + A*Z^2*PDQ*PpDQ + A*Z^2*PpDPp*QDQ - A*Z^3*PDP
  *QDQ + A*Z^3*PDPp*QDQ + A*X*PDPp*QDQ + A*X*PDQ*PpDQ + 2*A*X^2*PDP
  *QDQ + 4*A*X^2*PDQ*PpDQ + 2*A*X^2*PDQ^2 + A*X^2*PpDPp*QDQ
  - 3*A*X^3*PDP*QDQ - 4*A*X^3*PDQ*PpDQ - 4*A*X^3*PDQ^2 - A*X^3*PpDPp
  *QDQ - A*PDQ*PpDQ + 2*B*Z*X*PDP*QDQ + 4*B*Z*X*PDQ*PpDQ + 2*B*Z*X
  *PpDPp*QDQ + 2*B*Z*X*PpDQ^2 - 2*B*Z*X^2*PDP*QDQ + 2*B*Z*X^2*PDPp
  *QDQ - 4*B*Z*X^2*PDQ*PpDQ - 5*B*Z*X^2*PpDPp*QDQ - 6*B*Z*X^2*PpDQ^2
   + B*Z*PDPp*QDQ - B*Z^2*X*PDP*QDQ + 3*B*Z^2*X*PDPp*QDQ - B*Z^2*X
  *PDQ*PpDQ - 3*B*Z^2*X*PpDPp*QDQ - 2*B*Z^2*X*PpDQ^2 + B*Z^2*PDP*QDQ
   + B*Z^2*PDQ*PpDQ + B*Z^3*PDPp*QDQ - B*Z^3*PpDPp*QDQ + B*X*PDPp*QDQ
   + B*X*PDQ*PpDQ + B*X^2*PDP*QDQ + 4*B*X^2*PDQ*PpDQ + 2*B*X^2*PpDPp
  *QDQ + 2*B*X^2*PpDQ^2 - B*X^3*PDP*QDQ - 4*B*X^3*PDQ*PpDQ
  - 3*B*X^3*PpDPp*QDQ - 4*B*X^3*PpDQ^2 - B*PDQ*PpDQ - 4*Z*X^2*QDQ
  - 2*Z^2*X*QDQ - 2*X^3*QDQ - 2*QDQ )
 
 + Fa(3)*D(al,mu)*P(be)
  * ( 2*B*Z*X*PDQ*QDQ - 8*B*Z*X*PpDQ*QDQ + 2*B*Z*PDQ*QDQ + 4*B*Z*PpDQ
  *QDQ + 2*B*Z^2*PDQ*QDQ - 2*B*Z^2*PpDQ*QDQ + 2*B*X*PDQ*QDQ
  + 8*B*X*PpDQ*QDQ - 8*B*X^2*PpDQ*QDQ - 2*B*PpDQ*QDQ )
 
 + Fa(3)*D(al,mu)*Pp(be)
  * ( 6*A*Z*X*PDQ*QDQ - 4*A*Z*X^2*PDQ*QDQ + A*Z*X^2*PpDQ*QDQ
  - 2*A*Z*PDQ*QDQ - A*Z*PpDQ*QDQ - A*Z^2*X*PDQ*QDQ + A*Z^2*X*PpDQ*QDQ
   + A*Z^2*PDQ*QDQ - A*Z^2*PpDQ*QDQ - 5*A*X*PDQ*QDQ - A*X*PpDQ*QDQ
   + 8*A*X^2*PDQ*QDQ + A*X^2*PpDQ*QDQ - 4*A*X^3*PDQ*QDQ + A*PDQ*QDQ
   + B*Z*X*PDQ*QDQ - B*Z*X*PpDQ*QDQ + 3*B*X*PDQ*QDQ + B*X*PpDQ*QDQ
   - 2*B*X^2*PDQ*QDQ - 3*B*X^2*PpDQ*QDQ + B*PpDQ*QDQ )
 
 + Fa(3)*D(al,mu)*Q(be)
  * ( - 2*A*Z*X*PDPp*QDQ - 4*A*Z*X*PDQ*PpDQ + 2*A*Z*X^2*PDP*QDQ
  + 4*A*Z*X^2*PDQ^2 + A*Z*PDP*QDQ - A*Z*PDPp*QDQ + A*Z*PDQ*PpDQ
  - A*Z*PDQ^2 + 2*A*Z^2*X*PDP*QDQ - A*Z^2*X*PDPp*QDQ - 2*A*Z^2*X*PDQ
  *PpDQ + 4*A*Z^2*X*PDQ^2 + A*Z^2*PDP*QDQ - 2*A*Z^2*PDPp*QDQ
  - A*Z^2*PDQ*PpDQ - A*Z^2*PDQ^2 + A*Z^3*PDP*QDQ - A*Z^3*PDPp*QDQ
  - A*Z^3*PDQ*PpDQ + A*Z^3*PDQ^2 - 2*A*X*PDP*QDQ - A*X*PDPp*QDQ
  - 2*A*X*PDQ*PpDQ - 4*A*X*PDQ^2 + 2*A*X^2*PDP*QDQ + 4*A*X^2*PDQ^2
   + A*PDP*QDQ + A*PDQ*PpDQ + A*PDQ^2 + 3*B*Z*X*PDPp*QDQ + 6*B*Z*X
  *PDQ*PpDQ - B*Z*X*PpDPp*QDQ - 2*B*Z*X*PpDQ^2 - 2*B*Z*PDPp*QDQ
  - 2*B*Z*PDQ*PpDQ - 2*B*Z*PDQ^2 + 2*B*Z^2*PDQ*PpDQ - 2*B*Z^2*PDQ^2
   - B*X*PDPp*QDQ + 2*B*X*PDQ*PpDQ + 2*B*X*PpDPp*QDQ + 2*B*X*PpDQ^2
   - 2*B*X^2*PpDPp*QDQ - 4*B*X^2*PpDQ^2 + 2*B*PDPp*QDQ - B*PpDPp*QDQ
   + Z*X^2*QDQ - Z*QDQ + Z^2*X*QDQ - Z^2*QDQ )
 
 + Fa(3)*D(be,mu)*P(al)
  * ( - A*Z*X*PDQ*QDQ + A*Z*X*PpDQ*QDQ + A*X*PDQ*QDQ + 3*A*X*PpDQ*QDQ
   - 3*A*X^2*PDQ*QDQ - 2*A*X^2*PpDQ*QDQ + A*PDQ*QDQ + 6*B*Z*X*PpDQ
  *QDQ + B*Z*X^2*PDQ*QDQ - 4*B*Z*X^2*PpDQ*QDQ - B*Z*PDQ*QDQ
  - 2*B*Z*PpDQ*QDQ + B*Z^2*X*PDQ*QDQ - B*Z^2*X*PpDQ*QDQ - B*Z^2*PDQ
  *QDQ + B*Z^2*PpDQ*QDQ - B*X*PDQ*QDQ - 5*B*X*PpDQ*QDQ + B*X^2*PDQ
  *QDQ + 8*B*X^2*PpDQ*QDQ - 4*B*X^3*PpDQ*QDQ + B*PpDQ*QDQ )
 
 + Fa(3)*D(be,mu)*Pp(al)
  * ( - 8*A*Z*X*PDQ*QDQ + 2*A*Z*X*PpDQ*QDQ + 4*A*Z*PDQ*QDQ
  + 2*A*Z*PpDQ*QDQ - 2*A*Z^2*PDQ*QDQ + 2*A*Z^2*PpDQ*QDQ + 8*A*X*PDQ
  *QDQ + 2*A*X*PpDQ*QDQ - 8*A*X^2*PDQ*QDQ - 2*A*PDQ*QDQ )
 
 + Fa(3)*D(be,mu)*Q(al)
  * ( - A*Z*X*PDP*QDQ + 3*A*Z*X*PDPp*QDQ + 6*A*Z*X*PDQ*PpDQ
  - 2*A*Z*X*PDQ^2 - 2*A*Z*PDPp*QDQ - 2*A*Z*PDQ*PpDQ - 2*A*Z*PpDQ^2
   + 2*A*Z^2*PDQ*PpDQ - 2*A*Z^2*PpDQ^2 + 2*A*X*PDP*QDQ - A*X*PDPp*QDQ
   + 2*A*X*PDQ*PpDQ + 2*A*X*PDQ^2 - 2*A*X^2*PDP*QDQ - 4*A*X^2*PDQ^2
   - A*PDP*QDQ + 2*A*PDPp*QDQ - 2*B*Z*X*PDPp*QDQ - 4*B*Z*X*PDQ*PpDQ
   + 2*B*Z*X^2*PpDPp*QDQ + 4*B*Z*X^2*PpDQ^2 - B*Z*PDPp*QDQ
  + B*Z*PDQ*PpDQ + B*Z*PpDPp*QDQ - B*Z*PpDQ^2 - B*Z^2*X*PDPp*QDQ
  - 2*B*Z^2*X*PDQ*PpDQ + 2*B*Z^2*X*PpDPp*QDQ + 4*B*Z^2*X*PpDQ^2
  - 2*B*Z^2*PDPp*QDQ - B*Z^2*PDQ*PpDQ + B*Z^2*PpDPp*QDQ - B*Z^2*PpDQ^2
   - B*Z^3*PDPp*QDQ - B*Z^3*PDQ*PpDQ + B*Z^3*PpDPp*QDQ + B*Z^3*PpDQ^2
   - B*X*PDPp*QDQ - 2*B*X*PDQ*PpDQ - 2*B*X*PpDPp*QDQ - 4*B*X*PpDQ^2
   + 2*B*X^2*PpDPp*QDQ + 4*B*X^2*PpDQ^2 + B*PDQ*PpDQ + B*PpDPp*QDQ
   + B*PpDQ^2 + Z*X^2*QDQ - Z*QDQ + Z^2*X*QDQ - Z^2*QDQ )
 
 + Fa(4)*P(al)*P(be)*P(mu)
  * ( A*B*Z*X*QDQ^2 + A*B*Z*X^2*QDQ^2 + A*B*X^2*QDQ^2 + A*B*X^3*QDQ^2 )
 
 + Fa(4)*P(al)*P(be)*Pp(mu)
  * ( A*B*Z*X*QDQ^2 + A*B*Z*X^2*QDQ^2 + A*B*X^2*QDQ^2 + A*B*X^3*QDQ^2 )
 
 + Fa(4)*P(al)*P(be)*Q(mu)
  * ( 2*A*B*Z*X*PDQ*QDQ + 4*A*B*Z*X*PpDQ*QDQ + 2*A*B*Z*X^2*PDQ*QDQ
   + 4*A*B*Z*X^2*PpDQ*QDQ - 2*A*B*X*PpDQ*QDQ + 2*A*B*X^2*PDQ*QDQ
  + 4*A*B*X^2*PpDQ*QDQ + 2*A*B*X^3*PDQ*QDQ + 6*A*B*X^3*PpDQ*QDQ )
 
 + Fa(4)*P(al)*Pp(be)*P(mu)
  * ( A*B*X^3*QDQ^2 )
 
 + Fa(4)*P(al)*Pp(be)*Pp(mu)
  * ( A*B*X^3*QDQ^2 )
 
 + Fa(4)*P(al)*Pp(be)*Q(mu)
  * ( 2*A*B*X^2*PDQ*QDQ + 2*A*B*X^2*PpDQ*QDQ + 4*A*B*X^3*PDQ*QDQ
  + 4*A*B*X^3*PpDQ*QDQ )
 
 + Fa(4)*P(al)*Q(be)*P(mu)
  * ( - A*B*Z*X*PDQ*QDQ - 2*A*B*Z*X^2*PDQ*QDQ + A*B*Z*X^2*PpDQ*QDQ
   + 4*A*B*X^3*PpDQ*QDQ )
 
 + Fa(4)*P(al)*Q(be)*Pp(mu)
  * ( - A*B*Z*X*PDQ*QDQ - A*B*Z*X^2*PpDQ*QDQ + 2*A*B*X^3*PDQ*QDQ
  + 2*A*B*X^3*PpDQ*QDQ )
 
 + Fa(4)*P(al)*Q(be)*Q(mu)
  * ( - 2*A*B*Z*X*PDPp*QDQ - 2*A*B*Z*X*PDQ*PpDQ - 2*A*B*Z*X*PDQ^2
  + A*B*Z*X^2*PDP*QDQ - 4*A*B*Z*X^2*PDPp*QDQ - 2*A*B*Z*X^2*PDQ*PpDQ
   - 2*A*B*Z*X^2*PDQ^2 + A*B*Z*X^2*PpDPp*QDQ + 2*A*B*X*PDPp*QDQ
  + 2*A*B*X^2*PDPp*QDQ - 2*A*B*X^2*PpDPp*QDQ + A*B*X^3*PDP*QDQ
  + 4*A*B*X^3*PDQ*PpDQ + 3*A*B*X^3*PpDPp*QDQ + 4*A*B*X^3*PpDQ^2
  - A*Z*QDQ + A*Z^2*X*QDQ + A*Z^3*QDQ - A*X^2*QDQ + 2*A*X^3*QDQ
  + 3*B*Z*X*QDQ - B*Z*X^2*QDQ - B*Z*QDQ - B*X*QDQ + B*X^2*QDQ
  + B*X^3*QDQ )
 
 + Fa(4)*Pp(al)*Pp(be)*P(mu)
  * ( A*B*Z*X*QDQ^2 + A*B*Z*X^2*QDQ^2 + A*B*X^2*QDQ^2 + A*B*X^3*QDQ^2 )
 
 + Fa(4)*Pp(al)*Pp(be)*Pp(mu)
  * ( A*B*Z*X*QDQ^2 + A*B*Z*X^2*QDQ^2 + A*B*X^2*QDQ^2 + A*B*X^3*QDQ^2 )
 
 + Fa(4)*Pp(al)*Pp(be)*Q(mu)
  * ( 4*A*B*Z*X*PDQ*QDQ + 2*A*B*Z*X*PpDQ*QDQ + 4*A*B*Z*X^2*PDQ*QDQ
   + 2*A*B*Z*X^2*PpDQ*QDQ - 2*A*B*X*PDQ*QDQ + 4*A*B*X^2*PDQ*QDQ
  + 2*A*B*X^2*PpDQ*QDQ + 6*A*B*X^3*PDQ*QDQ + 2*A*B*X^3*PpDQ*QDQ )
 
 + Fa(4)*Pp(al)*Q(be)*P(mu)
  * ( A*B*Z*X*PDQ*QDQ + 3*A*B*Z*X*PpDQ*QDQ - 2*A*B*Z*X^2*PDQ*QDQ
  - 2*A*B*Z*X^2*PpDQ*QDQ - 3*A*B*Z^2*X*PpDQ*QDQ - A*B*Z^2*PDQ*QDQ
  + A*B*Z^2*PpDQ*QDQ + A*B*Z^3*PDQ*QDQ - A*B*Z^3*PpDQ*QDQ
  - A*B*X*PDQ*QDQ + 2*A*B*X^2*PDQ*QDQ + 2*A*B*X^2*PpDQ*QDQ )
 
 + Fa(4)*Pp(al)*Q(be)*Pp(mu)
  * ( 5*A*B*Z*X*PDQ*QDQ - A*B*Z*X*PpDQ*QDQ - 4*A*B*Z*X^2*PDQ*QDQ
  - 4*A*B*Z^2*X*PDQ*QDQ + A*B*Z^2*X*PpDQ*QDQ + A*B*Z^2*PDQ*QDQ
  - A*B*Z^2*PpDQ*QDQ - A*B*Z^3*PDQ*QDQ + A*B*Z^3*PpDQ*QDQ
  - A*B*X*PDQ*QDQ + 4*A*B*X^2*PDQ*QDQ )
 
 + Fa(4)*Pp(al)*Q(be)*Q(mu)
  * ( 4*A*B*Z*X*PDP*QDQ - 2*A*B*Z*X*PDPp*QDQ + 4*A*B*Z*X*PDQ*PpDQ
  + 4*A*B*Z*X*PDQ^2 + 2*A*B*Z*X*PpDPp*QDQ - 3*A*B*Z*X^2*PDP*QDQ
  - 4*A*B*Z*X^2*PDQ*PpDQ - 4*A*B*Z*X^2*PDQ^2 - A*B*Z*X^2*PpDPp*QDQ
   - 2*A*B*Z^2*X*PDP*QDQ + 2*A*B*Z^2*X*PDPp*QDQ - 2*A*B*Z^2*X*PDQ*PpDQ
   - 2*A*B*Z^2*X*PDQ^2 - 2*A*B*Z^2*X*PpDPp*QDQ + A*B*Z^2*PDP*QDQ
  - 2*A*B*Z^2*PDPp*QDQ + A*B*Z^2*PpDPp*QDQ - A*B*Z^3*PDP*QDQ
  + 2*A*B*Z^3*PDPp*QDQ - A*B*Z^3*PpDPp*QDQ - 2*A*B*X*PDP*QDQ
  - 2*A*B*X*PDQ*PpDQ - 2*A*B*X*PDQ^2 + 3*A*B*X^2*PDP*QDQ + 4*A*B*X^2
  *PDQ*PpDQ + 4*A*B*X^2*PDQ^2 + A*B*X^2*PpDPp*QDQ - A*Z*X^2*QDQ
  + 2*A*Z*QDQ - 2*A*Z^2*X*QDQ - A*Z^2*QDQ - A*Z^3*QDQ + 2*A*X*QDQ
  + A*X^2*QDQ + B*Z*X*QDQ - 2*B*Z*X^2*QDQ - 2*B*Z^2*X*QDQ
  + B*X*QDQ + 2*B*X^2*QDQ )
 
 + Fa(4)*Q(al)*P(be)*P(mu)
  * ( - A*B*Z*X*PDQ*QDQ + 5*A*B*Z*X*PpDQ*QDQ - 4*A*B*Z*X^2*PpDQ*QDQ
   + A*B*Z^2*X*PDQ*QDQ - 4*A*B*Z^2*X*PpDQ*QDQ - A*B*Z^2*PDQ*QDQ
  + A*B*Z^2*PpDQ*QDQ + A*B*Z^3*PDQ*QDQ - A*B*Z^3*PpDQ*QDQ
  - A*B*X*PpDQ*QDQ + 4*A*B*X^2*PpDQ*QDQ )
 
 + Fa(4)*Q(al)*P(be)*Pp(mu)
  * ( 3*A*B*Z*X*PDQ*QDQ + A*B*Z*X*PpDQ*QDQ - 2*A*B*Z*X^2*PDQ*QDQ
  - 2*A*B*Z*X^2*PpDQ*QDQ - 3*A*B*Z^2*X*PDQ*QDQ + A*B*Z^2*PDQ*QDQ
  - A*B*Z^2*PpDQ*QDQ - A*B*Z^3*PDQ*QDQ + A*B*Z^3*PpDQ*QDQ
  - A*B*X*PpDQ*QDQ + 2*A*B*X^2*PDQ*QDQ + 2*A*B*X^2*PpDQ*QDQ )
 
 + Fa(4)*Q(al)*P(be)*Q(mu)
  * ( 2*A*B*Z*X*PDP*QDQ - 2*A*B*Z*X*PDPp*QDQ + 4*A*B*Z*X*PDQ*PpDQ
  + 4*A*B*Z*X*PpDPp*QDQ + 4*A*B*Z*X*PpDQ^2 - A*B*Z*X^2*PDP*QDQ
  - 4*A*B*Z*X^2*PDQ*PpDQ - 3*A*B*Z*X^2*PpDPp*QDQ - 4*A*B*Z*X^2*PpDQ^2
   - 2*A*B*Z^2*X*PDP*QDQ + 2*A*B*Z^2*X*PDPp*QDQ - 2*A*B*Z^2*X*PDQ*PpDQ
   - 2*A*B*Z^2*X*PpDPp*QDQ - 2*A*B*Z^2*X*PpDQ^2 + A*B*Z^2*PDP*QDQ
  - 2*A*B*Z^2*PDPp*QDQ + A*B*Z^2*PpDPp*QDQ - A*B*Z^3*PDP*QDQ
  + 2*A*B*Z^3*PDPp*QDQ - A*B*Z^3*PpDPp*QDQ - 2*A*B*X*PDQ*PpDQ
  - 2*A*B*X*PpDPp*QDQ - 2*A*B*X*PpDQ^2 + A*B*X^2*PDP*QDQ + 4*A*B*X^2
  *PDQ*PpDQ + 3*A*B*X^2*PpDPp*QDQ + 4*A*B*X^2*PpDQ^2 + A*Z*X*QDQ
  - 2*A*Z*X^2*QDQ - 2*A*Z^2*X*QDQ + A*X*QDQ + 2*A*X^2*QDQ
  - B*Z*X^2*QDQ + 2*B*Z*QDQ - 2*B*Z^2*X*QDQ - B*Z^2*QDQ - B*Z^3*QDQ
   + 2*B*X*QDQ + B*X^2*QDQ )
 
 + Fa(4)*Q(al)*Pp(be)*P(mu)
  * ( - A*B*Z*X*PpDQ*QDQ - A*B*Z*X^2*PDQ*QDQ + 2*A*B*X^3*PDQ*QDQ
  + 2*A*B*X^3*PpDQ*QDQ )
 
 + Fa(4)*Q(al)*Pp(be)*Pp(mu)
  * ( - A*B*Z*X*PpDQ*QDQ + A*B*Z*X^2*PDQ*QDQ - 2*A*B*Z*X^2*PpDQ*QDQ
   + 4*A*B*X^3*PDQ*QDQ )
 
 + Fa(4)*Q(al)*Pp(be)*Q(mu)
  * ( - 2*A*B*Z*X*PDPp*QDQ - 2*A*B*Z*X*PDQ*PpDQ - 2*A*B*Z*X*PpDQ^2
   + A*B*Z*X^2*PDP*QDQ - 4*A*B*Z*X^2*PDPp*QDQ - 2*A*B*Z*X^2*PDQ*PpDQ
   + A*B*Z*X^2*PpDPp*QDQ - 2*A*B*Z*X^2*PpDQ^2 + 2*A*B*X*PDPp*QDQ
  - 2*A*B*X^2*PDP*QDQ + 2*A*B*X^2*PDPp*QDQ + 3*A*B*X^3*PDP*QDQ
  + 4*A*B*X^3*PDQ*PpDQ + 4*A*B*X^3*PDQ^2 + A*B*X^3*PpDPp*QDQ
  + 3*A*Z*X*QDQ - A*Z*X^2*QDQ - A*Z*QDQ - A*X*QDQ + A*X^2*QDQ
  + A*X^3*QDQ - B*Z*QDQ + B*Z^2*X*QDQ + B*Z^3*QDQ - B*X^2*QDQ
  + 2*B*X^3*QDQ )
 
 + Fa(4)*Q(al)*Q(be)*P(mu)
  * ( A*B*Z*X*PDP*QDQ - 2*A*B*Z*X*PDPp*QDQ + A*B*Z*X*PpDPp*QDQ
  - A*B*Z*X^2*PDP*QDQ - 4*A*B*Z*X^2*PDQ*PpDQ - 3*A*B*Z*X^2*PpDPp*QDQ
   - 4*A*B*Z*X^2*PpDQ^2 + 3*A*B*Z^2*X*PDPp*QDQ + 2*A*B*Z^2*X*PDQ^2
   - 3*A*B*Z^2*X*PpDPp*QDQ - 2*A*B*Z^2*X*PpDQ^2 + A*B*Z^3*PDPp*QDQ
   - A*B*Z^3*PpDPp*QDQ + A*B*X*PDPp*QDQ - 2*A*Z*X^2*QDQ - A*Z^2*QDQ
   - A*X*QDQ + A*QDQ - B*Z*X^2*QDQ - B*Z*QDQ - B*Z^2*QDQ )
 
 + Fa(4)*Q(al)*Q(be)*Pp(mu)
  * ( A*B*Z*X*PDP*QDQ - 2*A*B*Z*X*PDPp*QDQ + A*B*Z*X*PpDPp*QDQ
  - 3*A*B*Z*X^2*PDP*QDQ - 4*A*B*Z*X^2*PDQ*PpDQ - 4*A*B*Z*X^2*PDQ^2
   - A*B*Z*X^2*PpDPp*QDQ - 3*A*B*Z^2*X*PDP*QDQ + 3*A*B*Z^2*X*PDPp*QDQ
   - 2*A*B*Z^2*X*PDQ^2 + 2*A*B*Z^2*X*PpDQ^2 - A*B*Z^3*PDP*QDQ
  + A*B*Z^3*PDPp*QDQ + A*B*X*PDPp*QDQ - A*Z*X^2*QDQ - A*Z*QDQ
  - A*Z^2*QDQ - 2*B*Z*X^2*QDQ - B*Z^2*QDQ - B*X*QDQ + B*QDQ )
 
 + Fa(4)*Q(al)*Q(be)*Q(mu)
  * ( 2*A*B*Z*X*PDP*PDQ + 2*A*B*Z*X*PDP*PpDQ - 4*A*B*Z*X*PDPp*PDQ
  - 4*A*B*Z*X*PDPp*PpDQ + 2*A*B*Z*X*PDQ*PpDPp + 2*A*B*Z*X*PpDPp*PpDQ
   - 4*A*B*Z*X^2*PDP*PDQ - 4*A*B*Z*X^2*PDP*PpDQ - 4*A*B*Z*X^2*PDQ*PpDPp
   - 4*A*B*Z*X^2*PpDPp*PpDQ - 2*A*B*Z^2*X*PDP*PDQ - 2*A*B*Z^2*X*PDP
  *PpDQ + 6*A*B*Z^2*X*PDPp*PDQ + 6*A*B*Z^2*X*PDPp*PpDQ - 2*A*B*Z^2
  *X*PDQ*PpDPp - 2*A*B*Z^2*X*PpDPp*PpDQ + 2*A*B*X*PDPp*PDQ
  + 2*A*B*X*PDPp*PpDQ - 4*A*Z*X^2*PDQ - 2*A*Z*X^2*PpDQ - 2*A*Z*PpDQ
   - 2*B*Z*X^2*PDQ - 4*B*Z*X^2*PpDQ - 2*B*Z*PDQ )
 
 + Fa(4)*D(al,be)*P(mu)
  * ( - A*B*Z*X*PDP*QDQ^2 - 4*A*B*Z*X*PDQ*PpDQ*QDQ + A*B*Z*X*PDQ^2
  *QDQ - A*B*Z*X*PpDPp*QDQ^2 - 3*A*B*Z*X*PpDQ^2*QDQ + A*B*Z*X^2*PDP
  *QDQ^2 - A*B*Z*X^2*PDPp*QDQ^2 + 10*A*B*Z*X^2*PDQ*PpDQ*QDQ
  - 2*A*B*Z*X^2*PDQ^2*QDQ + 4*A*B*Z*X^2*PpDPp*QDQ^2 + 8*A*B*Z*X^2*PpDQ^2
  *QDQ - 2*A*B*Z^2*X*PDPp*QDQ^2 + 3*A*B*Z^2*X*PDQ*PpDQ*QDQ
  - 3*A*B*Z^2*X*PDQ^2*QDQ + 3*A*B*Z^2*X*PpDPp*QDQ^2 + 5*A*B*Z^2*X*PpDQ^2
  *QDQ + A*B*Z^2*PDQ^2*QDQ - A*B*Z^2*PpDQ^2*QDQ - A*B*Z^3*PDPp*QDQ^2
   - A*B*Z^3*PDQ^2*QDQ + A*B*Z^3*PpDPp*QDQ^2 + A*B*Z^3*PpDQ^2*QDQ
  + A*B*X*PDQ*PpDQ*QDQ - A*B*X^2*PDP*QDQ^2 - 6*A*B*X^2*PDQ*PpDQ*QDQ
   - A*B*X^2*PpDPp*QDQ^2 - 2*A*B*X^2*PpDQ^2*QDQ + A*B*X^3*PDP*QDQ^2
   + 8*A*B*X^3*PDQ*PpDQ*QDQ + 2*A*B*X^3*PpDPp*QDQ^2 + 4*A*B*X^3*PpDQ^2
  *QDQ + 2*A*Z*X^2*QDQ^2 + A*Z^2*X*QDQ^2 + A*X^3*QDQ^2 + B*Z*X^2*QDQ^2
   + B*Z*QDQ^2 + B*Z^2*QDQ^2 + B*X*QDQ^2 - B*X^2*QDQ^2 + B*X^3*QDQ^2 )
 
 + Fa(4)*D(al,be)*Pp(mu)
  * ( - A*B*Z*X*PDP*QDQ^2 - 4*A*B*Z*X*PDQ*PpDQ*QDQ - 3*A*B*Z*X*PDQ^2
  *QDQ - A*B*Z*X*PpDPp*QDQ^2 + A*B*Z*X*PpDQ^2*QDQ + 4*A*B*Z*X^2*PDP
  *QDQ^2 - A*B*Z*X^2*PDPp*QDQ^2 + 10*A*B*Z*X^2*PDQ*PpDQ*QDQ
  + 8*A*B*Z*X^2*PDQ^2*QDQ + A*B*Z*X^2*PpDPp*QDQ^2 - 2*A*B*Z*X^2*PpDQ^2
  *QDQ + 3*A*B*Z^2*X*PDP*QDQ^2 - 2*A*B*Z^2*X*PDPp*QDQ^2 + 3*A*B*Z^2
  *X*PDQ*PpDQ*QDQ + 5*A*B*Z^2*X*PDQ^2*QDQ - 3*A*B*Z^2*X*PpDQ^2*QDQ
   - A*B*Z^2*PDQ^2*QDQ + A*B*Z^2*PpDQ^2*QDQ + A*B*Z^3*PDP*QDQ^2
  - A*B*Z^3*PDPp*QDQ^2 + A*B*Z^3*PDQ^2*QDQ - A*B*Z^3*PpDQ^2*QDQ
  + A*B*X*PDQ*PpDQ*QDQ - A*B*X^2*PDP*QDQ^2 - 6*A*B*X^2*PDQ*PpDQ*QDQ
   - 2*A*B*X^2*PDQ^2*QDQ - A*B*X^2*PpDPp*QDQ^2 + 2*A*B*X^3*PDP*QDQ^2
   + 8*A*B*X^3*PDQ*PpDQ*QDQ + 4*A*B*X^3*PDQ^2*QDQ + A*B*X^3*PpDPp*QDQ^2
   + A*Z*X^2*QDQ^2 + A*Z*QDQ^2 + A*Z^2*QDQ^2 + A*X*QDQ^2 - A*X^2*QDQ^2
   + A*X^3*QDQ^2 + 2*B*Z*X^2*QDQ^2 + B*Z^2*X*QDQ^2 + B*X^3*QDQ^2 )
 
 + Fa(4)*D(al,be)*Q(mu)
  * ( - 4*A*B*Z*X*PDP*PDQ*QDQ - 6*A*B*Z*X*PDP*PpDQ*QDQ + 2*A*B*Z*X
  *PDPp*PDQ*QDQ + 2*A*B*Z*X*PDPp*PpDQ*QDQ - 6*A*B*Z*X*PDQ*PpDPp*QDQ
   - 4*A*B*Z*X*PDQ*PpDQ^2 - 4*A*B*Z*X*PDQ^2*PpDQ - 4*A*B*Z*X*PpDPp
  *PpDQ*QDQ + 7*A*B*Z*X^2*PDP*PDQ*QDQ + 9*A*B*Z*X^2*PDP*PpDQ*QDQ
  - 4*A*B*Z*X^2*PDPp*PDQ*QDQ - 4*A*B*Z*X^2*PDPp*PpDQ*QDQ + 9*A*B*Z
  *X^2*PDQ*PpDPp*QDQ + 8*A*B*Z*X^2*PDQ*PpDQ^2 + 8*A*B*Z*X^2*PDQ^2*PpDQ
   + 7*A*B*Z*X^2*PpDPp*PpDQ*QDQ + 4*A*B*Z^2*X*PDP*PDQ*QDQ
  + 4*A*B*Z^2*X*PDP*PpDQ*QDQ - 6*A*B*Z^2*X*PDPp*PDQ*QDQ - 6*A*B*Z^2
  *X*PDPp*PpDQ*QDQ + 4*A*B*Z^2*X*PDQ*PpDPp*QDQ + 2*A*B*Z^2*X*PDQ*PpDQ^2
   + 2*A*B*Z^2*X*PDQ^2*PpDQ + 4*A*B*Z^2*X*PpDPp*PpDQ*QDQ - A*B*Z^2
  *PDP*PDQ*QDQ - A*B*Z^2*PDP*PpDQ*QDQ + 2*A*B*Z^2*PDPp*PDQ*QDQ
  + 2*A*B*Z^2*PDPp*PpDQ*QDQ - A*B*Z^2*PDQ*PpDPp*QDQ - A*B*Z^2*PpDPp
  *PpDQ*QDQ + A*B*Z^3*PDP*PDQ*QDQ + A*B*Z^3*PDP*PpDQ*QDQ - 2*A*B*Z^3
  *PDPp*PDQ*QDQ - 2*A*B*Z^3*PDPp*PpDQ*QDQ + A*B*Z^3*PDQ*PpDPp*QDQ
  + A*B*Z^3*PpDPp*PpDQ*QDQ + 2*A*B*X*PDP*PpDQ*QDQ + 2*A*B*X*PDQ*PpDPp
  *QDQ + 2*A*B*X*PDQ*PpDQ^2 + 2*A*B*X*PDQ^2*PpDQ - 3*A*B*X^2*PDP*PDQ
  *QDQ - 9*A*B*X^2*PDP*PpDQ*QDQ - 9*A*B*X^2*PDQ*PpDPp*QDQ
  - 8*A*B*X^2*PDQ*PpDQ^2 - 8*A*B*X^2*PDQ^2*PpDQ - 3*A*B*X^2*PpDPp*PpDQ
  *QDQ + 4*A*B*X^3*PDP*PDQ*QDQ + 8*A*B*X^3*PDP*PpDQ*QDQ + 8*A*B*X^3
  *PDQ*PpDPp*QDQ + 8*A*B*X^3*PDQ*PpDQ^2 + 8*A*B*X^3*PDQ^2*PpDQ
  + 4*A*B*X^3*PpDPp*PpDQ*QDQ - 2*A*Z*X*PDQ*QDQ - 2*A*Z*X*PpDQ*QDQ
  + 10*A*Z*X^2*PDQ*QDQ + 3*A*Z*X^2*PpDQ*QDQ - A*Z*PpDQ*QDQ
  + 4*A*Z^2*X*PDQ*QDQ + A*Z^2*X*PpDQ*QDQ - A*Z^2*PpDQ*QDQ
  - A*X*PpDQ*QDQ - 2*A*X^2*PDQ*QDQ - A*X^2*PpDQ*QDQ + 6*A*X^3*PDQ*QDQ
   + 2*A*X^3*PpDQ*QDQ - 2*B*Z*X*PDQ*QDQ - 2*B*Z*X*PpDQ*QDQ
  + 3*B*Z*X^2*PDQ*QDQ + 10*B*Z*X^2*PpDQ*QDQ - B*Z*PDQ*QDQ
  + B*Z^2*X*PDQ*QDQ + 4*B*Z^2*X*PpDQ*QDQ - B*Z^2*PDQ*QDQ - B*X*PDQ
  *QDQ - B*X^2*PDQ*QDQ - 2*B*X^2*PpDQ*QDQ + 2*B*X^3*PDQ*QDQ
  + 6*B*X^3*PpDQ*QDQ )
 
 + Fa(4)*D(al,mu)*P(be)
  * ( 2*B*Z*X*QDQ^2 - 2*B*Z*QDQ^2 - 2*B*X*QDQ^2 + 2*B*X^2*QDQ^2 )
 
 + Fa(4)*D(al,mu)*Pp(be)
  * ( - 2*A*Z*X*QDQ^2 + A*Z*X^2*QDQ^2 + A*Z*QDQ^2 + A*X*QDQ^2
  - 2*A*X^2*QDQ^2 + A*X^3*QDQ^2 - B*X*QDQ^2 + B*X^2*QDQ^2 )
 
 + Fa(4)*D(al,mu)*Q(be)
  * ( 2*A*Z*X*PpDQ*QDQ - 4*A*Z*X^2*PDQ*QDQ + A*Z*PDQ*QDQ + A*Z*PpDQ
  *QDQ - 4*A*Z^2*X*PDQ*QDQ + A*Z^2*X*PpDQ*QDQ + A*Z^2*PDQ*QDQ
  + 2*A*Z^2*PpDQ*QDQ - A*Z^3*PDQ*QDQ + A*Z^3*PpDQ*QDQ + 4*A*X*PDQ*QDQ
   + A*X*PpDQ*QDQ - 4*A*X^2*PDQ*QDQ - A*PDQ*QDQ - 3*B*Z*X*PDQ*QDQ
  + B*Z*X*PpDQ*QDQ + 2*B*Z*PDQ*QDQ - B*X*PDQ*QDQ - 3*B*X*PpDQ*QDQ
  + 4*B*X^2*PpDQ*QDQ )
 
 + Fa(4)*D(be,mu)*P(al)
  * ( - A*X*QDQ^2 + A*X^2*QDQ^2 - 2*B*Z*X*QDQ^2 + B*Z*X^2*QDQ^2
  + B*Z*QDQ^2 + B*X*QDQ^2 - 2*B*X^2*QDQ^2 + B*X^3*QDQ^2 )
 
 + Fa(4)*D(be,mu)*Pp(al)
  * ( 2*A*Z*X*QDQ^2 - 2*A*Z*QDQ^2 - 2*A*X*QDQ^2 + 2*A*X^2*QDQ^2 )
 
 + Fa(4)*D(be,mu)*Q(al)
  * ( A*Z*X*PDQ*QDQ - 3*A*Z*X*PpDQ*QDQ + 2*A*Z*PpDQ*QDQ - 3*A*X*PDQ
  *QDQ - A*X*PpDQ*QDQ + 4*A*X^2*PDQ*QDQ + 2*B*Z*X*PDQ*QDQ
  - 4*B*Z*X^2*PpDQ*QDQ + B*Z*PDQ*QDQ + B*Z*PpDQ*QDQ + B*Z^2*X*PDQ*QDQ
   - 4*B*Z^2*X*PpDQ*QDQ + 2*B*Z^2*PDQ*QDQ + B*Z^2*PpDQ*QDQ
  + B*Z^3*PDQ*QDQ - B*Z^3*PpDQ*QDQ + B*X*PDQ*QDQ + 4*B*X*PpDQ*QDQ
  - 4*B*X^2*PpDQ*QDQ - B*PpDQ*QDQ )
 
 + Fa(5)*P(al)*P(be)*Q(mu)
  * ( - 2*A*B*Z*X*QDQ^2 - 2*A*B*Z*X^2*QDQ^2 - 2*A*B*X^2*QDQ^2
  - 2*A*B*X^3*QDQ^2 )
 
 + Fa(5)*P(al)*Pp(be)*Q(mu)
  * ( - 2*A*B*X^3*QDQ^2 )
 
 + Fa(5)*P(al)*Q(be)*P(mu)
  * ( - A*B*X^3*QDQ^2 )
 
 + Fa(5)*P(al)*Q(be)*Pp(mu)
  * ( - A*B*X^3*QDQ^2 )
 
 + Fa(5)*P(al)*Q(be)*Q(mu)
  * ( 2*A*B*Z*X*PDQ*QDQ + 2*A*B*Z*X^2*PDQ*QDQ - 2*A*B*X^3*PDQ*QDQ
  - 6*A*B*X^3*PpDQ*QDQ )
 
 + Fa(5)*Pp(al)*Pp(be)*Q(mu)
  * ( - 2*A*B*Z*X*QDQ^2 - 2*A*B*Z*X^2*QDQ^2 - 2*A*B*X^2*QDQ^2
  - 2*A*B*X^3*QDQ^2 )
 
 + Fa(5)*Pp(al)*Q(be)*P(mu)
  * ( - A*B*Z*X*QDQ^2 + A*B*Z*X^2*QDQ^2 + A*B*Z^2*X*QDQ^2
  - A*B*X^2*QDQ^2 )
 
 + Fa(5)*Pp(al)*Q(be)*Pp(mu)
  * ( - A*B*Z*X*QDQ^2 + A*B*Z*X^2*QDQ^2 + A*B*Z^2*X*QDQ^2
  - A*B*X^2*QDQ^2 )
 
 + Fa(5)*Pp(al)*Q(be)*Q(mu)
  * ( - 6*A*B*Z*X*PDQ*QDQ - 2*A*B*Z*X*PpDQ*QDQ + 6*A*B*Z*X^2*PDQ*QDQ
   + 2*A*B*Z*X^2*PpDQ*QDQ + 4*A*B*Z^2*X*PDQ*QDQ + 2*A*B*Z^2*X*PpDQ
  *QDQ + 2*A*B*X*PDQ*QDQ - 6*A*B*X^2*PDQ*QDQ - 2*A*B*X^2*PpDQ*QDQ )
 
 + Fa(5)*Q(al)*P(be)*P(mu)
  * ( - A*B*Z*X*QDQ^2 + A*B*Z*X^2*QDQ^2 + A*B*Z^2*X*QDQ^2
  - A*B*X^2*QDQ^2 )
 
 + Fa(5)*Q(al)*P(be)*Pp(mu)
  * ( - A*B*Z*X*QDQ^2 + A*B*Z*X^2*QDQ^2 + A*B*Z^2*X*QDQ^2
  - A*B*X^2*QDQ^2 )
 
 + Fa(5)*Q(al)*P(be)*Q(mu)
  * ( - 2*A*B*Z*X*PDQ*QDQ - 6*A*B*Z*X*PpDQ*QDQ + 2*A*B*Z*X^2*PDQ*QDQ
   + 6*A*B*Z*X^2*PpDQ*QDQ + 2*A*B*Z^2*X*PDQ*QDQ + 4*A*B*Z^2*X*PpDQ
  *QDQ + 2*A*B*X*PpDQ*QDQ - 2*A*B*X^2*PDQ*QDQ - 6*A*B*X^2*PpDQ*QDQ )
 
 + Fa(5)*Q(al)*Pp(be)*P(mu)
  * ( - A*B*X^3*QDQ^2 )
 
 + Fa(5)*Q(al)*Pp(be)*Pp(mu)
  * ( - A*B*X^3*QDQ^2 )
 
 + Fa(5)*Q(al)*Pp(be)*Q(mu)
  * ( 2*A*B*Z*X*PpDQ*QDQ + 2*A*B*Z*X^2*PpDQ*QDQ - 6*A*B*X^3*PDQ*QDQ
   - 2*A*B*X^3*PpDQ*QDQ )
 
 + Fa(5)*Q(al)*Q(be)*P(mu)
  * ( 2*A*B*Z*X^2*PDQ*QDQ + 6*A*B*Z*X^2*PpDQ*QDQ - 2*A*B*Z^2*X*PDQ
  *QDQ + 4*A*B*Z^2*X*PpDQ*QDQ - A*B*Z^3*PDQ*QDQ + A*B*Z^3*PpDQ*QDQ )
 
 + Fa(5)*Q(al)*Q(be)*Pp(mu)
  * ( 6*A*B*Z*X^2*PDQ*QDQ + 2*A*B*Z*X^2*PpDQ*QDQ + 4*A*B*Z^2*X*PDQ
  *QDQ - 2*A*B*Z^2*X*PpDQ*QDQ + A*B*Z^3*PDQ*QDQ - A*B*Z^3*PpDQ*QDQ )
 
 + Fa(5)*Q(al)*Q(be)*Q(mu)
  * ( - 2*A*B*Z*X*PDP*QDQ + 4*A*B*Z*X*PDPp*QDQ - 2*A*B*Z*X*PpDPp*QDQ
   + 4*A*B*Z*X^2*PDP*QDQ + 8*A*B*Z*X^2*PDQ*PpDQ + 4*A*B*Z*X^2*PDQ^2
   + 4*A*B*Z*X^2*PpDPp*QDQ + 4*A*B*Z*X^2*PpDQ^2 + 3*A*B*Z^2*X*PDP*QDQ
   - 6*A*B*Z^2*X*PDPp*QDQ + 3*A*B*Z^2*X*PpDPp*QDQ + A*B*Z^3*PDP*QDQ
   - 2*A*B*Z^3*PDPp*QDQ + A*B*Z^3*PpDPp*QDQ - 2*A*B*X*PDPp*QDQ
  + 3*A*Z*X^2*QDQ + A*Z*QDQ + A*Z^2*X*QDQ + A*Z^2*QDQ + 3*B*Z*X^2*QDQ
   + B*Z*QDQ + B*Z^2*X*QDQ + B*Z^2*QDQ )
 
 + Fa(5)*D(al,be)*P(mu)
  * ( A*B*Z*X*PDQ*QDQ^2 + A*B*Z*X*PpDQ*QDQ^2 - 2*A*B*Z*X^2*PDQ*QDQ^2
   - 8*A*B*Z*X^2*PpDQ*QDQ^2 + A*B*Z^2*X*PDQ*QDQ^2 - 5*A*B*Z^2*X*PpDQ
  *QDQ^2 + A*B*Z^3*PDQ*QDQ^2 - A*B*Z^3*PpDQ*QDQ^2 + A*B*X^2*PDQ*QDQ^2
   + A*B*X^2*PpDQ*QDQ^2 - 2*A*B*X^3*PDQ*QDQ^2 - 4*A*B*X^3*PpDQ*QDQ^2 )
 
 + Fa(5)*D(al,be)*Pp(mu)
  * ( A*B*Z*X*PDQ*QDQ^2 + A*B*Z*X*PpDQ*QDQ^2 - 8*A*B*Z*X^2*PDQ*QDQ^2
   - 2*A*B*Z*X^2*PpDQ*QDQ^2 - 5*A*B*Z^2*X*PDQ*QDQ^2 + A*B*Z^2*X*PpDQ
  *QDQ^2 - A*B*Z^3*PDQ*QDQ^2 + A*B*Z^3*PpDQ*QDQ^2 + A*B*X^2*PDQ*QDQ^2
   + A*B*X^2*PpDQ*QDQ^2 - 4*A*B*X^3*PDQ*QDQ^2 - 2*A*B*X^3*PpDQ*QDQ^2 )
 
 + Fa(5)*D(al,be)*Q(mu)
  * ( 2*A*B*Z*X*PDP*QDQ^2 + 8*A*B*Z*X*PDQ*PpDQ*QDQ + 2*A*B*Z*X*PDQ^2
  *QDQ + 2*A*B*Z*X*PpDPp*QDQ^2 + 2*A*B*Z*X*PpDQ^2*QDQ - 5*A*B*Z*X^2
  *PDP*QDQ^2 + 2*A*B*Z*X^2*PDPp*QDQ^2 - 20*A*B*Z*X^2*PDQ*PpDQ*QDQ
  - 6*A*B*Z*X^2*PDQ^2*QDQ - 5*A*B*Z*X^2*PpDPp*QDQ^2 - 6*A*B*Z*X^2*PpDQ^2
  *QDQ - 3*A*B*Z^2*X*PDP*QDQ^2 + 4*A*B*Z^2*X*PDPp*QDQ^2 - 6*A*B*Z^2
  *X*PDQ*PpDQ*QDQ - 2*A*B*Z^2*X*PDQ^2*QDQ - 3*A*B*Z^2*X*PpDPp*QDQ^2
   - 2*A*B*Z^2*X*PpDQ^2*QDQ - A*B*Z^3*PDP*QDQ^2 + 2*A*B*Z^3*PDPp*QDQ^2
   - A*B*Z^3*PpDPp*QDQ^2 - 2*A*B*X*PDQ*PpDQ*QDQ + 2*A*B*X^2*PDP*QDQ^2
   + 12*A*B*X^2*PDQ*PpDQ*QDQ + 2*A*B*X^2*PDQ^2*QDQ + 2*A*B*X^2*PpDPp
  *QDQ^2 + 2*A*B*X^2*PpDQ^2*QDQ - 3*A*B*X^3*PDP*QDQ^2 - 16*A*B*X^3
  *PDQ*PpDQ*QDQ - 4*A*B*X^3*PDQ^2*QDQ - 3*A*B*X^3*PpDPp*QDQ^2
  - 4*A*B*X^3*PpDQ^2*QDQ - 4*A*Z*X^2*QDQ^2 - 2*A*Z^2*X*QDQ^2
  - 2*A*X^3*QDQ^2 - 4*B*Z*X^2*QDQ^2 - 2*B*Z^2*X*QDQ^2 - 2*B*X^3*QDQ^2 )
 
 + Fa(5)*D(al,mu)*Q(be)
  * ( A*Z*X^2*QDQ^2 - A*Z*QDQ^2 + A*Z^2*X*QDQ^2 - A*Z^2*QDQ^2
  - A*X*QDQ^2 + A*X^2*QDQ^2 + B*X*QDQ^2 - B*X^2*QDQ^2 )
 
 + Fa(5)*D(be,mu)*Q(al)
  * ( A*X*QDQ^2 - A*X^2*QDQ^2 + B*Z*X^2*QDQ^2 - B*Z*QDQ^2
  + B*Z^2*X*QDQ^2 - B*Z^2*QDQ^2 - B*X*QDQ^2 + B*X^2*QDQ^2 )
 
 + Fa(6)*P(al)*Q(be)*Q(mu)
  * ( 2*A*B*X^3*QDQ^2 )
 
 + Fa(6)*Pp(al)*Q(be)*Q(mu)
  * ( 2*A*B*Z*X*QDQ^2 - 2*A*B*Z*X^2*QDQ^2 - 2*A*B*Z^2*X*QDQ^2
  + 2*A*B*X^2*QDQ^2 )
 
 + Fa(6)*Q(al)*P(be)*Q(mu)
  * ( 2*A*B*Z*X*QDQ^2 - 2*A*B*Z*X^2*QDQ^2 - 2*A*B*Z^2*X*QDQ^2
  + 2*A*B*X^2*QDQ^2 )
 
 + Fa(6)*Q(al)*Pp(be)*Q(mu)
  * ( 2*A*B*X^3*QDQ^2 )
 
 + Fa(6)*Q(al)*Q(be)*P(mu)
  * ( - 2*A*B*Z*X^2*QDQ^2 - A*B*Z^2*X*QDQ^2 )
 
 + Fa(6)*Q(al)*Q(be)*Pp(mu)
  * ( - 2*A*B*Z*X^2*QDQ^2 - A*B*Z^2*X*QDQ^2 )
 
 + Fa(6)*Q(al)*Q(be)*Q(mu)
  * ( - 8*A*B*Z*X^2*PDQ*QDQ - 8*A*B*Z*X^2*PpDQ*QDQ - 2*A*B*Z^2*X*PDQ
  *QDQ - 2*A*B*Z^2*X*PpDQ*QDQ )
 
 + Fa(6)*D(al,be)*P(mu)
  * ( 2*A*B*Z*X^2*QDQ^3 + A*B*Z^2*X*QDQ^3 + A*B*X^3*QDQ^3 )
 
 + Fa(6)*D(al,be)*Pp(mu)
  * ( 2*A*B*Z*X^2*QDQ^3 + A*B*Z^2*X*QDQ^3 + A*B*X^3*QDQ^3 )
 
 + Fa(6)*D(al,be)*Q(mu)
  * ( - 2*A*B*Z*X*PDQ*QDQ^2 - 2*A*B*Z*X*PpDQ*QDQ^2 + 10*A*B*Z*X^2*PDQ
  *QDQ^2 + 10*A*B*Z*X^2*PpDQ*QDQ^2 + 4*A*B*Z^2*X*PDQ*QDQ^2
  + 4*A*B*Z^2*X*PpDQ*QDQ^2 - 2*A*B*X^2*PDQ*QDQ^2 - 2*A*B*X^2*PpDQ*QDQ^2
   + 6*A*B*X^3*PDQ*QDQ^2 + 6*A*B*X^3*PpDQ*QDQ^2 )
 
 + Fa(7)*Q(al)*Q(be)*Q(mu)
  * ( 4*A*B*Z*X^2*QDQ^2 + 2*A*B*Z^2*X*QDQ^2 )
 
 + Fa(7)*D(al,be)*Q(mu)
  * ( - 4*A*B*Z*X^2*QDQ^3 - 2*A*B*Z^2*X*QDQ^3 - 2*A*B*X^3*QDQ^3 ) + 0.
 

End run. Time 59 sec.
