(*********************************************************************** 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[ 32040, 936]*) (*NotebookOutlinePosition[ 32834, 966]*) (* CellTagsIndexPosition[ 32760, 960]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell["SUNTrace", "Subsection", CellTags->"SUNTrace"], Cell[CellGroupData[{ Cell["Description", "Subsubsection"], Cell["SUNTrace[expr] calculates the color-trace.", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(Options[SUNTrace]\)], "Input"], Cell[BoxData[ \(TraditionalForm\`{Explicit \[Rule] False}\)], "Output"] }, Open ]], Cell[TextData[{ "See also: ", " ", ButtonBox["SUNSimplify", ButtonData:>"SUNSimplify", ButtonStyle->"Hyperlink", ButtonNote->"SUNSimplify"], ", ", ButtonBox["Tr", ButtonData:>"Tr", ButtonStyle->"Hyperlink", ButtonNote->"Tr"], "." }], "Text"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ \(SUNTrace[SUNT[a, b]]\)], "Input"], Cell[BoxData[ FormBox[ FractionBox[ SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]}]], "2"], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(SUNTrace[SUNT[a, b, c]]\)], "Input"], Cell[BoxData[ FormBox[ RowBox[{"tr", "\[NoBreak]", "(", "\[NoBreak]", FormBox[ RowBox[{ SubscriptBox["T", FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]], ".", SubscriptBox["T", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]], ".", SubscriptBox["T", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]]}], "TraditionalForm"], "\[NoBreak]", ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(SUNTrace[SUNT[a, b, c], Explicit \[Rule] True]\)], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{\(1\/4\), " ", SubscriptBox["d", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{\(1\/4\), " ", "\[ImaginaryI]", " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]}]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(SUNTrace[SUNT[a, b, c, d]]\)], "Input"], Cell[BoxData[ FormBox[ RowBox[{"tr", "\[NoBreak]", "(", "\[NoBreak]", FormBox[ RowBox[{ SubscriptBox["T", FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]], ".", SubscriptBox["T", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]], ".", SubscriptBox["T", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]], ".", SubscriptBox["T", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]]}], "TraditionalForm"], "\[NoBreak]", ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(t1 = SUNTrace[SUNT[a, b, c, d], Explicit \[Rule] True]\)], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{\(1\/8\), " ", SubscriptBox["d", RowBox[{"e", "\[NoBreak]", FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["d", RowBox[{"e", "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{\(1\/8\), " ", "\[ImaginaryI]", " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", "e"}]], " ", SubscriptBox["d", RowBox[{"e", "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{\(1\/8\), " ", SubscriptBox["d", RowBox[{"e", "\[NoBreak]", FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["d", RowBox[{"e", "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{\(1\/8\), " ", SubscriptBox["d", RowBox[{"e", "\[NoBreak]", FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["d", RowBox[{"e", "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]}]]}], "+", FractionBox[ RowBox[{ SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]}]]}], \(4\ N\)], "-", FractionBox[ RowBox[{ SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]}]]}], \(4\ N\)], "+", FractionBox[ RowBox[{ SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]}]]}], \(4\ N\)], "+", RowBox[{\(1\/8\), " ", "\[ImaginaryI]", " ", SubscriptBox["d", RowBox[{"e", "\[NoBreak]", FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", "e"}]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(SUNSimplify[t1, Explicit \[Rule] True]\)], "Input"], Cell[BoxData[ FormBox[ RowBox[{"tr", "\[NoBreak]", "(", "\[NoBreak]", FormBox[ RowBox[{ SubscriptBox["T", FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]], ".", SubscriptBox["T", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]], ".", SubscriptBox["T", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]], ".", SubscriptBox["T", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]]}], "TraditionalForm"], "\[NoBreak]", ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(t2 = SUNTrace[SUNT[a, b, c, d, e], Explicit \[Rule] True]\)], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{ SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]}]], " ", RowBox[{"(", RowBox[{ RowBox[{\(1\/4\), " ", SubscriptBox["d", RowBox[{ FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{\(1\/4\), " ", "\[ImaginaryI]", " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]}]]}]}], ")"}]}], \(2\ N\)], "+", RowBox[{\(1\/2\), " ", SubscriptBox["d", RowBox[{"c101", "\[NoBreak]", FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]}]], " ", RowBox[{"(", RowBox[{ RowBox[{\(-\(1\/8\)\), " ", SubscriptBox["d", RowBox[{"c102", "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["d", RowBox[{"c102", "\[NoBreak]", FormBox[ FormBox["c101", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{\(1\/8\), " ", SubscriptBox["d", RowBox[{"c102", "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["d", RowBox[{"c102", "\[NoBreak]", FormBox[ FormBox["c101", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{\(1\/8\), " ", SubscriptBox["d", RowBox[{"c102", "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c101", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["d", RowBox[{"c102", "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]}]]}], "-", FractionBox[ RowBox[{ SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["c101", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]}]]}], \(4\ N\)], "+", FractionBox[ RowBox[{ SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["c101", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]}]]}], \(4\ N\)], "+", FractionBox[ RowBox[{ SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c101", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]}]]}], \(4\ N\)], "+", RowBox[{\(1\/8\), " ", "\[ImaginaryI]", " ", SubscriptBox["d", RowBox[{"c102", "\[NoBreak]", FormBox[ FormBox["c101", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", "c102"}]]}], "-", RowBox[{\(1\/8\), " ", "\[ImaginaryI]", " ", SubscriptBox["d", RowBox[{"c102", "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["c101", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", "c102"}]]}]}], ")"}]}], "+", RowBox[{\(1\/2\), " ", "\[ImaginaryI]", " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", "c101"}]], " ", RowBox[{"(", RowBox[{ RowBox[{\(-\(1\/8\)\), " ", SubscriptBox["d", RowBox[{"c103", "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["d", RowBox[{"c103", "\[NoBreak]", FormBox[ FormBox["c101", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{\(1\/8\), " ", SubscriptBox["d", RowBox[{"c103", "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["d", RowBox[{"c103", "\[NoBreak]", FormBox[ FormBox["c101", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{\(1\/8\), " ", SubscriptBox["d", RowBox[{"c103", "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c101", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["d", RowBox[{"c103", "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]}]]}], "-", FractionBox[ RowBox[{ SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["c101", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]}]]}], \(4\ N\)], "+", FractionBox[ RowBox[{ SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["c101", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]}]]}], \(4\ N\)], "+", FractionBox[ RowBox[{ SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c101", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]}]]}], \(4\ N\)], "+", RowBox[{\(1\/8\), " ", "\[ImaginaryI]", " ", SubscriptBox["d", RowBox[{"c103", "\[NoBreak]", FormBox[ FormBox["c101", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", "c103"}]]}], "-", RowBox[{\(1\/8\), " ", "\[ImaginaryI]", " ", SubscriptBox["d", RowBox[{"c103", "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["c101", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", "c103"}]]}]}], ")"}]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(SUNSimplify[t2, Explicit \[Rule] True]\)], "Input"], Cell[BoxData[ FormBox[ RowBox[{"tr", "\[NoBreak]", "(", "\[NoBreak]", FormBox[ RowBox[{ SubscriptBox["T", FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"]], ".", SubscriptBox["T", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]], ".", SubscriptBox["T", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]], ".", SubscriptBox["T", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]], ".", SubscriptBox["T", FormBox[ FormBox["e", "TraditionalForm"], "TraditionalForm"]]}], "TraditionalForm"], "\[NoBreak]", ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(SUNSimplify[SUNF[a, b, c]\ SUND[d, b, c]]\)], "Input"], Cell[BoxData[ \(TraditionalForm\`0\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(SUNSimplify[SUNF[a, b, c]\ SUND[a, b, d]]\)], "Input"], Cell[BoxData[ \(TraditionalForm\`0\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(SUNSimplify[SUNF[a, b, c]\ SUND[a, d, c]]\)], "Input"], Cell[BoxData[ \(TraditionalForm\`0\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(SUNSimplify[SUND[a, b, c]\ SUND[d, b, c]]\)], "Input"], Cell[BoxData[ FormBox[ RowBox[{\(-\((4 - C\_A\%2)\)\), " ", \((C\_A - 2\ C\_F)\), " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]}]]}], TraditionalForm]], "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->{ "SUNTrace"->{ Cell[1739, 51, 54, 1, 40, "Subsection", CellTags->"SUNTrace"]} } *) (*CellTagsIndex CellTagsIndex->{ {"SUNTrace", 32661, 953} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[1739, 51, 54, 1, 40, "Subsection", CellTags->"SUNTrace"], Cell[CellGroupData[{ Cell[1818, 56, 36, 0, 36, "Subsubsection"], Cell[1857, 58, 58, 0, 29, "Text"], Cell[CellGroupData[{ Cell[1940, 62, 50, 1, 31, "Input"], Cell[1993, 65, 75, 1, 47, "Output"] }, Open ]], Cell[2083, 69, 277, 13, 29, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[2397, 87, 33, 0, 36, "Subsubsection"], Cell[CellGroupData[{ Cell[2455, 91, 53, 1, 31, "Input"], Cell[2511, 94, 387, 12, 62, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2935, 111, 56, 1, 31, "Input"], Cell[2994, 114, 684, 20, 47, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3715, 139, 79, 1, 31, "Input"], Cell[3797, 142, 1090, 32, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4924, 179, 59, 1, 70, "Input"], Cell[4986, 182, 848, 25, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5871, 212, 87, 1, 70, "Input"], Cell[5961, 215, 6014, 174, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[12012, 394, 71, 1, 70, "Input"], Cell[12086, 397, 848, 25, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[12971, 427, 90, 1, 70, "Input"], Cell[13064, 430, 16766, 416, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[29867, 851, 71, 1, 70, "Input"], Cell[29941, 854, 1012, 30, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[30990, 889, 74, 1, 70, "Input"], Cell[31067, 892, 52, 1, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[31156, 898, 74, 1, 70, "Input"], Cell[31233, 901, 52, 1, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[31322, 907, 74, 1, 70, "Input"], Cell[31399, 910, 52, 1, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[31488, 916, 74, 1, 70, "Input"], Cell[31565, 919, 435, 12, 70, "Output"] }, Open ]] }, Open ]] }, Open ]] } ] *) (*********************************************************************** End of Mathematica Notebook file. ***********************************************************************)