(*********************************************************************** Mathematica-Compatible Notebook This notebook can be used on any computer system with Mathematica 4.0, MathReader 4.0, or any compatible application. The data for the notebook starts with the line containing stars above. To get the notebook into a Mathematica-compatible application, do one of the following: * Save the data starting with the line of stars above into a file with a name ending in .nb, then open the file inside the application; * Copy the data starting with the line of stars above to the clipboard, then use the Paste menu command inside the application. Data for notebooks contains only printable 7-bit ASCII and can be sent directly in email or through ftp in text mode. Newlines can be CR, LF or CRLF (Unix, Macintosh or MS-DOS style). NOTE: If you modify the data for this notebook not in a Mathematica- compatible application, you must delete the line below containing the word CacheID, otherwise Mathematica-compatible applications may try to use invalid cache data. For more information on notebooks and Mathematica-compatible applications, contact Wolfram Research: web: http://www.wolfram.com email: info@wolfram.com phone: +1-217-398-0700 (U.S.) Notebook reader applications are available free of charge from Wolfram Research. ***********************************************************************) (*CacheID: 232*) (*NotebookFileLineBreakTest NotebookFileLineBreakTest*) (*NotebookOptionsPosition[ 25468, 725]*) (*NotebookOutlinePosition[ 26292, 755]*) (* CellTagsIndexPosition[ 26208, 749]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell["AnomalousDimension", "Subsection", CellTags->"AnomalousDimension"], Cell[CellGroupData[{ Cell["Description", "Subsubsection"], Cell["\<\ AnomalousDimension[name] is a incomplete database of anomalous \ dimensions of twist 2 operators.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(Options[AnomalousDimension]\)], "Input"], Cell[BoxData[ \(TraditionalForm\`{Polarization \[Rule] 1, Simplify \[Rule] FullSimplify}\)], "Output"] }, Open ]], Cell[TextData[{ "See also: ", ButtonBox["SplittingFunction", ButtonData:>"SplittingFunction", ButtonStyle->"Hyperlink", ButtonNote->"SplittingFunction"], ", ", ButtonBox["SumS", ButtonData:>"SumS", ButtonStyle->"Hyperlink", ButtonNote->"SumS"], ", ", ButtonBox["SumT", ButtonData:>"SumT", ButtonStyle->"Hyperlink", ButtonNote->"SumT"], "." }], "Text"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsubsection"], Cell["Polarized case", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(SetOptions[\ AnomalousDimension, Polarization \[Rule] 1]\)], "Input"], Cell[BoxData[ \(TraditionalForm\`{Polarization \[Rule] 1, Simplify \[Rule] FullSimplify}\)], "Output"] }, Open ]], Cell[TextData[{ Cell[BoxData[ \(TraditionalForm\`\[Gamma]\_\(\(NS\)\(,\)\(qq\)\(\ \ \)\)\%\(\((\)\(0\)\()\)\(\ \)\)\)]], "polarized" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(AnomalousDimension[gnsqq0]\)], "Input"], Cell[BoxData[ FormBox[ RowBox[{\(C\_F\), " ", RowBox[{"(", RowBox[{ RowBox[{"8", " ", RowBox[{\(S\_1\), "(", FormBox[\(m - 1\), "TraditionalForm"], ")"}]}], "+", \(4\/m\), "+", \(4\/\(m + 1\)\), "-", "6"}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ Cell[BoxData[ \(TraditionalForm\`\[Gamma]\_\(\(S\)\(,\)\(qg\)\(\ \ \)\)\%\(\((\)\(0\)\()\)\(\ \)\)\)]], "polarized" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(AnomalousDimension[gsqg0]\)], "Input"], Cell[BoxData[ \(TraditionalForm\`\((8\/m - 16\/\(m + 1\))\)\ T\_f\)], "Output"] }, Open ]], Cell[TextData[{ Cell[BoxData[ \(TraditionalForm\`\[Gamma]\_\(\(S\)\(,\)\(gq\)\(\ \ \)\)\%\(\((\)\(0\)\()\)\(\ \)\)\)]], "polarized" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(AnomalousDimension[gsgq0]\)], "Input"], Cell[BoxData[ \(TraditionalForm\`C\_F\ \((4\/\(m + 1\) - 8\/m)\)\)], "Output"] }, Open ]], Cell[TextData[{ Cell[BoxData[ \(TraditionalForm\`\[Gamma]\_\(\(S\)\(,\)\(gg\)\(\ \ \)\)\%\(\((\)\(0\)\()\)\(\ \)\)\)]], "polarized" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(AnomalousDimension[gsgg0]\)], "Input"], Cell[BoxData[ FormBox[ RowBox[{\(\(8\ T\_f\)\/3\), "+", RowBox[{\(C\_A\), " ", RowBox[{"(", RowBox[{ RowBox[{"8", " ", RowBox[{\(S\_1\), "(", FormBox[\(m - 1\), "TraditionalForm"], ")"}]}], "-", \(8\/m\), "+", \(16\/\(m + 1\)\), "-", \(22\/3\)}], ")"}]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ Cell[BoxData[ \(TraditionalForm\`\[Gamma]\_\(\(PS\)\(,\)\(qq\)\(\ \ \)\)\%\(\((\)\(0\)\()\)\(\ \)\)\)]], "polarized" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(AnomalousDimension[gpsqq1]\)], "Input"], Cell[BoxData[ \(TraditionalForm\`16\ C\_F\ \((1\/\(m + 1\) + 3\/\((m + 1)\)\^2 + 2\/\((m + 1)\)\^3 - 1\/m - 1\/m\^2 + 2\/m\^3)\)\ T\_f\)], "Output"] }, Open ]], Cell[TextData[{ Cell[BoxData[ \(TraditionalForm\`\[Gamma]\_\(\(NS\)\(,\)\(qq\)\(\ \ \)\)\%\(\((\)\(1\)\()\)\(\ \)\)\)]], "polarized" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(AnomalousDimension[gnsqq1]\)], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"16", " ", RowBox[{\(S\_1\), "(", FormBox[\(m - 1\), "TraditionalForm"], ")"}]}], \(m\^2\)], "+", FractionBox[ RowBox[{"16", " ", RowBox[{\(S\_1\), "(", FormBox[\(m - 1\), "TraditionalForm"], ")"}]}], \(\((m + 1)\)\^2\)], "+", FractionBox[ RowBox[{"16", " ", RowBox[{\(S\_2\), "(", FormBox[\(m - 1\), "TraditionalForm"], ")"}]}], "m"], "+", FractionBox[ RowBox[{"16", " ", RowBox[{\(S\_2\), "(", FormBox[\(m - 1\), "TraditionalForm"], ")"}]}], \(m + 1\)], "-", RowBox[{"24", " ", RowBox[{\(S\_2\), "(", FormBox[\(m - 1\), "TraditionalForm"], ")"}]}], "+", RowBox[{"32", " ", RowBox[{\(S\_12\), "(", FormBox[\(m - 1\), "TraditionalForm"], ")"}]}], "+", RowBox[{"32", " ", RowBox[{\(S\_21\), "(", FormBox[\(m - 1\), "TraditionalForm"], ")"}]}], "+", FractionBox[ RowBox[{"32", " ", RowBox[{\(\(S\&~\)\_2\), "(", FormBox[\(m - 1\), "TraditionalForm"], ")"}]}], "m"], "+", FractionBox[ RowBox[{"32", " ", RowBox[{\(\(S\&~\)\_2\), "(", FormBox[\(m - 1\), "TraditionalForm"], ")"}]}], \(m + 1\)], "-", RowBox[{"32", " ", RowBox[{\(\(S\&~\)\_3\), "(", FormBox[\(m - 1\), "TraditionalForm"], ")"}]}], "+", RowBox[{"64", " ", RowBox[{\(\(S\&~\)\_12\), "(", FormBox[\(m - 1\), "TraditionalForm"], ")"}]}], "-", \(40\/m\), "+", \(40\/\(m + 1\)\), "+", \(16\/\((m + 1)\)\^2\), "+", \(8\/m\^3\), "+", \(40\/\((m + 1)\)\^3\), "+", "3"}], ")"}]}], " ", \(C\_F\%2\)}], "-", RowBox[{\(N\_f\), " ", RowBox[{"(", RowBox[{ RowBox[{\(80\/9\), " ", RowBox[{\(S\_1\), "(", FormBox[\(m - 1\), "TraditionalForm"], ")"}]}], "-", RowBox[{\(16\/3\), " ", RowBox[{\(S\_2\), "(", FormBox[\(m - 1\), "TraditionalForm"], ")"}]}], "-", \(8\/\(9\ m\)\), "+", \(88\/\(9\ \((m + 1)\)\)\), "-", \(8\/\(3\ m\^2\)\), "-", \(8\/\(3\ \((m + 1)\)\^2\)\), "-", \(2\/3\)}], ")"}], " ", \(C\_F\)}], "-", RowBox[{\(C\_A\), " ", RowBox[{"(", RowBox[{ RowBox[{\(-\(536\/9\)\), " ", RowBox[{\(S\_1\), "(", FormBox[\(m - 1\), "TraditionalForm"], ")"}]}], "+", RowBox[{\(88\/3\), " ", RowBox[{\(S\_2\), "(", FormBox[\(m - 1\), "TraditionalForm"], ")"}]}], "-", RowBox[{"16", " ", RowBox[{\(S\_3\), "(", FormBox[\(m - 1\), "TraditionalForm"], ")"}]}], "-", FractionBox[ RowBox[{"16", " ", RowBox[{\(\(S\&~\)\_2\), "(", FormBox[\(m - 1\), "TraditionalForm"], ")"}]}], "m"], "-", FractionBox[ RowBox[{"16", " ", RowBox[{\(\(S\&~\)\_2\), "(", FormBox[\(m - 1\), "TraditionalForm"], ")"}]}], \(m + 1\)], "+", RowBox[{"16", " ", RowBox[{\(\(S\&~\)\_3\), "(", FormBox[\(m - 1\), "TraditionalForm"], ")"}]}], "-", RowBox[{"32", " ", RowBox[{\(\(S\&~\)\_12\), "(", FormBox[\(m - 1\), "TraditionalForm"], ")"}]}], "+", \(212\/\(9\ m\)\), "-", \(748\/\(9\ \((m + 1)\)\)\), "+", \(44\/\(3\ m\^2\)\), "-", \(4\/\(3\ \((m + 1)\)\^2\)\), "-", \(16\/\((m + 1)\)\^3\), "+", \(17\/3\)}], ")"}], " ", \(C\_F\)}]}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ Cell[BoxData[ \(TraditionalForm\`\[Gamma]\_\(\(S\)\(,\)\(qg\)\(\ \ \)\)\%\(\((\)\(1\)\()\)\(\ \)\)\)]], "polarized" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(AnomalousDimension[gsqg1]\)], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"8", " ", \(C\_F\), " ", \(T\_f\), " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"2", " ", RowBox[{\(S\_1\%2\), "(", FormBox[\(m - 1\), "TraditionalForm"], ")"}]}], "m"], "-", FractionBox[ RowBox[{"4", " ", RowBox[{\(S\_1\%2\), "(", FormBox[\(m - 1\), "TraditionalForm"], ")"}]}], \(m + 1\)], "-", FractionBox[ RowBox[{"2", " ", RowBox[{\(S\_2\), "(", FormBox[\(m - 1\), "TraditionalForm"], ")"}]}], "m"], "+", FractionBox[ RowBox[{"4", " ", RowBox[{\(S\_2\), "(", FormBox[\(m - 1\), "TraditionalForm"], ")"}]}], \(m + 1\)], "+", \(14\/m\), "-", \(19\/\(m + 1\)\), "-", \(1\/m\^2\), "-", \(8\/\((m + 1)\)\^2\), "-", \(2\/m\^3\), "+", \(4\/\((m + 1)\)\^3\)}], ")"}]}], "+", RowBox[{"16", " ", \(C\_A\), " ", \(T\_f\), " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{\(S\_1\%2\), "(", FormBox[\(m - 1\), "TraditionalForm"], ")"}], "m"]}], "+", FractionBox[ RowBox[{"2", " ", RowBox[{\(S\_1\%2\), "(", FormBox[\(m - 1\), "TraditionalForm"], ")"}]}], \(m + 1\)], "-", FractionBox[ RowBox[{"2", " ", RowBox[{\(S\_1\), "(", FormBox[\(m - 1\), "TraditionalForm"], ")"}]}], \(m\^2\)], "+", FractionBox[ RowBox[{"4", " ", RowBox[{\(S\_1\), "(", FormBox[\(m - 1\), "TraditionalForm"], ")"}]}], \(\((m + 1)\)\^2\)], "-", FractionBox[ RowBox[{\(S\_2\), "(", FormBox[\(m - 1\), "TraditionalForm"], ")"}], "m"], "+", FractionBox[ RowBox[{"2", " ", RowBox[{\(S\_2\), "(", FormBox[\(m - 1\), "TraditionalForm"], ")"}]}], \(m + 1\)], "-", FractionBox[ RowBox[{"2", " ", RowBox[{\(\(S\&~\)\_2\), "(", FormBox[\(m - 1\), "TraditionalForm"], ")"}]}], "m"], "+", FractionBox[ RowBox[{"4", " ", RowBox[{\(\(S\&~\)\_2\), "(", FormBox[\(m - 1\), "TraditionalForm"], ")"}]}], \(m + 1\)], "-", \(4\/m\), "+", \(3\/\(m + 1\)\), "-", \(3\/m\^2\), "+", \(8\/\((m + 1)\)\^2\), "+", \(2\/m\^3\), "+", \(12\/\((m + 1)\)\^3\)}], ")"}]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ Cell[BoxData[ \(TraditionalForm\`\[Gamma]\_\(\(S\)\(,\)\(gq\)\(\ \ \)\)\%\(\((\)\(1\)\()\)\(\ \)\)\)]], "polarized" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(AnomalousDimension[gsgq1]\)], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"4", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"4", " ", RowBox[{\(S\_1\%2\), "(", FormBox[\(m - 1\), "TraditionalForm"], ")"}]}], "m"], "-", FractionBox[ RowBox[{"2", " ", RowBox[{\(S\_1\%2\), "(", FormBox[\(m - 1\), "TraditionalForm"], ")"}]}], \(m + 1\)], "-", FractionBox[ RowBox[{"8", " ", RowBox[{\(S\_1\), "(", FormBox[\(m - 1\), "TraditionalForm"], ")"}]}], "m"], "+", FractionBox[ RowBox[{"2", " ", RowBox[{\(S\_1\), "(", FormBox[\(m - 1\), "TraditionalForm"], ")"}]}], \(m + 1\)], "+", FractionBox[ RowBox[{"8", " ", RowBox[{\(S\_1\), "(", FormBox[\(m - 1\), "TraditionalForm"], ")"}]}], \(m\^2\)], "-", FractionBox[ RowBox[{"4", " ", RowBox[{\(S\_1\), "(", FormBox[\(m - 1\), "TraditionalForm"], ")"}]}], \(\((m + 1)\)\^2\)], "+", FractionBox[ RowBox[{"4", " ", RowBox[{\(S\_2\), "(", FormBox[\(m - 1\), "TraditionalForm"], ")"}]}], "m"], "-", FractionBox[ RowBox[{"2", " ", RowBox[{\(S\_2\), "(", FormBox[\(m - 1\), "TraditionalForm"], ")"}]}], \(m + 1\)], "+", \(15\/m\), "-", \(6\/\(m + 1\)\), "-", \(12\/m\^2\), "+", \(3\/\((m + 1)\)\^2\), "+", \(4\/m\^3\), "-", \(2\/\((m + 1)\)\^3\)}], ")"}], " ", \(C\_F\%2\)}], "+", RowBox[{"32", " ", \(T\_f\), " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", " ", RowBox[{\(S\_1\), "(", FormBox[\(m - 1\), "TraditionalForm"], ")"}]}], \(3\ m\)]}], "+", FractionBox[ RowBox[{\(S\_1\), "(", FormBox[\(m - 1\), "TraditionalForm"], ")"}], \(3\ \((m + 1)\)\)], "+", \(7\/\(9\ m\)\), "-", \(2\/\(9\ \((m + 1)\)\)\), "-", \(2\/\(3\ m\^2\)\), "+", \(1\/\(3\ \((m + 1)\)\^2\)\)}], ")"}], " ", \(C\_F\)}], "+", RowBox[{"8", " ", \(C\_A\), " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", " ", RowBox[{\(S\_1\%2\), "(", FormBox[\(m - 1\), "TraditionalForm"], ")"}]}], "m"]}], "+", FractionBox[ RowBox[{\(S\_1\%2\), "(", FormBox[\(m - 1\), "TraditionalForm"], ")"}], \(m + 1\)], "+", FractionBox[ RowBox[{"16", " ", RowBox[{\(S\_1\), "(", FormBox[\(m - 1\), "TraditionalForm"], ")"}]}], \(3\ m\)], "-", FractionBox[ RowBox[{"5", " ", RowBox[{\(S\_1\), "(", FormBox[\(m - 1\), "TraditionalForm"], ")"}]}], \(3\ \((m + 1)\)\)], "+", FractionBox[ RowBox[{"2", " ", RowBox[{\(S\_2\), "(", FormBox[\(m - 1\), "TraditionalForm"], ")"}]}], "m"], "-", FractionBox[ RowBox[{\(S\_2\), "(", FormBox[\(m - 1\), "TraditionalForm"], ")"}], \(m + 1\)], "+", FractionBox[ RowBox[{"4", " ", RowBox[{\(\(S\&~\)\_2\), "(", FormBox[\(m - 1\), "TraditionalForm"], ")"}]}], "m"], "-", FractionBox[ RowBox[{"2", " ", RowBox[{\(\(S\&~\)\_2\), "(", FormBox[\(m - 1\), "TraditionalForm"], ")"}]}], \(m + 1\)], "-", \(56\/\(9\ m\)\), "-", \(20\/\(9\ \((m + 1)\)\)\), "+", \(28\/\(3\ m\^2\)\), "-", \(38\/\(3\ \((m + 1)\)\^2\)\), "-", \(4\/m\^3\), "-", \(6\/\((m + 1)\)\^3\)}], ")"}], " ", \(C\_F\)}]}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ Cell[BoxData[ \(TraditionalForm\`\[Gamma]\_\(\(S\)\(,\)\(gg\)\(\ \ \)\)\%\(\((\)\(1\)\()\)\(\ \)\)\)]], "polarized" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(AnomalousDimension[gsgg1]\)], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"4", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"8", " ", RowBox[{\(S\_1\), "(", FormBox[\(m - 1\), "TraditionalForm"], ")"}]}], \(m\^2\)], "-", FractionBox[ RowBox[{"16", " ", RowBox[{\(S\_1\), "(", FormBox[\(m - 1\), "TraditionalForm"], ")"}]}], \(\((m + 1)\)\^2\)], "+", RowBox[{\(134\/9\), " ", RowBox[{\(S\_1\), "(", FormBox[\(m - 1\), "TraditionalForm"], ")"}]}], "+", FractionBox[ RowBox[{"8", " ", RowBox[{\(S\_2\), "(", FormBox[\(m - 1\), "TraditionalForm"], ")"}]}], "m"], "-", FractionBox[ RowBox[{"16", " ", RowBox[{\(S\_2\), "(", FormBox[\(m - 1\), "TraditionalForm"], ")"}]}], \(m + 1\)], "+", RowBox[{"4", " ", RowBox[{\(S\_3\), "(", FormBox[\(m - 1\), "TraditionalForm"], ")"}]}], "-", RowBox[{"8", " ", RowBox[{\(S\_12\), "(", FormBox[\(m - 1\), "TraditionalForm"], ")"}]}], "-", RowBox[{"8", " ", RowBox[{\(S\_21\), "(", FormBox[\(m - 1\), "TraditionalForm"], ")"}]}], "+", FractionBox[ RowBox[{"8", " ", RowBox[{\(\(S\&~\)\_2\), "(", FormBox[\(m - 1\), "TraditionalForm"], ")"}]}], "m"], "-", FractionBox[ RowBox[{"16", " ", RowBox[{\(\(S\&~\)\_2\), "(", FormBox[\(m - 1\), "TraditionalForm"], ")"}]}], \(m + 1\)], "+", RowBox[{"4", " ", RowBox[{\(\(S\&~\)\_3\), "(", FormBox[\(m - 1\), "TraditionalForm"], ")"}]}], "-", RowBox[{"8", " ", RowBox[{\(\(S\&~\)\_12\), "(", FormBox[\(m - 1\), "TraditionalForm"], ")"}]}], "-", \(107\/\(9\ m\)\), "+", \(241\/\(9\ \((m + 1)\)\)\), "+", \(58\/\(3\ m\^2\)\), "-", \(86\/\(3\ \((m + 1)\)\^2\)\), "-", \(8\/m\^3\), "-", \(48\/\((m + 1)\)\^3\), "-", \(16\/3\)}], ")"}], " ", \(C\_A\%2\)}], "+", RowBox[{"32", " ", \(T\_f\), " ", RowBox[{"(", RowBox[{ RowBox[{\(-\(5\/9\)\), " ", RowBox[{\(S\_1\), "(", FormBox[\(m - 1\), "TraditionalForm"], ")"}]}], "+", \(14\/\(9\ m\)\), "-", \(19\/\(9\ \((m + 1)\)\)\), "-", \(1\/\(3\ m\^2\)\), "-", \(1\/\(3\ \((m + 1)\)\^2\)\), "+", \(1\/3\)}], ")"}], " ", \(C\_A\)}], "+", \(8\ C\_F\ \((\(-\(10\/\(m + 1\)\)\) + 2\/\((m + 1)\)\^2 + 4\/\((m + 1)\)\^3 + 1 + 10\/m - 10\/m\^2 + 4\/m\^3)\)\ T\_f\)}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ Cell[BoxData[ \(TraditionalForm\`\[Gamma]\_\(\(S\)\(,\)\(gg\)\(\ \ \)\)\%\(\((\)\(1\)\()\)\(\ \)\)\)]], "polarized (different representation)" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(AnomalousDimension[GSGG1]\)], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"4", " ", RowBox[{"(", RowBox[{\(-\(\(m\ \((m\ \((m\ \((m\ \((48\ m\ \((m + 3)\) + 469)\) + 698)\) + 7)\) + 258)\) + 144\)\/\(9\ m\^3\ \((m + 1)\)\^3\)\)\), "+", FractionBox[ RowBox[{"8", " ", RowBox[{\(S\_2\%'\), "\[NoBreak]", "(", "\[NoBreak]", FormBox[\(m\/2\), "TraditionalForm"], "\[NoBreak]", ")"}]}], \(m\ \((m + 1)\)\)], "-", RowBox[{\(S\_3\%'\), "\[NoBreak]", "(", "\[NoBreak]", FormBox[\(m\/2\), "TraditionalForm"], "\[NoBreak]", ")"}], "+", FractionBox[ RowBox[{ "2", " ", \((m\ \((67\ m\ \((m + 1)\)\^2 + 144)\) + 72)\), " ", RowBox[{\(S\_1\), "(", FormBox["m", "TraditionalForm"], ")"}]}], \(9\ m\^2\ \((m + 1)\)\^2\)], "-", RowBox[{"4", " ", RowBox[{\(S\_2\%'\), "\[NoBreak]", "(", "\[NoBreak]", FormBox[\(m\/2\), "TraditionalForm"], "\[NoBreak]", ")"}], " ", RowBox[{\(S\_1\), "(", FormBox["m", "TraditionalForm"], ")"}]}], "+", RowBox[{"8", " ", RowBox[{\(S\&~\), "(", FormBox["m", "TraditionalForm"], ")"}]}]}], ")"}], " ", \(C\_A\%2\)}], "+", RowBox[{"32", " ", \(T\_f\), " ", RowBox[{"(", RowBox[{\(\(m\ \((m + 1)\)\ \((3\ m\ \((m + 1)\) + 13)\) - 3\)\/\(9\ m\^2\ \((m + 1)\)\^2\)\), "-", FractionBox[ RowBox[{"5", " ", RowBox[{\(S\_1\), "(", FormBox["m", "TraditionalForm"], ")"}]}], "9"]}], ")"}], " ", \(C\_A\)}], "+", \(\(8\ C\_F\ \((m\ \((m\ \((m\ \((m\ \((m\ \((m + 3)\) + 5)\) + 1)\) - 8)\) + 2)\) + 4)\)\ T\_f\)\/\(m\^3\ \((m + 1)\)\^3\)\)}], TraditionalForm]], "Output"] }, Open ]], Cell[TextData[{ "Check that all odd moments give the same for the two representations of ", Cell[BoxData[ \(TraditionalForm\`\(\(\[Gamma]\_\(\(S\)\(,\)\(gg\)\(\ \)\)\%\(\((\)\(1\ \)\()\)\(\ \)\)\)\(.\)\)\)]] }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(Table[% - %% /. OPEm \[Rule] ij, {ij, 1, 17, 2}]\)], "Input"], Cell[BoxData[ \(TraditionalForm\`{0, 0, 0, 0, 0, 0, 0, 0, 0}\)], "Output"] }, Open ]] }, Open ]] }, Open ]] }, FrontEndVersion->"4.0 for X", ScreenRectangle->{{0, 1024}, {0, 768}}, WindowSize->{520, 485}, WindowMargins->{{Automatic, 244}, {114, Automatic}}, StyleDefinitions -> "Demo.nb" ] (*********************************************************************** Cached data follows. If you edit this Notebook file directly, not using Mathematica, you must remove the line containing CacheID at the top of the file. The cache data will then be recreated when you save this file from within Mathematica. ***********************************************************************) (*CellTagsOutline CellTagsIndex->{ "AnomalousDimension"->{ Cell[1739, 51, 74, 1, 40, "Subsection", CellTags->"AnomalousDimension"]} } *) (*CellTagsIndex CellTagsIndex->{ {"AnomalousDimension", 26099, 742} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[1739, 51, 74, 1, 40, "Subsection", CellTags->"AnomalousDimension"], Cell[CellGroupData[{ Cell[1838, 56, 36, 0, 36, "Subsubsection"], Cell[1877, 58, 121, 3, 43, "Text"], Cell[CellGroupData[{ Cell[2023, 65, 60, 1, 31, "Input"], Cell[2086, 68, 113, 2, 47, "Output"] }, Open ]], Cell[2214, 73, 401, 17, 29, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[2652, 95, 33, 0, 36, "Subsubsection"], Cell[2688, 97, 30, 0, 29, "Text"], Cell[CellGroupData[{ Cell[2743, 101, 89, 1, 31, "Input"], Cell[2835, 104, 113, 2, 47, "Output"] }, Open ]], Cell[2963, 109, 154, 5, 33, "Text"], Cell[CellGroupData[{ Cell[3142, 118, 59, 1, 31, "Input"], Cell[3204, 121, 356, 10, 70, "Output"] }, Open ]], Cell[3575, 134, 153, 5, 70, "Text"], Cell[CellGroupData[{ Cell[3753, 143, 58, 1, 70, "Input"], Cell[3814, 146, 83, 1, 70, "Output"] }, Open ]], Cell[3912, 150, 153, 5, 70, "Text"], Cell[CellGroupData[{ Cell[4090, 159, 58, 1, 70, "Input"], Cell[4151, 162, 82, 1, 70, "Output"] }, Open ]], Cell[4248, 166, 153, 5, 70, "Text"], Cell[CellGroupData[{ Cell[4426, 175, 58, 1, 70, "Input"], Cell[4487, 178, 421, 11, 70, "Output"] }, Open ]], Cell[4923, 192, 154, 5, 70, "Text"], Cell[CellGroupData[{ Cell[5102, 201, 59, 1, 70, "Input"], Cell[5164, 204, 163, 2, 70, "Output"] }, Open ]], Cell[5342, 209, 154, 5, 70, "Text"], Cell[CellGroupData[{ Cell[5521, 218, 59, 1, 70, "Input"], Cell[5583, 221, 4844, 111, 70, "Output"] }, Open ]], Cell[10442, 335, 153, 5, 70, "Text"], Cell[CellGroupData[{ Cell[10620, 344, 58, 1, 70, "Input"], Cell[10681, 347, 3153, 74, 70, "Output"] }, Open ]], Cell[13849, 424, 153, 5, 70, "Text"], Cell[CellGroupData[{ Cell[14027, 433, 58, 1, 70, "Input"], Cell[14088, 436, 4730, 110, 70, "Output"] }, Open ]], Cell[18833, 549, 153, 5, 70, "Text"], Cell[CellGroupData[{ Cell[19011, 558, 58, 1, 70, "Input"], Cell[19072, 561, 3324, 76, 70, "Output"] }, Open ]], Cell[22411, 640, 180, 5, 70, "Text"], Cell[CellGroupData[{ Cell[22616, 649, 58, 1, 70, "Input"], Cell[22677, 652, 2320, 52, 70, "Output"] }, Open ]], Cell[25012, 707, 229, 5, 70, "Text"], Cell[CellGroupData[{ Cell[25266, 716, 81, 1, 70, "Input"], Cell[25350, 719, 78, 1, 70, "Output"] }, Open ]] }, Open ]] }, Open ]] } ] *) (*********************************************************************** End of Mathematica Notebook file. ***********************************************************************)