(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     32228,        811]
NotebookOptionsPosition[     31938,        797]
NotebookOutlinePosition[     32281,        812]
CellTagsIndexPosition[     32238,        809]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"One", "-", 
    RowBox[{
    "loop", " ", "counterterms", " ", "of", " ", "the", " ", "most", " ", 
     "general", " ", "theory", " ", 
     SubscriptBox["L", "QG"]}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     SubscriptBox["a", "C"], "=", 
     FractionBox[
      RowBox[{
       RowBox[{"6", " ", "\[Gamma]", " ", "\[Eta]"}], "-", 
       RowBox[{"9", " ", 
        SuperscriptBox["\[Eta]", "2"]}], "+", 
       RowBox[{
        SuperscriptBox["\[Gamma]", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "6"}], "+", 
          RowBox[{"30", " ", "\[Xi]"}], "-", 
          RowBox[{"45", " ", 
           SuperscriptBox["\[Xi]", "2"]}]}], ")"}]}], "+", 
       RowBox[{"6", " ", "\[Zeta]", " ", 
        RowBox[{"(", 
         RowBox[{"2", "-", 
          RowBox[{"11", " ", "\[Xi]"}], "+", 
          RowBox[{"15", " ", 
           SuperscriptBox["\[Xi]", "2"]}]}], ")"}]}]}], 
      RowBox[{"4", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"3", " ", "\[Xi]"}]}], ")"}], "2"]}]]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     SubscriptBox["a", "\[Zeta]"], "=", 
     RowBox[{
      FractionBox["1", 
       RowBox[{"4", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"3", " ", "\[Xi]"}]}], ")"}], "2"]}]], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", "\[Eta]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "12"}], "+", 
           RowBox[{"69", " ", "\[Xi]"}], "-", 
           RowBox[{"90", " ", 
            SuperscriptBox["\[Xi]", "2"]}], "+", 
           RowBox[{"9", " ", 
            SubscriptBox["\[Alpha]", "1"]}], "+", 
           RowBox[{"30", " ", 
            SubscriptBox["\[Alpha]", "2"]}], "+", 
           RowBox[{"108", " ", 
            SubscriptBox["\[Alpha]", "3"]}], "+", 
           RowBox[{"24", " ", 
            SubscriptBox["\[Alpha]", "4"]}], "+", 
           RowBox[{"8", " ", 
            SubscriptBox["\[Alpha]", "5"]}], "+", 
           RowBox[{"6", " ", 
            SubscriptBox["\[Alpha]", "6"]}]}], ")"}]}], "+", 
        RowBox[{"\[Gamma]", " ", 
         RowBox[{"(", 
          RowBox[{"8", "-", 
           RowBox[{"46", " ", "\[Xi]"}], "+", 
           RowBox[{"60", " ", 
            SuperscriptBox["\[Xi]", "2"]}], "+", 
           RowBox[{"9", " ", 
            RowBox[{"(", 
             RowBox[{"1", "-", 
              RowBox[{"10", " ", "\[Xi]"}], "+", 
              RowBox[{"15", " ", 
               SuperscriptBox["\[Xi]", "2"]}]}], ")"}], " ", 
            SubscriptBox["\[Alpha]", "1"]}], "-", 
           RowBox[{"120", " ", "\[Xi]", " ", 
            SubscriptBox["\[Alpha]", "2"]}], "+", 
           RowBox[{"180", " ", 
            SuperscriptBox["\[Xi]", "2"], " ", 
            SubscriptBox["\[Alpha]", "2"]}], "-", 
           RowBox[{"72", " ", 
            SubscriptBox["\[Alpha]", "3"]}], "+", 
           RowBox[{"64", " ", 
            SubscriptBox["\[Alpha]", "4"]}], "-", 
           RowBox[{"480", " ", "\[Xi]", " ", 
            SubscriptBox["\[Alpha]", "4"]}], "+", 
           RowBox[{"720", " ", 
            SuperscriptBox["\[Xi]", "2"], " ", 
            SubscriptBox["\[Alpha]", "4"]}], "+", 
           RowBox[{"3", " ", 
            SubscriptBox["\[Alpha]", "5"]}], "-", 
           RowBox[{"50", " ", "\[Xi]", " ", 
            SubscriptBox["\[Alpha]", "5"]}], "+", 
           RowBox[{"75", " ", 
            SuperscriptBox["\[Xi]", "2"], " ", 
            SubscriptBox["\[Alpha]", "5"]}], "+", 
           RowBox[{"36", " ", 
            SubscriptBox["\[Alpha]", "6"]}], "-", 
           RowBox[{"240", " ", "\[Xi]", " ", 
            SubscriptBox["\[Alpha]", "6"]}], "+", 
           RowBox[{"360", " ", 
            SuperscriptBox["\[Xi]", "2"], " ", 
            SubscriptBox["\[Alpha]", "6"]}]}], ")"}]}]}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     SubscriptBox["a", "\[Gamma]"], "=", 
     RowBox[{
      FractionBox["1", 
       RowBox[{"240", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"3", " ", "\[Xi]"}]}], ")"}], "2"]}]], 
      RowBox[{"(", 
       RowBox[{"756", "-", 
        RowBox[{"2296", " ", "\[Xi]"}], "+", 
        RowBox[{"1084", " ", 
         SuperscriptBox["\[Xi]", "2"]}], "+", 
        RowBox[{"360", " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"5", " ", "\[Xi]"}], "+", 
           RowBox[{"10", " ", 
            SuperscriptBox["\[Xi]", "2"]}]}], ")"}], " ", 
         SubsuperscriptBox["\[Alpha]", "1", "2"]}], "+", 
        RowBox[{"160", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "4"}], "+", 
           RowBox[{"15", " ", "\[Xi]"}]}], ")"}], " ", 
         SubsuperscriptBox["\[Alpha]", "2", "2"]}], "+", 
        RowBox[{"960", " ", 
         SubscriptBox["\[Alpha]", "4"]}], "+", 
        RowBox[{"13120", " ", "\[Xi]", " ", 
         SubscriptBox["\[Alpha]", "4"]}], "-", 
        RowBox[{"43200", " ", 
         SuperscriptBox["\[Xi]", "2"], " ", 
         SubscriptBox["\[Alpha]", "4"]}], "-", 
        RowBox[{"5440", " ", 
         SubsuperscriptBox["\[Alpha]", "4", "2"]}], "+", 
        RowBox[{"18240", " ", "\[Xi]", " ", 
         SubsuperscriptBox["\[Alpha]", "4", "2"]}], "+", 
        RowBox[{"1940", " ", 
         SubscriptBox["\[Alpha]", "5"]}], "-", 
        RowBox[{"9300", " ", "\[Xi]", " ", 
         SubscriptBox["\[Alpha]", "5"]}], "+", 
        RowBox[{"10840", " ", 
         SuperscriptBox["\[Xi]", "2"], " ", 
         SubscriptBox["\[Alpha]", "5"]}], "-", 
        RowBox[{"3040", " ", 
         SubscriptBox["\[Alpha]", "4"], " ", 
         SubscriptBox["\[Alpha]", "5"]}], "+", 
        RowBox[{"9440", " ", "\[Xi]", " ", 
         SubscriptBox["\[Alpha]", "4"], " ", 
         SubscriptBox["\[Alpha]", "5"]}], "-", 
        RowBox[{"225", " ", 
         SubsuperscriptBox["\[Alpha]", "5", "2"]}], "-", 
        RowBox[{"350", " ", "\[Xi]", " ", 
         SubsuperscriptBox["\[Alpha]", "5", "2"]}], "+", 
        RowBox[{"3115", " ", 
         SuperscriptBox["\[Xi]", "2"], " ", 
         SubsuperscriptBox["\[Alpha]", "5", "2"]}], "+", 
        RowBox[{"9840", " ", 
         SubscriptBox["\[Alpha]", "6"]}], "-", 
        RowBox[{"47280", " ", "\[Xi]", " ", 
         SubscriptBox["\[Alpha]", "6"]}], "+", 
        RowBox[{"55680", " ", 
         SuperscriptBox["\[Xi]", "2"], " ", 
         SubscriptBox["\[Alpha]", "6"]}], "-", 
        RowBox[{"11520", " ", 
         SubscriptBox["\[Alpha]", "4"], " ", 
         SubscriptBox["\[Alpha]", "6"]}], "+", 
        RowBox[{"36480", " ", "\[Xi]", " ", 
         SubscriptBox["\[Alpha]", "4"], " ", 
         SubscriptBox["\[Alpha]", "6"]}], "-", 
        RowBox[{"1320", " ", 
         SubscriptBox["\[Alpha]", "5"], " ", 
         SubscriptBox["\[Alpha]", "6"]}], "-", 
        RowBox[{"1200", " ", "\[Xi]", " ", 
         SubscriptBox["\[Alpha]", "5"], " ", 
         SubscriptBox["\[Alpha]", "6"]}], "+", 
        RowBox[{"15960", " ", 
         SuperscriptBox["\[Xi]", "2"], " ", 
         SubscriptBox["\[Alpha]", "5"], " ", 
         SubscriptBox["\[Alpha]", "6"]}], "+", 
        RowBox[{"7920", " ", 
         SubsuperscriptBox["\[Alpha]", "6", "2"]}], "-", 
        RowBox[{"64800", " ", "\[Xi]", " ", 
         SubsuperscriptBox["\[Alpha]", "6", "2"]}], "+", 
        RowBox[{"124560", " ", 
         SuperscriptBox["\[Xi]", "2"], " ", 
         SubsuperscriptBox["\[Alpha]", "6", "2"]}], "+", 
        RowBox[{"80", " ", 
         SubscriptBox["\[Alpha]", "2"], " ", 
         RowBox[{"(", 
          RowBox[{"6", "+", 
           RowBox[{"37", " ", "\[Xi]"}], "-", 
           RowBox[{"135", " ", 
            SuperscriptBox["\[Xi]", "2"]}], "+", 
           RowBox[{"8", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "4"}], "+", 
              RowBox[{"15", " ", "\[Xi]"}]}], ")"}], " ", 
            SubscriptBox["\[Alpha]", "4"]}], "-", 
           RowBox[{"16", " ", 
            SubscriptBox["\[Alpha]", "5"]}], "+", 
           RowBox[{"50", " ", "\[Xi]", " ", 
            SubscriptBox["\[Alpha]", "5"]}], "-", 
           RowBox[{"36", " ", 
            SubscriptBox["\[Alpha]", "6"]}], "+", 
           RowBox[{"120", " ", "\[Xi]", " ", 
            SubscriptBox["\[Alpha]", "6"]}]}], ")"}]}], "+", 
        RowBox[{"60", " ", 
         SubscriptBox["\[Alpha]", "1"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "18"}], "+", 
           RowBox[{"189", " ", "\[Xi]"}], "-", 
           RowBox[{"365", " ", 
            SuperscriptBox["\[Xi]", "2"]}], "+", 
           RowBox[{"8", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              RowBox[{"5", " ", "\[Xi]"}]}], ")"}], " ", 
            SubscriptBox["\[Alpha]", "2"]}], "-", 
           RowBox[{"16", " ", 
            SubscriptBox["\[Alpha]", "4"]}], "+", 
           RowBox[{"80", " ", "\[Xi]", " ", 
            SubscriptBox["\[Alpha]", "4"]}], "-", 
           RowBox[{"18", " ", 
            SubscriptBox["\[Alpha]", "5"]}], "+", 
           RowBox[{"80", " ", "\[Xi]", " ", 
            SubscriptBox["\[Alpha]", "5"]}], "-", 
           RowBox[{"70", " ", 
            SuperscriptBox["\[Xi]", "2"], " ", 
            SubscriptBox["\[Alpha]", "5"]}], "+", 
           RowBox[{"12", " ", 
            SubscriptBox["\[Alpha]", "6"]}], "-", 
           RowBox[{"120", " ", "\[Xi]", " ", 
            SubscriptBox["\[Alpha]", "6"]}], "+", 
           RowBox[{"300", " ", 
            SuperscriptBox["\[Xi]", "2"], " ", 
            SubscriptBox["\[Alpha]", "6"]}]}], ")"}]}]}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     SubscriptBox["a", "\[Eta]"], "=", 
     RowBox[{
      FractionBox["1", 
       RowBox[{"240", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"3", " ", "\[Xi]"}]}], ")"}], "2"]}]], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"45", " ", 
         RowBox[{"(", 
          RowBox[{"31", "-", 
           RowBox[{"110", " ", "\[Xi]"}], "+", 
           RowBox[{"175", " ", 
            SuperscriptBox["\[Xi]", "2"]}]}], ")"}], " ", 
         SubsuperscriptBox["\[Alpha]", "1", "2"]}], "+", 
        RowBox[{"30", " ", 
         SubscriptBox["\[Alpha]", "1"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "48"}], "+", 
           RowBox[{"366", " ", "\[Xi]"}], "-", 
           RowBox[{"590", " ", 
            SuperscriptBox["\[Xi]", "2"]}], "+", 
           RowBox[{"4", " ", 
            RowBox[{"(", 
             RowBox[{"43", "-", 
              RowBox[{"80", " ", "\[Xi]"}], "+", 
              RowBox[{"135", " ", 
               SuperscriptBox["\[Xi]", "2"]}]}], ")"}], " ", 
            SubscriptBox["\[Alpha]", "2"]}], "+", 
           RowBox[{"432", " ", 
            SubscriptBox["\[Alpha]", "3"]}], "+", 
           RowBox[{"320", " ", 
            SubscriptBox["\[Alpha]", "4"]}], "-", 
           RowBox[{"1360", " ", "\[Xi]", " ", 
            SubscriptBox["\[Alpha]", "4"]}], "+", 
           RowBox[{"2160", " ", 
            SuperscriptBox["\[Xi]", "2"], " ", 
            SubscriptBox["\[Alpha]", "4"]}], "+", 
           RowBox[{"39", " ", 
            SubscriptBox["\[Alpha]", "5"]}], "-", 
           RowBox[{"70", " ", "\[Xi]", " ", 
            SubscriptBox["\[Alpha]", "5"]}], "+", 
           RowBox[{"155", " ", 
            SuperscriptBox["\[Xi]", "2"], " ", 
            SubscriptBox["\[Alpha]", "5"]}], "+", 
           RowBox[{"156", " ", 
            SubscriptBox["\[Alpha]", "6"]}], "-", 
           RowBox[{"840", " ", "\[Xi]", " ", 
            SubscriptBox["\[Alpha]", "6"]}], "+", 
           RowBox[{"1380", " ", 
            SuperscriptBox["\[Xi]", "2"], " ", 
            SubscriptBox["\[Alpha]", "6"]}]}], ")"}]}], "+", 
        RowBox[{"4", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "127"}], "+", 
           RowBox[{"1022", " ", "\[Xi]"}], "-", 
           RowBox[{"1783", " ", 
            SuperscriptBox["\[Xi]", "2"]}], "+", 
           RowBox[{"20", " ", 
            RowBox[{"(", 
             RowBox[{"86", "-", 
              RowBox[{"75", " ", "\[Xi]"}], "+", 
              RowBox[{"135", " ", 
               SuperscriptBox["\[Xi]", "2"]}]}], ")"}], " ", 
            SubsuperscriptBox["\[Alpha]", "2", "2"]}], "+", 
           RowBox[{"19440", " ", 
            SubsuperscriptBox["\[Alpha]", "3", "2"]}], "-", 
           RowBox[{"480", " ", 
            SubscriptBox["\[Alpha]", "4"]}], "+", 
           RowBox[{"4880", " ", "\[Xi]", " ", 
            SubscriptBox["\[Alpha]", "4"]}], "-", 
           RowBox[{"9000", " ", 
            SuperscriptBox["\[Xi]", "2"], " ", 
            SubscriptBox["\[Alpha]", "4"]}], "+", 
           RowBox[{"5200", " ", 
            SubsuperscriptBox["\[Alpha]", "4", "2"]}], "-", 
           RowBox[{"26880", " ", "\[Xi]", " ", 
            SubsuperscriptBox["\[Alpha]", "4", "2"]}], "+", 
           RowBox[{"43200", " ", 
            SuperscriptBox["\[Xi]", "2"], " ", 
            SubsuperscriptBox["\[Alpha]", "4", "2"]}], "+", 
           RowBox[{"45", " ", 
            SubscriptBox["\[Alpha]", "5"]}], "+", 
           RowBox[{"5", " ", "\[Xi]", " ", 
            SubscriptBox["\[Alpha]", "5"]}], "-", 
           RowBox[{"130", " ", 
            SuperscriptBox["\[Xi]", "2"], " ", 
            SubscriptBox["\[Alpha]", "5"]}], "+", 
           RowBox[{"1280", " ", 
            SubscriptBox["\[Alpha]", "4"], " ", 
            SubscriptBox["\[Alpha]", "5"]}], "-", 
           RowBox[{"4880", " ", "\[Xi]", " ", 
            SubscriptBox["\[Alpha]", "4"], " ", 
            SubscriptBox["\[Alpha]", "5"]}], "+", 
           RowBox[{"9000", " ", 
            SuperscriptBox["\[Xi]", "2"], " ", 
            SubscriptBox["\[Alpha]", "4"], " ", 
            SubscriptBox["\[Alpha]", "5"]}], "+", 
           RowBox[{"130", " ", 
            SubsuperscriptBox["\[Alpha]", "5", "2"]}], "-", 
           RowBox[{"350", " ", "\[Xi]", " ", 
            SubsuperscriptBox["\[Alpha]", "5", "2"]}], "+", 
           RowBox[{"845", " ", 
            SuperscriptBox["\[Xi]", "2"], " ", 
            SubsuperscriptBox["\[Alpha]", "5", "2"]}], "+", 
           RowBox[{"660", " ", 
            SubscriptBox["\[Alpha]", "6"]}], "-", 
           RowBox[{"2700", " ", "\[Xi]", " ", 
            SubscriptBox["\[Alpha]", "6"]}], "+", 
           RowBox[{"2640", " ", 
            SuperscriptBox["\[Xi]", "2"], " ", 
            SubscriptBox["\[Alpha]", "6"]}], "+", 
           RowBox[{"4080", " ", 
            SubscriptBox["\[Alpha]", "4"], " ", 
            SubscriptBox["\[Alpha]", "6"]}], "-", 
           RowBox[{"24960", " ", "\[Xi]", " ", 
            SubscriptBox["\[Alpha]", "4"], " ", 
            SubscriptBox["\[Alpha]", "6"]}], "+", 
           RowBox[{"43200", " ", 
            SuperscriptBox["\[Xi]", "2"], " ", 
            SubscriptBox["\[Alpha]", "4"], " ", 
            SubscriptBox["\[Alpha]", "6"]}], "+", 
           RowBox[{"480", " ", 
            SubscriptBox["\[Alpha]", "5"], " ", 
            SubscriptBox["\[Alpha]", "6"]}], "-", 
           RowBox[{"3000", " ", "\[Xi]", " ", 
            SubscriptBox["\[Alpha]", "5"], " ", 
            SubscriptBox["\[Alpha]", "6"]}], "+", 
           RowBox[{"6180", " ", 
            SuperscriptBox["\[Xi]", "2"], " ", 
            SubscriptBox["\[Alpha]", "5"], " ", 
            SubscriptBox["\[Alpha]", "6"]}], "+", 
           RowBox[{"2160", " ", 
            SubsuperscriptBox["\[Alpha]", "6", "2"]}], "-", 
           RowBox[{"14400", " ", "\[Xi]", " ", 
            SubsuperscriptBox["\[Alpha]", "6", "2"]}], "+", 
           RowBox[{"24480", " ", 
            SuperscriptBox["\[Xi]", "2"], " ", 
            SubsuperscriptBox["\[Alpha]", "6", "2"]}], "+", 
           RowBox[{"360", " ", 
            SubscriptBox["\[Alpha]", "3"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "6"}], "+", 
              RowBox[{"36", " ", "\[Xi]"}], "-", 
              RowBox[{"45", " ", 
               SuperscriptBox["\[Xi]", "2"]}], "+", 
              RowBox[{"24", " ", 
               SubscriptBox["\[Alpha]", "4"]}], "+", 
              RowBox[{"8", " ", 
               SubscriptBox["\[Alpha]", "5"]}], "+", 
              RowBox[{"6", " ", 
               SubscriptBox["\[Alpha]", "6"]}]}], ")"}]}], "+", 
           RowBox[{"10", " ", 
            SubscriptBox["\[Alpha]", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "60"}], "+", 
              RowBox[{"430", " ", "\[Xi]"}], "-", 
              RowBox[{"630", " ", 
               SuperscriptBox["\[Xi]", "2"]}], "+", 
              RowBox[{"1080", " ", 
               SubscriptBox["\[Alpha]", "3"]}], "+", 
              RowBox[{"8", " ", 
               RowBox[{"(", 
                RowBox[{"56", "-", 
                 RowBox[{"165", " ", "\[Xi]"}], "+", 
                 RowBox[{"270", " ", 
                  SuperscriptBox["\[Xi]", "2"]}]}], ")"}], " ", 
               SubscriptBox["\[Alpha]", "4"]}], "+", 
              RowBox[{"89", " ", 
               SubscriptBox["\[Alpha]", "5"]}], "-", 
              RowBox[{"100", " ", "\[Xi]", " ", 
               SubscriptBox["\[Alpha]", "5"]}], "+", 
              RowBox[{"225", " ", 
               SuperscriptBox["\[Xi]", "2"], " ", 
               SubscriptBox["\[Alpha]", "5"]}], "+", 
              RowBox[{"144", " ", 
               SubscriptBox["\[Alpha]", "6"]}], "-", 
              RowBox[{"600", " ", "\[Xi]", " ", 
               SubscriptBox["\[Alpha]", "6"]}], "+", 
              RowBox[{"1080", " ", 
               SuperscriptBox["\[Xi]", "2"], " ", 
               SubscriptBox["\[Alpha]", "6"]}]}], ")"}]}]}], ")"}]}]}], 
       ")"}]}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.6802673003238645`*^9, 3.680267322319903*^9}, {
  3.680267385156813*^9, 3.6802674908157988`*^9}, {3.6802677212022047`*^9, 
  3.6802677214674053`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"aC", "=", 
   FractionBox[
    RowBox[{
     RowBox[{
      RowBox[{"-", "9"}], " ", 
      SuperscriptBox["eta", "2"]}], "+", 
     RowBox[{"6", " ", "eta", " ", "gam"}], "+", 
     RowBox[{
      SuperscriptBox["gam", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "6"}], "+", 
        RowBox[{"30", " ", "xi"}], "-", 
        RowBox[{"45", " ", 
         SuperscriptBox["xi", "2"]}]}], ")"}]}], "+", 
     RowBox[{"6", " ", 
      RowBox[{"(", 
       RowBox[{"2", "-", 
        RowBox[{"11", " ", "xi"}], "+", 
        RowBox[{"15", " ", 
         SuperscriptBox["xi", "2"]}]}], ")"}], " ", "zeta"}]}], 
    RowBox[{"4", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"3", " ", "xi"}]}], ")"}], "2"]}]]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"azeta", "=", 
   RowBox[{
    FractionBox["1", 
     RowBox[{"4", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"3", " ", "xi"}]}], ")"}], "2"]}]], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", " ", "eta", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "12"}], "+", 
         RowBox[{"9", " ", "alfa1"}], "+", 
         RowBox[{"30", " ", "alfa2"}], "+", 
         RowBox[{"108", " ", "alfa3"}], "+", 
         RowBox[{"24", " ", "alfa4"}], "+", 
         RowBox[{"8", " ", "alfa5"}], "+", 
         RowBox[{"6", " ", "alfa6"}], "+", 
         RowBox[{"69", " ", "xi"}], "-", 
         RowBox[{"90", " ", 
          SuperscriptBox["xi", "2"]}]}], ")"}]}], "+", 
      RowBox[{"gam", " ", 
       RowBox[{"(", 
        RowBox[{"8", "-", 
         RowBox[{"72", " ", "alfa3"}], "+", 
         RowBox[{"64", " ", "alfa4"}], "+", 
         RowBox[{"3", " ", "alfa5"}], "+", 
         RowBox[{"36", " ", "alfa6"}], "-", 
         RowBox[{"46", " ", "xi"}], "-", 
         RowBox[{"120", " ", "alfa2", " ", "xi"}], "-", 
         RowBox[{"480", " ", "alfa4", " ", "xi"}], "-", 
         RowBox[{"50", " ", "alfa5", " ", "xi"}], "-", 
         RowBox[{"240", " ", "alfa6", " ", "xi"}], "+", 
         RowBox[{"60", " ", 
          SuperscriptBox["xi", "2"]}], "+", 
         RowBox[{"180", " ", "alfa2", " ", 
          SuperscriptBox["xi", "2"]}], "+", 
         RowBox[{"720", " ", "alfa4", " ", 
          SuperscriptBox["xi", "2"]}], "+", 
         RowBox[{"75", " ", "alfa5", " ", 
          SuperscriptBox["xi", "2"]}], "+", 
         RowBox[{"360", " ", "alfa6", " ", 
          SuperscriptBox["xi", "2"]}], "+", 
         RowBox[{"9", " ", "alfa1", " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"10", " ", "xi"}], "+", 
            RowBox[{"15", " ", 
             SuperscriptBox["xi", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], 
  ";", 
  RowBox[{"agamma", "=", 
   RowBox[{
    FractionBox["1", 
     RowBox[{"240", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"3", " ", "xi"}]}], ")"}], "2"]}]], 
    RowBox[{"(", 
     RowBox[{"756", "+", 
      RowBox[{"960", " ", "alfa4"}], "-", 
      RowBox[{"5440", " ", 
       SuperscriptBox["alfa4", "2"]}], "+", 
      RowBox[{"1940", " ", "alfa5"}], "-", 
      RowBox[{"3040", " ", "alfa4", " ", "alfa5"}], "-", 
      RowBox[{"225", " ", 
       SuperscriptBox["alfa5", "2"]}], "+", 
      RowBox[{"9840", " ", "alfa6"}], "-", 
      RowBox[{"11520", " ", "alfa4", " ", "alfa6"}], "-", 
      RowBox[{"1320", " ", "alfa5", " ", "alfa6"}], "+", 
      RowBox[{"7920", " ", 
       SuperscriptBox["alfa6", "2"]}], "-", 
      RowBox[{"2296", " ", "xi"}], "+", 
      RowBox[{"13120", " ", "alfa4", " ", "xi"}], "+", 
      RowBox[{"18240", " ", 
       SuperscriptBox["alfa4", "2"], " ", "xi"}], "-", 
      RowBox[{"9300", " ", "alfa5", " ", "xi"}], "+", 
      RowBox[{"9440", " ", "alfa4", " ", "alfa5", " ", "xi"}], "-", 
      RowBox[{"350", " ", 
       SuperscriptBox["alfa5", "2"], " ", "xi"}], "-", 
      RowBox[{"47280", " ", "alfa6", " ", "xi"}], "+", 
      RowBox[{"36480", " ", "alfa4", " ", "alfa6", " ", "xi"}], "-", 
      RowBox[{"1200", " ", "alfa5", " ", "alfa6", " ", "xi"}], "-", 
      RowBox[{"64800", " ", 
       SuperscriptBox["alfa6", "2"], " ", "xi"}], "+", 
      RowBox[{"1084", " ", 
       SuperscriptBox["xi", "2"]}], "-", 
      RowBox[{"43200", " ", "alfa4", " ", 
       SuperscriptBox["xi", "2"]}], "+", 
      RowBox[{"10840", " ", "alfa5", " ", 
       SuperscriptBox["xi", "2"]}], "+", 
      RowBox[{"3115", " ", 
       SuperscriptBox["alfa5", "2"], " ", 
       SuperscriptBox["xi", "2"]}], "+", 
      RowBox[{"55680", " ", "alfa6", " ", 
       SuperscriptBox["xi", "2"]}], "+", 
      RowBox[{"15960", " ", "alfa5", " ", "alfa6", " ", 
       SuperscriptBox["xi", "2"]}], "+", 
      RowBox[{"124560", " ", 
       SuperscriptBox["alfa6", "2"], " ", 
       SuperscriptBox["xi", "2"]}], "+", 
      RowBox[{"160", " ", 
       SuperscriptBox["alfa2", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "4"}], "+", 
         RowBox[{"15", " ", "xi"}]}], ")"}]}], "+", 
      RowBox[{"360", " ", 
       SuperscriptBox["alfa1", "2"], " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"5", " ", "xi"}], "+", 
         RowBox[{"10", " ", 
          SuperscriptBox["xi", "2"]}]}], ")"}]}], "+", 
      RowBox[{"60", " ", "alfa1", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "18"}], "-", 
         RowBox[{"16", " ", "alfa4"}], "-", 
         RowBox[{"18", " ", "alfa5"}], "+", 
         RowBox[{"12", " ", "alfa6"}], "+", 
         RowBox[{"189", " ", "xi"}], "+", 
         RowBox[{"80", " ", "alfa4", " ", "xi"}], "+", 
         RowBox[{"80", " ", "alfa5", " ", "xi"}], "-", 
         RowBox[{"120", " ", "alfa6", " ", "xi"}], "-", 
         RowBox[{"365", " ", 
          SuperscriptBox["xi", "2"]}], "-", 
         RowBox[{"70", " ", "alfa5", " ", 
          SuperscriptBox["xi", "2"]}], "+", 
         RowBox[{"300", " ", "alfa6", " ", 
          SuperscriptBox["xi", "2"]}], "+", 
         RowBox[{"8", " ", "alfa2", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            RowBox[{"5", " ", "xi"}]}], ")"}]}]}], ")"}]}], "+", 
      RowBox[{"80", " ", "alfa2", " ", 
       RowBox[{"(", 
        RowBox[{"6", "-", 
         RowBox[{"16", " ", "alfa5"}], "-", 
         RowBox[{"36", " ", "alfa6"}], "+", 
         RowBox[{"37", " ", "xi"}], "+", 
         RowBox[{"50", " ", "alfa5", " ", "xi"}], "+", 
         RowBox[{"120", " ", "alfa6", " ", "xi"}], "-", 
         RowBox[{"135", " ", 
          SuperscriptBox["xi", "2"]}], "+", 
         RowBox[{"8", " ", "alfa4", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "4"}], "+", 
            RowBox[{"15", " ", "xi"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ";", 
  RowBox[{"aeta", "=", 
   RowBox[{
    FractionBox["1", 
     RowBox[{"240", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"3", " ", "xi"}]}], ")"}], "2"]}]], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"45", " ", 
       SuperscriptBox["alfa1", "2"], " ", 
       RowBox[{"(", 
        RowBox[{"31", "-", 
         RowBox[{"110", " ", "xi"}], "+", 
         RowBox[{"175", " ", 
          SuperscriptBox["xi", "2"]}]}], ")"}]}], "+", 
      RowBox[{"30", " ", "alfa1", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "48"}], "+", 
         RowBox[{"432", " ", "alfa3"}], "+", 
         RowBox[{"320", " ", "alfa4"}], "+", 
         RowBox[{"39", " ", "alfa5"}], "+", 
         RowBox[{"156", " ", "alfa6"}], "+", 
         RowBox[{"366", " ", "xi"}], "-", 
         RowBox[{"1360", " ", "alfa4", " ", "xi"}], "-", 
         RowBox[{"70", " ", "alfa5", " ", "xi"}], "-", 
         RowBox[{"840", " ", "alfa6", " ", "xi"}], "-", 
         RowBox[{"590", " ", 
          SuperscriptBox["xi", "2"]}], "+", 
         RowBox[{"2160", " ", "alfa4", " ", 
          SuperscriptBox["xi", "2"]}], "+", 
         RowBox[{"155", " ", "alfa5", " ", 
          SuperscriptBox["xi", "2"]}], "+", 
         RowBox[{"1380", " ", "alfa6", " ", 
          SuperscriptBox["xi", "2"]}], "+", 
         RowBox[{"4", " ", "alfa2", " ", 
          RowBox[{"(", 
           RowBox[{"43", "-", 
            RowBox[{"80", " ", "xi"}], "+", 
            RowBox[{"135", " ", 
             SuperscriptBox["xi", "2"]}]}], ")"}]}]}], ")"}]}], "+", 
      RowBox[{"4", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "127"}], "+", 
         RowBox[{"19440", " ", 
          SuperscriptBox["alfa3", "2"]}], "-", 
         RowBox[{"480", " ", "alfa4"}], "+", 
         RowBox[{"5200", " ", 
          SuperscriptBox["alfa4", "2"]}], "+", 
         RowBox[{"45", " ", "alfa5"}], "+", 
         RowBox[{"1280", " ", "alfa4", " ", "alfa5"}], "+", 
         RowBox[{"130", " ", 
          SuperscriptBox["alfa5", "2"]}], "+", 
         RowBox[{"660", " ", "alfa6"}], "+", 
         RowBox[{"4080", " ", "alfa4", " ", "alfa6"}], "+", 
         RowBox[{"480", " ", "alfa5", " ", "alfa6"}], "+", 
         RowBox[{"2160", " ", 
          SuperscriptBox["alfa6", "2"]}], "+", 
         RowBox[{"1022", " ", "xi"}], "+", 
         RowBox[{"4880", " ", "alfa4", " ", "xi"}], "-", 
         RowBox[{"26880", " ", 
          SuperscriptBox["alfa4", "2"], " ", "xi"}], "+", 
         RowBox[{"5", " ", "alfa5", " ", "xi"}], "-", 
         RowBox[{"4880", " ", "alfa4", " ", "alfa5", " ", "xi"}], "-", 
         RowBox[{"350", " ", 
          SuperscriptBox["alfa5", "2"], " ", "xi"}], "-", 
         RowBox[{"2700", " ", "alfa6", " ", "xi"}], "-", 
         RowBox[{"24960", " ", "alfa4", " ", "alfa6", " ", "xi"}], "-", 
         RowBox[{"3000", " ", "alfa5", " ", "alfa6", " ", "xi"}], "-", 
         RowBox[{"14400", " ", 
          SuperscriptBox["alfa6", "2"], " ", "xi"}], "-", 
         RowBox[{"1783", " ", 
          SuperscriptBox["xi", "2"]}], "-", 
         RowBox[{"9000", " ", "alfa4", " ", 
          SuperscriptBox["xi", "2"]}], "+", 
         RowBox[{"43200", " ", 
          SuperscriptBox["alfa4", "2"], " ", 
          SuperscriptBox["xi", "2"]}], "-", 
         RowBox[{"130", " ", "alfa5", " ", 
          SuperscriptBox["xi", "2"]}], "+", 
         RowBox[{"9000", " ", "alfa4", " ", "alfa5", " ", 
          SuperscriptBox["xi", "2"]}], "+", 
         RowBox[{"845", " ", 
          SuperscriptBox["alfa5", "2"], " ", 
          SuperscriptBox["xi", "2"]}], "+", 
         RowBox[{"2640", " ", "alfa6", " ", 
          SuperscriptBox["xi", "2"]}], "+", 
         RowBox[{"43200", " ", "alfa4", " ", "alfa6", " ", 
          SuperscriptBox["xi", "2"]}], "+", 
         RowBox[{"6180", " ", "alfa5", " ", "alfa6", " ", 
          SuperscriptBox["xi", "2"]}], "+", 
         RowBox[{"24480", " ", 
          SuperscriptBox["alfa6", "2"], " ", 
          SuperscriptBox["xi", "2"]}], "+", 
         RowBox[{"360", " ", "alfa3", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "6"}], "+", 
            RowBox[{"24", " ", "alfa4"}], "+", 
            RowBox[{"8", " ", "alfa5"}], "+", 
            RowBox[{"6", " ", "alfa6"}], "+", 
            RowBox[{"36", " ", "xi"}], "-", 
            RowBox[{"45", " ", 
             SuperscriptBox["xi", "2"]}]}], ")"}]}], "+", 
         RowBox[{"20", " ", 
          SuperscriptBox["alfa2", "2"], " ", 
          RowBox[{"(", 
           RowBox[{"86", "-", 
            RowBox[{"75", " ", "xi"}], "+", 
            RowBox[{"135", " ", 
             SuperscriptBox["xi", "2"]}]}], ")"}]}], "+", 
         RowBox[{"10", " ", "alfa2", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "60"}], "+", 
            RowBox[{"1080", " ", "alfa3"}], "+", 
            RowBox[{"89", " ", "alfa5"}], "+", 
            RowBox[{"144", " ", "alfa6"}], "+", 
            RowBox[{"430", " ", "xi"}], "-", 
            RowBox[{"100", " ", "alfa5", " ", "xi"}], "-", 
            RowBox[{"600", " ", "alfa6", " ", "xi"}], "-", 
            RowBox[{"630", " ", 
             SuperscriptBox["xi", "2"]}], "+", 
            RowBox[{"225", " ", "alfa5", " ", 
             SuperscriptBox["xi", "2"]}], "+", 
            RowBox[{"1080", " ", "alfa6", " ", 
             SuperscriptBox["xi", "2"]}], "+", 
            RowBox[{"8", " ", "alfa4", " ", 
             RowBox[{"(", 
              RowBox[{"56", "-", 
               RowBox[{"165", " ", "xi"}], "+", 
               RowBox[{"270", " ", 
                SuperscriptBox["xi", "2"]}]}], ")"}]}]}], ")"}]}]}], 
        ")"}]}]}], ")"}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.6802343248837337`*^9, 3.680234359671795*^9}, {
  3.6802343923850527`*^9, 3.6802344180470977`*^9}, {3.6802580622038774`*^9, 
  3.680258071298693*^9}, {3.6802590160987525`*^9, 3.680259016317153*^9}, {
  3.6802593389881196`*^9, 3.680259347240534*^9}, {3.680259759455658*^9, 
  3.6802597597052584`*^9}, {3.680259830981784*^9, 3.680259831496585*^9}, {
  3.6802605100197763`*^9, 3.680260513280182*^9}, {3.6802605561490574`*^9, 
  3.680260556414258*^9}, {3.680260597847931*^9, 3.680260598549932*^9}, {
  3.68026825937195*^9, 3.6802682660643616`*^9}}]
},
WindowSize->{1902, 910},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 18204, 446, 1330, "Input"],
Cell[18764, 468, 13170, 327, 1551, "Input"]
}
]
*)

(* End of internal cache information *)