(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 23553, 761] NotebookOptionsPosition[ 22499, 719] NotebookOutlinePosition[ 22826, 734] CellTagsIndexPosition[ 22783, 731] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{"(*", RowBox[{ RowBox[{"Solution", " ", "to", " ", "exercise", " ", RowBox[{"(", "d", ")"}]}], ":"}], "*)"}]], "Input", CellChangeTimes->{{3.771926537101753*^9, 3.771926547292531*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"<<", "FeynCalc`"}]], "Input", CellChangeTimes->{{3.7628654631419573`*^9, 3.7628654675413103`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ StyleBox["\<\"FeynCalc \"\>", "Text", StripOnInput->False, FontWeight->Bold], "\[InvisibleSpace]", StyleBox["\<\"9.2.0. For help, use the \"\>", "Text", StripOnInput->False], "\[InvisibleSpace]", StyleBox[ TagBox[ ButtonBox[ RowBox[{"documentation", " ", "center"}], BaseStyle->"Link", ButtonData:>"paclet:FeynCalc/", ButtonNote->"paclet:FeynCalc/"], DisplayForm], "Text", StripOnInput->False], "\[InvisibleSpace]", StyleBox["\<\", check out the \"\>", "Text", StripOnInput->False], "\[InvisibleSpace]", StyleBox[ TagBox[ ButtonBox["wiki", BaseStyle->"Hyperlink", ButtonData:>{ URL["https://github.com/FeynCalc/feyncalc/wiki"], None}, ButtonNote->"https://github.com/FeynCalc/feyncalc/wiki"], DisplayForm], "Text", StripOnInput->False], "\[InvisibleSpace]", StyleBox["\<\" or write to the \"\>", "Text", StripOnInput->False], "\[InvisibleSpace]", StyleBox[ TagBox[ ButtonBox[ RowBox[{"mailing", " ", RowBox[{"list", "."}]}], BaseStyle->"Hyperlink", ButtonData:>{ URL["http://www.feyncalc.org/forum/"], None}, ButtonNote->"http://www.feyncalc.org/forum/"], DisplayForm], "Text", StripOnInput->False]}], SequenceForm[ Style["FeynCalc ", "Text", Bold], Style["9.2.0. For help, use the ", "Text"], Style[ DisplayForm[ ButtonBox[ "documentation center", BaseStyle -> "Link", ButtonData :> "paclet:FeynCalc/", ButtonNote -> "paclet:FeynCalc/"]], "Text"], Style[", check out the ", "Text"], Style[ DisplayForm[ ButtonBox["wiki", ButtonData :> { URL["https://github.com/FeynCalc/feyncalc/wiki"], None}, BaseStyle -> "Hyperlink", ButtonNote -> "https://github.com/FeynCalc/feyncalc/wiki"]], "Text"], Style[" or write to the ", "Text"], Style[ DisplayForm[ ButtonBox["mailing list.", ButtonData :> { URL["http://www.feyncalc.org/forum/"], None}, BaseStyle -> "Hyperlink", ButtonNote -> "http://www.feyncalc.org/forum/"]], "Text"]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.762865469614781*^9, 3.763287621289219*^9, {3.763454996638698*^9, 3.763455010096568*^9}, 3.763962385108781*^9, 3.7643230913640738`*^9, 3.76439085084853*^9, 3.764476643495468*^9, 3.765008030269826*^9, 3.766289808713295*^9, 3.766815712367836*^9, 3.767071714419739*^9, 3.76741332838346*^9, {3.7674286624014063`*^9, 3.7674286694946327`*^9}, 3.7674390218444967`*^9, 3.767696258086391*^9, 3.767702980499546*^9, 3.767703280906457*^9, 3.767707266940399*^9, 3.767766005890183*^9, 3.7677671212964163`*^9, 3.767962756556615*^9, 3.767965177679031*^9, 3.767976841100663*^9, 3.767977458765655*^9, 3.768025919843587*^9, 3.7681182885025578`*^9, 3.7682773925762873`*^9, 3.768557228696731*^9, 3.768564975853533*^9, 3.7686251370017233`*^9, 3.768630494397314*^9, 3.768645089111624*^9, 3.7686463011213417`*^9, 3.768646386943532*^9, 3.768651172512765*^9, 3.768651976097528*^9, 3.7686520256268463`*^9, 3.768652192399042*^9, 3.76865226309853*^9, 3.768653135774768*^9, 3.768653316382963*^9, 3.768726126228454*^9, 3.768737044097067*^9, 3.768738640688693*^9, 3.768739385360194*^9, 3.768804026138955*^9, 3.7688852135558023`*^9, {3.768888785824321*^9, 3.768888809264638*^9}, 3.771925951392042*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ StyleBox["\<\"See also the supplied \"\>", "Text", StripOnInput->False], "\[InvisibleSpace]", StyleBox[ TagBox[ ButtonBox[ RowBox[{"examples", "."}], BaseStyle->"Hyperlink", ButtonFunction:>SystemOpen[ FileNameJoin[{FeynCalc`$FeynCalcDirectory, "Examples"}]], Evaluator->Automatic, Method->"Preemptive"], DisplayForm], "Text", StripOnInput->False], "\[InvisibleSpace]", StyleBox["\<\" If you use FeynCalc in your research, please cite\"\>", "Text", StripOnInput->False]}], SequenceForm[ Style["See also the supplied ", "Text"], Style[ DisplayForm[ ButtonBox[ "examples.", BaseStyle -> "Hyperlink", ButtonFunction :> SystemOpen[ FileNameJoin[{FeynCalc`$FeynCalcDirectory, "Examples"}]], Evaluator -> Automatic, Method -> "Preemptive"]], "Text"], Style[" If you use FeynCalc in your research, please cite", "Text"]], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.762865469614781*^9, 3.763287621289219*^9, {3.763454996638698*^9, 3.763455010096568*^9}, 3.763962385108781*^9, 3.7643230913640738`*^9, 3.76439085084853*^9, 3.764476643495468*^9, 3.765008030269826*^9, 3.766289808713295*^9, 3.766815712367836*^9, 3.767071714419739*^9, 3.76741332838346*^9, {3.7674286624014063`*^9, 3.7674286694946327`*^9}, 3.7674390218444967`*^9, 3.767696258086391*^9, 3.767702980499546*^9, 3.767703280906457*^9, 3.767707266940399*^9, 3.767766005890183*^9, 3.7677671212964163`*^9, 3.767962756556615*^9, 3.767965177679031*^9, 3.767976841100663*^9, 3.767977458765655*^9, 3.768025919843587*^9, 3.7681182885025578`*^9, 3.7682773925762873`*^9, 3.768557228696731*^9, 3.768564975853533*^9, 3.7686251370017233`*^9, 3.768630494397314*^9, 3.768645089111624*^9, 3.7686463011213417`*^9, 3.768646386943532*^9, 3.768651172512765*^9, 3.768651976097528*^9, 3.7686520256268463`*^9, 3.768652192399042*^9, 3.76865226309853*^9, 3.768653135774768*^9, 3.768653316382963*^9, 3.768726126228454*^9, 3.768737044097067*^9, 3.768738640688693*^9, 3.768739385360194*^9, 3.768804026138955*^9, 3.7688852135558023`*^9, {3.768888785824321*^9, 3.768888809264638*^9}, 3.771925951393285*^9}], Cell[BoxData[ FormBox[ StyleBox["\<\" \[Bullet] V. Shtabovenko, R. Mertig and F. Orellana, Comput. \ Phys. Commun., 207C, 432-444, 2016, arXiv:1601.01167\"\>", "Text", StripOnInput->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.762865469614781*^9, 3.763287621289219*^9, {3.763454996638698*^9, 3.763455010096568*^9}, 3.763962385108781*^9, 3.7643230913640738`*^9, 3.76439085084853*^9, 3.764476643495468*^9, 3.765008030269826*^9, 3.766289808713295*^9, 3.766815712367836*^9, 3.767071714419739*^9, 3.76741332838346*^9, {3.7674286624014063`*^9, 3.7674286694946327`*^9}, 3.7674390218444967`*^9, 3.767696258086391*^9, 3.767702980499546*^9, 3.767703280906457*^9, 3.767707266940399*^9, 3.767766005890183*^9, 3.7677671212964163`*^9, 3.767962756556615*^9, 3.767965177679031*^9, 3.767976841100663*^9, 3.767977458765655*^9, 3.768025919843587*^9, 3.7681182885025578`*^9, 3.7682773925762873`*^9, 3.768557228696731*^9, 3.768564975853533*^9, 3.7686251370017233`*^9, 3.768630494397314*^9, 3.768645089111624*^9, 3.7686463011213417`*^9, 3.768646386943532*^9, 3.768651172512765*^9, 3.768651976097528*^9, 3.7686520256268463`*^9, 3.768652192399042*^9, 3.76865226309853*^9, 3.768653135774768*^9, 3.768653316382963*^9, 3.768726126228454*^9, 3.768737044097067*^9, 3.768738640688693*^9, 3.768739385360194*^9, 3.768804026138955*^9, 3.7688852135558023`*^9, {3.768888785824321*^9, 3.768888809264638*^9}, 3.771925951394087*^9}], Cell[BoxData[ FormBox[ StyleBox["\<\" \[Bullet] R. Mertig, M. B\[ODoubleDot]hm, and A. Denner, \ Comput. Phys. Commun., 64, 345-359, 1991.\"\>", "Text", StripOnInput->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.762865469614781*^9, 3.763287621289219*^9, {3.763454996638698*^9, 3.763455010096568*^9}, 3.763962385108781*^9, 3.7643230913640738`*^9, 3.76439085084853*^9, 3.764476643495468*^9, 3.765008030269826*^9, 3.766289808713295*^9, 3.766815712367836*^9, 3.767071714419739*^9, 3.76741332838346*^9, {3.7674286624014063`*^9, 3.7674286694946327`*^9}, 3.7674390218444967`*^9, 3.767696258086391*^9, 3.767702980499546*^9, 3.767703280906457*^9, 3.767707266940399*^9, 3.767766005890183*^9, 3.7677671212964163`*^9, 3.767962756556615*^9, 3.767965177679031*^9, 3.767976841100663*^9, 3.767977458765655*^9, 3.768025919843587*^9, 3.7681182885025578`*^9, 3.7682773925762873`*^9, 3.768557228696731*^9, 3.768564975853533*^9, 3.7686251370017233`*^9, 3.768630494397314*^9, 3.768645089111624*^9, 3.7686463011213417`*^9, 3.768646386943532*^9, 3.768651172512765*^9, 3.768651976097528*^9, 3.7686520256268463`*^9, 3.768652192399042*^9, 3.76865226309853*^9, 3.768653135774768*^9, 3.768653316382963*^9, 3.768726126228454*^9, 3.768737044097067*^9, 3.768738640688693*^9, 3.768739385360194*^9, 3.768804026138955*^9, 3.7688852135558023`*^9, {3.768888785824321*^9, 3.768888809264638*^9}, 3.771925951394846*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"firsttrace", "=", RowBox[{"Tr", "[", RowBox[{ RowBox[{"GS", "[", "p2", "]"}], ".", RowBox[{"GA", "[", "alpha", "]"}], ".", RowBox[{"(", RowBox[{"1", "-", "GA5"}], ")"}], ".", RowBox[{"(", RowBox[{ RowBox[{"GS", "[", "p1", "]"}], "+", "mmu"}], ")"}], ".", RowBox[{"GA", "[", "beta", "]"}], ".", RowBox[{"(", RowBox[{"1", "-", "GA5"}], ")"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.771925980043633*^9, 3.7719260716811533`*^9}, { 3.771926169240859*^9, 3.7719261714668922`*^9}}], Cell[BoxData[ FormBox[ RowBox[{"8", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ FormBox[ SuperscriptBox[ OverscriptBox["g", "_"], RowBox[{ FormBox[ FormBox[ FormBox["alpha", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["beta", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ OverscriptBox[ FormBox["p1", TraditionalForm], "_"], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ OverscriptBox[ FormBox["p2", TraditionalForm], "_"], TraditionalForm]}], ")"}]}]}], "+", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["alpha", TraditionalForm], TraditionalForm], FormBox[ FormBox["beta", TraditionalForm], TraditionalForm], FormBox[ OverscriptBox[ FormBox["p1", TraditionalForm], "_"], TraditionalForm], FormBox[ OverscriptBox[ FormBox["p2", TraditionalForm], "_"], TraditionalForm]}]]}], "+", RowBox[{ FormBox[ SuperscriptBox[ FormBox[ OverscriptBox[ FormBox["p2", TraditionalForm], "_"], TraditionalForm], FormBox[ FormBox[ FormBox["alpha", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ OverscriptBox[ FormBox["p1", TraditionalForm], "_"], TraditionalForm], FormBox[ FormBox[ FormBox["beta", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm]}], "+", RowBox[{ FormBox[ SuperscriptBox[ FormBox[ OverscriptBox[ FormBox["p1", TraditionalForm], "_"], TraditionalForm], FormBox[ FormBox[ FormBox["alpha", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ OverscriptBox[ FormBox["p2", TraditionalForm], "_"], TraditionalForm], FormBox[ FormBox[ FormBox["beta", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm]}]}], ")"}]}], TraditionalForm]], "Output", CellChangeTimes->{{3.771926044193329*^9, 3.771926071990222*^9}, 3.771926172020164*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"secondtrace", "=", RowBox[{"Tr", "[", RowBox[{ RowBox[{"GS", "[", "p4", "]"}], ".", RowBox[{"GA", "[", "beta", "]"}], ".", RowBox[{"(", RowBox[{"1", "-", "GA5"}], ")"}], ".", RowBox[{"(", RowBox[{ RowBox[{"GS", "[", "p3", "]"}], "+", "me"}], ")"}], ".", RowBox[{"GA", "[", "alpha", "]"}], ".", RowBox[{"(", RowBox[{"1", "-", "GA5"}], ")"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.771926173694222*^9, 3.771926207500052*^9}}], Cell[BoxData[ FormBox[ RowBox[{"8", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ FormBox[ SuperscriptBox[ OverscriptBox["g", "_"], RowBox[{ FormBox[ FormBox[ FormBox["alpha", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["beta", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ OverscriptBox[ FormBox["p3", TraditionalForm], "_"], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ OverscriptBox[ FormBox["p4", TraditionalForm], "_"], TraditionalForm]}], ")"}]}]}], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["alpha", TraditionalForm], TraditionalForm], FormBox[ FormBox["beta", TraditionalForm], TraditionalForm], FormBox[ OverscriptBox[ FormBox["p3", TraditionalForm], "_"], TraditionalForm], FormBox[ OverscriptBox[ FormBox["p4", TraditionalForm], "_"], TraditionalForm]}]]}], "+", RowBox[{ FormBox[ SuperscriptBox[ FormBox[ OverscriptBox[ FormBox["p4", TraditionalForm], "_"], TraditionalForm], FormBox[ FormBox[ FormBox["alpha", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ OverscriptBox[ FormBox["p3", TraditionalForm], "_"], TraditionalForm], FormBox[ FormBox[ FormBox["beta", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm]}], "+", RowBox[{ FormBox[ SuperscriptBox[ FormBox[ OverscriptBox[ FormBox["p3", TraditionalForm], "_"], TraditionalForm], FormBox[ FormBox[ FormBox["alpha", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ OverscriptBox[ FormBox["p4", TraditionalForm], "_"], TraditionalForm], FormBox[ FormBox[ FormBox["beta", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm]}]}], ")"}]}], TraditionalForm]], "Output", CellChangeTimes->{3.7719262085470247`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"combined", "=", RowBox[{ RowBox[{"firsttrace", "*", "secondtrace"}], "//", "Contract"}]}]], "Input",\ CellChangeTimes->{{3.771926210054976*^9, 3.771926217466721*^9}, { 3.771926317004488*^9, 3.771926320147493*^9}}], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"128", " ", RowBox[{"(", RowBox[{ FormBox[ OverscriptBox[ FormBox["p1", TraditionalForm], "_"], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ OverscriptBox[ FormBox["p4", TraditionalForm], "_"], TraditionalForm]}], ")"}], " ", RowBox[{"(", RowBox[{ FormBox[ OverscriptBox[ FormBox["p2", TraditionalForm], "_"], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ OverscriptBox[ FormBox["p3", TraditionalForm], "_"], TraditionalForm]}], ")"}]}], "+", RowBox[{"128", " ", RowBox[{"(", RowBox[{ FormBox[ OverscriptBox[ FormBox["p1", TraditionalForm], "_"], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ OverscriptBox[ FormBox["p3", TraditionalForm], "_"], TraditionalForm]}], ")"}], " ", RowBox[{"(", RowBox[{ FormBox[ OverscriptBox[ FormBox["p2", TraditionalForm], "_"], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ OverscriptBox[ FormBox["p4", TraditionalForm], "_"], TraditionalForm]}], ")"}]}], "+", RowBox[{"64", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ FormBox[ OverscriptBox[ FormBox["p1", TraditionalForm], "_"], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ OverscriptBox[ FormBox["p4", TraditionalForm], "_"], TraditionalForm]}], ")"}], " ", RowBox[{"(", RowBox[{ FormBox[ OverscriptBox[ FormBox["p2", TraditionalForm], "_"], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ OverscriptBox[ FormBox["p3", TraditionalForm], "_"], TraditionalForm]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ FormBox[ OverscriptBox[ FormBox["p1", TraditionalForm], "_"], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ OverscriptBox[ FormBox["p3", TraditionalForm], "_"], TraditionalForm]}], ")"}], " ", RowBox[{"(", RowBox[{ FormBox[ OverscriptBox[ FormBox["p2", TraditionalForm], "_"], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ OverscriptBox[ FormBox["p4", TraditionalForm], "_"], TraditionalForm]}], ")"}]}]}], ")"}]}]}], TraditionalForm]], "Output", CellChangeTimes->{3.771926217749557*^9, 3.771926320980547*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", "combined", "]"}]], "Input", CellChangeTimes->{{3.7719263213959103`*^9, 3.771926324818577*^9}}], Cell[BoxData[ FormBox[ RowBox[{"256", " ", RowBox[{"(", RowBox[{ FormBox[ OverscriptBox[ FormBox["p1", TraditionalForm], "_"], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ OverscriptBox[ FormBox["p4", TraditionalForm], "_"], TraditionalForm]}], ")"}], " ", RowBox[{"(", RowBox[{ FormBox[ OverscriptBox[ FormBox["p2", TraditionalForm], "_"], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ OverscriptBox[ FormBox["p3", TraditionalForm], "_"], TraditionalForm]}], ")"}]}], TraditionalForm]], "Output", CellChangeTimes->{3.771926324946768*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"GF", "^", "2"}], "/", "4"}], "*", RowBox[{"Simplify", "[", "combined", "]"}]}]], "Input", CellChangeTimes->{{3.771926358824173*^9, 3.771926375432815*^9}}], Cell[BoxData[ FormBox[ RowBox[{"64", " ", SuperscriptBox["GF", "2"], " ", RowBox[{"(", RowBox[{ FormBox[ OverscriptBox[ FormBox["p1", TraditionalForm], "_"], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ OverscriptBox[ FormBox["p4", TraditionalForm], "_"], TraditionalForm]}], ")"}], " ", RowBox[{"(", RowBox[{ FormBox[ OverscriptBox[ FormBox["p2", TraditionalForm], "_"], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ OverscriptBox[ FormBox["p3", TraditionalForm], "_"], TraditionalForm]}], ")"}]}], TraditionalForm]], "Output", CellChangeTimes->{3.771926375692318*^9}] }, Open ]] }, WindowSize->{1855, 1028}, WindowMargins->{{0, Automatic}, {0, 28}}, FrontEndVersion->"11.0 for Linux x86 (64-bit) (July 28, 2016)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[558, 20, 219, 5, 32, "Input"], Cell[CellGroupData[{ Cell[802, 29, 123, 2, 32, "Input"], Cell[CellGroupData[{ Cell[950, 35, 3542, 82, 26, "Print"], Cell[4495, 119, 2327, 48, 26, "Print"], Cell[6825, 169, 1483, 23, 26, "Print"], Cell[8311, 194, 1468, 23, 26, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[9828, 223, 564, 15, 32, "Input"], Cell[10395, 240, 3027, 118, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[13459, 363, 511, 14, 32, "Input"], Cell[13973, 379, 2979, 117, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[16989, 501, 247, 6, 30, "Input"], Cell[17239, 509, 3234, 123, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[20510, 637, 136, 2, 35, "Input"], Cell[20649, 641, 777, 31, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[21463, 677, 205, 5, 35, "Input"], Cell[21671, 684, 812, 32, 40, "Output"] }, Open ]] } ] *)