(************** Content-type: application/mathematica ************** Mathematica-Compatible Notebook This notebook can be used with any Mathematica-compatible application, such as Mathematica, MathReader or Publicon. 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[ 505177, 12667]*) (*NotebookOutlinePosition[ 505829, 12690]*) (* CellTagsIndexPosition[ 505785, 12686]*) (*WindowFrame->Normal*) Notebook[{ Cell[BoxData[{ \(\($LoadPhi = True;\)\), "\[IndentingNewLine]", \(\($LoadFeynArts = True;\)\)}], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(\(Needs["\"];\)\)], "Input"], Cell[TextData[{ StyleBox["FeynCalc", FontWeight->"Bold"], " ", "4.1.1", " For help, type ?FeynCalc, ", ButtonBox["use the built-in help system", ButtonFunction:>(FrontEndExecute[ FrontEnd`HelpBrowserLookup[ "AddOns", #]]&), ButtonData:>{"Short Overview", "intro"}, ButtonStyle->"AddOnsLink", ButtonNote->"Open the help browser"], " or visit ", ButtonBox["www.feyncalc.org", ButtonData:>{ URL[ "http://www.feyncalc.org"], None}, ButtonStyle->"Hyperlink", ButtonNote->"http://www.feyncalc.org"] }], "Text", GeneratedCell->True, CellAutoOverwrite->True], Cell["Loading PHI ", "Text", GeneratedCell->True, CellAutoOverwrite->True], Cell[BoxData[ \(TraditionalForm\`"OK, starting.."\)], "Print"], Cell[BoxData[ \(TraditionalForm\`"Altering P$Generic in Setup.m.\n >Please check \ that this is actually done. If not, do it manually."\)], "Print"], Cell[BoxData[ \(TraditionalForm\`"/app/theorie/mathematica41/AddOns/Applications/\ HighEnergyPhysics//FeynArts/Analytic.m"\)], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"MakeFermionChains[ top_ ] \ := top /; FreeQ[top, F | U]"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]"MakeFermionChains[ top_ ] := top /; FreeQ[top, F | U | \ HighEnergyPhysics`Phi`Objects`$FermionHeads]"\), SequenceForm[ "Old: ", "MakeFermionChains[ top_ ] := top /; FreeQ[top, F | U]", ", \nNew: ", "MakeFermionChains[ top_ ] := top /; FreeQ[top, F | U | \ HighEnergyPhysics`Phi`Objects`$FermionHeads]"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" res = Select[top, \ !FreeQ[#[[3]], F | U]&];"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" res \ = Select[top, !FreeQ[#[[3]], F | U | \ HighEnergyPhysics`Phi`Objects`$FermionHeads]&];"\), SequenceForm[ "Old: ", " res = Select[top, !FreeQ[#[[3]], F | U]&];", ", \nNew: ", " res = Select[top, !FreeQ[#[[3]], F | U | \ HighEnergyPhysics`Phi`Objects`$FermionHeads]&];"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" I PV[ If[FreeQ[v, F | \ U], Identity, NonCommutative]["\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ I PV[ If[FreeQ[v, F | U | HighEnergyPhysics`Phi`Objects`$FermionHeads], \ Identity, NonCommutative]["\), SequenceForm[ "Old: ", " I PV[ If[FreeQ[v, F | U], Identity, NonCommutative][", ", \nNew: ", " I PV[ If[FreeQ[v, F | U | \ HighEnergyPhysics`Phi`Objects`$FermionHeads], Identity, NonCommutative]["], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" LoopPD@@ Cases[p, \ PropagatorDenominator[__]]"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ LoopPD@@ Cases[p, HoldPattern[PropagatorDenominator[__]]]"\), SequenceForm[ "Old: ", " LoopPD@@ Cases[p, PropagatorDenominator[__]]", ", \nNew: ", " LoopPD@@ Cases[p, HoldPattern[PropagatorDenominator[__]]]"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" If[ FreeQ[vert, F], \ {kin}, {kin} /. M$FermionFlipRule@@ perm ] /."\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" If[ FreeQ[vert, \ F|HighEnergyPhysics`Phi`Objects`$FermionHeads], {kin}, {kin} /. \ M$FermionFlipRule@@ perm ] /."\), SequenceForm[ "Old: ", " If[ FreeQ[vert, F], {kin}, {kin} /. M$FermionFlipRule@@ perm ] \ /.", ", \nNew: ", " If[ FreeQ[vert, \ F|HighEnergyPhysics`Phi`Objects`$FermionHeads], {kin}, {kin} /. \ M$FermionFlipRule@@ perm ] /."], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ SequenceForm[StringTake[ToString[type], 3], i]"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" \ SequenceForm[StringTake[ToString[type],Min[3,StringLength[ToString[type]]]], \ i]"\), SequenceForm[ "Old: ", " SequenceForm[StringTake[ToString[type], 3], i]", ", \nNew: ", " SequenceForm[StringTake[ToString[type],Min[3,StringLength[\ ToString[type]]]], i]"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" Global`DiracSpinor[ \ mom_, mass_, ___ ] := FeynArts`Spinor[mom, mass];"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" "\), SequenceForm[ "Old: ", " Global`DiracSpinor[ mom_, mass_, ___ ] := FeynArts`Spinor[mom, \ mass];", ", \nNew: ", " "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ \(TraditionalForm\`"/app/theorie/mathematica41/AddOns/Applications/\ HighEnergyPhysics//FeynArts/Insert.m"\)], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" MapIndexed[ Append[#1, \ Field@@ #2]&, top ] ->"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ MapIndexed[Append[#1,Field@@#2]&,Sort[Sort[Take[#,2]]&/@ top/. \ {Incoming->AAA,Outgoing->AAB}]/. {AAA->Incoming,AAB->Outgoing} ] ->"\), SequenceForm[ "Old: ", " MapIndexed[ Append[#1, Field@@ #2]&, top ] ->", ", \nNew: ", " MapIndexed[Append[#1,Field@@#2]&,Sort[Sort[Take[#,2]]&/@ top/. \ {Incoming->AAA,Outgoing->AAB}]/. {AAA->Incoming,AAB->Outgoing} ] ->"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" DeleteCases[Take[#, \ 2], Vertex[1, ___][_]]&/@ top,"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ (DeleteCases[Take[#,2],Vertex[1][_]]&/@(top/.p:Propagator[Internal][___,\ Vertex[1,___][_],___]:>(p/.Vertex[1]->Vertex[vertexone])))/.vertexone -> \ 1,"\), SequenceForm[ "Old: ", " DeleteCases[Take[#, 2], Vertex[1, ___][_]]&/@ top,", ", \nNew: ", " (DeleteCases[Take[#,2],Vertex[1][_]]&/@(top/.p:Propagator[\ Internal][___,Vertex[1,___][_],___]:>(p/.Vertex[1]->Vertex[vertexone])))/.\ vertexone -> 1,"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ \(TraditionalForm\`"/app/theorie/mathematica41/AddOns/Applications/\ HighEnergyPhysics//FeynArts/Utilities.m"\)], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" Union[ Cases[top, \ Vertex[n__][_] /; {n} =!= {1}, {2}] ]"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" \ Union[Join[Cases[Cases[top,Propagator[Internal][__]],Vertex[n__][_],Infinity],\ Cases[top,Vertex[n__][_]/;{n}=!={1},{2}]]]"\), SequenceForm[ "Old: ", " Union[ Cases[top, Vertex[n__][_] /; {n} =!= {1}, {2}] ]", ", \nNew: ", " Union[Join[Cases[Cases[top,Propagator[Internal][__]],Vertex[n__][\ _],Infinity],Cases[top,Vertex[n__][_]/;{n}=!={1},{2}]]]"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ \(TraditionalForm\`"/app/theorie/mathematica41/AddOns/Applications/\ HighEnergyPhysics//FeynArts/Graphics.m"\)], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"LabelFont = \"Helvetica\""\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]"LabelFont=\"Times\""\), SequenceForm[ "Old: ", "LabelFont = \"Helvetica\"", ", \nNew: ", "LabelFont=\"Times\""], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ StyleForm[DisplayForm[label], FontFamily -> LabelFont,"\[InvisibleSpace]", \n\ New: "\[InvisibleSpace]" \ StyleForm[If[res=True;label//.a_String:>(res=res&&SyntaxQ[a]);res, \ TraditionalForm[ToExpression[label]/.Null->\"\"],DisplayForm[label]], \ FontFamily->LabelFont,"\), SequenceForm[ "Old: ", " StyleForm[DisplayForm[label], FontFamily -> LabelFont,", ", \nNew: ", " StyleForm[If[res=True;label//.a_String:>(res=res&&SyntaxQ[a]);\ res, TraditionalForm[ToExpression[label]/.Null->\"\"],DisplayForm[label]], \ FontFamily->LabelFont,"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"MmaChar[ _[c_] ] := \ FontForm[c, {\"Symbol\", fscale fsize}];"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]"(*MmaChar[_[c_]]:=FontForm[c,{\"Symbol\",fscale fsize}];*)"\ \), SequenceForm[ "Old: ", "MmaChar[ _[c_] ] := FontForm[c, {\"Symbol\", fscale fsize}];", ", \nNew: ", "(*MmaChar[_[c_]]:=FontForm[c,{\"Symbol\",fscale fsize}];*)"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"ShortHand[ type_ ] := \ StringTake[ ToString[type], 3 ]"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]"ShortHand[ type_ ] := StringTake[ ToString[type], \ Min[3,StringLength[ToString[type]]]]"\), SequenceForm[ "Old: ", "ShortHand[ type_ ] := StringTake[ ToString[type], 3 ]", ", \nNew: ", "ShortHand[ type_ ] := StringTake[ ToString[type], \ Min[3,StringLength[ToString[type]]]]"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"End[]"\[InvisibleSpace]", \ \nNew: "\[InvisibleSpace]"(*Below are the codes for arrows used by \ Mathematica*) \ TeXToPS[\"\\\\leftrightarrow\"]:=SymbolChar[\"\\[LeftRightArrow]\"]; TeXToPS[\ \"\\\\leftarrow\"]:=SymbolChar[\"\\[LeftArrow]\"]; \ TeXToPS[\"\\\\rightarrow\"]:=SmbolChar[\"\\[RightArrow]\"]; \ TeXToPS[\"\\\\to\"]:=SymbolChar[\"\\[RightArrow]\"]; End[]"\), SequenceForm[ "Old: ", "End[]", ", \nNew: ", "(*Below are the codes for arrows used by Mathematica*) \ TeXToPS[\"\\\\leftrightarrow\"]:=SymbolChar[\"\\[LeftRightArrow]\"]; TeXToPS[\ \"\\\\leftarrow\"]:=SymbolChar[\"\\[LeftArrow]\"]; \ TeXToPS[\"\\\\rightarrow\"]:=SmbolChar[\"\\[RightArrow]\"]; \ TeXToPS[\"\\\\to\"]:=SymbolChar[\"\\[RightArrow]\"]; End[]"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ \(TraditionalForm\`"/app/theorie/mathematica41/AddOns/Applications/\ HighEnergyPhysics//FeynArts.m"\)], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"Print[\"last revised 19 \ Oct 01\"]"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]"Print[\"last revised \ 19 Oct 01\"];\nPrint[\"patched for use with FeynCalc by Frederik Orellana\"];\ \n\n (*To avoid error messages on reload*)\n \ If[NumberQ[HighEnergyPhysics`FeynArts`$FeynArts],\n \ ClearAll[HighEnergyPhysics`FeynArts`Greek,HighEnergyPhysics`FeynArts`UCGreek],\ \n Remove[HighEnergyPhysics`FeynArts`$FeynArts]];"\), SequenceForm[ "Old: ", "Print[\"last revised 19 Oct 01\"]", ", \nNew: ", "Print[\"last revised 19 Oct 01\"];\nPrint[\"patched for use with \ FeynCalc by Frederik Orellana\"];\n\n (*To avoid error messages on reload*)\n \ If[NumberQ[HighEnergyPhysics`FeynArts`$FeynArts],\n \ ClearAll[HighEnergyPhysics`FeynArts`Greek,HighEnergyPhysics`FeynArts`UCGreek],\ \n Remove[HighEnergyPhysics`FeynArts`$FeynArts]];"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: \ "\[InvisibleSpace]"BeginPackage[\"FeynArts`\"]"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]"BeginPackage[\"HighEnergyPhysics`FeynArts`\"];"\), SequenceForm[ "Old: ", "BeginPackage[\"FeynArts`\"]", ", \nNew: ", "BeginPackage[\"HighEnergyPhysics`FeynArts`\"];"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"P$Generic = F | S | V | U \ | SV"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]"P$Generic = F | S | V | U \ | SV | HighEnergyPhysics`Phi`Objects`$ParticleHeads"\), SequenceForm[ "Old: ", "P$Generic = F | S | V | U | SV", ", \nNew: ", "P$Generic = F | S | V | U | SV | \ HighEnergyPhysics`Phi`Objects`$ParticleHeads"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"LoadPackage[ name_ ] :="\ \[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]"If[ValueQ[HighEnergyPhysics`FeynCalc`$FeynCalcDirectory], \ $FeynArtsDir=HighEnergyPhysics`FeynCalc`$FeynCalcDirectory<>$\ PathnameSeparator,\n Remove[HighEnergyPhysics`FeynCalc`$FeynCalcDirectory]];\n\ \nLoadPackage[ name_ ] :="\), SequenceForm[ "Old: ", "LoadPackage[ name_ ] :=", ", \nNew: ", "If[ValueQ[HighEnergyPhysics`FeynCalc`$FeynCalcDirectory], \ $FeynArtsDir=HighEnergyPhysics`FeynCalc`$FeynCalcDirectory<>$\ PathnameSeparator,\n Remove[HighEnergyPhysics`FeynCalc`$FeynCalcDirectory]];\n\ \nLoadPackage[ name_ ] :="], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ \(TraditionalForm\`"/app/theorie/mathematica41/AddOns/Applications/\ HighEnergyPhysics//FeynArts.m"\)], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"Possible types are: \ Incoming, Outgoing, External, Internal and Loop[n].\""\[InvisibleSpace]", \n\ New: "\[InvisibleSpace]"Possible types are: Incoming, Outgoing, External, \ Internal and HighEnergyPhysics`FeynCalc`Loop`Loop[n].\""\), SequenceForm[ "Old: ", "Possible types are: Incoming, Outgoing, External, Internal and \ Loop[n].\"", ", \nNew: ", "Possible types are: Incoming, Outgoing, External, Internal and \ HighEnergyPhysics`FeynCalc`Loop`Loop[n].\""], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"Loop::usage ="\ \[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]"HighEnergyPhysics`FeynCalc`Loop`Loop::usage ="\), SequenceForm[ "Old: ", "Loop::usage =", ", \nNew: ", "HighEnergyPhysics`FeynCalc`Loop`Loop::usage ="], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\"Propagator[Loop[n]][...] \ denotes a propagator on loop n.\""\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]"\"Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[n]][...] \ denotes a propagator on loop n.\""\), SequenceForm[ "Old: ", "\"Propagator[Loop[n]][...] denotes a propagator on loop n.\"", ", \nNew: ", "\"Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[n]][...] denotes \ a propagator on loop n.\""], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"Indices::usage ="\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]"FAIndices::usage ="\), SequenceForm[ "Old: ", "Indices::usage =", ", \nNew: ", "FAIndices::usage ="], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\"Indices[c] gives a list \ of index names of class c.\""\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]"\"FAIndices[c] gives a list of index names of class \ c.\""\), SequenceForm[ "Old: ", "\"Indices[c] gives a list of index names of class c.\"", ", \nNew: ", "\"FAIndices[c] gives a list of index names of class c.\""], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"FeynAmpList) of all \ insertions of Topology or TopologyList tops.\""\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]"FAFeynAmpList) of all insertions of Topology or \ TopologyList tops.\""\), SequenceForm[ "Old: ", "FeynAmpList) of all insertions of Topology or TopologyList \ tops.\"", ", \nNew: ", "FAFeynAmpList) of all insertions of Topology or TopologyList tops.\ \""], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"GaugeRules -> {GaugeXi[_] \ -> 1} (the default).\""\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]"GaugeRules -> \ {HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[_] -> 1} (the default).\""\), SequenceForm[ "Old: ", "GaugeRules -> {GaugeXi[_] -> 1} (the default).\"", ", \nNew: ", "GaugeRules -> {HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[_] -> 1} \ (the default).\""], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"each diagram. In the \ expression for the prefactor the symbol LoopNumber "\[InvisibleSpace]", \n\ New: "\[InvisibleSpace]"each diagram. In the expression for the prefactor the \ symbol HighEnergyPhysics`FeynCalc`Loop`LoopNumber "\), SequenceForm[ "Old: ", "each diagram. In the expression for the prefactor the symbol \ LoopNumber ", ", \nNew: ", "each diagram. In the expression for the prefactor the symbol \ HighEnergyPhysics`FeynCalc`Loop`LoopNumber "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"LoopNumber::usage ="\ \[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]"HighEnergyPhysics`FeynCalc`Loop`LoopNumber::usage ="\), SequenceForm[ "Old: ", "LoopNumber::usage =", ", \nNew: ", "HighEnergyPhysics`FeynCalc`Loop`LoopNumber::usage ="], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\"LoopNumber is used with \ the option PreFactor of CreateFeynAmp and is"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]"\"HighEnergyPhysics`FeynCalc`Loop`LoopNumber is used with \ the option PreFactor of CreateFeynAmp and is"\), SequenceForm[ "Old: ", "\"LoopNumber is used with the option PreFactor of CreateFeynAmp \ and is", ", \nNew: ", "\"HighEnergyPhysics`FeynCalc`Loop`LoopNumber is used with the \ option PreFactor of CreateFeynAmp and is"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"FeynAmp::usage ="\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]"FAFeynAmp::usage ="\), SequenceForm[ "Old: ", "FeynAmp::usage =", ", \nNew: ", "FAFeynAmp::usage ="], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\"FeynAmp is the head of a \ data structure that represents the analytical"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]"\"FAFeynAmp is the head of a data structure that represents \ the analytical"\), SequenceForm[ "Old: ", "\"FeynAmp is the head of a data structure that represents the \ analytical", ", \nNew: ", "\"FAFeynAmp is the head of a data structure that represents the \ analytical"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"FeynAmpList::usage ="\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]"FAFeynAmpList::usage ="\), SequenceForm[ "Old: ", "FeynAmpList::usage =", ", \nNew: ", "FAFeynAmpList::usage ="], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\"FeynAmpList is the head \ of a list of FeynAmps.\""\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]"\"FAFeynAmpList is the head of a list of FAFeynAmps.\""\), SequenceForm[ "Old: ", "\"FeynAmpList is the head of a list of FeynAmps.\"", ", \nNew: ", "\"FAFeynAmpList is the head of a list of FAFeynAmps.\""], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\"GraphID is the head of a \ data structure identifying a single FeynAmp in"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]"\"GraphID is the head of a data structure identifying a \ single FAFeynAmp in"\), SequenceForm[ "Old: ", "\"GraphID is the head of a data structure identifying a single \ FeynAmp in", ", \nNew: ", "\"GraphID is the head of a data structure identifying a single \ FAFeynAmp in"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"a FeynAmpList.\""\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]"a FAFeynAmpList.\""\), SequenceForm[ "Old: ", "a FeynAmpList.\"", ", \nNew: ", "a FAFeynAmpList.\""], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\"Integral[q] is a member \ of a FeynAmp data structure and contains the"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]"\"Integral[q] is a member of a FAFeynAmp data structure and \ contains the"\), SequenceForm[ "Old: ", "\"Integral[q] is a member of a FeynAmp data structure and contains \ the", ", \nNew: ", "\"Integral[q] is a member of a FAFeynAmp data structure and \ contains the"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: \ "\[InvisibleSpace]"PropagatorDenominator::usage ="\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]"HighEnergyPhysics`FeynCalc`PropagatorDenominator`\ PropagatorDenominator::usage ="\), SequenceForm[ "Old: ", "PropagatorDenominator::usage =", ", \nNew: ", "HighEnergyPhysics`FeynCalc`PropagatorDenominator`\ PropagatorDenominator::usage ="], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\"PropagatorDenominator[p, \ m] stands for the expression 1/(p^2 - m^2)"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]"\"HighEnergyPhysics`FeynCalc`PropagatorDenominator`\ PropagatorDenominator[p, m] stands for the expression 1/(p^2 - m^2)"\), SequenceForm[ "Old: ", "\"PropagatorDenominator[p, m] stands for the expression 1/(p^2 - \ m^2)", ", \nNew: ", "\"HighEnergyPhysics`FeynCalc`PropagatorDenominator`\ PropagatorDenominator[p, m] stands for the expression 1/(p^2 - m^2)"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"FeynAmpDenominator::usage \ ="\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]"HighEnergyPhysics`FeynCalc`FeynAmpDenominator`\ FeynAmpDenominator::usage ="\), SequenceForm[ "Old: ", "FeynAmpDenominator::usage =", ", \nNew: ", "HighEnergyPhysics`FeynCalc`FeynAmpDenominator`FeynAmpDenominator::\ usage ="], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\"FeynAmpDenominator[d1, \ d2, ...] contains the PropagatorDenominators"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]"\"HighEnergyPhysics`FeynCalc`FeynAmpDenominator`\ FeynAmpDenominator[d1, d2, ...] contains the \ HighEnergyPhysics`FeynCalc`PropagatorDenominator`PropagatorDenominators"\), SequenceForm[ "Old: ", "\"FeynAmpDenominator[d1, d2, ...] contains the \ PropagatorDenominators", ", \nNew: ", "\"HighEnergyPhysics`FeynCalc`FeynAmpDenominator`FeynAmpDenominator[\ d1, d2, ...] contains the \ HighEnergyPhysics`FeynCalc`PropagatorDenominator`PropagatorDenominators"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"GaugeXi::usage ="\ \[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]"HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi::usage ="\), SequenceForm[ "Old: ", "GaugeXi::usage =", ", \nNew: ", "HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi::usage ="], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\"GaugeXi[s] is a gauge \ parameter with index s.\""\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]"\"HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[s] is a gauge \ parameter with index s.\""\), SequenceForm[ "Old: ", "\"GaugeXi[s] is a gauge parameter with index s.\"", ", \nNew: ", "\"HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[s] is a gauge \ parameter with index s.\""], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"NonCommutative::usage ="\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]"FANonCommutative::usage ="\), SequenceForm[ "Old: ", "NonCommutative::usage =", ", \nNew: ", "FANonCommutative::usage ="], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\"NonCommutative is the \ head of noncommuting objects in a Feynman rule.\""\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]"\"FANonCommutative is the head of noncommuting objects in \ a Feynman rule.\""\), SequenceForm[ "Old: ", "\"NonCommutative is the head of noncommuting objects in a Feynman \ rule.\"", ", \nNew: ", "\"FANonCommutative is the head of noncommuting objects in a \ Feynman rule.\""], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"symbols with head \ NonCommutative in the Feynman rules) in closed fermion"\[InvisibleSpace]", \n\ New: "\[InvisibleSpace]"symbols with head FANonCommutative in the Feynman \ rules) in closed fermion"\), SequenceForm[ "Old: ", "symbols with head NonCommutative in the Feynman rules) in closed \ fermion", ", \nNew: ", "symbols with head FANonCommutative in the Feynman rules) in closed \ fermion"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"symbols with head \ NonCommutative in the Feynman rules) in open fermion"\[InvisibleSpace]", \n\ New: "\[InvisibleSpace]"symbols with head FANonCommutative in the Feynman \ rules) in open fermion"\), SequenceForm[ "Old: ", "symbols with head NonCommutative in the Feynman rules) in open \ fermion", ", \nNew: ", "symbols with head FANonCommutative in the Feynman rules) in open \ fermion"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ \(TraditionalForm\`"/app/theorie/mathematica41/AddOns/Applications/\ HighEnergyPhysics//Setup.m"\)], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"$Verbose = 2"\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]"$Verbose := \ HighEnergyPhysics`FeynCalc`$VeryVerbose"\), SequenceForm[ "Old: ", "$Verbose = 2", ", \nNew: ", "$Verbose := HighEnergyPhysics`FeynCalc`$VeryVerbose"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ \(TraditionalForm\`"/app/theorie/mathematica41/AddOns/Applications/\ HighEnergyPhysics//FeynArts/Analytic.m"\)], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" GaugeRules -> {_GaugeXi \ -> 1,"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" GaugeRules -> \ {_HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi -> 1,"\), SequenceForm[ "Old: ", " GaugeRules -> {_GaugeXi -> 1,", ", \nNew: ", " GaugeRules -> {_HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi -> \ 1,"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" PreFactor -> -I (2 \ Pi)^(-4 LoopNumber),"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ PreFactor -> -I (2 Pi)^(-4 HighEnergyPhysics`FeynCalc`Loop`LoopNumber),"\), SequenceForm[ "Old: ", " PreFactor -> -I (2 Pi)^(-4 LoopNumber),", ", \nNew: ", " PreFactor -> -I (2 Pi)^(-4 \ HighEnergyPhysics`FeynCalc`Loop`LoopNumber),"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" PreFactor -> -I \ (Global`Mu^(4 - $D) / (2 Pi)^$D)^LoopNumber *)"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" PreFactor -> -I (Global`Mu^(4 - $D) / (2 \ Pi)^$D)^HighEnergyPhysics`FeynCalc`Loop`LoopNumber *)"\), SequenceForm[ "Old: ", " PreFactor -> -I (Global`Mu^(4 - $D) / (2 Pi)^$D)^LoopNumber *)", ", \nNew: ", " PreFactor -> -I (Global`Mu^(4 - $D) / (2 \ Pi)^$D)^HighEnergyPhysics`FeynCalc`Loop`LoopNumber *)"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" amps = \ (FeynAmpList[info] /."\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" amps = \ (FAFeynAmpList[info] /."\), SequenceForm[ "Old: ", " amps = (FeynAmpList[info] /.", ", \nNew: ", " amps = (FAFeynAmpList[info] /."], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" toppref = pref /. \ LoopNumber :> Genus[top];"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ toppref = pref /. HighEnergyPhysics`FeynCalc`Loop`LoopNumber :> \ Genus[top];"\), SequenceForm[ "Old: ", " toppref = pref /. LoopNumber :> Genus[top];", ", \nNew: ", " toppref = pref /. HighEnergyPhysics`FeynCalc`Loop`LoopNumber :> \ Genus[top];"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" FourMomentum[type /. \ {Loop[_] -> ZZZ[1], Internal -> ZZZ[3]},"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" FourMomentum[type /. \ {HighEnergyPhysics`FeynCalc`Loop`Loop[_] -> ZZZ[1], Internal -> ZZZ[3]},"\), SequenceForm[ "Old: ", " FourMomentum[type /. {Loop[_] -> ZZZ[1], Internal -> ZZZ[3]},", ", \nNew: ", " FourMomentum[type /. {HighEnergyPhysics`FeynCalc`Loop`Loop[_] \ -> ZZZ[1], Internal -> ZZZ[3]},"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"AppendMomentum[ \ pr:Propagator[Loop[_]][__] ] :="\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]"AppendMomentum[ \ pr:Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[_]][__] ] :="\), SequenceForm[ "Old: ", "AppendMomentum[ pr:Propagator[Loop[_]][__] ] :=", ", \nNew: ", "AppendMomentum[ \ pr:Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[_]][__] ] :="], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" G[_][_][__][__] | \ Mass[_] | GaugeXi[_] | VertexFunction[_][__],"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" G[_][_][__][__] | Mass[_] | \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[_] | VertexFunction[_][__],"\), SequenceForm[ "Old: ", " G[_][_][__][__] | Mass[_] | GaugeXi[_] | \ VertexFunction[_][__],", ", \nNew: ", " G[_][_][__][__] | Mass[_] | \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[_] | VertexFunction[_][__],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" FeynAmp["\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]" FAFeynAmp["\), SequenceForm[ "Old: ", " FeynAmp[", ", \nNew: ", " FAFeynAmp["], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ LoopPD[Expand[Times@@ Flatten[prden], PropagatorDenominator]] *"\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]" LoopPD[Expand[Times@@ \ Flatten[prden], \ HighEnergyPhysics`FeynCalc`PropagatorDenominator`PropagatorDenominator]] *"\), SequenceForm[ "Old: ", " LoopPD[Expand[Times@@ Flatten[prden], \ PropagatorDenominator]] *", ", \nNew: ", " LoopPD[Expand[Times@@ Flatten[prden], \ HighEnergyPhysics`FeynCalc`PropagatorDenominator`PropagatorDenominator]] *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"NonCommutative[ 1 ] = \ Sequence[]"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]"FANonCommutative[ 1 \ ] = Sequence[]"\), SequenceForm[ "Old: ", "NonCommutative[ 1 ] = Sequence[]", ", \nNew: ", "FANonCommutative[ 1 ] = Sequence[]"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" I PV[ If[FreeQ[v, F | \ U | HighEnergyPhysics`Phi`Objects`$FermionHeads], Identity, NonCommutative]["\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]" I PV[ If[FreeQ[v, F | U | \ HighEnergyPhysics`Phi`Objects`$FermionHeads], Identity, FANonCommutative]["\), SequenceForm[ "Old: ", " I PV[ If[FreeQ[v, F | U | \ HighEnergyPhysics`Phi`Objects`$FermionHeads], Identity, NonCommutative][", ", \nNew: ", " I PV[ If[FreeQ[v, F | U | \ HighEnergyPhysics`Phi`Objects`$FermionHeads], Identity, FANonCommutative]["], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" # /. {Loop[_] -> \ Internal, Incoming | Outgoing -> External} &,"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" # /. {HighEnergyPhysics`FeynCalc`Loop`Loop[_] -> \ Internal, Incoming | Outgoing -> External} &,"\), SequenceForm[ "Old: ", " # /. {Loop[_] -> Internal, Incoming | Outgoing -> \ External} &,", ", \nNew: ", " # /. {HighEnergyPhysics`FeynCalc`Loop`Loop[_] -> Internal, \ Incoming | Outgoing -> External} &,"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" s = Select[f, FreeQ[#, \ NonCommutative]&];"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" s = \ Select[f, FreeQ[#, FANonCommutative]&];"\), SequenceForm[ "Old: ", " s = Select[f, FreeQ[#, NonCommutative]&];", ", \nNew: ", " s = Select[f, FreeQ[#, FANonCommutative]&];"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" AppendTo[scalars, \ Select[s, FreeQ[#, PropagatorDenominator]&]];"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" AppendTo[scalars, Select[s, FreeQ[#, \ HighEnergyPhysics`FeynCalc`PropagatorDenominator`PropagatorDenominator]&]];"\)\ , SequenceForm[ "Old: ", " AppendTo[scalars, Select[s, FreeQ[#, PropagatorDenominator]&]];", ", \nNew: ", " AppendTo[scalars, Select[s, FreeQ[#, \ HighEnergyPhysics`FeynCalc`PropagatorDenominator`PropagatorDenominator]&]];"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" AppendTo[prden, \ Select[s, !FreeQ[#, PropagatorDenominator]&]];"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" AppendTo[prden, Select[s, !FreeQ[#, \ HighEnergyPhysics`FeynCalc`PropagatorDenominator`PropagatorDenominator]&]];"\)\ , SequenceForm[ "Old: ", " AppendTo[prden, Select[s, !FreeQ[#, PropagatorDenominator]&]];", ", \nNew: ", " AppendTo[prden, Select[s, !FreeQ[#, \ HighEnergyPhysics`FeynCalc`PropagatorDenominator`PropagatorDenominator]&]];"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" Sequence@@ Select[f, \ !FreeQ[#, NonCommutative]&]"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ Sequence@@ Select[f, !FreeQ[#, FANonCommutative]&]"\), SequenceForm[ "Old: ", " Sequence@@ Select[f, !FreeQ[#, NonCommutative]&]", ", \nNew: ", " Sequence@@ Select[f, !FreeQ[#, FANonCommutative]&]"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" Select[p, FreeQ[#, \ PropagatorDenominator]&] *"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ Select[p, FreeQ[#, \ HighEnergyPhysics`FeynCalc`PropagatorDenominator`PropagatorDenominator]&] \ *"\), SequenceForm[ "Old: ", " Select[p, FreeQ[#, PropagatorDenominator]&] *", ", \nNew: ", " Select[p, FreeQ[#, \ HighEnergyPhysics`FeynCalc`PropagatorDenominator`PropagatorDenominator]&] *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" LoopPD@@ Cases[p, \ HoldPattern[PropagatorDenominator[__]]]"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" LoopPD@@ Cases[p, \ HoldPattern[HighEnergyPhysics`FeynCalc`PropagatorDenominator`\ PropagatorDenominator[__]]]"\), SequenceForm[ "Old: ", " LoopPD@@ Cases[p, HoldPattern[PropagatorDenominator[__]]]", ", \nNew: ", " LoopPD@@ Cases[p, \ HoldPattern[HighEnergyPhysics`FeynCalc`PropagatorDenominator`\ PropagatorDenominator[__]]]"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"LoopPD[ \ p__PropagatorDenominator ] :="\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]"LoopPD[ \ p__HighEnergyPhysics`FeynCalc`PropagatorDenominator`PropagatorDenominator ] \ :="\), SequenceForm[ "Old: ", "LoopPD[ p__PropagatorDenominator ] :=", ", \nNew: ", "LoopPD[ \ p__HighEnergyPhysics`FeynCalc`PropagatorDenominator`PropagatorDenominator ] \ :="], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" FeynAmpDenominator@@ \ SortPD/@ Select[{p}, !FreeQ[#, Internal]&]"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" \ HighEnergyPhysics`FeynCalc`FeynAmpDenominator`FeynAmpDenominator@@ SortPD/@ \ Select[{p}, !FreeQ[#, Internal]&]"\), SequenceForm[ "Old: ", " FeynAmpDenominator@@ SortPD/@ Select[{p}, !FreeQ[#, \ Internal]&]", ", \nNew: ", " HighEnergyPhysics`FeynCalc`FeynAmpDenominator`\ FeynAmpDenominator@@ SortPD/@ Select[{p}, !FreeQ[#, Internal]&]"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"SortPD[ \ PropagatorDenominator[mom_, mass_] ] :="\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]"SortPD[ \ HighEnergyPhysics`FeynCalc`PropagatorDenominator`PropagatorDenominator[mom_, \ mass_] ] :="\), SequenceForm[ "Old: ", "SortPD[ PropagatorDenominator[mom_, mass_] ] :=", ", \nNew: ", "SortPD[ \ HighEnergyPhysics`FeynCalc`PropagatorDenominator`PropagatorDenominator[mom_, \ mass_] ] :="], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" PropagatorDenominator[ \ Expand[-mom], mass ] /;"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ HighEnergyPhysics`FeynCalc`PropagatorDenominator`PropagatorDenominator[ \ Expand[-mom], mass ] /;"\), SequenceForm[ "Old: ", " PropagatorDenominator[ Expand[-mom], mass ] /;", ", \nNew: ", " HighEnergyPhysics`FeynCalc`PropagatorDenominator`\ PropagatorDenominator[ Expand[-mom], mass ] /;"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"Attributes[ \ FeynAmpDenominator ] = {Orderless}"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]"Attributes[ \ HighEnergyPhysics`FeynCalc`FeynAmpDenominator`FeynAmpDenominator ] = \ {Orderless}"\), SequenceForm[ "Old: ", "Attributes[ FeynAmpDenominator ] = {Orderless}", ", \nNew: ", "Attributes[ \ HighEnergyPhysics`FeynCalc`FeynAmpDenominator`FeynAmpDenominator ] = \ {Orderless}"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"FeynAmpDenominator[ ] = 1"\ \[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]"HighEnergyPhysics`FeynCalc`FeynAmpDenominator`\ FeynAmpDenominator[ ] = 1"\), SequenceForm[ "Old: ", "FeynAmpDenominator[ ] = 1", ", \nNew: ", "HighEnergyPhysics`FeynCalc`FeynAmpDenominator`FeynAmpDenominator[ \ ] = 1"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"Format[ \ NonCommutative[nc__] ] := Dot[nc]"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]"Format[ FANonCommutative[nc__] ] := Dot[nc]"\), SequenceForm[ "Old: ", "Format[ NonCommutative[nc__] ] := Dot[nc]", ", \nNew: ", "Format[ FANonCommutative[nc__] ] := Dot[nc]"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"Format[ \ PropagatorDenominator[a_, b_] ] :="\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]"Format[ \ HighEnergyPhysics`FeynCalc`PropagatorDenominator`PropagatorDenominator[a_, \ b_] ] :="\), SequenceForm[ "Old: ", "Format[ PropagatorDenominator[a_, b_] ] :=", ", \nNew: ", "Format[ \ HighEnergyPhysics`FeynCalc`PropagatorDenominator`PropagatorDenominator[a_, \ b_] ] :="], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\"Warning: FeynAmps have \ already been picked at a different level, `1`"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]"\"Warning: FAFeynAmps have already been picked at a \ different level, `1`"\), SequenceForm[ "Old: ", "\"Warning: FeynAmps have already been picked at a different level, \ `1`", ", \nNew: ", "\"Warning: FAFeynAmps have already been picked at a different \ level, `1`"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"PickLevel[ lev_ ][ \ amps:FeynAmpList[___][___] ] :="\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]"PickLevel[ lev_ ][ amps:FAFeynAmpList[___][___] ] :="\), SequenceForm[ "Old: ", "PickLevel[ lev_ ][ amps:FeynAmpList[___][___] ] :=", ", \nNew: ", "PickLevel[ lev_ ][ amps:FAFeynAmpList[___][___] ] :="], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"PickLevel[ lev_ ][ \ amp_FeynAmp ] :="\[InvisibleSpace]", \nNew: "\[InvisibleSpace]"PickLevel[ \ lev_ ][ amp_FAFeynAmp ] :="\), SequenceForm[ "Old: ", "PickLevel[ lev_ ][ amp_FeynAmp ] :=", ", \nNew: ", "PickLevel[ lev_ ][ amp_FAFeynAmp ] :="], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" FeynAmpList[][ \ LevelPick[lev][amp /. Number == _ :> Seq[]] ]"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" FAFeynAmpList[][ LevelPick[lev][amp /. Number == _ :> \ Seq[]] ]"\), SequenceForm[ "Old: ", " FeynAmpList[][ LevelPick[lev][amp /. Number == _ :> Seq[]] ]", ", \nNew: ", " FAFeynAmpList[][ LevelPick[lev][amp /. Number == _ :> Seq[]] ]"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"Block[ {GraphID, \ FourMomentum, Conjugate, Global`PolarizationVector,"\[InvisibleSpace]", \n\ New: "\[InvisibleSpace]"Block[ {GraphID, FourMomentum, Conjugate, \ Global`FAPolarizationVector,"\), SequenceForm[ "Old: ", "Block[ {GraphID, FourMomentum, Conjugate, \ Global`PolarizationVector,", ", \nNew: ", "Block[ {GraphID, FourMomentum, Conjugate, \ Global`FAPolarizationVector,"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"Global`DiracSpinor, Index, \ Integral = Sequence, FermionChain = Dot,"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]"HighEnergyPhysics`FeynCalc`DiracSpinor`DiracSpinor, Index, \ Integral = Sequence, FermionChain = Dot,"\), SequenceForm[ "Old: ", "Global`DiracSpinor, Index, Integral = Sequence, FermionChain = \ Dot,", ", \nNew: ", "HighEnergyPhysics`FeynCalc`DiracSpinor`DiracSpinor, Index, \ Integral = Sequence, FermionChain = Dot,"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"NonCommutative = Dot, \ MatrixTrace = Global`DiracTrace},"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]"FANonCommutative = Dot, MatrixTrace = \ HighEnergyPhysics`FeynCalc`DiracTrace`DiracTrace},"\), SequenceForm[ "Old: ", "NonCommutative = Dot, MatrixTrace = Global`DiracTrace},", ", \nNew: ", "FANonCommutative = Dot, MatrixTrace = \ HighEnergyPhysics`FeynCalc`DiracTrace`DiracTrace},"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Conjugate[Global`PolarizationVector][ args__ ] :="\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" Conjugate[Global`FAPolarizationVector][ args__ ] :="\), SequenceForm[ "Old: ", " Conjugate[Global`PolarizationVector][ args__ ] :=", ", \nNew: ", " Conjugate[Global`FAPolarizationVector][ args__ ] :="], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" Conjugate[ \ Global`PolarizationVector[args] ];"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" Conjugate[ Global`FAPolarizationVector[args] ];"\), SequenceForm[ "Old: ", " Conjugate[ Global`PolarizationVector[args] ];", ", \nNew: ", " Conjugate[ Global`FAPolarizationVector[args] ];"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Global`PolarizationVector[ _, mom_, li_ ] ="\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" Global`FAPolarizationVector[ _, mom_, li_ ] ="\), SequenceForm[ "Old: ", " Global`PolarizationVector[ _, mom_, li_ ] =", ", \nNew: ", " Global`FAPolarizationVector[ _, mom_, li_ ] ="], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Global`PolarizationVector[mom, li];"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" Global`FAPolarizationVector[mom, li];"\), SequenceForm[ "Old: ", " Global`PolarizationVector[mom, li];", ", \nNew: ", " Global`FAPolarizationVector[mom, li];"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ \(TraditionalForm\`"/app/theorie/mathematica41/AddOns/Applications/\ HighEnergyPhysics//FeynArts/Graphics.m"\)], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"pr[ Loop[l_] ][ from_, \ to_, ___ ] := ("\[InvisibleSpace]", \nNew: "\[InvisibleSpace]"pr[ \ HighEnergyPhysics`FeynCalc`Loop`Loop[l_] ][ from_, to_, ___ ] := ("\), SequenceForm[ "Old: ", "pr[ Loop[l_] ][ from_, to_, ___ ] := (", ", \nNew: ", "pr[ HighEnergyPhysics`FeynCalc`Loop`Loop[l_] ][ from_, to_, ___ ] \ := ("], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" pt[ _[Loop[n_]][v_, v_], \ _ ] :="\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" pt[ \ _[HighEnergyPhysics`FeynCalc`Loop`Loop[n_]][v_, v_], _ ] :="\), SequenceForm[ "Old: ", " pt[ _[Loop[n_]][v_, v_], _ ] :=", ", \nNew: ", " pt[ _[HighEnergyPhysics`FeynCalc`Loop`Loop[n_]][v_, v_], _ ] \ :="], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"ShortHand[ Loop[_] ] = \ \"Loop\""\[InvisibleSpace]", \nNew: "\[InvisibleSpace]"ShortHand[ \ HighEnergyPhysics`FeynCalc`Loop`Loop[_] ] = \"Loop\""\), SequenceForm[ "Old: ", "ShortHand[ Loop[_] ] = \"Loop\"", ", \nNew: ", "ShortHand[ HighEnergyPhysics`FeynCalc`Loop`Loop[_] ] = \"Loop\""], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ \(TraditionalForm\`"/app/theorie/mathematica41/AddOns/Applications/\ HighEnergyPhysics//FeynArts/Initialize.m"\)], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\tAntiParticle, Indices, \ SelfConjugate, TheMass, TheLabel, etc."\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]"\tAntiParticle, FAIndices, SelfConjugate, TheMass, \ TheLabel, etc."\), SequenceForm[ "Old: ", "\tAntiParticle, Indices, SelfConjugate, TheMass, TheLabel, etc.", ", \nNew: ", "\tAntiParticle, FAIndices, SelfConjugate, TheMass, TheLabel, \ etc."], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" Function[ fi, If[ \ Indices[fi] === {}, fi,"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ Function[ fi, If[ FAIndices[fi] === {}, fi,"\), SequenceForm[ "Old: ", " Function[ fi, If[ Indices[fi] === {}, fi,", ", \nNew: ", " Function[ fi, If[ FAIndices[fi] === {}, fi,"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" (IndexRange/@ \ Indices[fi] /. {} | _NoUnfold -> {_})] ] ]/@"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" (IndexRange/@ FAIndices[fi] /. {} | _NoUnfold -> \ {_})] ] ]/@"\), SequenceForm[ "Old: ", " (IndexRange/@ Indices[fi] /. {} | _NoUnfold -> {_})] ] \ ]/@", ", \nNew: ", " (IndexRange/@ FAIndices[fi] /. {} | _NoUnfold -> {_})] ] \ ]/@"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" {Length[Indices[fi[n]]], \ Length[ndx]}"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ {Length[FAIndices[fi[n]]], Length[ndx]}"\), SequenceForm[ "Old: ", " {Length[Indices[fi[n]]], Length[ndx]}", ", \nNew: ", " {Length[FAIndices[fi[n]]], Length[ndx]}"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"Indices[ _Integer fi_ ] := \ Indices[fi]"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]"FAIndices[ _Integer \ fi_ ] := FAIndices[fi]"\), SequenceForm[ "Old: ", "Indices[ _Integer fi_ ] := Indices[fi]", ", \nNew: ", "FAIndices[ _Integer fi_ ] := FAIndices[fi]"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"Indices[ fi_[i_, __] ] := \ Indices[fi[i]]"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]"FAIndices[ \ fi_[i_, __] ] := FAIndices[fi[i]]"\), SequenceForm[ "Old: ", "Indices[ fi_[i_, __] ] := Indices[fi[i]]", ", \nNew: ", "FAIndices[ fi_[i_, __] ] := FAIndices[fi[i]]"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"Indices[ _ ] = {}"\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]"FAIndices[ _ ] = {}"\), SequenceForm[ "Old: ", "Indices[ _ ] = {}", ", \nNew: ", "FAIndices[ _ ] = {}"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" TheLabel[fi[i]] /. \ Thread[ Indices[fi[i]] ->"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ TheLabel[fi[i]] /. Thread[ FAIndices[fi[i]] ->"\), SequenceForm[ "Old: ", " TheLabel[fi[i]] /. Thread[ Indices[fi[i]] ->", ", \nNew: ", " TheLabel[fi[i]] /. Thread[ FAIndices[fi[i]] ->"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" Table[Null, \ {Length[Indices[fi[i]]] - Length[ndx]}]] ]"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" Table[Null, {Length[FAIndices[fi[i]]] - \ Length[ndx]}]] ]"\), SequenceForm[ "Old: ", " Table[Null, {Length[Indices[fi[i]]] - Length[ndx]}]] ]", ", \nNew: ", " Table[Null, {Length[FAIndices[fi[i]]] - Length[ndx]}]] ]"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"GaugeXi[ _Integer fi_ ] := \ GaugeXi[fi]"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]"HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[ _Integer fi_ ] \ := HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[fi]"\), SequenceForm[ "Old: ", "GaugeXi[ _Integer fi_ ] := GaugeXi[fi]", ", \nNew: ", "HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[ _Integer fi_ ] := \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[fi]"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ \(TraditionalForm\`"/app/theorie/mathematica41/AddOns/Applications/\ HighEnergyPhysics//FeynArts/Insert.m"\)], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" InModelQ[s fi[i]] && \ Length[j] <= Length[Indices[fi[i]]] &&"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" InModelQ[s fi[i]] && Length[j] <= \ Length[FAIndices[fi[i]]] &&"\), SequenceForm[ "Old: ", " InModelQ[s fi[i]] && Length[j] <= Length[Indices[fi[i]]] &&", ", \nNew: ", " InModelQ[s fi[i]] && Length[j] <= Length[FAIndices[fi[i]]] &&"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Transpose[{Take[Indices[fi[i]], Length[j]], j}], 1 ];"\[InvisibleSpace]", \n\ New: "\[InvisibleSpace]" Transpose[{Take[FAIndices[fi[i]], Length[j]], \ j}], 1 ];"\), SequenceForm[ "Old: ", " Transpose[{Take[Indices[fi[i]], Length[j]], j}], 1 ];", ", \nNew: ", " Transpose[{Take[FAIndices[fi[i]], Length[j]], j}], 1 ];"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"InsertOK[ fi_, Loop[_] ] \ := !FreeQ[InsertOnly[fi], Loop]"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]"InsertOK[ fi_, HighEnergyPhysics`FeynCalc`Loop`Loop[_] ] \ := !FreeQ[InsertOnly[fi], HighEnergyPhysics`FeynCalc`Loop`Loop]"\), SequenceForm[ "Old: ", "InsertOK[ fi_, Loop[_] ] := !FreeQ[InsertOnly[fi], Loop]", ", \nNew: ", "InsertOK[ fi_, HighEnergyPhysics`FeynCalc`Loop`Loop[_] ] := \ !FreeQ[InsertOnly[fi], HighEnergyPhysics`FeynCalc`Loop`Loop]"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ cins:Insertions[Classes][__] :> pfilter[ProvideIndices/@ cins];"\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ cins:Insertions[Classes][__] :> pfilter[ProvideFAIndices/@ cins];"\), SequenceForm[ "Old: ", " cins:Insertions[Classes][__] :> pfilter[ProvideIndices/@ \ cins];", ", \nNew: ", " cins:Insertions[Classes][__] :> pfilter[ProvideFAIndices/@ \ cins];"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" (Field[ind] -> s Append[ \ fi, Append[#, ind]&/@ Indices[fi] ]) /;"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" (Field[ind] -> s Append[ fi, Append[#, ind]&/@ \ FAIndices[fi] ]) /;"\), SequenceForm[ "Old: ", " (Field[ind] -> s Append[ fi, Append[#, ind]&/@ Indices[fi] ]) \ /;", ", \nNew: ", " (Field[ind] -> s Append[ fi, Append[#, ind]&/@ FAIndices[fi] ]) \ /;"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" Indices[fi] =!= {}"\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]" FAIndices[fi] =!= {}"\), SequenceForm[ "Old: ", " Indices[fi] =!= {}", ", \nNew: ", " FAIndices[fi] =!= {}"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" Append[#, ind]&/@ \ Drop[Indices[fi[i]], Length[j]] ]]) /;"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" Append[#, ind]&/@ Drop[FAIndices[fi[i]], Length[j]] ]]) \ /;"\), SequenceForm[ "Old: ", " Append[#, ind]&/@ Drop[Indices[fi[i]], Length[j]] ]]) /;", ", \nNew: ", " Append[#, ind]&/@ Drop[FAIndices[fi[i]], Length[j]] ]]) /;"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" Length[j] < \ Length[Indices[fi[i]]]"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ Length[j] < Length[FAIndices[fi[i]]]"\), SequenceForm[ "Old: ", " Length[j] < Length[Indices[fi[i]]]", ", \nNew: ", " Length[j] < Length[FAIndices[fi[i]]]"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"ProvideIndices[ ru_ ] :="\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]"ProvideFAIndices[ ru_ ] :="\), SequenceForm[ "Old: ", "ProvideIndices[ ru_ ] :=", ", \nNew: ", "ProvideFAIndices[ ru_ ] :="], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" Cases[top, \ Propagator[Loop[n_]][_, _, fi_] :> (loo[n] += fi)];"\[InvisibleSpace]", \n\ New: "\[InvisibleSpace]" Cases[top, \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[n_]][_, _, fi_] :> (loo[n] += \ fi)];"\), SequenceForm[ "Old: ", " Cases[top, Propagator[Loop[n_]][_, _, fi_] :> (loo[n] += fi)];", ", \nNew: ", " Cases[top, \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[n_]][_, _, fi_] :> (loo[n] += \ fi)];"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ \(TraditionalForm\`"/app/theorie/mathematica41/AddOns/Applications/\ HighEnergyPhysics//FeynArts/Topology.m"\)], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" of loops have the \ SAME loop number (the n in Loop[n]), no matter how "\[InvisibleSpace]", \n\ New: "\[InvisibleSpace]" of loops have the SAME loop number (the n in \ HighEnergyPhysics`FeynCalc`Loop`Loop[n]), no matter how "\), SequenceForm[ "Old: ", " of loops have the SAME loop number (the n in Loop[n]), no \ matter how ", ", \nNew: ", " of loops have the SAME loop number (the n in \ HighEnergyPhysics`FeynCalc`Loop`Loop[n]), no matter how "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" topology `Theta' has \ only Loop[1] propagators."\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ topology `Theta' has only HighEnergyPhysics`FeynCalc`Loop`Loop[1] \ propagators."\), SequenceForm[ "Old: ", " topology `Theta' has only Loop[1] propagators.", ", \nNew: ", " topology `Theta' has only \ HighEnergyPhysics`FeynCalc`Loop`Loop[1] propagators."], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[3][2], Vertex[3][2]] ]"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][2], \ Vertex[3][2]] ]"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[3][2], Vertex[3][2]] ]", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][\ 2], Vertex[3][2]] ]"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[2, 1][1], Vertex[2, 1][1]] ],"\[InvisibleSpace]", \ \nNew: "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[2, 1][1], \ Vertex[2, 1][1]] ],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[2, 1][1], Vertex[2, 1][1]] ],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[2, \ 1][1], Vertex[2, 1][1]] ],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[3][2], Vertex[3][2]] ]"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][2], \ Vertex[3][2]] ]"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[3][2], Vertex[3][2]] ]", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][\ 2], Vertex[3][2]] ]"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[2, 2][1], Vertex[2, 2][1]] ],"\[InvisibleSpace]", \ \nNew: "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[2, 2][1], \ Vertex[2, 2][1]] ],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[2, 2][1], Vertex[2, 2][1]] ],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[2, \ 2][1], Vertex[2, 2][1]] ],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[3][2], Vertex[3][2]] ],"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][2], \ Vertex[3][2]] ],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[3][2], Vertex[3][2]] ],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][\ 2], Vertex[3][2]] ],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[2, 1][3], Vertex[3][2]],"\[InvisibleSpace]", \n\ New: "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[2, 1][3], \ Vertex[3][2]],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[2, 1][3], Vertex[3][2]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[2, \ 1][3], Vertex[3][2]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[2, 1][3], Vertex[3][2]] ],"\[InvisibleSpace]", \n\ New: "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[2, 1][3], \ Vertex[3][2]] ],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[2, 1][3], Vertex[3][2]] ],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[2, \ 1][3], Vertex[3][2]] ],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[3][3], Vertex[3][3]] ],"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][3], \ Vertex[3][3]] ],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[3][3], Vertex[3][3]] ],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][\ 3], Vertex[3][3]] ],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[2, 1][-2], Vertex[2, 1][-1]],"\[InvisibleSpace]", \ \nNew: "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[2, 1][-2], \ Vertex[2, 1][-1]],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[2, 1][-2], Vertex[2, 1][-1]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[2, \ 1][-2], Vertex[2, 1][-1]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[2, 1][-2], Vertex[2, 1][-1]] \ ],"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[2, 1][-2], \ Vertex[2, 1][-1]] ],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[2, 1][-2], Vertex[2, 1][-1]] ],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[2, \ 1][-2], Vertex[2, 1][-1]] ],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[3][2], Vertex[3][2]] ],"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][2], \ Vertex[3][2]] ],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[3][2], Vertex[3][2]] ],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][\ 2], Vertex[3][2]] ],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[3, 1][2], Vertex[3, 1][2]] ],"\[InvisibleSpace]", \ \nNew: "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3, 1][2], \ Vertex[3, 1][2]] ],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[3, 1][2], Vertex[3, 1][2]] ],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3, \ 1][2], Vertex[3, 1][2]] ],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[3][-4], Vertex[3][-2]],"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-4], \ Vertex[3][-2]],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[3][-4], Vertex[3][-2]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-\ 4], Vertex[3][-2]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[3][-4], Vertex[3][-2]] ],"\[InvisibleSpace]", \n\ New: "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-4], \ Vertex[3][-2]] ],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[3][-4], Vertex[3][-2]] ],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-\ 4], Vertex[3][-2]] ],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[4][1], Vertex[4][1]] ]"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[4][1], \ Vertex[4][1]] ]"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[4][1], Vertex[4][1]] ]", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[4][\ 1], Vertex[4][1]] ]"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[3][-2], Vertex[3][-1]],"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-2], \ Vertex[3][-1]],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[3][-2], Vertex[3][-1]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-\ 2], Vertex[3][-1]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[3][-2], Vertex[3][-1]],"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-2], \ Vertex[3][-1]],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[3][-2], Vertex[3][-1]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-\ 2], Vertex[3][-1]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[3][-2], Vertex[3][-1]] ],"\[InvisibleSpace]", \n\ New: "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-2], \ Vertex[3][-1]] ],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[3][-2], Vertex[3][-1]] ],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-\ 2], Vertex[3][-1]] ],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[4][1], Vertex[4][1]],"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[4][1], \ Vertex[4][1]],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[4][1], Vertex[4][1]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[4][\ 1], Vertex[4][1]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[4][1], Vertex[4][1]] ],"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[4][1], \ Vertex[4][1]] ],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[4][1], Vertex[4][1]] ],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[4][\ 1], Vertex[4][1]] ],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[3][-2], Vertex[3][-2]],"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-2], \ Vertex[3][-2]],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[3][-2], Vertex[3][-2]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-\ 2], Vertex[3][-2]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[2]][Vertex[3][-1], Vertex[3][-1]] ]"\[InvisibleSpace]", \n\ New: "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[2]][Vertex[3][-1], \ Vertex[3][-1]] ]"\), SequenceForm[ "Old: ", " Propagator[Loop[2]][Vertex[3][-1], Vertex[3][-1]] ]", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[2]][Vertex[3][-\ 1], Vertex[3][-1]] ]"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[3][-2], Vertex[3, 1][-1]],"\[InvisibleSpace]", \n\ New: "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-2], Vertex[3, \ 1][-1]],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[3][-2], Vertex[3, 1][-1]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-\ 2], Vertex[3, 1][-1]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[3][-2], Vertex[3, 1][-1]],"\[InvisibleSpace]", \n\ New: "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-2], Vertex[3, \ 1][-1]],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[3][-2], Vertex[3, 1][-1]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-\ 2], Vertex[3, 1][-1]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[3][-2], Vertex[3, 1][-1]] ],"\[InvisibleSpace]", \n\ New: "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-2], Vertex[3, \ 1][-1]] ],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[3][-2], Vertex[3, 1][-1]] ],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-\ 2], Vertex[3, 1][-1]] ],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[2, 1][1], Vertex[3][-1]],"\[InvisibleSpace]", \n\ New: "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[2, 1][1], \ Vertex[3][-1]],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[2, 1][1], Vertex[3][-1]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[2, \ 1][1], Vertex[3][-1]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[2, 1][1], Vertex[3][-2]],"\[InvisibleSpace]", \n\ New: "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[2, 1][1], \ Vertex[3][-2]],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[2, 1][1], Vertex[3][-2]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[2, \ 1][1], Vertex[3][-2]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[3][-2], Vertex[3][-1]],"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-2], \ Vertex[3][-1]],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[3][-2], Vertex[3][-1]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-\ 2], Vertex[3][-1]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[3][-2], Vertex[3][-1]] ],"\[InvisibleSpace]", \n\ New: "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-2], \ Vertex[3][-1]] ],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[3][-2], Vertex[3][-1]] ],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-\ 2], Vertex[3][-1]] ],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[3][-3], Vertex[3][-3]],"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-3], \ Vertex[3][-3]],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[3][-3], Vertex[3][-3]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-\ 3], Vertex[3][-3]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[2]][Vertex[3][-2], Vertex[3][-2]] ],"\[InvisibleSpace]", \n\ New: "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[2]][Vertex[3][-2], \ Vertex[3][-2]] ],"\), SequenceForm[ "Old: ", " Propagator[Loop[2]][Vertex[3][-2], Vertex[3][-2]] ],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[2]][Vertex[3][-\ 2], Vertex[3][-2]] ],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[2, 1][1], Vertex[4][2]],"\[InvisibleSpace]", \n\ New: "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[2, 1][1], \ Vertex[4][2]],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[2, 1][1], Vertex[4][2]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[2, \ 1][1], Vertex[4][2]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[2, 1][1], Vertex[4][2]],"\[InvisibleSpace]", \n\ New: "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[2, 1][1], \ Vertex[4][2]],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[2, 1][1], Vertex[4][2]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[2, \ 1][1], Vertex[4][2]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[4][2], Vertex[4][2]] ],"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[4][2], \ Vertex[4][2]] ],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[4][2], Vertex[4][2]] ],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[4][\ 2], Vertex[4][2]] ],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[4, 1][1], Vertex[4, 1][1]],"\[InvisibleSpace]", \n\ New: "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[4, 1][1], \ Vertex[4, 1][1]],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[4, 1][1], Vertex[4, 1][1]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[4, \ 1][1], Vertex[4, 1][1]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[4, 1][1], Vertex[4, 1][1]] ], "\[InvisibleSpace]", \ \nNew: "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[4, 1][1], \ Vertex[4, 1][1]] ], "\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[4, 1][1], Vertex[4, 1][1]] ], ", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[4, \ 1][1], Vertex[4, 1][1]] ], "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[3][3], Vertex[4][2]],"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][3], \ Vertex[4][2]],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[3][3], Vertex[4][2]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][\ 3], Vertex[4][2]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[3][3], Vertex[4][2]],"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][3], \ Vertex[4][2]],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[3][3], Vertex[4][2]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][\ 3], Vertex[4][2]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[3][3], Vertex[4][2]] ],"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][3], \ Vertex[4][2]] ],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[3][3], Vertex[4][2]] ],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][\ 3], Vertex[4][2]] ],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[3][-1], Vertex[3][2]],"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-1], \ Vertex[3][2]],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[3][-1], Vertex[3][2]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-\ 1], Vertex[3][2]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[3][-2], Vertex[3][-1]],"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-2], \ Vertex[3][-1]],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[3][-2], Vertex[3][-1]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-\ 2], Vertex[3][-1]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[3][-2], Vertex[3][-1]],"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-2], \ Vertex[3][-1]],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[3][-2], Vertex[3][-1]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-\ 2], Vertex[3][-1]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[3][-2], Vertex[3][2]] ],"\[InvisibleSpace]", \n\ New: "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-2], \ Vertex[3][2]] ],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[3][-2], Vertex[3][2]] ],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-\ 2], Vertex[3][2]] ],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[3][2], Vertex[4][3]],"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][2], \ Vertex[4][3]],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[3][2], Vertex[4][3]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][\ 2], Vertex[4][3]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[3][2], Vertex[4][3]],"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][2], \ Vertex[4][3]],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[3][2], Vertex[4][3]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][\ 2], Vertex[4][3]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[4][3], Vertex[4][3]] ], "\[InvisibleSpace]", \n\ New: "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[4][3], \ Vertex[4][3]] ], "\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[4][3], Vertex[4][3]] ], ", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[4][\ 3], Vertex[4][3]] ], "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[3][2], Vertex[3][4]],"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][2], \ Vertex[3][4]],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[3][2], Vertex[3][4]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][\ 2], Vertex[3][4]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[3][2], Vertex[3][4]],"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][2], \ Vertex[3][4]],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[3][2], Vertex[3][4]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][\ 2], Vertex[3][4]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[2]][Vertex[3][3], Vertex[3][3]] ],"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[2]][Vertex[3][3], \ Vertex[3][3]] ],"\), SequenceForm[ "Old: ", " Propagator[Loop[2]][Vertex[3][3], Vertex[3][3]] ],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[2]][Vertex[3][\ 3], Vertex[3][3]] ],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[3][-2], Vertex[3][-2]],"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-2], \ Vertex[3][-2]],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[3][-2], Vertex[3][-2]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-\ 2], Vertex[3][-2]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[2]][Vertex[3][-1], Vertex[3][-1]] ],"\[InvisibleSpace]", \n\ New: "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[2]][Vertex[3][-1], \ Vertex[3][-1]] ],"\), SequenceForm[ "Old: ", " Propagator[Loop[2]][Vertex[3][-1], Vertex[3][-1]] ],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[2]][Vertex[3][-\ 1], Vertex[3][-1]] ],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[2, 1][3], Vertex[3][1]],"\[InvisibleSpace]", \n\ New: "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[2, 1][3], \ Vertex[3][1]],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[2, 1][3], Vertex[3][1]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[2, \ 1][3], Vertex[3][1]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[2, 1][3], Vertex[3][1]],"\[InvisibleSpace]", \n\ New: "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[2, 1][3], \ Vertex[3][1]],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[2, 1][3], Vertex[3][1]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[2, \ 1][3], Vertex[3][1]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[2]][Vertex[3][2], Vertex[3][2]] ],"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[2]][Vertex[3][2], \ Vertex[3][2]] ],"\), SequenceForm[ "Old: ", " Propagator[Loop[2]][Vertex[3][2], Vertex[3][2]] ],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[2]][Vertex[3][\ 2], Vertex[3][2]] ],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[3, 1][1], Vertex[3, 1][1]],"\[InvisibleSpace]", \n\ New: "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3, 1][1], \ Vertex[3, 1][1]],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[3, 1][1], Vertex[3, 1][1]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3, \ 1][1], Vertex[3, 1][1]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[2]][Vertex[3][2], Vertex[3][2]] ],"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[2]][Vertex[3][2], \ Vertex[3][2]] ],"\), SequenceForm[ "Old: ", " Propagator[Loop[2]][Vertex[3][2], Vertex[3][2]] ],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[2]][Vertex[3][\ 2], Vertex[3][2]] ],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[3][3], Vertex[3][3]],"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][3], \ Vertex[3][3]],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[3][3], Vertex[3][3]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][\ 3], Vertex[3][3]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[2]][Vertex[4][2], Vertex[4][2]] ],"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[2]][Vertex[4][2], \ Vertex[4][2]] ],"\), SequenceForm[ "Old: ", " Propagator[Loop[2]][Vertex[4][2], Vertex[4][2]] ],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[2]][Vertex[4][\ 2], Vertex[4][2]] ],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[5][2], Vertex[5][2]],"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[5][2], \ Vertex[5][2]],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[5][2], Vertex[5][2]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[5][\ 2], Vertex[5][2]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[5][2], Vertex[5][2]] ]"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[5][2], \ Vertex[5][2]] ]"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[5][2], Vertex[5][2]] ]", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[5][\ 2], Vertex[5][2]] ]"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[3][-2], Vertex[3][-1]],"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-2], \ Vertex[3][-1]],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[3][-2], Vertex[3][-1]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-\ 2], Vertex[3][-1]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[3][-3], Vertex[3][-2]],"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-3], \ Vertex[3][-2]],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[3][-3], Vertex[3][-2]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-\ 3], Vertex[3][-2]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[3][-3], Vertex[3][-1]],"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-3], \ Vertex[3][-1]],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[3][-3], Vertex[3][-1]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-\ 3], Vertex[3][-1]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[3][-4], Vertex[3][-3]],"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-4], \ Vertex[3][-3]],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[3][-4], Vertex[3][-3]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-\ 4], Vertex[3][-3]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[3][-4], Vertex[3][-2]],"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-4], \ Vertex[3][-2]],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[3][-4], Vertex[3][-2]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-\ 4], Vertex[3][-2]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[3][-4], Vertex[3][-1]] ],"\[InvisibleSpace]", \n\ New: "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-4], \ Vertex[3][-1]] ],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[3][-4], Vertex[3][-1]] ],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-\ 4], Vertex[3][-1]] ],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[3][-2], Vertex[3][-1]],"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-2], \ Vertex[3][-1]],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[3][-2], Vertex[3][-1]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-\ 2], Vertex[3][-1]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[3][-3], Vertex[3][-2]],"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-3], \ Vertex[3][-2]],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[3][-3], Vertex[3][-2]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-\ 3], Vertex[3][-2]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[3][-3], Vertex[3][-2]],"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-3], \ Vertex[3][-2]],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[3][-3], Vertex[3][-2]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-\ 3], Vertex[3][-2]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[3][-4], Vertex[3][-3]],"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-4], \ Vertex[3][-3]],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[3][-4], Vertex[3][-3]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-\ 4], Vertex[3][-3]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[3][-4], Vertex[3][-1]],"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-4], \ Vertex[3][-1]],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[3][-4], Vertex[3][-1]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-\ 4], Vertex[3][-1]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[3][-4], Vertex[3][-1]] ],"\[InvisibleSpace]", \n\ New: "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-4], \ Vertex[3][-1]] ],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[3][-4], Vertex[3][-1]] ],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-\ 4], Vertex[3][-1]] ],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[3][-2], Vertex[3][-1]],"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-2], \ Vertex[3][-1]],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[3][-2], Vertex[3][-1]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-\ 2], Vertex[3][-1]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[3][-2], Vertex[4][1]],"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-2], \ Vertex[4][1]],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[3][-2], Vertex[4][1]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-\ 2], Vertex[4][1]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[3][-2], Vertex[4][1]],"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-2], \ Vertex[4][1]],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[3][-2], Vertex[4][1]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-\ 2], Vertex[4][1]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[3][-1], Vertex[4][1]],"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-1], \ Vertex[4][1]],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[3][-1], Vertex[4][1]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-\ 1], Vertex[4][1]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[3][-1], Vertex[4][1]] ],"\[InvisibleSpace]", \n\ New: "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-1], \ Vertex[4][1]] ],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[3][-1], Vertex[4][1]] ],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-\ 1], Vertex[4][1]] ],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[3][-2], Vertex[3][-1]],"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-2], \ Vertex[3][-1]],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[3][-2], Vertex[3][-1]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-\ 2], Vertex[3][-1]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[3][-2], Vertex[3][-1]],"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-2], \ Vertex[3][-1]],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[3][-2], Vertex[3][-1]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-\ 2], Vertex[3][-1]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[3][-2], Vertex[4][1]],"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-2], \ Vertex[4][1]],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[3][-2], Vertex[4][1]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-\ 2], Vertex[4][1]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[3][-1], Vertex[4][1]],"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-1], \ Vertex[4][1]],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[3][-1], Vertex[4][1]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-\ 1], Vertex[4][1]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[4][1], Vertex[4][1]] ],"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[4][1], \ Vertex[4][1]] ],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[4][1], Vertex[4][1]] ],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[4][\ 1], Vertex[4][1]] ],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[4][-2], Vertex[4][-1]],"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[4][-2], \ Vertex[4][-1]],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[4][-2], Vertex[4][-1]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[4][-\ 2], Vertex[4][-1]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[4][-2], Vertex[4][-1]],"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[4][-2], \ Vertex[4][-1]],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[4][-2], Vertex[4][-1]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[4][-\ 2], Vertex[4][-1]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[4][-2], Vertex[4][-1]],"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[4][-2], \ Vertex[4][-1]],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[4][-2], Vertex[4][-1]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[4][-\ 2], Vertex[4][-1]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[4][-2], Vertex[4][-1]] ],"\[InvisibleSpace]", \n\ New: "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[4][-2], \ Vertex[4][-1]] ],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[4][-2], Vertex[4][-1]] ],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[4][-\ 2], Vertex[4][-1]] ],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[4][-1], Vertex[4][-1]],"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[4][-1], \ Vertex[4][-1]],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[4][-1], Vertex[4][-1]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[4][-\ 1], Vertex[4][-1]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[4][-2], Vertex[4][-1]],"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[4][-2], \ Vertex[4][-1]],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[4][-2], Vertex[4][-1]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[4][-\ 2], Vertex[4][-1]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[4][-2], Vertex[4][-2]],"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[4][-2], \ Vertex[4][-2]],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[4][-2], Vertex[4][-2]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[4][-\ 2], Vertex[4][-2]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[4][-2], Vertex[4][-1]] ],"\[InvisibleSpace]", \n\ New: "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[4][-2], \ Vertex[4][-1]] ],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[4][-2], Vertex[4][-1]] ],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[4][-\ 2], Vertex[4][-1]] ],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[3][1], Vertex[5][2]],"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][1], \ Vertex[5][2]],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[3][1], Vertex[5][2]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][\ 1], Vertex[5][2]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[3][1], Vertex[5][2]],"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][1], \ Vertex[5][2]],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[3][1], Vertex[5][2]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][\ 1], Vertex[5][2]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[3][1], Vertex[5][2]],"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][1], \ Vertex[5][2]],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[3][1], Vertex[5][2]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][\ 1], Vertex[5][2]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[5][2], Vertex[5][2]] ],"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[5][2], \ Vertex[5][2]] ],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[5][2], Vertex[5][2]] ],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[5][\ 2], Vertex[5][2]] ],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[6][1], Vertex[6][1]],"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[6][1], \ Vertex[6][1]],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[6][1], Vertex[6][1]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[6][\ 1], Vertex[6][1]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[6][1], Vertex[6][1]],"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[6][1], \ Vertex[6][1]],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[6][1], Vertex[6][1]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[6][\ 1], Vertex[6][1]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[6][1], Vertex[6][1]] ],"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[6][1], \ Vertex[6][1]] ],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[6][1], Vertex[6][1]] ],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[6][\ 1], Vertex[6][1]] ],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[3][1], Vertex[3][1]],"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][1], \ Vertex[3][1]],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[3][1], Vertex[3][1]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][\ 1], Vertex[3][1]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[2]][Vertex[3][3], Vertex[4][2]],"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[2]][Vertex[3][3], \ Vertex[4][2]],"\), SequenceForm[ "Old: ", " Propagator[Loop[2]][Vertex[3][3], Vertex[4][2]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[2]][Vertex[3][\ 3], Vertex[4][2]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[2]][Vertex[3][3], Vertex[4][2]],"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[2]][Vertex[3][3], \ Vertex[4][2]],"\), SequenceForm[ "Old: ", " Propagator[Loop[2]][Vertex[3][3], Vertex[4][2]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[2]][Vertex[3][\ 3], Vertex[4][2]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[2]][Vertex[3][3], Vertex[4][2]] ],"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[2]][Vertex[3][3], \ Vertex[4][2]] ],"\), SequenceForm[ "Old: ", " Propagator[Loop[2]][Vertex[3][3], Vertex[4][2]] ],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[2]][Vertex[3][\ 3], Vertex[4][2]] ],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[3][-1], Vertex[3][1]],"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-1], \ Vertex[3][1]],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[3][-1], Vertex[3][1]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-\ 1], Vertex[3][1]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[3][-2], Vertex[3][-1]],"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-2], \ Vertex[3][-1]],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[3][-2], Vertex[3][-1]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-\ 2], Vertex[3][-1]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[3][-2], Vertex[3][-1]],"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-2], \ Vertex[3][-1]],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[3][-2], Vertex[3][-1]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-\ 2], Vertex[3][-1]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[3][-2], Vertex[3][1]],"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-2], \ Vertex[3][1]],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[3][-2], Vertex[3][1]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-\ 2], Vertex[3][1]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[2]][Vertex[3][2], Vertex[3][2]] ],"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[2]][Vertex[3][2], \ Vertex[3][2]] ],"\), SequenceForm[ "Old: ", " Propagator[Loop[2]][Vertex[3][2], Vertex[3][2]] ],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[2]][Vertex[3][\ 2], Vertex[3][2]] ],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[3][-3], Vertex[3][-3]],"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-3], \ Vertex[3][-3]],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[3][-3], Vertex[3][-3]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-\ 3], Vertex[3][-3]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[2]][Vertex[3][-2], Vertex[3][-2]],"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[2]][Vertex[3][-2], \ Vertex[3][-2]],"\), SequenceForm[ "Old: ", " Propagator[Loop[2]][Vertex[3][-2], Vertex[3][-2]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[2]][Vertex[3][-\ 2], Vertex[3][-2]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[3]][Vertex[3][-1], Vertex[3][-1]] ],"\[InvisibleSpace]", \n\ New: "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[3]][Vertex[3][-1], \ Vertex[3][-1]] ],"\), SequenceForm[ "Old: ", " Propagator[Loop[3]][Vertex[3][-1], Vertex[3][-1]] ],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[3]][Vertex[3][-\ 1], Vertex[3][-1]] ],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\t(* Bicycle + Tadpole on \ Loop *)"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]"\t(* Bicycle + Tadpole \ on HighEnergyPhysics`FeynCalc`Loop`Loop *)"\), SequenceForm[ "Old: ", "\t(* Bicycle + Tadpole on Loop *)", ", \nNew: ", "\t(* Bicycle + Tadpole on HighEnergyPhysics`FeynCalc`Loop`Loop \ *)"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[3][-4], Vertex[3][-4]],"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-4], \ Vertex[3][-4]],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[3][-4], Vertex[3][-4]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-\ 4], Vertex[3][-4]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[2]][Vertex[3][-3], Vertex[3][-2]],"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[2]][Vertex[3][-3], \ Vertex[3][-2]],"\), SequenceForm[ "Old: ", " Propagator[Loop[2]][Vertex[3][-3], Vertex[3][-2]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[2]][Vertex[3][-\ 3], Vertex[3][-2]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[2]][Vertex[3][-3], Vertex[3][-2]],"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[2]][Vertex[3][-3], \ Vertex[3][-2]],"\), SequenceForm[ "Old: ", " Propagator[Loop[2]][Vertex[3][-3], Vertex[3][-2]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[2]][Vertex[3][-\ 3], Vertex[3][-2]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[3]][Vertex[3][-1], Vertex[3][-1]] ],"\[InvisibleSpace]", \n\ New: "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[3]][Vertex[3][-1], \ Vertex[3][-1]] ],"\), SequenceForm[ "Old: ", " Propagator[Loop[3]][Vertex[3][-1], Vertex[3][-1]] ],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[3]][Vertex[3][-\ 1], Vertex[3][-1]] ],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[3][-2], Vertex[3][-2]],"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-2], \ Vertex[3][-2]],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[3][-2], Vertex[3][-2]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][-\ 2], Vertex[3][-2]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[2]][Vertex[3][-1], Vertex[3][-1]],"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[2]][Vertex[3][-1], \ Vertex[3][-1]],"\), SequenceForm[ "Old: ", " Propagator[Loop[2]][Vertex[3][-1], Vertex[3][-1]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[2]][Vertex[3][-\ 1], Vertex[3][-1]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[3]][Vertex[4][1], Vertex[4][1]] ],"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[3]][Vertex[4][1], \ Vertex[4][1]] ],"\), SequenceForm[ "Old: ", " Propagator[Loop[3]][Vertex[4][1], Vertex[4][1]] ],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[3]][Vertex[4][\ 1], Vertex[4][1]] ],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\t(* Eight + Tadpole on \ Loop *)"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]"\t(* Eight + Tadpole on \ HighEnergyPhysics`FeynCalc`Loop`Loop *)"\), SequenceForm[ "Old: ", "\t(* Eight + Tadpole on Loop *)", ", \nNew: ", "\t(* Eight + Tadpole on HighEnergyPhysics`FeynCalc`Loop`Loop *)"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[3][1], Vertex[4][3]],"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][1], \ Vertex[4][3]],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[3][1], Vertex[4][3]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][\ 1], Vertex[4][3]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[3][1], Vertex[4][3]],"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][1], \ Vertex[4][3]],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[3][1], Vertex[4][3]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][\ 1], Vertex[4][3]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[2]][Vertex[3][2], Vertex[3][2]],"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[2]][Vertex[3][2], \ Vertex[3][2]],"\), SequenceForm[ "Old: ", " Propagator[Loop[2]][Vertex[3][2], Vertex[3][2]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[2]][Vertex[3][\ 2], Vertex[3][2]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[4][3], Vertex[4][3]] ],"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[4][3], \ Vertex[4][3]] ],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[4][3], Vertex[4][3]] ],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[4][\ 3], Vertex[4][3]] ],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[1]][Vertex[3][1], Vertex[3][1]],"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][1], \ Vertex[3][1]],"\), SequenceForm[ "Old: ", " Propagator[Loop[1]][Vertex[3][1], Vertex[3][1]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[1]][Vertex[3][\ 1], Vertex[3][1]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[2]][Vertex[5][2], Vertex[5][2]],"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[2]][Vertex[5][2], \ Vertex[5][2]],"\), SequenceForm[ "Old: ", " Propagator[Loop[2]][Vertex[5][2], Vertex[5][2]],", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[2]][Vertex[5][\ 2], Vertex[5][2]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ Propagator[Loop[2]][Vertex[5][2], Vertex[5][2]] ]"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[2]][Vertex[5][2], \ Vertex[5][2]] ]"\), SequenceForm[ "Old: ", " Propagator[Loop[2]][Vertex[5][2], Vertex[5][2]] ]", ", \nNew: ", " Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[2]][Vertex[5][\ 2], Vertex[5][2]] ]"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" Topology[h /. Loop[_] -> \ Loop]["\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" Topology[h /. \ HighEnergyPhysics`FeynCalc`Loop`Loop[_] -> \ HighEnergyPhysics`FeynCalc`Loop`Loop]["\), SequenceForm[ "Old: ", " Topology[h /. Loop[_] -> Loop][", ", \nNew: ", " Topology[h /. HighEnergyPhysics`FeynCalc`Loop`Loop[_] -> \ HighEnergyPhysics`FeynCalc`Loop`Loop]["], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"tosort[ \ Propagator[Loop[n_]][v__] ] :="\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]"tosort[ \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[n_]][v__] ] :="\), SequenceForm[ "Old: ", "tosort[ Propagator[Loop[n_]][v__] ] :=", ", \nNew: ", "tosort[ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[n_]][v__] \ ] :="], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" prop[Loop, psort[v], \ {Loop[1000 + n]}]"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ prop[HighEnergyPhysics`FeynCalc`Loop`Loop, psort[v], \ {HighEnergyPhysics`FeynCalc`Loop`Loop[1000 + n]}]"\), SequenceForm[ "Old: ", " prop[Loop, psort[v], {Loop[1000 + n]}]", ", \nNew: ", " prop[HighEnergyPhysics`FeynCalc`Loop`Loop, psort[v], \ {HighEnergyPhysics`FeynCalc`Loop`Loop[1000 + n]}]"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"renum[ x_Loop ] := x = \ Loop[++lc]"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]"renum[ \ x_HighEnergyPhysics`FeynCalc`Loop`Loop ] := x = \ HighEnergyPhysics`FeynCalc`Loop`Loop[++lc]"\), SequenceForm[ "Old: ", "renum[ x_Loop ] := x = Loop[++lc]", ", \nNew: ", "renum[ x_HighEnergyPhysics`FeynCalc`Loop`Loop ] := x = \ HighEnergyPhysics`FeynCalc`Loop`Loop[++lc]"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"Block[ {vert, Loop, lc = \ 0, vc = 0, pc = 0},"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]"Block[ \ {vert, HighEnergyPhysics`FeynCalc`Loop`Loop, lc = 0, vc = 0, pc = 0},"\), SequenceForm[ "Old: ", "Block[ {vert, Loop, lc = 0, vc = 0, pc = 0},", ", \nNew: ", "Block[ {vert, HighEnergyPhysics`FeynCalc`Loop`Loop, lc = 0, vc = \ 0, pc = 0},"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" If[ Count[ tops[[1]], \ Propagator[Loop[_]][__] ] > 1 ||"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" If[ Count[ tops[[1]], \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[_]][__] ] > 1 ||"\), SequenceForm[ "Old: ", " If[ Count[ tops[[1]], Propagator[Loop[_]][__] ] > 1 ||", ", \nNew: ", " If[ Count[ tops[[1]], \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[_]][__] ] > 1 ||"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" Loop | Permutable | \ Internal,"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ HighEnergyPhysics`FeynCalc`Loop`Loop | Permutable | Internal,"\), SequenceForm[ "Old: ", " Loop | Permutable | Internal,", ", \nNew: ", " HighEnergyPhysics`FeynCalc`Loop`Loop | Permutable | \ Internal,"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" Loop | Permutable"\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ HighEnergyPhysics`FeynCalc`Loop`Loop | Permutable"\), SequenceForm[ "Old: ", " Loop | Permutable", ", \nNew: ", " HighEnergyPhysics`FeynCalc`Loop`Loop | Permutable"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"ChooseProp[ pr_, _ ] := {} \ /; FreeQ[pr, Loop | Vertex[_, _]]"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]"ChooseProp[ pr_, _ ] := {} /; FreeQ[pr, \ HighEnergyPhysics`FeynCalc`Loop`Loop | Vertex[_, _]]"\), SequenceForm[ "Old: ", "ChooseProp[ pr_, _ ] := {} /; FreeQ[pr, Loop | Vertex[_, _]]", ", \nNew: ", "ChooseProp[ pr_, _ ] := {} /; FreeQ[pr, \ HighEnergyPhysics`FeynCalc`Loop`Loop | Vertex[_, _]]"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" tree = top /. \ Propagator[Loop[l_]][x__] :>"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ tree = top /. Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[l_]][x__] :>"\), SequenceForm[ "Old: ", " tree = top /. Propagator[Loop[l_]][x__] :>", ", \nNew: ", " tree = top /. \ Propagator[HighEnergyPhysics`FeynCalc`Loop`Loop[l_]][x__] :>"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ \(TraditionalForm\`"/app/theorie/mathematica41/AddOns/Applications/\ HighEnergyPhysics//FeynArts/Utilities.m"\)], "Print"], Cell[BoxData[ \(TraditionalForm\`"/app/theorie/mathematica41/AddOns/Applications/\ HighEnergyPhysics//Models/SMQCD.mod"\)], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\tGS, the strong coupling \ constant"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]"\tGStrong, the strong \ coupling constant"\), SequenceForm[ "Old: ", "\tGS, the strong coupling constant", ", \nNew: ", "\tGStrong, the strong coupling constant"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\tIndices -> \ {Index[Gluon]},"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]"\tFAIndices -> \ {Index[Gluon]},"\), SequenceForm[ "Old: ", "\tIndices -> {Index[Gluon]},", ", \nNew: ", "\tFAIndices -> {Index[Gluon]},"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\tIndices -> \ {Index[Gluon]},"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]"\tFAIndices -> \ {Index[Gluon]},"\), SequenceForm[ "Old: ", "\tIndices -> {Index[Gluon]},", ", \nNew: ", "\tFAIndices -> {Index[Gluon]},"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ V[5, {g1}], V[5, \ {g2}], V[5, {g3}], V[5, {g4}] ] == -I GS^2 *"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[ V[5, {g1}], V[5, {g2}], V[5, {g3}], V[5, {g4}] ] == -I \ GStrong^2 *"\), SequenceForm[ "Old: ", " C[ V[5, {g1}], V[5, {g2}], V[5, {g3}], V[5, {g4}] ] == -I GS^2 \ *", ", \nNew: ", " C[ V[5, {g1}], V[5, {g2}], V[5, {g3}], V[5, {g4}] ] == -I \ GStrong^2 *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ V[5, {g1}], V[5, \ {g2}], V[5, {g3}] ] == GS SUNF[g1, g2, g3] *"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[ V[5, {g1}], V[5, {g2}], V[5, {g3}] ] == GStrong \ SUNF[g1, g2, g3] *"\), SequenceForm[ "Old: ", " C[ V[5, {g1}], V[5, {g2}], V[5, {g3}] ] == GS SUNF[g1, g2, g3] \ *", ", \nNew: ", " C[ V[5, {g1}], V[5, {g2}], V[5, {g3}] ] == GStrong SUNF[g1, g2, \ g3] *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ -U[5, {g1}], U[5, \ {g2}], V[5, {g3}] ] == GS SUNF[g1, g2, g3] *"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[ -U[5, {g1}], U[5, {g2}], V[5, {g3}] ] == GStrong \ SUNF[g1, g2, g3] *"\), SequenceForm[ "Old: ", " C[ -U[5, {g1}], U[5, {g2}], V[5, {g3}] ] == GS SUNF[g1, g2, g3] \ *", ", \nNew: ", " C[ -U[5, {g1}], U[5, {g2}], V[5, {g3}] ] == GStrong SUNF[g1, g2, \ g3] *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ -F[3, {j1, o1}], F[3, \ {j2, o2}], V[5, {g1}] ] == -I GS *"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[ -F[3, {j1, o1}], F[3, {j2, o2}], V[5, {g1}] ] == -I \ GStrong *"\), SequenceForm[ "Old: ", " C[ -F[3, {j1, o1}], F[3, {j2, o2}], V[5, {g1}] ] == -I GS *", ", \nNew: ", " C[ -F[3, {j1, o1}], F[3, {j2, o2}], V[5, {g1}] ] == -I GStrong \ *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ -F[4, {j1, o1}], F[4, \ {j2, o2}], V[5, {g1}] ] == -I GS *"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[ -F[4, {j1, o1}], F[4, {j2, o2}], V[5, {g1}] ] == -I \ GStrong *"\), SequenceForm[ "Old: ", " C[ -F[4, {j1, o1}], F[4, {j2, o2}], V[5, {g1}] ] == -I GS *", ", \nNew: ", " C[ -F[4, {j1, o1}], F[4, {j2, o2}], V[5, {g1}] ] == -I GStrong \ *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ \(TraditionalForm\`"/app/theorie/mathematica41/AddOns/Applications/\ HighEnergyPhysics//Models/SMc.mod"\)], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\tGaugeXi[A, W, Z]: \ photon, W, Z gauge parameters"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]"\t\ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[A, W, Z]: photon, W, Z gauge \ parameters"\), SequenceForm[ "Old: ", "\tGaugeXi[A, W, Z]: photon, W, Z gauge parameters", ", \nNew: ", "\tHighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[A, W, Z]: photon, W, \ Z gauge parameters"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\tIndices -> \ {Index[Generation]},"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]"\t\ FAIndices -> {Index[Generation]},"\), SequenceForm[ "Old: ", "\tIndices -> {Index[Generation]},", ", \nNew: ", "\tFAIndices -> {Index[Generation]},"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\tIndices -> \ {Index[Generation]},"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]"\t\ FAIndices -> {Index[Generation]},"\), SequenceForm[ "Old: ", "\tIndices -> {Index[Generation]},", ", \nNew: ", "\tFAIndices -> {Index[Generation]},"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\tIndices -> \ {Index[Generation], Index[Colour]},"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]"\tFAIndices -> {Index[Generation], Index[Colour]},"\), SequenceForm[ "Old: ", "\tIndices -> {Index[Generation], Index[Colour]},", ", \nNew: ", "\tFAIndices -> {Index[Generation], Index[Colour]},"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\tIndices -> \ {Index[Generation], Index[Colour]},"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]"\tFAIndices -> {Index[Generation], Index[Colour]},"\), SequenceForm[ "Old: ", "\tIndices -> {Index[Generation], Index[Colour]},", ", \nNew: ", "\tFAIndices -> {Index[Generation], Index[Colour]},"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\tIndices -> {},"\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]"\tFAIndices -> {},"\), SequenceForm[ "Old: ", "\tIndices -> {},", ", \nNew: ", "\tFAIndices -> {},"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\tIndices -> {},"\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]"\tFAIndices -> {},"\), SequenceForm[ "Old: ", "\tIndices -> {},", ", \nNew: ", "\tFAIndices -> {},"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\tIndices -> {},"\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]"\tFAIndices -> {},"\), SequenceForm[ "Old: ", "\tIndices -> {},", ", \nNew: ", "\tFAIndices -> {},"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\tIndices -> {},"\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]"\tFAIndices -> {},"\), SequenceForm[ "Old: ", "\tIndices -> {},", ", \nNew: ", "\tFAIndices -> {},"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\tIndices -> {},"\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]"\tFAIndices -> {},"\), SequenceForm[ "Old: ", "\tIndices -> {},", ", \nNew: ", "\tFAIndices -> {},"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\tIndices -> {},"\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]"\tFAIndices -> {},"\), SequenceForm[ "Old: ", "\tIndices -> {},", ", \nNew: ", "\tFAIndices -> {},"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\tIndices -> {},"\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]"\tFAIndices -> {},"\), SequenceForm[ "Old: ", "\tIndices -> {},", ", \nNew: ", "\tFAIndices -> {},"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\tIndices -> {},"\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]"\tFAIndices -> {},"\), SequenceForm[ "Old: ", "\tIndices -> {},", ", \nNew: ", "\tFAIndices -> {},"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\tIndices -> {},"\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]"\tFAIndices -> {},"\), SequenceForm[ "Old: ", "\tIndices -> {},", ", \nNew: ", "\tFAIndices -> {},"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\tIndices -> {},"\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]"\tFAIndices -> {},"\), SequenceForm[ "Old: ", "\tIndices -> {},", ", \nNew: ", "\tFAIndices -> {},"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\tIndices -> {},"\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]"\tFAIndices -> {},"\), SequenceForm[ "Old: ", "\tIndices -> {},", ", \nNew: ", "\tFAIndices -> {},"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\tIndices -> {},"\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]"\tFAIndices -> {},"\), SequenceForm[ "Old: ", "\tIndices -> {},", ", \nNew: ", "\tFAIndices -> {},"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\tIndices -> {},"\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]"\tFAIndices -> {},"\), SequenceForm[ "Old: ", "\tIndices -> {},", ", \nNew: ", "\tFAIndices -> {},"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"GaugeXi[ V[1] ] = \ GaugeXi[A];"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]"HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[ V[1] ] = \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[A];"\), SequenceForm[ "Old: ", "GaugeXi[ V[1] ] = GaugeXi[A];", ", \nNew: ", "HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[ V[1] ] = \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[A];"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"GaugeXi[ V[2] ] = \ GaugeXi[Z];"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]"HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[ V[2] ] = \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Z];"\), SequenceForm[ "Old: ", "GaugeXi[ V[2] ] = GaugeXi[Z];", ", \nNew: ", "HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[ V[2] ] = \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Z];"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"GaugeXi[ V[3] ] = \ GaugeXi[W];"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]"HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[ V[3] ] = \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W];"\), SequenceForm[ "Old: ", "GaugeXi[ V[3] ] = GaugeXi[W];", ", \nNew: ", "HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[ V[3] ] = \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W];"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"GaugeXi[ S[1] ] = 1;"\ \[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]"HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[ S[1] ] = 1;"\), SequenceForm[ "Old: ", "GaugeXi[ S[1] ] = 1;", ", \nNew: ", "HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[ S[1] ] = 1;"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"GaugeXi[ S[2] ] = \ GaugeXi[Z];"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]"HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[ S[2] ] = \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Z];"\), SequenceForm[ "Old: ", "GaugeXi[ S[2] ] = GaugeXi[Z];", ", \nNew: ", "HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[ S[2] ] = \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Z];"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"GaugeXi[ S[3] ] = \ GaugeXi[W];"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]"HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[ S[3] ] = \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W];"\), SequenceForm[ "Old: ", "GaugeXi[ S[3] ] = GaugeXi[W];", ", \nNew: ", "HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[ S[3] ] = \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W];"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"GaugeXi[ U[1] ] = 1;"\ \[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]"HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[ U[1] ] = 1;"\), SequenceForm[ "Old: ", "GaugeXi[ U[1] ] = 1;", ", \nNew: ", "HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[ U[1] ] = 1;"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"GaugeXi[ U[2] ] = \ GaugeXi[Z];"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]"HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[ U[2] ] = \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Z];"\), SequenceForm[ "Old: ", "GaugeXi[ U[2] ] = GaugeXi[Z];", ", \nNew: ", "HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[ U[2] ] = \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Z];"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"GaugeXi[ U[3] ] = \ GaugeXi[W];"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]"HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[ U[3] ] = \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W];"\), SequenceForm[ "Old: ", "GaugeXi[ U[3] ] = GaugeXi[W];", ", \nNew: ", "HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[ U[3] ] = \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W];"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"GaugeXi[ U[4] ] = \ GaugeXi[W]"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]"HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[ U[4] ] = \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]"\), SequenceForm[ "Old: ", "GaugeXi[ U[4] ] = GaugeXi[W]", ", \nNew: ", "HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[ U[4] ] = \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ U[1], -U[1] ] == \ -I/Sqrt[GaugeXi[A]] *"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" C[ \ U[1], -U[1] ] == -I/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[A]] *"\), SequenceForm[ "Old: ", " C[ U[1], -U[1] ] == -I/Sqrt[GaugeXi[A]] *", ", \nNew: ", " C[ U[1], -U[1] ] == \ -I/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[A]] *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ U[2], -U[2] ] == \ -I/Sqrt[GaugeXi[Z]] *"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" C[ \ U[2], -U[2] ] == -I/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Z]] *"\), SequenceForm[ "Old: ", " C[ U[2], -U[2] ] == -I/Sqrt[GaugeXi[Z]] *", ", \nNew: ", " C[ U[2], -U[2] ] == \ -I/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Z]] *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" {0, GaugeXi[Z] (MZ^2 \ (-dZG01/2 + dUZZ1) + dMZsq1/2) } },"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" {0, HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Z] \ (MZ^2 (-dZG01/2 + dUZZ1) + dMZsq1/2) } },"\), SequenceForm[ "Old: ", " {0, GaugeXi[Z] (MZ^2 (-dZG01/2 + dUZZ1) + dMZsq1/2) } },", ", \nNew: ", " {0, HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Z] (MZ^2 \ (-dZG01/2 + dUZZ1) + dMZsq1/2) } },"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ U[2], -U[1] ] == \ -I/Sqrt[GaugeXi[A]] *"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" C[ \ U[2], -U[1] ] == -I/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[A]] *"\), SequenceForm[ "Old: ", " C[ U[2], -U[1] ] == -I/Sqrt[GaugeXi[A]] *", ", \nNew: ", " C[ U[2], -U[1] ] == \ -I/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[A]] *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ U[1], -U[2] ] == \ -I/Sqrt[GaugeXi[Z]] *"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" C[ \ U[1], -U[2] ] == -I/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Z]] *"\), SequenceForm[ "Old: ", " C[ U[1], -U[2] ] == -I/Sqrt[GaugeXi[Z]] *", ", \nNew: ", " C[ U[1], -U[2] ] == \ -I/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Z]] *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" {0, GaugeXi[Z] MZ^2 \ dUZA1} },"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" {0, \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Z] MZ^2 dUZA1} },"\), SequenceForm[ "Old: ", " {0, GaugeXi[Z] MZ^2 dUZA1} },", ", \nNew: ", " {0, HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Z] MZ^2 \ dUZA1} },"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ U[3], -U[3] ] == \ -I/Sqrt[GaugeXi[W]] *"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" C[ \ U[3], -U[3] ] == -I/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]] *"\), SequenceForm[ "Old: ", " C[ U[3], -U[3] ] == -I/Sqrt[GaugeXi[W]] *", ", \nNew: ", " C[ U[3], -U[3] ] == \ -I/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]] *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" {0, GaugeXi[W] (MW^2 \ (-dZGp1/2 + dUW1) + dMWsq1/2) } },"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" {0, HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W] \ (MW^2 (-dZGp1/2 + dUW1) + dMWsq1/2) } },"\), SequenceForm[ "Old: ", " {0, GaugeXi[W] (MW^2 (-dZGp1/2 + dUW1) + dMWsq1/2) } },", ", \nNew: ", " {0, HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W] (MW^2 \ (-dZGp1/2 + dUW1) + dMWsq1/2) } },"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ U[4], -U[4] ] == \ -I/Sqrt[GaugeXi[W]] *"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" C[ \ U[4], -U[4] ] == -I/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]] *"\), SequenceForm[ "Old: ", " C[ U[4], -U[4] ] == -I/Sqrt[GaugeXi[W]] *", ", \nNew: ", " C[ U[4], -U[4] ] == \ -I/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]] *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" {0, GaugeXi[W] (MW^2 \ (-dZGp1/2 + dUW1) + dMWsq1/2) } },"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" {0, HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W] \ (MW^2 (-dZGp1/2 + dUW1) + dMWsq1/2) } },"\), SequenceForm[ "Old: ", " {0, GaugeXi[W] (MW^2 (-dZGp1/2 + dUW1) + dMWsq1/2) } },", ", \nNew: ", " {0, HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W] (MW^2 \ (-dZGp1/2 + dUW1) + dMWsq1/2) } },"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ -U[3], U[3], V[1] ] \ == -I EL/Sqrt[GaugeXi[W]] *"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ C[ -U[3], U[3], V[1] ] == -I \ EL/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]] *"\), SequenceForm[ "Old: ", " C[ -U[3], U[3], V[1] ] == -I EL/Sqrt[GaugeXi[W]] *", ", \nNew: ", " C[ -U[3], U[3], V[1] ] == -I \ EL/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]] *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ -U[4], U[4], V[1] ] \ == I EL/Sqrt[GaugeXi[W]] *"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" C[ \ -U[4], U[4], V[1] ] == I \ EL/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]] *"\), SequenceForm[ "Old: ", " C[ -U[4], U[4], V[1] ] == I EL/Sqrt[GaugeXi[W]] *", ", \nNew: ", " C[ -U[4], U[4], V[1] ] == I \ EL/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]] *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ -U[3], U[3], V[2] ] \ == I EL CW/SW/Sqrt[GaugeXi[W]] *"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" C[ -U[3], U[3], V[2] ] == I EL \ CW/SW/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]] *"\), SequenceForm[ "Old: ", " C[ -U[3], U[3], V[2] ] == I EL CW/SW/Sqrt[GaugeXi[W]] *", ", \nNew: ", " C[ -U[3], U[3], V[2] ] == I EL \ CW/SW/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]] *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ -U[4], U[4], V[2] ] \ == -I EL CW/SW/Sqrt[GaugeXi[W]] *"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[ -U[4], U[4], V[2] ] == -I EL \ CW/SW/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]] *"\), SequenceForm[ "Old: ", " C[ -U[4], U[4], V[2] ] == -I EL CW/SW/Sqrt[GaugeXi[W]] *", ", \nNew: ", " C[ -U[4], U[4], V[2] ] == -I EL \ CW/SW/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]] *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ -U[3], U[2], V[3] ] \ == -I EL CW/SW/Sqrt[GaugeXi[W]] *"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[ -U[3], U[2], V[3] ] == -I EL \ CW/SW/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]] *"\), SequenceForm[ "Old: ", " C[ -U[3], U[2], V[3] ] == -I EL CW/SW/Sqrt[GaugeXi[W]] *", ", \nNew: ", " C[ -U[3], U[2], V[3] ] == -I EL \ CW/SW/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]] *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ -U[2], U[3], -V[3] ] \ == -I EL/Sqrt[GaugeXi[Z]] *"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ C[ -U[2], U[3], -V[3] ] == -I \ EL/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Z]] *"\), SequenceForm[ "Old: ", " C[ -U[2], U[3], -V[3] ] == -I EL/Sqrt[GaugeXi[Z]] *", ", \nNew: ", " C[ -U[2], U[3], -V[3] ] == -I \ EL/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Z]] *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ -U[4], U[2], -V[3] ] \ == I EL CW/SW/Sqrt[GaugeXi[W]] *"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" C[ -U[4], U[2], -V[3] ] == I EL \ CW/SW/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]] *"\), SequenceForm[ "Old: ", " C[ -U[4], U[2], -V[3] ] == I EL CW/SW/Sqrt[GaugeXi[W]] *", ", \nNew: ", " C[ -U[4], U[2], -V[3] ] == I EL \ CW/SW/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]] *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ -U[2], U[4], V[3] ] \ == I EL/Sqrt[GaugeXi[Z]] *"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" C[ \ -U[2], U[4], V[3] ] == I \ EL/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Z]] *"\), SequenceForm[ "Old: ", " C[ -U[2], U[4], V[3] ] == I EL/Sqrt[GaugeXi[Z]] *", ", \nNew: ", " C[ -U[2], U[4], V[3] ] == I \ EL/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Z]] *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ -U[3], U[1], V[3] ] \ == I EL/Sqrt[GaugeXi[W]] *"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" C[ \ -U[3], U[1], V[3] ] == I \ EL/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]] *"\), SequenceForm[ "Old: ", " C[ -U[3], U[1], V[3] ] == I EL/Sqrt[GaugeXi[W]] *", ", \nNew: ", " C[ -U[3], U[1], V[3] ] == I \ EL/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]] *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ -U[1], U[3], -V[3] ] \ == I EL/Sqrt[GaugeXi[A]] *"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" C[ \ -U[1], U[3], -V[3] ] == I \ EL/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[A]] *"\), SequenceForm[ "Old: ", " C[ -U[1], U[3], -V[3] ] == I EL/Sqrt[GaugeXi[A]] *", ", \nNew: ", " C[ -U[1], U[3], -V[3] ] == I \ EL/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[A]] *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ -U[4], U[1], -V[3] ] \ == -I EL/Sqrt[GaugeXi[W]] *"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ C[ -U[4], U[1], -V[3] ] == -I \ EL/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]] *"\), SequenceForm[ "Old: ", " C[ -U[4], U[1], -V[3] ] == -I EL/Sqrt[GaugeXi[W]] *", ", \nNew: ", " C[ -U[4], U[1], -V[3] ] == -I \ EL/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]] *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ -U[1], U[4], V[3] ] \ == -I EL/Sqrt[GaugeXi[A]] *"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ C[ -U[1], U[4], V[3] ] == -I \ EL/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[A]] *"\), SequenceForm[ "Old: ", " C[ -U[1], U[4], V[3] ] == -I EL/Sqrt[GaugeXi[A]] *", ", \nNew: ", " C[ -U[1], U[4], V[3] ] == -I \ EL/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[A]] *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ S[1], -U[2], U[2] ] \ == -I EL MW GaugeXi[Z]/(2 CW^2 SW) *"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[ S[1], -U[2], U[2] ] == -I EL MW \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Z]/(2 CW^2 SW) *"\), SequenceForm[ "Old: ", " C[ S[1], -U[2], U[2] ] == -I EL MW GaugeXi[Z]/(2 CW^2 SW) *", ", \nNew: ", " C[ S[1], -U[2], U[2] ] == -I EL MW \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Z]/(2 CW^2 SW) *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ S[1], -U[3], U[3] ] \ == -I EL MW GaugeXi[W]/(2 SW) *"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" C[ S[1], -U[3], U[3] ] == -I EL MW \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]/(2 SW) *"\), SequenceForm[ "Old: ", " C[ S[1], -U[3], U[3] ] == -I EL MW GaugeXi[W]/(2 SW) *", ", \nNew: ", " C[ S[1], -U[3], U[3] ] == -I EL MW \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]/(2 SW) *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ S[1], -U[4], U[4] ] \ == -I EL MW GaugeXi[W]/(2 SW) *"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" C[ S[1], -U[4], U[4] ] == -I EL MW \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]/(2 SW) *"\), SequenceForm[ "Old: ", " C[ S[1], -U[4], U[4] ] == -I EL MW GaugeXi[W]/(2 SW) *", ", \nNew: ", " C[ S[1], -U[4], U[4] ] == -I EL MW \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]/(2 SW) *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ S[2], -U[4], U[4] ] \ == EL MW GaugeXi[W]/(2 SW) *"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ C[ S[2], -U[4], U[4] ] == EL MW \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]/(2 SW) *"\), SequenceForm[ "Old: ", " C[ S[2], -U[4], U[4] ] == EL MW GaugeXi[W]/(2 SW) *", ", \nNew: ", " C[ S[2], -U[4], U[4] ] == EL MW \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]/(2 SW) *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ S[2], -U[3], U[3] ] \ == -EL MW GaugeXi[W]/(2 SW) *"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ C[ S[2], -U[3], U[3] ] == -EL MW \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]/(2 SW) *"\), SequenceForm[ "Old: ", " C[ S[2], -U[3], U[3] ] == -EL MW GaugeXi[W]/(2 SW) *", ", \nNew: ", " C[ S[2], -U[3], U[3] ] == -EL MW \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]/(2 SW) *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ -S[3], -U[2], U[3] ] \ == I EL MW GaugeXi[Z]/(2 CW SW) *"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[ -S[3], -U[2], U[3] ] == I EL MW \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Z]/(2 CW SW) *"\), SequenceForm[ "Old: ", " C[ -S[3], -U[2], U[3] ] == I EL MW GaugeXi[Z]/(2 CW SW) *", ", \nNew: ", " C[ -S[3], -U[2], U[3] ] == I EL MW \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Z]/(2 CW SW) *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ S[3], -U[2], U[4] ] \ == I EL MW GaugeXi[Z]/(2 CW SW) *"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[ S[3], -U[2], U[4] ] == I EL MW \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Z]/(2 CW SW) *"\), SequenceForm[ "Old: ", " C[ S[3], -U[2], U[4] ] == I EL MW GaugeXi[Z]/(2 CW SW) *", ", \nNew: ", " C[ S[3], -U[2], U[4] ] == I EL MW \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Z]/(2 CW SW) *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ -S[3], -U[4], U[2] ] \ == I EL (SW^2 - CW^2) MW GaugeXi[W]/(2 CW SW) *"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[ -S[3], -U[4], U[2] ] == I EL (SW^2 - CW^2) MW \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]/(2 CW SW) *"\), SequenceForm[ "Old: ", " C[ -S[3], -U[4], U[2] ] == I EL (SW^2 - CW^2) MW GaugeXi[W]/(2 \ CW SW) *", ", \nNew: ", " C[ -S[3], -U[4], U[2] ] == I EL (SW^2 - CW^2) MW \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]/(2 CW SW) *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ S[3], -U[3], U[2] ] \ == I EL (SW^2 - CW^2) MW GaugeXi[W]/(2 CW SW) *"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[ S[3], -U[3], U[2] ] == I EL (SW^2 - CW^2) MW \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]/(2 CW SW) *"\), SequenceForm[ "Old: ", " C[ S[3], -U[3], U[2] ] == I EL (SW^2 - CW^2) MW GaugeXi[W]/(2 CW \ SW) *", ", \nNew: ", " C[ S[3], -U[3], U[2] ] == I EL (SW^2 - CW^2) MW \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]/(2 CW SW) *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ -S[3], -U[4], U[1] ] \ == I EL MW GaugeXi[W] *"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" C[ \ -S[3], -U[4], U[1] ] == I EL MW HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W] \ *"\), SequenceForm[ "Old: ", " C[ -S[3], -U[4], U[1] ] == I EL MW GaugeXi[W] *", ", \nNew: ", " C[ -S[3], -U[4], U[1] ] == I EL MW \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W] *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ S[3], -U[3], U[1]] == \ I EL MW GaugeXi[W] *"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" C[ S[3], \ -U[3], U[1]] == I EL MW HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W] *"\), SequenceForm[ "Old: ", " C[ S[3], -U[3], U[1]] == I EL MW GaugeXi[W] *", ", \nNew: ", " C[ S[3], -U[3], U[1]] == I EL MW \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W] *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ \(TraditionalForm\`"/app/theorie/mathematica41/AddOns/Applications/\ HighEnergyPhysics//Models/SMbgf.mod"\)], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\tGaugeXi[Q, bg]:\t\tgauge \ parameters"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]"\t\ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q, bg]:\t\tgauge parameters"\), SequenceForm[ "Old: ", "\tGaugeXi[Q, bg]:\t\tgauge parameters", ", \nNew: ", "\tHighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q, bg]:\t\tgauge \ parameters"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"{F[1] == {SelfConjugate -> \ False, Indices -> {Index[Generation]}, Mass -> 0, "\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]"{F[1] == {SelfConjugate -> False, FAIndices -> \ {Index[Generation]}, Mass -> 0, "\), SequenceForm[ "Old: ", "{F[1] == {SelfConjugate -> False, Indices -> {Index[Generation]}, \ Mass -> 0, ", ", \nNew: ", "{F[1] == {SelfConjugate -> False, FAIndices -> \ {Index[Generation]}, Mass -> 0, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" Indices -> \ {Index[Generation]}, Mass -> MLE, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" FAIndices -> {Index[Generation]}, Mass -> MLE, "\), SequenceForm[ "Old: ", " Indices -> {Index[Generation]}, Mass -> MLE, ", ", \nNew: ", " FAIndices -> {Index[Generation]}, Mass -> MLE, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" Indices -> \ {Index[Generation]}, Mass -> MQU, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" FAIndices -> {Index[Generation]}, Mass -> MQU, "\), SequenceForm[ "Old: ", " Indices -> {Index[Generation]}, Mass -> MQU, ", ", \nNew: ", " FAIndices -> {Index[Generation]}, Mass -> MQU, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" F[4] == {SelfConjugate \ -> False, Indices -> {Index[Generation]}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" F[4] == {SelfConjugate -> False, FAIndices -> \ {Index[Generation]}, "\), SequenceForm[ "Old: ", " F[4] == {SelfConjugate -> False, Indices -> \ {Index[Generation]}, ", ", \nNew: ", " F[4] == {SelfConjugate -> False, FAIndices -> \ {Index[Generation]}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" V[1] == {SelfConjugate \ -> True, Indices -> {}, Mass -> 0, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" V[1] == {SelfConjugate -> True, FAIndices -> {}, Mass -> \ 0, "\), SequenceForm[ "Old: ", " V[1] == {SelfConjugate -> True, Indices -> {}, Mass -> 0, ", ", \nNew: ", " V[1] == {SelfConjugate -> True, FAIndices -> {}, Mass -> 0, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" PropagatorArrow -> \ None, InsertOnly -> Loop}, "\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ PropagatorArrow -> None, InsertOnly -> \ HighEnergyPhysics`FeynCalc`Loop`Loop}, "\), SequenceForm[ "Old: ", " PropagatorArrow -> None, InsertOnly -> Loop}, ", ", \nNew: ", " PropagatorArrow -> None, InsertOnly -> \ HighEnergyPhysics`FeynCalc`Loop`Loop}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" V[10] == {SelfConjugate \ -> True, Indices -> {}, Mass -> 0, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" V[10] == {SelfConjugate -> True, FAIndices -> {}, Mass \ -> 0, "\), SequenceForm[ "Old: ", " V[10] == {SelfConjugate -> True, Indices -> {}, Mass -> 0, ", ", \nNew: ", " V[10] == {SelfConjugate -> True, FAIndices -> {}, Mass -> 0, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" V[2] == {SelfConjugate \ -> True, Indices -> {}, Mass -> MZ, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" V[2] == {SelfConjugate -> True, FAIndices -> {}, Mass -> \ MZ, "\), SequenceForm[ "Old: ", " V[2] == {SelfConjugate -> True, Indices -> {}, Mass -> MZ, ", ", \nNew: ", " V[2] == {SelfConjugate -> True, FAIndices -> {}, Mass -> MZ, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" InsertOnly -> Loop}, \ V[20] == {SelfConjugate -> True, Indices -> {}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" InsertOnly -> HighEnergyPhysics`FeynCalc`Loop`Loop}, \ V[20] == {SelfConjugate -> True, FAIndices -> {}, "\), SequenceForm[ "Old: ", " InsertOnly -> Loop}, V[20] == {SelfConjugate -> True, Indices \ -> {}, ", ", \nNew: ", " InsertOnly -> HighEnergyPhysics`FeynCalc`Loop`Loop}, V[20] == \ {SelfConjugate -> True, FAIndices -> {}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" V[3] == {SelfConjugate \ -> False, Indices -> {}, Mass -> MW, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" V[3] == {SelfConjugate -> False, FAIndices -> {}, Mass \ -> MW, "\), SequenceForm[ "Old: ", " V[3] == {SelfConjugate -> False, Indices -> {}, Mass -> MW, ", ", \nNew: ", " V[3] == {SelfConjugate -> False, FAIndices -> {}, Mass -> MW, \ "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" PropagatorArrow -> \ Forward, InsertOnly -> Loop}, "\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ PropagatorArrow -> Forward, InsertOnly -> \ HighEnergyPhysics`FeynCalc`Loop`Loop}, "\), SequenceForm[ "Old: ", " PropagatorArrow -> Forward, InsertOnly -> Loop}, ", ", \nNew: ", " PropagatorArrow -> Forward, InsertOnly -> \ HighEnergyPhysics`FeynCalc`Loop`Loop}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" V[30] == {SelfConjugate \ -> False, Indices -> {}, Mass -> MW, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" V[30] == {SelfConjugate -> False, FAIndices -> {}, Mass \ -> MW, "\), SequenceForm[ "Old: ", " V[30] == {SelfConjugate -> False, Indices -> {}, Mass -> MW, ", ", \nNew: ", " V[30] == {SelfConjugate -> False, FAIndices -> {}, Mass -> MW, \ "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" SV[2] == {SelfConjugate \ -> True, Indices -> {}, Mass -> MZ, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" SV[2] == {SelfConjugate -> True, FAIndices -> {}, Mass \ -> MZ, "\), SequenceForm[ "Old: ", " SV[2] == {SelfConjugate -> True, Indices -> {}, Mass -> MZ, ", ", \nNew: ", " SV[2] == {SelfConjugate -> True, FAIndices -> {}, Mass -> MZ, \ "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" {ScalarDash, Sine}, \ PropagatorArrow -> None, InsertOnly -> Loop}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" {ScalarDash, Sine}, PropagatorArrow -> None, \ InsertOnly -> HighEnergyPhysics`FeynCalc`Loop`Loop}, "\), SequenceForm[ "Old: ", " {ScalarDash, Sine}, PropagatorArrow -> None, InsertOnly -> \ Loop}, ", ", \nNew: ", " {ScalarDash, Sine}, PropagatorArrow -> None, InsertOnly -> \ HighEnergyPhysics`FeynCalc`Loop`Loop}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" SV[20] == \ {SelfConjugate -> True, Indices -> {}, Mass -> MZ, "\[InvisibleSpace]", \n\ New: "\[InvisibleSpace]" SV[20] == {SelfConjugate -> True, FAIndices -> {}, \ Mass -> MZ, "\), SequenceForm[ "Old: ", " SV[20] == {SelfConjugate -> True, Indices -> {}, Mass -> MZ, ", ", \nNew: ", " SV[20] == {SelfConjugate -> True, FAIndices -> {}, Mass -> MZ, \ "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" SV[3] == {SelfConjugate \ -> False, Indices -> {}, Mass -> MW, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" SV[3] == {SelfConjugate -> False, FAIndices -> {}, Mass \ -> MW, "\), SequenceForm[ "Old: ", " SV[3] == {SelfConjugate -> False, Indices -> {}, Mass -> MW, ", ", \nNew: ", " SV[3] == {SelfConjugate -> False, FAIndices -> {}, Mass -> MW, \ "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" PropagatorArrow -> \ Forward, InsertOnly -> Loop}, "\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ PropagatorArrow -> Forward, InsertOnly -> \ HighEnergyPhysics`FeynCalc`Loop`Loop}, "\), SequenceForm[ "Old: ", " PropagatorArrow -> Forward, InsertOnly -> Loop}, ", ", \nNew: ", " PropagatorArrow -> Forward, InsertOnly -> \ HighEnergyPhysics`FeynCalc`Loop`Loop}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" SV[30] == \ {SelfConjugate -> False, Indices -> {}, Mass -> MW, "\[InvisibleSpace]", \n\ New: "\[InvisibleSpace]" SV[30] == {SelfConjugate -> False, FAIndices -> \ {}, Mass -> MW, "\), SequenceForm[ "Old: ", " SV[30] == {SelfConjugate -> False, Indices -> {}, Mass -> MW, ", ", \nNew: ", " SV[30] == {SelfConjugate -> False, FAIndices -> {}, Mass -> MW, \ "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" S[1] == {SelfConjugate \ -> True, Indices -> {}, Mass -> MH, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" S[1] == {SelfConjugate -> True, FAIndices -> {}, Mass -> \ MH, "\), SequenceForm[ "Old: ", " S[1] == {SelfConjugate -> True, Indices -> {}, Mass -> MH, ", ", \nNew: ", " S[1] == {SelfConjugate -> True, FAIndices -> {}, Mass -> MH, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" PropagatorArrow -> \ None, InsertOnly -> Loop}, "\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ PropagatorArrow -> None, InsertOnly -> \ HighEnergyPhysics`FeynCalc`Loop`Loop}, "\), SequenceForm[ "Old: ", " PropagatorArrow -> None, InsertOnly -> Loop}, ", ", \nNew: ", " PropagatorArrow -> None, InsertOnly -> \ HighEnergyPhysics`FeynCalc`Loop`Loop}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" S[10] == {SelfConjugate \ -> True, Indices -> {}, Mass -> MH, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" S[10] == {SelfConjugate -> True, FAIndices -> {}, Mass \ -> MH, "\), SequenceForm[ "Old: ", " S[10] == {SelfConjugate -> True, Indices -> {}, Mass -> MH, ", ", \nNew: ", " S[10] == {SelfConjugate -> True, FAIndices -> {}, Mass -> MH, \ "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" S[2] == {SelfConjugate \ -> True, Indices -> {}, Mass -> MG0, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" S[2] == {SelfConjugate -> True, FAIndices -> {}, Mass -> \ MG0, "\), SequenceForm[ "Old: ", " S[2] == {SelfConjugate -> True, Indices -> {}, Mass -> MG0, ", ", \nNew: ", " S[2] == {SelfConjugate -> True, FAIndices -> {}, Mass -> MG0, \ "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" InsertOnly -> Loop}, \ S[20] == {SelfConjugate -> True, Indices -> {}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" InsertOnly -> HighEnergyPhysics`FeynCalc`Loop`Loop}, \ S[20] == {SelfConjugate -> True, FAIndices -> {}, "\), SequenceForm[ "Old: ", " InsertOnly -> Loop}, S[20] == {SelfConjugate -> True, Indices \ -> {}, ", ", \nNew: ", " InsertOnly -> HighEnergyPhysics`FeynCalc`Loop`Loop}, S[20] == \ {SelfConjugate -> True, FAIndices -> {}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" S[3] == {SelfConjugate \ -> False, Indices -> {}, Mass -> MGp, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" S[3] == {SelfConjugate -> False, FAIndices -> {}, Mass \ -> MGp, "\), SequenceForm[ "Old: ", " S[3] == {SelfConjugate -> False, Indices -> {}, Mass -> MGp, ", ", \nNew: ", " S[3] == {SelfConjugate -> False, FAIndices -> {}, Mass -> MGp, \ "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" InsertOnly -> Loop}, \ S[30] == {SelfConjugate -> False, Indices -> {}, "\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" InsertOnly -> HighEnergyPhysics`FeynCalc`Loop`Loop}, \ S[30] == {SelfConjugate -> False, FAIndices -> {}, "\), SequenceForm[ "Old: ", " InsertOnly -> Loop}, S[30] == {SelfConjugate -> False, \ Indices -> {}, ", ", \nNew: ", " InsertOnly -> HighEnergyPhysics`FeynCalc`Loop`Loop}, S[30] == \ {SelfConjugate -> False, FAIndices -> {}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" U[1] == {SelfConjugate \ -> False, Indices -> {}, Mass -> 0, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" U[1] == {SelfConjugate -> False, FAIndices -> {}, Mass \ -> 0, "\), SequenceForm[ "Old: ", " U[1] == {SelfConjugate -> False, Indices -> {}, Mass -> 0, ", ", \nNew: ", " U[1] == {SelfConjugate -> False, FAIndices -> {}, Mass -> 0, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" Indices -> {}, Mass \ -> MZ, QuantumNumbers -> GhostNumber, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" FAIndices -> {}, Mass -> MZ, QuantumNumbers -> \ GhostNumber, "\), SequenceForm[ "Old: ", " Indices -> {}, Mass -> MZ, QuantumNumbers -> GhostNumber, ", ", \nNew: ", " FAIndices -> {}, Mass -> MZ, QuantumNumbers -> GhostNumber, \ "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" Indices -> {}, Mass \ -> MW, QuantumNumbers -> {-Charge, GhostNumber}, "\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" FAIndices -> {}, Mass -> MW, QuantumNumbers -> \ {-Charge, GhostNumber}, "\), SequenceForm[ "Old: ", " Indices -> {}, Mass -> MW, QuantumNumbers -> {-Charge, \ GhostNumber}, ", ", \nNew: ", " FAIndices -> {}, Mass -> MW, QuantumNumbers -> {-Charge, \ GhostNumber}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" Indices -> {}, Mass \ -> MW, QuantumNumbers -> {Charge, GhostNumber}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" FAIndices -> {}, Mass -> MW, QuantumNumbers -> \ {Charge, GhostNumber}, "\), SequenceForm[ "Old: ", " Indices -> {}, Mass -> MW, QuantumNumbers -> {Charge, \ GhostNumber}, ", ", \nNew: ", " FAIndices -> {}, Mass -> MW, QuantumNumbers -> {Charge, \ GhostNumber}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[-U[3], U[3], V[1]] == \ {{((-I)*EL)/Sqrt[GaugeXi[W]]}, {0}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[-U[3], U[3], V[1]] == \ {{((-I)*EL)/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]]}, {0}}, "\), SequenceForm[ "Old: ", " C[-U[3], U[3], V[1]] == {{((-I)*EL)/Sqrt[GaugeXi[W]]}, {0}}, ", ", \nNew: ", " C[-U[3], U[3], V[1]] == \ {{((-I)*EL)/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]]}, {0}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[-U[4], U[4], V[1]] == \ {{(I*EL)/Sqrt[GaugeXi[W]]}, {0}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[-U[4], U[4], V[1]] == \ {{(I*EL)/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]]}, {0}}, "\), SequenceForm[ "Old: ", " C[-U[4], U[4], V[1]] == {{(I*EL)/Sqrt[GaugeXi[W]]}, {0}}, ", ", \nNew: ", " C[-U[4], U[4], V[1]] == \ {{(I*EL)/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]]}, {0}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[-U[3], U[3], V[2]] == \ {{(I*CW*EL)/(SW*Sqrt[GaugeXi[W]])}, {0}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[-U[3], U[3], V[2]] == \ {{(I*CW*EL)/(SW*Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]])}, {0}}, \ "\), SequenceForm[ "Old: ", " C[-U[3], U[3], V[2]] == {{(I*CW*EL)/(SW*Sqrt[GaugeXi[W]])}, \ {0}}, ", ", \nNew: ", " C[-U[3], U[3], V[2]] == \ {{(I*CW*EL)/(SW*Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]])}, {0}}, \ "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[-U[4], U[4], V[2]] == \ {{((-I)*CW*EL)/(SW*Sqrt[GaugeXi[W]])}, {0}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[-U[4], U[4], V[2]] == \ {{((-I)*CW*EL)/(SW*Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]])}, \ {0}}, "\), SequenceForm[ "Old: ", " C[-U[4], U[4], V[2]] == {{((-I)*CW*EL)/(SW*Sqrt[GaugeXi[W]])}, \ {0}}, ", ", \nNew: ", " C[-U[4], U[4], V[2]] == \ {{((-I)*CW*EL)/(SW*Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]])}, \ {0}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[-U[3], U[2], V[3]] == \ {{((-I)*CW*EL)/(SW*Sqrt[GaugeXi[W]])}, {0}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[-U[3], U[2], V[3]] == \ {{((-I)*CW*EL)/(SW*Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]])}, \ {0}}, "\), SequenceForm[ "Old: ", " C[-U[3], U[2], V[3]] == {{((-I)*CW*EL)/(SW*Sqrt[GaugeXi[W]])}, \ {0}}, ", ", \nNew: ", " C[-U[3], U[2], V[3]] == \ {{((-I)*CW*EL)/(SW*Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]])}, \ {0}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[-U[2], U[3], -V[3]] \ == {{((-I)*CW*EL)/(SW*Sqrt[GaugeXi[Z]])}, {0}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[-U[2], U[3], -V[3]] == \ {{((-I)*CW*EL)/(SW*Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Z]])}, \ {0}}, "\), SequenceForm[ "Old: ", " C[-U[2], U[3], -V[3]] == {{((-I)*CW*EL)/(SW*Sqrt[GaugeXi[Z]])}, \ {0}}, ", ", \nNew: ", " C[-U[2], U[3], -V[3]] == \ {{((-I)*CW*EL)/(SW*Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Z]])}, \ {0}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[-U[4], U[2], -V[3]] \ == {{(I*CW*EL)/(SW*Sqrt[GaugeXi[W]])}, {0}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[-U[4], U[2], -V[3]] == \ {{(I*CW*EL)/(SW*Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]])}, {0}}, \ "\), SequenceForm[ "Old: ", " C[-U[4], U[2], -V[3]] == {{(I*CW*EL)/(SW*Sqrt[GaugeXi[W]])}, \ {0}}, ", ", \nNew: ", " C[-U[4], U[2], -V[3]] == \ {{(I*CW*EL)/(SW*Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]])}, {0}}, \ "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[-U[2], U[4], V[3]] == \ {{(I*CW*EL)/(SW*Sqrt[GaugeXi[Z]])}, {0}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[-U[2], U[4], V[3]] == \ {{(I*CW*EL)/(SW*Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Z]])}, {0}}, \ "\), SequenceForm[ "Old: ", " C[-U[2], U[4], V[3]] == {{(I*CW*EL)/(SW*Sqrt[GaugeXi[Z]])}, \ {0}}, ", ", \nNew: ", " C[-U[2], U[4], V[3]] == \ {{(I*CW*EL)/(SW*Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Z]])}, {0}}, \ "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[-U[3], U[1], V[3]] == \ {{(I*EL)/Sqrt[GaugeXi[W]]}, {0}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[-U[3], U[1], V[3]] == \ {{(I*EL)/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]]}, {0}}, "\), SequenceForm[ "Old: ", " C[-U[3], U[1], V[3]] == {{(I*EL)/Sqrt[GaugeXi[W]]}, {0}}, ", ", \nNew: ", " C[-U[3], U[1], V[3]] == \ {{(I*EL)/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]]}, {0}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[-U[1], U[3], -V[3]] \ == {{(I*EL)/Sqrt[GaugeXi[A]]}, {0}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[-U[1], U[3], -V[3]] == \ {{(I*EL)/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[A]]}, {0}}, "\), SequenceForm[ "Old: ", " C[-U[1], U[3], -V[3]] == {{(I*EL)/Sqrt[GaugeXi[A]]}, {0}}, ", ", \nNew: ", " C[-U[1], U[3], -V[3]] == \ {{(I*EL)/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[A]]}, {0}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[-U[4], U[1], -V[3]] \ == {{((-I)*EL)/Sqrt[GaugeXi[W]]}, {0}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[-U[4], U[1], -V[3]] == \ {{((-I)*EL)/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]]}, {0}}, "\), SequenceForm[ "Old: ", " C[-U[4], U[1], -V[3]] == {{((-I)*EL)/Sqrt[GaugeXi[W]]}, {0}}, ", ", \nNew: ", " C[-U[4], U[1], -V[3]] == \ {{((-I)*EL)/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]]}, {0}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[-U[1], U[4], V[3]] == \ {{((-I)*EL)/Sqrt[GaugeXi[A]]}, {0}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[-U[1], U[4], V[3]] == \ {{((-I)*EL)/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[A]]}, {0}}, "\), SequenceForm[ "Old: ", " C[-U[1], U[4], V[3]] == {{((-I)*EL)/Sqrt[GaugeXi[A]]}, {0}}, ", ", \nNew: ", " C[-U[1], U[4], V[3]] == \ {{((-I)*EL)/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[A]]}, {0}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[S[1], -U[2], U[2]] == \ {{((-I/2)*EL*MW*GaugeXi[Z])/(CW^2*SW)}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[S[1], -U[2], U[2]] == \ {{((-I/2)*EL*MW*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Z])/(CW^2*SW)}}, "\ \), SequenceForm[ "Old: ", " C[S[1], -U[2], U[2]] == \ {{((-I/2)*EL*MW*GaugeXi[Z])/(CW^2*SW)}}, ", ", \nNew: ", " C[S[1], -U[2], U[2]] == \ {{((-I/2)*EL*MW*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Z])/(CW^2*SW)}}, \ "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[S[1], -U[3], U[3]] == \ {{((-I/2)*EL*MW*GaugeXi[W])/SW}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[S[1], -U[3], U[3]] == \ {{((-I/2)*EL*MW*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W])/SW}}, "\), SequenceForm[ "Old: ", " C[S[1], -U[3], U[3]] == {{((-I/2)*EL*MW*GaugeXi[W])/SW}}, ", ", \nNew: ", " C[S[1], -U[3], U[3]] == \ {{((-I/2)*EL*MW*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W])/SW}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[S[1], -U[4], U[4]] == \ {{((-I/2)*EL*MW*GaugeXi[W])/SW}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[S[1], -U[4], U[4]] == \ {{((-I/2)*EL*MW*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W])/SW}}, "\), SequenceForm[ "Old: ", " C[S[1], -U[4], U[4]] == {{((-I/2)*EL*MW*GaugeXi[W])/SW}}, ", ", \nNew: ", " C[S[1], -U[4], U[4]] == \ {{((-I/2)*EL*MW*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W])/SW}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[S[2], -U[4], U[4]] == \ {{(EL*MW*GaugeXi[W])/(2*SW)}}, "\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" C[S[2], -U[4], U[4]] == \ {{(EL*MW*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W])/(2*SW)}}, "\), SequenceForm[ "Old: ", " C[S[2], -U[4], U[4]] == {{(EL*MW*GaugeXi[W])/(2*SW)}}, ", ", \nNew: ", " C[S[2], -U[4], U[4]] == \ {{(EL*MW*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W])/(2*SW)}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[S[2], -U[3], U[3]] == \ {{-(EL*MW*GaugeXi[W])/(2*SW)}}, "\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" C[S[2], -U[3], U[3]] == \ {{-(EL*MW*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W])/(2*SW)}}, "\), SequenceForm[ "Old: ", " C[S[2], -U[3], U[3]] == {{-(EL*MW*GaugeXi[W])/(2*SW)}}, ", ", \nNew: ", " C[S[2], -U[3], U[3]] == \ {{-(EL*MW*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W])/(2*SW)}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[-S[3], -U[2], U[3]] \ == {{((I/2)*EL*MW*GaugeXi[Z])/(CW*SW)}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[-S[3], -U[2], U[3]] == \ {{((I/2)*EL*MW*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Z])/(CW*SW)}}, "\), SequenceForm[ "Old: ", " C[-S[3], -U[2], U[3]] == {{((I/2)*EL*MW*GaugeXi[Z])/(CW*SW)}}, \ ", ", \nNew: ", " C[-S[3], -U[2], U[3]] == \ {{((I/2)*EL*MW*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Z])/(CW*SW)}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[S[3], -U[2], U[4]] == \ {{((I/2)*EL*MW*GaugeXi[Z])/(CW*SW)}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[S[3], -U[2], U[4]] == \ {{((I/2)*EL*MW*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Z])/(CW*SW)}}, "\), SequenceForm[ "Old: ", " C[S[3], -U[2], U[4]] == {{((I/2)*EL*MW*GaugeXi[Z])/(CW*SW)}}, ", ", \nNew: ", " C[S[3], -U[2], U[4]] == \ {{((I/2)*EL*MW*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Z])/(CW*SW)}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[-S[3], -U[4], U[2]] \ == {{((I/2)*EL*MW*(-CW^2 + SW^2)*GaugeXi[W])/"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[-S[3], -U[4], U[2]] == {{((I/2)*EL*MW*(-CW^2 + \ SW^2)*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W])/"\), SequenceForm[ "Old: ", " C[-S[3], -U[4], U[2]] == {{((I/2)*EL*MW*(-CW^2 + \ SW^2)*GaugeXi[W])/", ", \nNew: ", " C[-S[3], -U[4], U[2]] == {{((I/2)*EL*MW*(-CW^2 + \ SW^2)*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W])/"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" {{((I/2)*EL*MW*(-CW^2 \ + SW^2)*GaugeXi[W])/(CW*SW)}}, "\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" {{((I/2)*EL*MW*(-CW^2 + \ SW^2)*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W])/(CW*SW)}}, "\), SequenceForm[ "Old: ", " {{((I/2)*EL*MW*(-CW^2 + SW^2)*GaugeXi[W])/(CW*SW)}}, ", ", \nNew: ", " {{((I/2)*EL*MW*(-CW^2 + \ SW^2)*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W])/(CW*SW)}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[-S[3], -U[4], U[1]] \ == {{I*EL*MW*GaugeXi[W]}}, "\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ C[-S[3], -U[4], U[1]] == \ {{I*EL*MW*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]}}, "\), SequenceForm[ "Old: ", " C[-S[3], -U[4], U[1]] == {{I*EL*MW*GaugeXi[W]}}, ", ", \nNew: ", " C[-S[3], -U[4], U[1]] == \ {{I*EL*MW*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[S[3], -U[3], U[1]] == \ {{I*EL*MW*GaugeXi[W]}}, "\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ C[S[3], -U[3], U[1]] == \ {{I*EL*MW*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]}}, "\), SequenceForm[ "Old: ", " C[S[3], -U[3], U[1]] == {{I*EL*MW*GaugeXi[W]}}, ", ", \nNew: ", " C[S[3], -U[3], U[1]] == \ {{I*EL*MW*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[V[10], -V[3], V[3]] \ == {{(-I)*EL}, {((-I)*EL)/GaugeXi[Q]}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[V[10], -V[3], V[3]] == {{(-I)*EL}, \ {((-I)*EL)/HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]}, "\), SequenceForm[ "Old: ", " C[V[10], -V[3], V[3]] == {{(-I)*EL}, {((-I)*EL)/GaugeXi[Q]}, ", ", \nNew: ", " C[V[10], -V[3], V[3]] == {{(-I)*EL}, \ {((-I)*EL)/HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" {(I*EL)/GaugeXi[Q]}, \ {0}}, C[-V[30], V[3], V[1]] == "\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" \ {(I*EL)/HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]}, {0}}, C[-V[30], V[3], \ V[1]] == "\), SequenceForm[ "Old: ", " {(I*EL)/GaugeXi[Q]}, {0}}, C[-V[30], V[3], V[1]] == ", ", \nNew: ", " {(I*EL)/HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]}, {0}}, \ C[-V[30], V[3], V[1]] == "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" {{(-I)*EL}, \ {((-I)*EL)/GaugeXi[Q]}, {(I*EL)/GaugeXi[Q]}, {0}}, "\[InvisibleSpace]", \n\ New: "\[InvisibleSpace]" {{(-I)*EL}, \ {((-I)*EL)/HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]}, \ {(I*EL)/HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]}, {0}}, "\), SequenceForm[ "Old: ", " {{(-I)*EL}, {((-I)*EL)/GaugeXi[Q]}, {(I*EL)/GaugeXi[Q]}, {0}}, \ ", ", \nNew: ", " {{(-I)*EL}, \ {((-I)*EL)/HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]}, \ {(I*EL)/HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]}, {0}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[V[30], V[1], -V[3]] \ == {{(-I)*EL}, {((-I)*EL)/GaugeXi[Q]}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[V[30], V[1], -V[3]] == {{(-I)*EL}, \ {((-I)*EL)/HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]}, "\), SequenceForm[ "Old: ", " C[V[30], V[1], -V[3]] == {{(-I)*EL}, {((-I)*EL)/GaugeXi[Q]}, ", ", \nNew: ", " C[V[30], V[1], -V[3]] == {{(-I)*EL}, \ {((-I)*EL)/HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" {(I*EL)/GaugeXi[Q]}, \ {0}}, C[V[20], -V[3], V[3]] == "\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" \ {(I*EL)/HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]}, {0}}, C[V[20], -V[3], \ V[3]] == "\), SequenceForm[ "Old: ", " {(I*EL)/GaugeXi[Q]}, {0}}, C[V[20], -V[3], V[3]] == ", ", \nNew: ", " {(I*EL)/HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]}, {0}}, \ C[V[20], -V[3], V[3]] == "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" {{(I*CW*EL)/SW}, \ {(I*CW*EL)/(SW*GaugeXi[Q])}, "\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ {{(I*CW*EL)/SW}, \ {(I*CW*EL)/(SW*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])}, "\), SequenceForm[ "Old: ", " {{(I*CW*EL)/SW}, {(I*CW*EL)/(SW*GaugeXi[Q])}, ", ", \nNew: ", " {{(I*CW*EL)/SW}, \ {(I*CW*EL)/(SW*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ {((-I)*CW*EL)/(SW*GaugeXi[Q])}, {0}}, C[-V[30], V[3], V[2]] == "\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ {((-I)*CW*EL)/(SW*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])}, {0}}, \ C[-V[30], V[3], V[2]] == "\), SequenceForm[ "Old: ", " {((-I)*CW*EL)/(SW*GaugeXi[Q])}, {0}}, C[-V[30], V[3], V[2]] \ == ", ", \nNew: ", " {((-I)*CW*EL)/(SW*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[\ Q])}, {0}}, C[-V[30], V[3], V[2]] == "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" {{(I*CW*EL)/SW}, \ {(I*CW*EL)/(SW*GaugeXi[Q])}, "\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ {{(I*CW*EL)/SW}, \ {(I*CW*EL)/(SW*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])}, "\), SequenceForm[ "Old: ", " {{(I*CW*EL)/SW}, {(I*CW*EL)/(SW*GaugeXi[Q])}, ", ", \nNew: ", " {{(I*CW*EL)/SW}, \ {(I*CW*EL)/(SW*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ {((-I)*CW*EL)/(SW*GaugeXi[Q])}, {0}}, C[V[30], V[2], -V[3]] == "\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ {((-I)*CW*EL)/(SW*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])}, {0}}, \ C[V[30], V[2], -V[3]] == "\), SequenceForm[ "Old: ", " {((-I)*CW*EL)/(SW*GaugeXi[Q])}, {0}}, C[V[30], V[2], -V[3]] \ == ", ", \nNew: ", " {((-I)*CW*EL)/(SW*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[\ Q])}, {0}}, C[V[30], V[2], -V[3]] == "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" {{(I*CW*EL)/SW}, \ {(I*CW*EL)/(SW*GaugeXi[Q])}, "\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ {{(I*CW*EL)/SW}, \ {(I*CW*EL)/(SW*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])}, "\), SequenceForm[ "Old: ", " {{(I*CW*EL)/SW}, {(I*CW*EL)/(SW*GaugeXi[Q])}, ", ", \nNew: ", " {{(I*CW*EL)/SW}, \ {(I*CW*EL)/(SW*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ {((-I)*CW*EL)/(SW*GaugeXi[Q])}, {0}}, C[S[10], S[1], S[1]] == "\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ {((-I)*CW*EL)/(SW*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])}, {0}}, \ C[S[10], S[1], S[1]] == "\), SequenceForm[ "Old: ", " {((-I)*CW*EL)/(SW*GaugeXi[Q])}, {0}}, C[S[10], S[1], S[1]] == \ ", ", \nNew: ", " {((-I)*CW*EL)/(SW*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[\ Q])}, {0}}, C[S[10], S[1], S[1]] == "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ {{I*EL*(-MH^2/(2*MW*SW) - (MW*GaugeXi[Q])/(CW^2*SW))}}, "\[InvisibleSpace]", \ \nNew: "\[InvisibleSpace]" {{I*EL*(-MH^2/(2*MW*SW) - \ (MW*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(CW^2*SW))}}, "\), SequenceForm[ "Old: ", " {{I*EL*(-MH^2/(2*MW*SW) - (MW*GaugeXi[Q])/(CW^2*SW))}}, ", ", \nNew: ", " {{I*EL*(-MH^2/(2*MW*SW) - \ (MW*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(CW^2*SW))}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ {{I*EL*(-MH^2/(2*MW*SW) + (MW*GaugeXi[Q])/(CW^2*SW))}}, "\[InvisibleSpace]", \ \nNew: "\[InvisibleSpace]" {{I*EL*(-MH^2/(2*MW*SW) + \ (MW*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(CW^2*SW))}}, "\), SequenceForm[ "Old: ", " {{I*EL*(-MH^2/(2*MW*SW) + (MW*GaugeXi[Q])/(CW^2*SW))}}, ", ", \nNew: ", " {{I*EL*(-MH^2/(2*MW*SW) + \ (MW*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(CW^2*SW))}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[S[10], -S[3], S[3]] \ == {{I*EL*(-MH^2/(2*MW*SW) - (MW*GaugeXi[Q])/SW)}}, "\[InvisibleSpace]", \n\ New: "\[InvisibleSpace]" C[S[10], -S[3], S[3]] == {{I*EL*(-MH^2/(2*MW*SW) - \ (MW*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/SW)}}, "\), SequenceForm[ "Old: ", " C[S[10], -S[3], S[3]] == {{I*EL*(-MH^2/(2*MW*SW) - \ (MW*GaugeXi[Q])/SW)}}, ", ", \nNew: ", " C[S[10], -S[3], S[3]] == {{I*EL*(-MH^2/(2*MW*SW) - \ (MW*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/SW)}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ {{I*EL*(-MH^2/(2*MW*SW) + (MW*GaugeXi[Q])/(2*SW))}}, "\[InvisibleSpace]", \n\ New: "\[InvisibleSpace]" {{I*EL*(-MH^2/(2*MW*SW) + \ (MW*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(2*SW))}}, "\), SequenceForm[ "Old: ", " {{I*EL*(-MH^2/(2*MW*SW) + (MW*GaugeXi[Q])/(2*SW))}}, ", ", \nNew: ", " {{I*EL*(-MH^2/(2*MW*SW) + \ (MW*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(2*SW))}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ {{I*EL*(-MH^2/(2*MW*SW) + (MW*GaugeXi[Q])/(2*SW))}}, "\[InvisibleSpace]", \n\ New: "\[InvisibleSpace]" {{I*EL*(-MH^2/(2*MW*SW) + \ (MW*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(2*SW))}}, "\), SequenceForm[ "Old: ", " {{I*EL*(-MH^2/(2*MW*SW) + (MW*GaugeXi[Q])/(2*SW))}}, ", ", \nNew: ", " {{I*EL*(-MH^2/(2*MW*SW) + \ (MW*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(2*SW))}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[S[2], -S[30], S[3]] \ == {{(EL*MW*SW*GaugeXi[Q])/(2*CW^2)}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[S[2], -S[30], S[3]] == \ {{(EL*MW*SW*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(2*CW^2)}}, "\), SequenceForm[ "Old: ", " C[S[2], -S[30], S[3]] == {{(EL*MW*SW*GaugeXi[Q])/(2*CW^2)}}, ", ", \nNew: ", " C[S[2], -S[30], S[3]] == \ {{(EL*MW*SW*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(2*CW^2)}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[S[2], -S[3], S[30]] \ == {{-(EL*MW*SW*GaugeXi[Q])/(2*CW^2)}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[S[2], -S[3], S[30]] == \ {{-(EL*MW*SW*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(2*CW^2)}}, "\), SequenceForm[ "Old: ", " C[S[2], -S[3], S[30]] == {{-(EL*MW*SW*GaugeXi[Q])/(2*CW^2)}}, ", ", \nNew: ", " C[S[2], -S[3], S[30]] == \ {{-(EL*MW*SW*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(2*CW^2)}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[-S[30], -U[4], U[2]] \ == {{(I*EL*MW*SW*GaugeXi[Q])/CW}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[-S[30], -U[4], U[2]] == \ {{(I*EL*MW*SW*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/CW}}, "\), SequenceForm[ "Old: ", " C[-S[30], -U[4], U[2]] == {{(I*EL*MW*SW*GaugeXi[Q])/CW}}, ", ", \nNew: ", " C[-S[30], -U[4], U[2]] == \ {{(I*EL*MW*SW*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/CW}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[S[30], -U[3], U[2]] \ == {{(I*EL*MW*SW*GaugeXi[Q])/CW}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[S[30], -U[3], U[2]] == \ {{(I*EL*MW*SW*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/CW}}, "\), SequenceForm[ "Old: ", " C[S[30], -U[3], U[2]] == {{(I*EL*MW*SW*GaugeXi[Q])/CW}}, ", ", \nNew: ", " C[S[30], -U[3], U[2]] == \ {{(I*EL*MW*SW*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/CW}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[-S[30], -U[4], U[1]] \ == {{I*EL*MW*GaugeXi[Q]}}, "\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ C[-S[30], -U[4], U[1]] == \ {{I*EL*MW*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]}}, "\), SequenceForm[ "Old: ", " C[-S[30], -U[4], U[1]] == {{I*EL*MW*GaugeXi[Q]}}, ", ", \nNew: ", " C[-S[30], -U[4], U[1]] == \ {{I*EL*MW*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[S[30], -U[3], U[1]] \ == {{I*EL*MW*GaugeXi[Q]}}, "\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ C[S[30], -U[3], U[1]] == \ {{I*EL*MW*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]}}, "\), SequenceForm[ "Old: ", " C[S[30], -U[3], U[1]] == {{I*EL*MW*GaugeXi[Q]}}, ", ", \nNew: ", " C[S[30], -U[3], U[1]] == \ {{I*EL*MW*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[-S[30], -U[2], U[3]] \ == {{(I*EL*MW*SW*GaugeXi[Q])/CW}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[-S[30], -U[2], U[3]] == \ {{(I*EL*MW*SW*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/CW}}, "\), SequenceForm[ "Old: ", " C[-S[30], -U[2], U[3]] == {{(I*EL*MW*SW*GaugeXi[Q])/CW}}, ", ", \nNew: ", " C[-S[30], -U[2], U[3]] == \ {{(I*EL*MW*SW*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/CW}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[S[30], -U[2], U[4]] \ == {{(I*EL*MW*SW*GaugeXi[Q])/CW}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[S[30], -U[2], U[4]] == \ {{(I*EL*MW*SW*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/CW}}, "\), SequenceForm[ "Old: ", " C[S[30], -U[2], U[4]] == {{(I*EL*MW*SW*GaugeXi[Q])/CW}}, ", ", \nNew: ", " C[S[30], -U[2], U[4]] == \ {{(I*EL*MW*SW*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/CW}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[-S[30], -U[1], U[3]] \ == {{I*EL*MW*GaugeXi[Q]}}, "\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ C[-S[30], -U[1], U[3]] == \ {{I*EL*MW*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]}}, "\), SequenceForm[ "Old: ", " C[-S[30], -U[1], U[3]] == {{I*EL*MW*GaugeXi[Q]}}, ", ", \nNew: ", " C[-S[30], -U[1], U[3]] == \ {{I*EL*MW*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[S[30], -U[1], U[4]] \ == {{I*EL*MW*GaugeXi[Q]}}, "\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ C[S[30], -U[1], U[4]] == \ {{I*EL*MW*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]}}, "\), SequenceForm[ "Old: ", " C[S[30], -U[1], U[4]] == {{I*EL*MW*GaugeXi[Q]}}, ", ", \nNew: ", " C[S[30], -U[1], U[4]] == \ {{I*EL*MW*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[S[10], -U[4], U[4]] \ == {{((-I)*EL*MW*GaugeXi[Q])/SW}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[S[10], -U[4], U[4]] == \ {{((-I)*EL*MW*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/SW}}, "\), SequenceForm[ "Old: ", " C[S[10], -U[4], U[4]] == {{((-I)*EL*MW*GaugeXi[Q])/SW}}, ", ", \nNew: ", " C[S[10], -U[4], U[4]] == \ {{((-I)*EL*MW*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/SW}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[S[10], -U[3], U[3]] \ == {{((-I)*EL*MW*GaugeXi[Q])/SW}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[S[10], -U[3], U[3]] == \ {{((-I)*EL*MW*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/SW}}, "\), SequenceForm[ "Old: ", " C[S[10], -U[3], U[3]] == {{((-I)*EL*MW*GaugeXi[Q])/SW}}, ", ", \nNew: ", " C[S[10], -U[3], U[3]] == \ {{((-I)*EL*MW*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/SW}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[S[10], -U[2], U[2]] \ == {{((-I)*EL*MW*GaugeXi[Q])/(CW^2*SW)}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[S[10], -U[2], U[2]] == \ {{((-I)*EL*MW*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(CW^2*SW)}}, "\), SequenceForm[ "Old: ", " C[S[10], -U[2], U[2]] == {{((-I)*EL*MW*GaugeXi[Q])/(CW^2*SW)}}, \ ", ", \nNew: ", " C[S[10], -U[2], U[2]] == \ {{((-I)*EL*MW*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(CW^2*SW)}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" {(-I)*EL^2*(-1 + \ GaugeXi[Q]^(-1))}, {(-I)*EL^2*(-1 + GaugeXi[Q]^(-1))}}, \ \\"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" {(-I)*EL^2*(-1 + \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]^(-1))}, {(-I)*EL^2*(-1 + \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]^(-1))}}, \\"\), SequenceForm[ "Old: ", " {(-I)*EL^2*(-1 + GaugeXi[Q]^(-1))}, {(-I)*EL^2*(-1 + \ GaugeXi[Q]^(-1))}}, \\", ", \nNew: ", " {(-I)*EL^2*(-1 + \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]^(-1))}, {(-I)*EL^2*(-1 + \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]^(-1))}}, \\"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" {(-I)*EL^2*(-1 + \ GaugeXi[Q]^(-1))}, {(-I)*EL^2*(-1 + GaugeXi[Q]^(-1))}}, \ \\"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" {(-I)*EL^2*(-1 + \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]^(-1))}, {(-I)*EL^2*(-1 + \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]^(-1))}}, \\"\), SequenceForm[ "Old: ", " {(-I)*EL^2*(-1 + GaugeXi[Q]^(-1))}, {(-I)*EL^2*(-1 + \ GaugeXi[Q]^(-1))}}, \\", ", \nNew: ", " {(-I)*EL^2*(-1 + \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]^(-1))}, {(-I)*EL^2*(-1 + \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]^(-1))}}, \\"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" {((-I)*CW^2*EL^2*(-1 \ + GaugeXi[Q]^(-1)))/SW^2}, "\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ {((-I)*CW^2*EL^2*(-1 + \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]^(-1)))/SW^2}, "\), SequenceForm[ "Old: ", " {((-I)*CW^2*EL^2*(-1 + GaugeXi[Q]^(-1)))/SW^2}, ", ", \nNew: ", " {((-I)*CW^2*EL^2*(-1 + \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]^(-1)))/SW^2}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" {((-I)*CW^2*EL^2*(-1 \ + GaugeXi[Q]^(-1)))/SW^2}}, "\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ {((-I)*CW^2*EL^2*(-1 + \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]^(-1)))/SW^2}}, "\), SequenceForm[ "Old: ", " {((-I)*CW^2*EL^2*(-1 + GaugeXi[Q]^(-1)))/SW^2}}, ", ", \nNew: ", " {((-I)*CW^2*EL^2*(-1 + \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]^(-1)))/SW^2}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" {((-I)*CW^2*EL^2*(-1 \ + GaugeXi[Q]^(-1)))/SW^2}, "\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ {((-I)*CW^2*EL^2*(-1 + \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]^(-1)))/SW^2}, "\), SequenceForm[ "Old: ", " {((-I)*CW^2*EL^2*(-1 + GaugeXi[Q]^(-1)))/SW^2}, ", ", \nNew: ", " {((-I)*CW^2*EL^2*(-1 + \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]^(-1)))/SW^2}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" {((-I)*CW^2*EL^2*(-1 \ + GaugeXi[Q]^(-1)))/SW^2}}, "\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ {((-I)*CW^2*EL^2*(-1 + \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]^(-1)))/SW^2}}, "\), SequenceForm[ "Old: ", " {((-I)*CW^2*EL^2*(-1 + GaugeXi[Q]^(-1)))/SW^2}}, ", ", \nNew: ", " {((-I)*CW^2*EL^2*(-1 + \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]^(-1)))/SW^2}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" {(I*CW*EL^2*(-1 + \ GaugeXi[Q]^(-1)))/SW}, "\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ {(I*CW*EL^2*(-1 + HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]^(-1)))/SW}, "\ \), SequenceForm[ "Old: ", " {(I*CW*EL^2*(-1 + GaugeXi[Q]^(-1)))/SW}, ", ", \nNew: ", " {(I*CW*EL^2*(-1 + \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]^(-1)))/SW}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" {(I*CW*EL^2*(-1 + \ GaugeXi[Q]^(-1)))/SW}}, C[-V[30], V[30], V[1], V[2]] \\"\[InvisibleSpace]", \n\ New: "\[InvisibleSpace]" {(I*CW*EL^2*(-1 + \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]^(-1)))/SW}}, C[-V[30], V[30], \ V[1], V[2]] \\"\), SequenceForm[ "Old: ", " {(I*CW*EL^2*(-1 + GaugeXi[Q]^(-1)))/SW}}, C[-V[30], V[30], \ V[1], V[2]] \\", ", \nNew: ", " {(I*CW*EL^2*(-1 + \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]^(-1)))/SW}}, C[-V[30], V[30], \ V[1], V[2]] \\"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" {{((2*I)*CW*EL^2)/SW}, \ {(I*CW*EL^2*(-1 + GaugeXi[Q]^(-1)))/SW}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" {{((2*I)*CW*EL^2)/SW}, {(I*CW*EL^2*(-1 + \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]^(-1)))/SW}, "\), SequenceForm[ "Old: ", " {{((2*I)*CW*EL^2)/SW}, {(I*CW*EL^2*(-1 + GaugeXi[Q]^(-1)))/SW}, \ ", ", \nNew: ", " {{((2*I)*CW*EL^2)/SW}, {(I*CW*EL^2*(-1 + \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]^(-1)))/SW}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" {(I*CW*EL^2*(-1 + \ GaugeXi[Q]^(-1)))/SW}}, C[V[30], V[30], -V[3], -V[3]] \\"\[InvisibleSpace]", \ \nNew: "\[InvisibleSpace]" {(I*CW*EL^2*(-1 + \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]^(-1)))/SW}}, C[V[30], V[30], \ -V[3], -V[3]] \\"\), SequenceForm[ "Old: ", " {(I*CW*EL^2*(-1 + GaugeXi[Q]^(-1)))/SW}}, C[V[30], V[30], \ -V[3], -V[3]] \\", ", \nNew: ", " {(I*CW*EL^2*(-1 + \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]^(-1)))/SW}}, C[V[30], V[30], \ -V[3], -V[3]] \\"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" {{((2*I)*EL^2)/SW^2}, \ {(I*EL^2*(-1 + GaugeXi[Q]^(-1)))/SW^2}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" {{((2*I)*EL^2)/SW^2}, {(I*EL^2*(-1 + \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]^(-1)))/SW^2}, "\), SequenceForm[ "Old: ", " {{((2*I)*EL^2)/SW^2}, {(I*EL^2*(-1 + GaugeXi[Q]^(-1)))/SW^2}, ", ", \nNew: ", " {{((2*I)*EL^2)/SW^2}, {(I*EL^2*(-1 + \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]^(-1)))/SW^2}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" {(I*EL^2*(-1 + \ GaugeXi[Q]^(-1)))/SW^2}}, C[-V[30], -V[30], V[3], V[3]] \ \\"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" {(I*EL^2*(-1 + \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]^(-1)))/SW^2}}, C[-V[30], \ -V[30], V[3], V[3]] \\"\), SequenceForm[ "Old: ", " {(I*EL^2*(-1 + GaugeXi[Q]^(-1)))/SW^2}}, C[-V[30], -V[30], \ V[3], V[3]] \\", ", \nNew: ", " {(I*EL^2*(-1 + \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]^(-1)))/SW^2}}, C[-V[30], \ -V[30], V[3], V[3]] \\"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" {{((2*I)*EL^2)/SW^2}, \ {(I*EL^2*(-1 + GaugeXi[Q]^(-1)))/SW^2}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" {{((2*I)*EL^2)/SW^2}, {(I*EL^2*(-1 + \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]^(-1)))/SW^2}, "\), SequenceForm[ "Old: ", " {{((2*I)*EL^2)/SW^2}, {(I*EL^2*(-1 + GaugeXi[Q]^(-1)))/SW^2}, ", ", \nNew: ", " {{((2*I)*EL^2)/SW^2}, {(I*EL^2*(-1 + \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]^(-1)))/SW^2}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" {(I*EL^2*(-1 + \ GaugeXi[Q]^(-1)))/SW^2}}, C[-V[30], V[10], V[3], V[1]] == \ \\"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" {(I*EL^2*(-1 + \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]^(-1)))/SW^2}}, C[-V[30], V[10], \ V[3], V[1]] == \\"\), SequenceForm[ "Old: ", " {(I*EL^2*(-1 + GaugeXi[Q]^(-1)))/SW^2}}, C[-V[30], V[10], \ V[3], V[1]] == \\", ", \nNew: ", " {(I*EL^2*(-1 + \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]^(-1)))/SW^2}}, C[-V[30], V[10], \ V[3], V[1]] == \\"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" {{I*EL^2}, \ {(-2*I)*EL^2}, {(-I)*EL^2*(-1 - GaugeXi[Q]^(-1))}}, "\[InvisibleSpace]", \n\ New: "\[InvisibleSpace]" {{I*EL^2}, {(-2*I)*EL^2}, {(-I)*EL^2*(-1 - \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]^(-1))}}, "\), SequenceForm[ "Old: ", " {{I*EL^2}, {(-2*I)*EL^2}, {(-I)*EL^2*(-1 - GaugeXi[Q]^(-1))}}, ", ", \nNew: ", " {{I*EL^2}, {(-2*I)*EL^2}, {(-I)*EL^2*(-1 - \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]^(-1))}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" {(-I)*EL^2*(-1 - \ GaugeXi[Q]^(-1))}}, C[-V[30], V[20], V[3], V[2]] == "\[InvisibleSpace]", \n\ New: "\[InvisibleSpace]" {(-I)*EL^2*(-1 - \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]^(-1))}}, C[-V[30], V[20], V[3], \ V[2]] == "\), SequenceForm[ "Old: ", " {(-I)*EL^2*(-1 - GaugeXi[Q]^(-1))}}, C[-V[30], V[20], V[3], \ V[2]] == ", ", \nNew: ", " {(-I)*EL^2*(-1 - \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]^(-1))}}, C[-V[30], V[20], V[3], \ V[2]] == "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" {((-I)*CW^2*EL^2*(-1 \ - GaugeXi[Q]^(-1)))/SW^2}}, "\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ {((-I)*CW^2*EL^2*(-1 - \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]^(-1)))/SW^2}}, "\), SequenceForm[ "Old: ", " {((-I)*CW^2*EL^2*(-1 - GaugeXi[Q]^(-1)))/SW^2}}, ", ", \nNew: ", " {((-I)*CW^2*EL^2*(-1 - \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]^(-1)))/SW^2}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ {((-2*I)*CW^2*EL^2)/SW^2}, {((-I)*CW^2*EL^2*(-1 - GaugeXi[Q]^(-1)))/"\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]" {((-2*I)*CW^2*EL^2)/SW^2}, \ {((-I)*CW^2*EL^2*(-1 - HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]^(-1)))/"\ \), SequenceForm[ "Old: ", " {((-2*I)*CW^2*EL^2)/SW^2}, {((-I)*CW^2*EL^2*(-1 - \ GaugeXi[Q]^(-1)))/", ", \nNew: ", " {((-2*I)*CW^2*EL^2)/SW^2}, {((-I)*CW^2*EL^2*(-1 - \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]^(-1)))/"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" {((2*I)*CW*EL^2)/SW}, \ {(I*CW*EL^2*(-1 - GaugeXi[Q]^(-1)))/SW}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" {((2*I)*CW*EL^2)/SW}, {(I*CW*EL^2*(-1 - \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]^(-1)))/SW}}, "\), SequenceForm[ "Old: ", " {((2*I)*CW*EL^2)/SW}, {(I*CW*EL^2*(-1 - \ GaugeXi[Q]^(-1)))/SW}}, ", ", \nNew: ", " {((2*I)*CW*EL^2)/SW}, {(I*CW*EL^2*(-1 - \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]^(-1)))/SW}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" {(I*CW*EL^2*(-1 - \ GaugeXi[Q]^(-1)))/SW}}, C[-V[30], \\"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" {(I*CW*EL^2*(-1 - \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]^(-1)))/SW}}, C[-V[30], \\"\), SequenceForm[ "Old: ", " {(I*CW*EL^2*(-1 - GaugeXi[Q]^(-1)))/SW}}, C[-V[30], \\", ", \nNew: ", " {(I*CW*EL^2*(-1 - \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]^(-1)))/SW}}, C[-V[30], \\"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" {(I*CW*EL^2*(-1 - \ GaugeXi[Q]^(-1)))/SW}}, C[V[30], V[20], -V[3], V[1]] \\"\[InvisibleSpace]", \n\ New: "\[InvisibleSpace]" {(I*CW*EL^2*(-1 - \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]^(-1)))/SW}}, C[V[30], V[20], \ -V[3], V[1]] \\"\), SequenceForm[ "Old: ", " {(I*CW*EL^2*(-1 - GaugeXi[Q]^(-1)))/SW}}, C[V[30], V[20], \ -V[3], V[1]] \\", ", \nNew: ", " {(I*CW*EL^2*(-1 - \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]^(-1)))/SW}}, C[V[30], V[20], \ -V[3], V[1]] \\"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" {(I*CW*EL^2*(-1 - \ GaugeXi[Q]^(-1)))/SW}}, C[-V[30], V[30], -V[3], V[3]] \\"\[InvisibleSpace]", \ \nNew: "\[InvisibleSpace]" {(I*CW*EL^2*(-1 - \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]^(-1)))/SW}}, C[-V[30], V[30], \ -V[3], V[3]] \\"\), SequenceForm[ "Old: ", " {(I*CW*EL^2*(-1 - GaugeXi[Q]^(-1)))/SW}}, C[-V[30], V[30], \ -V[3], V[3]] \\", ", \nNew: ", " {(I*CW*EL^2*(-1 - \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]^(-1)))/SW}}, C[-V[30], V[30], \ -V[3], V[3]] \\"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" {(I*EL^2*(-1 - \ GaugeXi[Q]^(-1)))/SW^2}}, C[S[1], S[1], -S[30], S[30]] == \ \\"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" {(I*EL^2*(-1 - \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]^(-1)))/SW^2}}, C[S[1], S[1], \ -S[30], S[30]] == \\"\), SequenceForm[ "Old: ", " {(I*EL^2*(-1 - GaugeXi[Q]^(-1)))/SW^2}}, C[S[1], S[1], \ -S[30], S[30]] == \\", ", \nNew: ", " {(I*EL^2*(-1 - \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]^(-1)))/SW^2}}, C[S[1], S[1], \ -S[30], S[30]] == \\"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ {{I*EL^2*(-MH^2/(4*MW^2*SW^2) - GaugeXi[Q]/(2*SW^2))}}, "\[InvisibleSpace]", \ \nNew: "\[InvisibleSpace]" {{I*EL^2*(-MH^2/(4*MW^2*SW^2) - \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]/(2*SW^2))}}, "\), SequenceForm[ "Old: ", " {{I*EL^2*(-MH^2/(4*MW^2*SW^2) - GaugeXi[Q]/(2*SW^2))}}, ", ", \nNew: ", " {{I*EL^2*(-MH^2/(4*MW^2*SW^2) - \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]/(2*SW^2))}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ {{I*EL^2*(-MH^2/(4*MW^2*SW^2) - GaugeXi[Q]/(2*SW^2))}}, "\[InvisibleSpace]", \ \nNew: "\[InvisibleSpace]" {{I*EL^2*(-MH^2/(4*MW^2*SW^2) - \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]/(2*SW^2))}}, "\), SequenceForm[ "Old: ", " {{I*EL^2*(-MH^2/(4*MW^2*SW^2) - GaugeXi[Q]/(2*SW^2))}}, ", ", \nNew: ", " {{I*EL^2*(-MH^2/(4*MW^2*SW^2) - \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]/(2*SW^2))}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ {{I*EL^2*(-MH^2/(4*MW^2*SW^2) - GaugeXi[Q]/(2*SW^2))}}, "\[InvisibleSpace]", \ \nNew: "\[InvisibleSpace]" {{I*EL^2*(-MH^2/(4*MW^2*SW^2) - \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]/(2*SW^2))}}, "\), SequenceForm[ "Old: ", " {{I*EL^2*(-MH^2/(4*MW^2*SW^2) - GaugeXi[Q]/(2*SW^2))}}, ", ", \nNew: ", " {{I*EL^2*(-MH^2/(4*MW^2*SW^2) - \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]/(2*SW^2))}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ {{I*EL^2*(-MH^2/(4*MW^2*SW^2) - GaugeXi[Q]/(2*SW^2))}}, "\[InvisibleSpace]", \ \nNew: "\[InvisibleSpace]" {{I*EL^2*(-MH^2/(4*MW^2*SW^2) - \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]/(2*SW^2))}}, "\), SequenceForm[ "Old: ", " {{I*EL^2*(-MH^2/(4*MW^2*SW^2) - GaugeXi[Q]/(2*SW^2))}}, ", ", \nNew: ", " {{I*EL^2*(-MH^2/(4*MW^2*SW^2) - \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]/(2*SW^2))}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ {{I*EL^2*(-MH^2/(4*MW^2*SW^2) + GaugeXi[Q]/(4*SW^2))}}, "\[InvisibleSpace]", \ \nNew: "\[InvisibleSpace]" {{I*EL^2*(-MH^2/(4*MW^2*SW^2) + \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]/(4*SW^2))}}, "\), SequenceForm[ "Old: ", " {{I*EL^2*(-MH^2/(4*MW^2*SW^2) + GaugeXi[Q]/(4*SW^2))}}, ", ", \nNew: ", " {{I*EL^2*(-MH^2/(4*MW^2*SW^2) + \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]/(4*SW^2))}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ {{I*EL^2*(-MH^2/(4*MW^2*SW^2) + GaugeXi[Q]/(4*SW^2))}}, "\[InvisibleSpace]", \ \nNew: "\[InvisibleSpace]" {{I*EL^2*(-MH^2/(4*MW^2*SW^2) + \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]/(4*SW^2))}}, "\), SequenceForm[ "Old: ", " {{I*EL^2*(-MH^2/(4*MW^2*SW^2) + GaugeXi[Q]/(4*SW^2))}}, ", ", \nNew: ", " {{I*EL^2*(-MH^2/(4*MW^2*SW^2) + \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]/(4*SW^2))}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ {{I*EL^2*(-MH^2/(4*MW^2*SW^2) + GaugeXi[Q]/(4*SW^2))}}, "\[InvisibleSpace]", \ \nNew: "\[InvisibleSpace]" {{I*EL^2*(-MH^2/(4*MW^2*SW^2) + \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]/(4*SW^2))}}, "\), SequenceForm[ "Old: ", " {{I*EL^2*(-MH^2/(4*MW^2*SW^2) + GaugeXi[Q]/(4*SW^2))}}, ", ", \nNew: ", " {{I*EL^2*(-MH^2/(4*MW^2*SW^2) + \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]/(4*SW^2))}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ {{I*EL^2*(-MH^2/(4*MW^2*SW^2) + GaugeXi[Q]/(4*SW^2))}}, "\[InvisibleSpace]", \ \nNew: "\[InvisibleSpace]" {{I*EL^2*(-MH^2/(4*MW^2*SW^2) + \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]/(4*SW^2))}}, "\), SequenceForm[ "Old: ", " {{I*EL^2*(-MH^2/(4*MW^2*SW^2) + GaugeXi[Q]/(4*SW^2))}}, ", ", \nNew: ", " {{I*EL^2*(-MH^2/(4*MW^2*SW^2) + \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]/(4*SW^2))}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[S[10], S[2], -S[30], \ S[3]] == {{(EL^2*GaugeXi[Q])/(4*CW^2)}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[S[10], S[2], -S[30], S[3]] == \ {{(EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(4*CW^2)}}, "\), SequenceForm[ "Old: ", " C[S[10], S[2], -S[30], S[3]] == {{(EL^2*GaugeXi[Q])/(4*CW^2)}}, \ ", ", \nNew: ", " C[S[10], S[2], -S[30], S[3]] == \ {{(EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(4*CW^2)}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[S[1], S[20], -S[30], \ S[3]] == {{-(EL^2*GaugeXi[Q])/(4*CW^2)}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[S[1], S[20], -S[30], S[3]] == \ {{-(EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(4*CW^2)}}, "\), SequenceForm[ "Old: ", " C[S[1], S[20], -S[30], S[3]] == \ {{-(EL^2*GaugeXi[Q])/(4*CW^2)}}, ", ", \nNew: ", " C[S[1], S[20], -S[30], S[3]] == \ {{-(EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(4*CW^2)}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[S[10], S[2], -S[3], \ S[30]] == {{-(EL^2*GaugeXi[Q])/(4*CW^2)}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[S[10], S[2], -S[3], S[30]] == \ {{-(EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(4*CW^2)}}, "\), SequenceForm[ "Old: ", " C[S[10], S[2], -S[3], S[30]] == \ {{-(EL^2*GaugeXi[Q])/(4*CW^2)}}, ", ", \nNew: ", " C[S[10], S[2], -S[3], S[30]] == \ {{-(EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(4*CW^2)}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[S[1], S[20], -S[3], \ S[30]] == {{(EL^2*GaugeXi[Q])/(4*CW^2)}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[S[1], S[20], -S[3], S[30]] == \ {{(EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(4*CW^2)}}, "\), SequenceForm[ "Old: ", " C[S[1], S[20], -S[3], S[30]] == {{(EL^2*GaugeXi[Q])/(4*CW^2)}}, \ ", ", \nNew: ", " C[S[1], S[20], -S[3], S[30]] == \ {{(EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(4*CW^2)}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ {{I*EL^2*(-MH^2/(4*MW^2*SW^2) - GaugeXi[Q]/(2*CW^2*SW^2))}}, "\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ {{I*EL^2*(-MH^2/(4*MW^2*SW^2) - \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]/(2*CW^2*SW^2))}}, "\), SequenceForm[ "Old: ", " {{I*EL^2*(-MH^2/(4*MW^2*SW^2) - GaugeXi[Q]/(2*CW^2*SW^2))}}, ", ", \nNew: ", " {{I*EL^2*(-MH^2/(4*MW^2*SW^2) - \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]/(2*CW^2*SW^2))}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ {{I*EL^2*(-MH^2/(4*MW^2*SW^2) - GaugeXi[Q]/(2*CW^2*SW^2))}}, "\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ {{I*EL^2*(-MH^2/(4*MW^2*SW^2) - \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]/(2*CW^2*SW^2))}}, "\), SequenceForm[ "Old: ", " {{I*EL^2*(-MH^2/(4*MW^2*SW^2) - GaugeXi[Q]/(2*CW^2*SW^2))}}, ", ", \nNew: ", " {{I*EL^2*(-MH^2/(4*MW^2*SW^2) - \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]/(2*CW^2*SW^2))}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ {{I*EL^2*(-MH^2/(4*MW^2*SW^2) + GaugeXi[Q]/(4*CW^2*SW^2))}}, "\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ {{I*EL^2*(-MH^2/(4*MW^2*SW^2) + \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]/(4*CW^2*SW^2))}}, "\), SequenceForm[ "Old: ", " {{I*EL^2*(-MH^2/(4*MW^2*SW^2) + GaugeXi[Q]/(4*CW^2*SW^2))}}, ", ", \nNew: ", " {{I*EL^2*(-MH^2/(4*MW^2*SW^2) + \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]/(4*CW^2*SW^2))}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ {{I*EL^2*(-MH^2/(2*MW^2*SW^2) + GaugeXi[Q]/(2*CW^2*SW^2))}}, "\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ {{I*EL^2*(-MH^2/(2*MW^2*SW^2) + \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]/(2*CW^2*SW^2))}}, "\), SequenceForm[ "Old: ", " {{I*EL^2*(-MH^2/(2*MW^2*SW^2) + GaugeXi[Q]/(2*CW^2*SW^2))}}, ", ", \nNew: ", " {{I*EL^2*(-MH^2/(2*MW^2*SW^2) + \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]/(2*CW^2*SW^2))}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ {{I*EL^2*(-MH^2/(2*MW^2*SW^2) + GaugeXi[Q]/(2*CW^2*SW^2))}}, "\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ {{I*EL^2*(-MH^2/(2*MW^2*SW^2) + \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]/(2*CW^2*SW^2))}}, "\), SequenceForm[ "Old: ", " {{I*EL^2*(-MH^2/(2*MW^2*SW^2) + GaugeXi[Q]/(2*CW^2*SW^2))}}, ", ", \nNew: ", " {{I*EL^2*(-MH^2/(2*MW^2*SW^2) + \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]/(2*CW^2*SW^2))}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ {{I*EL^2*(-MH^2/(2*MW^2*SW^2) - GaugeXi[Q]/(4*CW^2*SW^2))}}, "\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ {{I*EL^2*(-MH^2/(2*MW^2*SW^2) - \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]/(4*CW^2*SW^2))}}, "\), SequenceForm[ "Old: ", " {{I*EL^2*(-MH^2/(2*MW^2*SW^2) - GaugeXi[Q]/(4*CW^2*SW^2))}}, ", ", \nNew: ", " {{I*EL^2*(-MH^2/(2*MW^2*SW^2) - \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]/(4*CW^2*SW^2))}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[-S[30], S[3], -U[4], \ U[4]] == {{((-I/2)*EL^2*GaugeXi[Q])/SW^2}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[-S[30], S[3], -U[4], U[4]] == \ {{((-I/2)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/SW^2}}, "\), SequenceForm[ "Old: ", " C[-S[30], S[3], -U[4], U[4]] == \ {{((-I/2)*EL^2*GaugeXi[Q])/SW^2}}, ", ", \nNew: ", " C[-S[30], S[3], -U[4], U[4]] == \ {{((-I/2)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/SW^2}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[-S[3], S[30], -U[3], \ U[3]] == {{((-I/2)*EL^2*GaugeXi[Q])/SW^2}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[-S[3], S[30], -U[3], U[3]] == \ {{((-I/2)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/SW^2}}, "\), SequenceForm[ "Old: ", " C[-S[3], S[30], -U[3], U[3]] == \ {{((-I/2)*EL^2*GaugeXi[Q])/SW^2}}, ", ", \nNew: ", " C[-S[3], S[30], -U[3], U[3]] == \ {{((-I/2)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/SW^2}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[S[10], S[1], -U[4], \ U[4]] == {{((-I/4)*EL^2*GaugeXi[Q])/SW^2}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[S[10], S[1], -U[4], U[4]] == \ {{((-I/4)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/SW^2}}, "\), SequenceForm[ "Old: ", " C[S[10], S[1], -U[4], U[4]] == \ {{((-I/4)*EL^2*GaugeXi[Q])/SW^2}}, ", ", \nNew: ", " C[S[10], S[1], -U[4], U[4]] == \ {{((-I/4)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/SW^2}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[S[10], S[1], -U[3], \ U[3]] == {{((-I/4)*EL^2*GaugeXi[Q])/SW^2}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[S[10], S[1], -U[3], U[3]] == \ {{((-I/4)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/SW^2}}, "\), SequenceForm[ "Old: ", " C[S[10], S[1], -U[3], U[3]] == \ {{((-I/4)*EL^2*GaugeXi[Q])/SW^2}}, ", ", \nNew: ", " C[S[10], S[1], -U[3], U[3]] == \ {{((-I/4)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/SW^2}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[S[20], S[2], -U[4], \ U[4]] == {{((-I/4)*EL^2*GaugeXi[Q])/SW^2}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[S[20], S[2], -U[4], U[4]] == \ {{((-I/4)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/SW^2}}, "\), SequenceForm[ "Old: ", " C[S[20], S[2], -U[4], U[4]] == \ {{((-I/4)*EL^2*GaugeXi[Q])/SW^2}}, ", ", \nNew: ", " C[S[20], S[2], -U[4], U[4]] == \ {{((-I/4)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/SW^2}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[S[20], S[2], -U[3], \ U[3]] == {{((-I/4)*EL^2*GaugeXi[Q])/SW^2}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[S[20], S[2], -U[3], U[3]] == \ {{((-I/4)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/SW^2}}, "\), SequenceForm[ "Old: ", " C[S[20], S[2], -U[3], U[3]] == \ {{((-I/4)*EL^2*GaugeXi[Q])/SW^2}}, ", ", \nNew: ", " C[S[20], S[2], -U[3], U[3]] == \ {{((-I/4)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/SW^2}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[S[10], S[1], -U[2], \ U[2]] == {{((-I/4)*EL^2*GaugeXi[Q])/(CW^2*SW^2)}}, "\[InvisibleSpace]", \n\ New: "\[InvisibleSpace]" C[S[10], S[1], -U[2], U[2]] == \ {{((-I/4)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(CW^2*SW^2)}}, \ "\), SequenceForm[ "Old: ", " C[S[10], S[1], -U[2], U[2]] == \ {{((-I/4)*EL^2*GaugeXi[Q])/(CW^2*SW^2)}}, ", ", \nNew: ", " C[S[10], S[1], -U[2], U[2]] == \ {{((-I/4)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(CW^2*SW^2)}}, \ "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[S[20], S[2], -U[2], \ U[2]] == {{((-I/4)*EL^2*GaugeXi[Q])/(CW^2*SW^2)}}, "\[InvisibleSpace]", \n\ New: "\[InvisibleSpace]" C[S[20], S[2], -U[2], U[2]] == \ {{((-I/4)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(CW^2*SW^2)}}, \ "\), SequenceForm[ "Old: ", " C[S[20], S[2], -U[2], U[2]] == \ {{((-I/4)*EL^2*GaugeXi[Q])/(CW^2*SW^2)}}, ", ", \nNew: ", " C[S[20], S[2], -U[2], U[2]] == \ {{((-I/4)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(CW^2*SW^2)}}, \ "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[S[10], S[2], -U[4], \ U[4]] == {{((I/4)*EL^2*GaugeXi[Q])/SW^2}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[S[10], S[2], -U[4], U[4]] == \ {{((I/4)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/SW^2}}, "\), SequenceForm[ "Old: ", " C[S[10], S[2], -U[4], U[4]] == \ {{((I/4)*EL^2*GaugeXi[Q])/SW^2}}, ", ", \nNew: ", " C[S[10], S[2], -U[4], U[4]] == \ {{((I/4)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/SW^2}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[S[10], S[2], -U[3], \ U[3]] == {{((-I/4)*EL^2*GaugeXi[Q])/SW^2}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[S[10], S[2], -U[3], U[3]] == \ {{((-I/4)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/SW^2}}, "\), SequenceForm[ "Old: ", " C[S[10], S[2], -U[3], U[3]] == \ {{((-I/4)*EL^2*GaugeXi[Q])/SW^2}}, ", ", \nNew: ", " C[S[10], S[2], -U[3], U[3]] == \ {{((-I/4)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/SW^2}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[S[1], S[20], -U[4], \ U[4]] == {{((-I/4)*EL^2*GaugeXi[Q])/SW^2}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[S[1], S[20], -U[4], U[4]] == \ {{((-I/4)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/SW^2}}, "\), SequenceForm[ "Old: ", " C[S[1], S[20], -U[4], U[4]] == \ {{((-I/4)*EL^2*GaugeXi[Q])/SW^2}}, ", ", \nNew: ", " C[S[1], S[20], -U[4], U[4]] == \ {{((-I/4)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/SW^2}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[S[1], S[20], -U[3], \ U[3]] == {{((I/4)*EL^2*GaugeXi[Q])/SW^2}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[S[1], S[20], -U[3], U[3]] == \ {{((I/4)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/SW^2}}, "\), SequenceForm[ "Old: ", " C[S[1], S[20], -U[3], U[3]] == \ {{((I/4)*EL^2*GaugeXi[Q])/SW^2}}, ", ", \nNew: ", " C[S[1], S[20], -U[3], U[3]] == \ {{((I/4)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/SW^2}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" {{((I/4)*EL^2*(CW^2 - \ SW^2)^2*GaugeXi[Q])/(CW^2*SW^2)}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" {{((I/4)*EL^2*(CW^2 - \ SW^2)^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(CW^2*SW^2)}}, "\), SequenceForm[ "Old: ", " {{((I/4)*EL^2*(CW^2 - SW^2)^2*GaugeXi[Q])/(CW^2*SW^2)}}, ", ", \nNew: ", " {{((I/4)*EL^2*(CW^2 - \ SW^2)^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(CW^2*SW^2)}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" {{((I/4)*EL^2*(CW^2 - \ SW^2)^2*GaugeXi[Q])/(CW^2*SW^2)}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" {{((I/4)*EL^2*(CW^2 - \ SW^2)^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(CW^2*SW^2)}}, "\), SequenceForm[ "Old: ", " {{((I/4)*EL^2*(CW^2 - SW^2)^2*GaugeXi[Q])/(CW^2*SW^2)}}, ", ", \nNew: ", " {{((I/4)*EL^2*(CW^2 - \ SW^2)^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(CW^2*SW^2)}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" {{((I/2)*EL^2*(CW^2 - \ SW^2)*GaugeXi[Q])/(CW*SW)}}, "\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ {{((I/2)*EL^2*(CW^2 - \ SW^2)*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(CW*SW)}}, "\), SequenceForm[ "Old: ", " {{((I/2)*EL^2*(CW^2 - SW^2)*GaugeXi[Q])/(CW*SW)}}, ", ", \nNew: ", " {{((I/2)*EL^2*(CW^2 - \ SW^2)*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(CW*SW)}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" {{((I/2)*EL^2*(CW^2 - \ SW^2)*GaugeXi[Q])/(CW*SW)}}, "\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ {{((I/2)*EL^2*(CW^2 - \ SW^2)*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(CW*SW)}}, "\), SequenceForm[ "Old: ", " {{((I/2)*EL^2*(CW^2 - SW^2)*GaugeXi[Q])/(CW*SW)}}, ", ", \nNew: ", " {{((I/2)*EL^2*(CW^2 - \ SW^2)*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(CW*SW)}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" {{((I/2)*EL^2*(CW^2 - \ SW^2)*GaugeXi[Q])/(CW*SW)}}, "\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ {{((I/2)*EL^2*(CW^2 - \ SW^2)*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(CW*SW)}}, "\), SequenceForm[ "Old: ", " {{((I/2)*EL^2*(CW^2 - SW^2)*GaugeXi[Q])/(CW*SW)}}, ", ", \nNew: ", " {{((I/2)*EL^2*(CW^2 - \ SW^2)*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(CW*SW)}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" {{((I/2)*EL^2*(CW^2 - \ SW^2)*GaugeXi[Q])/(CW*SW)}}, "\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ {{((I/2)*EL^2*(CW^2 - \ SW^2)*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(CW*SW)}}, "\), SequenceForm[ "Old: ", " {{((I/2)*EL^2*(CW^2 - SW^2)*GaugeXi[Q])/(CW*SW)}}, ", ", \nNew: ", " {{((I/2)*EL^2*(CW^2 - \ SW^2)*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(CW*SW)}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[S[3], -S[30], -U[1], \ U[1]] == {{(-I)*EL^2*GaugeXi[Q]}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[S[3], -S[30], -U[1], U[1]] == \ {{(-I)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]}}, "\), SequenceForm[ "Old: ", " C[S[3], -S[30], -U[1], U[1]] == {{(-I)*EL^2*GaugeXi[Q]}}, ", ", \nNew: ", " C[S[3], -S[30], -U[1], U[1]] == \ {{(-I)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[S[30], -S[3], -U[1], \ U[1]] == {{(-I)*EL^2*GaugeXi[Q]}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[S[30], -S[3], -U[1], U[1]] == \ {{(-I)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]}}, "\), SequenceForm[ "Old: ", " C[S[30], -S[3], -U[1], U[1]] == {{(-I)*EL^2*GaugeXi[Q]}}, ", ", \nNew: ", " C[S[30], -S[3], -U[1], U[1]] == \ {{(-I)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[-S[30], S[1], -U[4], \ U[2]] == {{((I/4)*EL^2*GaugeXi[Q])/(CW*SW^2)}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[-S[30], S[1], -U[4], U[2]] == \ {{((I/4)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(CW*SW^2)}}, "\), SequenceForm[ "Old: ", " C[-S[30], S[1], -U[4], U[2]] == \ {{((I/4)*EL^2*GaugeXi[Q])/(CW*SW^2)}}, ", ", \nNew: ", " C[-S[30], S[1], -U[4], U[2]] == \ {{((I/4)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(CW*SW^2)}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[S[30], S[1], -U[3], \ U[2]] == {{((I/4)*EL^2*GaugeXi[Q])/(CW*SW^2)}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[S[30], S[1], -U[3], U[2]] == \ {{((I/4)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(CW*SW^2)}}, "\), SequenceForm[ "Old: ", " C[S[30], S[1], -U[3], U[2]] == \ {{((I/4)*EL^2*GaugeXi[Q])/(CW*SW^2)}}, ", ", \nNew: ", " C[S[30], S[1], -U[3], U[2]] == \ {{((I/4)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(CW*SW^2)}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[-S[3], S[10], -U[2], \ U[3]] == {{((I/4)*EL^2*GaugeXi[Q])/(CW*SW^2)}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[-S[3], S[10], -U[2], U[3]] == \ {{((I/4)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(CW*SW^2)}}, "\), SequenceForm[ "Old: ", " C[-S[3], S[10], -U[2], U[3]] == \ {{((I/4)*EL^2*GaugeXi[Q])/(CW*SW^2)}}, ", ", \nNew: ", " C[-S[3], S[10], -U[2], U[3]] == \ {{((I/4)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(CW*SW^2)}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[S[3], S[10], -U[2], \ U[4]] == {{((I/4)*EL^2*GaugeXi[Q])/(CW*SW^2)}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[S[3], S[10], -U[2], U[4]] == \ {{((I/4)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(CW*SW^2)}}, "\), SequenceForm[ "Old: ", " C[S[3], S[10], -U[2], U[4]] == \ {{((I/4)*EL^2*GaugeXi[Q])/(CW*SW^2)}}, ", ", \nNew: ", " C[S[3], S[10], -U[2], U[4]] == \ {{((I/4)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(CW*SW^2)}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" {{((-I/4)*EL^2*(CW^2 - \ SW^2)*GaugeXi[Q])/(CW*SW^2)}}, "\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" {{((-I/4)*EL^2*(CW^2 - \ SW^2)*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(CW*SW^2)}}, "\), SequenceForm[ "Old: ", " {{((-I/4)*EL^2*(CW^2 - SW^2)*GaugeXi[Q])/(CW*SW^2)}}, ", ", \nNew: ", " {{((-I/4)*EL^2*(CW^2 - \ SW^2)*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(CW*SW^2)}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" {{((-I/4)*EL^2*(CW^2 - \ SW^2)*GaugeXi[Q])/(CW*SW^2)}}, "\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" {{((-I/4)*EL^2*(CW^2 - \ SW^2)*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(CW*SW^2)}}, "\), SequenceForm[ "Old: ", " {{((-I/4)*EL^2*(CW^2 - SW^2)*GaugeXi[Q])/(CW*SW^2)}}, ", ", \nNew: ", " {{((-I/4)*EL^2*(CW^2 - \ SW^2)*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(CW*SW^2)}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" {{((-I/4)*EL^2*(CW^2 - \ SW^2)*GaugeXi[Q])/(CW*SW^2)}}, "\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" {{((-I/4)*EL^2*(CW^2 - \ SW^2)*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(CW*SW^2)}}, "\), SequenceForm[ "Old: ", " {{((-I/4)*EL^2*(CW^2 - SW^2)*GaugeXi[Q])/(CW*SW^2)}}, ", ", \nNew: ", " {{((-I/4)*EL^2*(CW^2 - \ SW^2)*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(CW*SW^2)}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" {{((I/4)*EL^2*(CW^2 - \ SW^2)*GaugeXi[Q])/(CW*SW^2)}}, "\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" {{((I/4)*EL^2*(CW^2 - \ SW^2)*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(CW*SW^2)}}, "\), SequenceForm[ "Old: ", " {{((I/4)*EL^2*(CW^2 - SW^2)*GaugeXi[Q])/(CW*SW^2)}}, ", ", \nNew: ", " {{((I/4)*EL^2*(CW^2 - \ SW^2)*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(CW*SW^2)}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[-S[30], S[1], -U[4], \ U[1]] == {{((I/2)*EL^2*GaugeXi[Q])/SW}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[-S[30], S[1], -U[4], U[1]] == \ {{((I/2)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/SW}}, "\), SequenceForm[ "Old: ", " C[-S[30], S[1], -U[4], U[1]] == {{((I/2)*EL^2*GaugeXi[Q])/SW}}, \ ", ", \nNew: ", " C[-S[30], S[1], -U[4], U[1]] == \ {{((I/2)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/SW}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[S[30], S[1], -U[3], \ U[1]] == {{((I/2)*EL^2*GaugeXi[Q])/SW}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[S[30], S[1], -U[3], U[1]] == \ {{((I/2)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/SW}}, "\), SequenceForm[ "Old: ", " C[S[30], S[1], -U[3], U[1]] == {{((I/2)*EL^2*GaugeXi[Q])/SW}}, \ ", ", \nNew: ", " C[S[30], S[1], -U[3], U[1]] == \ {{((I/2)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/SW}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[-S[3], S[10], -U[1], \ U[3]] == {{((I/2)*EL^2*GaugeXi[Q])/SW}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[-S[3], S[10], -U[1], U[3]] == \ {{((I/2)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/SW}}, "\), SequenceForm[ "Old: ", " C[-S[3], S[10], -U[1], U[3]] == {{((I/2)*EL^2*GaugeXi[Q])/SW}}, \ ", ", \nNew: ", " C[-S[3], S[10], -U[1], U[3]] == \ {{((I/2)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/SW}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[S[3], S[10], -U[1], \ U[4]] == {{((I/2)*EL^2*GaugeXi[Q])/SW}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[S[3], S[10], -U[1], U[4]] == \ {{((I/2)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/SW}}, "\), SequenceForm[ "Old: ", " C[S[3], S[10], -U[1], U[4]] == {{((I/2)*EL^2*GaugeXi[Q])/SW}}, \ ", ", \nNew: ", " C[S[3], S[10], -U[1], U[4]] == \ {{((I/2)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/SW}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[-S[30], S[2], -U[4], \ U[2]] == {{(EL^2*GaugeXi[Q])/(4*CW*SW^2)}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[-S[30], S[2], -U[4], U[2]] == \ {{(EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(4*CW*SW^2)}}, "\), SequenceForm[ "Old: ", " C[-S[30], S[2], -U[4], U[2]] == \ {{(EL^2*GaugeXi[Q])/(4*CW*SW^2)}}, ", ", \nNew: ", " C[-S[30], S[2], -U[4], U[2]] == \ {{(EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(4*CW*SW^2)}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[S[30], S[2], -U[3], \ U[2]] == {{-(EL^2*GaugeXi[Q])/(4*CW*SW^2)}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[S[30], S[2], -U[3], U[2]] == \ {{-(EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(4*CW*SW^2)}}, "\), SequenceForm[ "Old: ", " C[S[30], S[2], -U[3], U[2]] == \ {{-(EL^2*GaugeXi[Q])/(4*CW*SW^2)}}, ", ", \nNew: ", " C[S[30], S[2], -U[3], U[2]] == \ {{-(EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(4*CW*SW^2)}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[-S[3], S[20], -U[2], \ U[3]] == {{(EL^2*GaugeXi[Q])/(4*CW*SW^2)}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[-S[3], S[20], -U[2], U[3]] == \ {{(EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(4*CW*SW^2)}}, "\), SequenceForm[ "Old: ", " C[-S[3], S[20], -U[2], U[3]] == \ {{(EL^2*GaugeXi[Q])/(4*CW*SW^2)}}, ", ", \nNew: ", " C[-S[3], S[20], -U[2], U[3]] == \ {{(EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(4*CW*SW^2)}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[S[3], S[20], -U[2], \ U[4]] == {{-(EL^2*GaugeXi[Q])/(4*CW*SW^2)}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[S[3], S[20], -U[2], U[4]] == \ {{-(EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(4*CW*SW^2)}}, "\), SequenceForm[ "Old: ", " C[S[3], S[20], -U[2], U[4]] == \ {{-(EL^2*GaugeXi[Q])/(4*CW*SW^2)}}, ", ", \nNew: ", " C[S[3], S[20], -U[2], U[4]] == \ {{-(EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(4*CW*SW^2)}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" {{-(EL^2*(CW^2 - \ SW^2)*GaugeXi[Q])/(4*CW*SW^2)}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" {{-(EL^2*(CW^2 - \ SW^2)*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(4*CW*SW^2)}}, "\), SequenceForm[ "Old: ", " {{-(EL^2*(CW^2 - SW^2)*GaugeXi[Q])/(4*CW*SW^2)}}, ", ", \nNew: ", " {{-(EL^2*(CW^2 - \ SW^2)*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(4*CW*SW^2)}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" {{(EL^2*(CW^2 - \ SW^2)*GaugeXi[Q])/(4*CW*SW^2)}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" {{(EL^2*(CW^2 - \ SW^2)*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(4*CW*SW^2)}}, "\), SequenceForm[ "Old: ", " {{(EL^2*(CW^2 - SW^2)*GaugeXi[Q])/(4*CW*SW^2)}}, ", ", \nNew: ", " {{(EL^2*(CW^2 - \ SW^2)*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(4*CW*SW^2)}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" {{-(EL^2*(CW^2 - \ SW^2)*GaugeXi[Q])/(4*CW*SW^2)}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" {{-(EL^2*(CW^2 - \ SW^2)*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(4*CW*SW^2)}}, "\), SequenceForm[ "Old: ", " {{-(EL^2*(CW^2 - SW^2)*GaugeXi[Q])/(4*CW*SW^2)}}, ", ", \nNew: ", " {{-(EL^2*(CW^2 - \ SW^2)*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(4*CW*SW^2)}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" {{(EL^2*(CW^2 - \ SW^2)*GaugeXi[Q])/(4*CW*SW^2)}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" {{(EL^2*(CW^2 - \ SW^2)*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(4*CW*SW^2)}}, "\), SequenceForm[ "Old: ", " {{(EL^2*(CW^2 - SW^2)*GaugeXi[Q])/(4*CW*SW^2)}}, ", ", \nNew: ", " {{(EL^2*(CW^2 - \ SW^2)*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(4*CW*SW^2)}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[-S[3], S[20], -U[4], \ U[1]] == {{(EL^2*GaugeXi[Q])/(2*SW)}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[-S[3], S[20], -U[4], U[1]] == \ {{(EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(2*SW)}}, "\), SequenceForm[ "Old: ", " C[-S[3], S[20], -U[4], U[1]] == {{(EL^2*GaugeXi[Q])/(2*SW)}}, ", ", \nNew: ", " C[-S[3], S[20], -U[4], U[1]] == \ {{(EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(2*SW)}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[S[3], S[20], -U[3], \ U[1]] == {{-(EL^2*GaugeXi[Q])/(2*SW)}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[S[3], S[20], -U[3], U[1]] == \ {{-(EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(2*SW)}}, "\), SequenceForm[ "Old: ", " C[S[3], S[20], -U[3], U[1]] == {{-(EL^2*GaugeXi[Q])/(2*SW)}}, ", ", \nNew: ", " C[S[3], S[20], -U[3], U[1]] == \ {{-(EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(2*SW)}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[-S[30], S[2], -U[1], \ U[3]] == {{(EL^2*GaugeXi[Q])/(2*SW)}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[-S[30], S[2], -U[1], U[3]] == \ {{(EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(2*SW)}}, "\), SequenceForm[ "Old: ", " C[-S[30], S[2], -U[1], U[3]] == {{(EL^2*GaugeXi[Q])/(2*SW)}}, ", ", \nNew: ", " C[-S[30], S[2], -U[1], U[3]] == \ {{(EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(2*SW)}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[S[30], S[2], -U[1], \ U[4]] == {{-(EL^2*GaugeXi[Q])/(2*SW)}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[S[30], S[2], -U[1], U[4]] == \ {{-(EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(2*SW)}}, "\), SequenceForm[ "Old: ", " C[S[30], S[2], -U[1], U[4]] == {{-(EL^2*GaugeXi[Q])/(2*SW)}}, ", ", \nNew: ", " C[S[30], S[2], -U[1], U[4]] == \ {{-(EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(2*SW)}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[-S[30], S[30], -U[4], \ U[4]] == {{((-I/2)*EL^2*GaugeXi[Q])/SW^2}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[-S[30], S[30], -U[4], U[4]] == \ {{((-I/2)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/SW^2}}, "\), SequenceForm[ "Old: ", " C[-S[30], S[30], -U[4], U[4]] == \ {{((-I/2)*EL^2*GaugeXi[Q])/SW^2}}, ", ", \nNew: ", " C[-S[30], S[30], -U[4], U[4]] == \ {{((-I/2)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/SW^2}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[-S[30], S[30], -U[3], \ U[3]] == {{((-I/2)*EL^2*GaugeXi[Q])/SW^2}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[-S[30], S[30], -U[3], U[3]] == \ {{((-I/2)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/SW^2}}, "\), SequenceForm[ "Old: ", " C[-S[30], S[30], -U[3], U[3]] == \ {{((-I/2)*EL^2*GaugeXi[Q])/SW^2}}, ", ", \nNew: ", " C[-S[30], S[30], -U[3], U[3]] == \ {{((-I/2)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/SW^2}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[S[10], S[10], -U[4], \ U[4]] == {{((-I/2)*EL^2*GaugeXi[Q])/SW^2}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[S[10], S[10], -U[4], U[4]] == \ {{((-I/2)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/SW^2}}, "\), SequenceForm[ "Old: ", " C[S[10], S[10], -U[4], U[4]] == \ {{((-I/2)*EL^2*GaugeXi[Q])/SW^2}}, ", ", \nNew: ", " C[S[10], S[10], -U[4], U[4]] == \ {{((-I/2)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/SW^2}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[S[10], S[10], -U[3], \ U[3]] == {{((-I/2)*EL^2*GaugeXi[Q])/SW^2}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[S[10], S[10], -U[3], U[3]] == \ {{((-I/2)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/SW^2}}, "\), SequenceForm[ "Old: ", " C[S[10], S[10], -U[3], U[3]] == \ {{((-I/2)*EL^2*GaugeXi[Q])/SW^2}}, ", ", \nNew: ", " C[S[10], S[10], -U[3], U[3]] == \ {{((-I/2)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/SW^2}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[S[20], S[20], -U[4], \ U[4]] == {{((-I/2)*EL^2*GaugeXi[Q])/SW^2}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[S[20], S[20], -U[4], U[4]] == \ {{((-I/2)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/SW^2}}, "\), SequenceForm[ "Old: ", " C[S[20], S[20], -U[4], U[4]] == \ {{((-I/2)*EL^2*GaugeXi[Q])/SW^2}}, ", ", \nNew: ", " C[S[20], S[20], -U[4], U[4]] == \ {{((-I/2)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/SW^2}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[S[20], S[20], -U[3], \ U[3]] == {{((-I/2)*EL^2*GaugeXi[Q])/SW^2}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[S[20], S[20], -U[3], U[3]] == \ {{((-I/2)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/SW^2}}, "\), SequenceForm[ "Old: ", " C[S[20], S[20], -U[3], U[3]] == \ {{((-I/2)*EL^2*GaugeXi[Q])/SW^2}}, ", ", \nNew: ", " C[S[20], S[20], -U[3], U[3]] == \ {{((-I/2)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/SW^2}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[S[10], S[10], -U[2], \ U[2]] == {{((-I/2)*EL^2*GaugeXi[Q])/(CW^2*SW^2)}}, "\[InvisibleSpace]", \n\ New: "\[InvisibleSpace]" C[S[10], S[10], -U[2], U[2]] == \ {{((-I/2)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(CW^2*SW^2)}}, \ "\), SequenceForm[ "Old: ", " C[S[10], S[10], -U[2], U[2]] == \ {{((-I/2)*EL^2*GaugeXi[Q])/(CW^2*SW^2)}}, ", ", \nNew: ", " C[S[10], S[10], -U[2], U[2]] == \ {{((-I/2)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(CW^2*SW^2)}}, \ "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[S[20], S[20], -U[2], \ U[2]] == {{((-I/2)*EL^2*GaugeXi[Q])/(CW^2*SW^2)}}, "\[InvisibleSpace]", \n\ New: "\[InvisibleSpace]" C[S[20], S[20], -U[2], U[2]] == \ {{((-I/2)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(CW^2*SW^2)}}, \ "\), SequenceForm[ "Old: ", " C[S[20], S[20], -U[2], U[2]] == \ {{((-I/2)*EL^2*GaugeXi[Q])/(CW^2*SW^2)}}, ", ", \nNew: ", " C[S[20], S[20], -U[2], U[2]] == \ {{((-I/2)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(CW^2*SW^2)}}, \ "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" {{((I/2)*EL^2*(CW^2 - \ SW^2)^2*GaugeXi[Q])/(CW^2*SW^2)}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" {{((I/2)*EL^2*(CW^2 - \ SW^2)^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(CW^2*SW^2)}}, "\), SequenceForm[ "Old: ", " {{((I/2)*EL^2*(CW^2 - SW^2)^2*GaugeXi[Q])/(CW^2*SW^2)}}, ", ", \nNew: ", " {{((I/2)*EL^2*(CW^2 - \ SW^2)^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(CW^2*SW^2)}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" {{(I*EL^2*(CW^2 - \ SW^2)*GaugeXi[Q])/(CW*SW)}}, "\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ {{(I*EL^2*(CW^2 - \ SW^2)*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(CW*SW)}}, "\), SequenceForm[ "Old: ", " {{(I*EL^2*(CW^2 - SW^2)*GaugeXi[Q])/(CW*SW)}}, ", ", \nNew: ", " {{(I*EL^2*(CW^2 - \ SW^2)*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(CW*SW)}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" {{(I*EL^2*(CW^2 - \ SW^2)*GaugeXi[Q])/(CW*SW)}}, "\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ {{(I*EL^2*(CW^2 - \ SW^2)*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(CW*SW)}}, "\), SequenceForm[ "Old: ", " {{(I*EL^2*(CW^2 - SW^2)*GaugeXi[Q])/(CW*SW)}}, ", ", \nNew: ", " {{(I*EL^2*(CW^2 - \ SW^2)*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(CW*SW)}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[S[30], -S[30], -U[1], \ U[1]] == {{(-2*I)*EL^2*GaugeXi[Q]}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[S[30], -S[30], -U[1], U[1]] == \ {{(-2*I)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]}}, "\), SequenceForm[ "Old: ", " C[S[30], -S[30], -U[1], U[1]] == {{(-2*I)*EL^2*GaugeXi[Q]}}, ", ", \nNew: ", " C[S[30], -S[30], -U[1], U[1]] == \ {{(-2*I)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[-S[30], S[10], -U[4], \ U[2]] == {{((I/2)*EL^2*GaugeXi[Q])/CW}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[-S[30], S[10], -U[4], U[2]] == \ {{((I/2)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/CW}}, "\), SequenceForm[ "Old: ", " C[-S[30], S[10], -U[4], U[2]] == \ {{((I/2)*EL^2*GaugeXi[Q])/CW}}, ", ", \nNew: ", " C[-S[30], S[10], -U[4], U[2]] == \ {{((I/2)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/CW}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[S[30], S[10], -U[3], \ U[2]] == {{((I/2)*EL^2*GaugeXi[Q])/CW}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[S[30], S[10], -U[3], U[2]] == \ {{((I/2)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/CW}}, "\), SequenceForm[ "Old: ", " C[S[30], S[10], -U[3], U[2]] == {{((I/2)*EL^2*GaugeXi[Q])/CW}}, \ ", ", \nNew: ", " C[S[30], S[10], -U[3], U[2]] == \ {{((I/2)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/CW}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[-S[30], S[10], -U[2], \ U[3]] == {{((I/2)*EL^2*GaugeXi[Q])/CW}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[-S[30], S[10], -U[2], U[3]] == \ {{((I/2)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/CW}}, "\), SequenceForm[ "Old: ", " C[-S[30], S[10], -U[2], U[3]] == \ {{((I/2)*EL^2*GaugeXi[Q])/CW}}, ", ", \nNew: ", " C[-S[30], S[10], -U[2], U[3]] == \ {{((I/2)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/CW}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[S[30], S[10], -U[2], \ U[4]] == {{((I/2)*EL^2*GaugeXi[Q])/CW}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[S[30], S[10], -U[2], U[4]] == \ {{((I/2)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/CW}}, "\), SequenceForm[ "Old: ", " C[S[30], S[10], -U[2], U[4]] == {{((I/2)*EL^2*GaugeXi[Q])/CW}}, \ ", ", \nNew: ", " C[S[30], S[10], -U[2], U[4]] == \ {{((I/2)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/CW}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[-S[30], S[10], -U[4], \ U[1]] == {{((I/2)*EL^2*GaugeXi[Q])/SW}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[-S[30], S[10], -U[4], U[1]] == \ {{((I/2)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/SW}}, "\), SequenceForm[ "Old: ", " C[-S[30], S[10], -U[4], U[1]] == \ {{((I/2)*EL^2*GaugeXi[Q])/SW}}, ", ", \nNew: ", " C[-S[30], S[10], -U[4], U[1]] == \ {{((I/2)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/SW}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[S[30], S[10], -U[3], \ U[1]] == {{((I/2)*EL^2*GaugeXi[Q])/SW}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[S[30], S[10], -U[3], U[1]] == \ {{((I/2)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/SW}}, "\), SequenceForm[ "Old: ", " C[S[30], S[10], -U[3], U[1]] == {{((I/2)*EL^2*GaugeXi[Q])/SW}}, \ ", ", \nNew: ", " C[S[30], S[10], -U[3], U[1]] == \ {{((I/2)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/SW}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[-S[30], S[10], -U[1], \ U[3]] == {{((I/2)*EL^2*GaugeXi[Q])/SW}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[-S[30], S[10], -U[1], U[3]] == \ {{((I/2)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/SW}}, "\), SequenceForm[ "Old: ", " C[-S[30], S[10], -U[1], U[3]] == \ {{((I/2)*EL^2*GaugeXi[Q])/SW}}, ", ", \nNew: ", " C[-S[30], S[10], -U[1], U[3]] == \ {{((I/2)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/SW}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[S[30], S[10], -U[1], \ U[4]] == {{((I/2)*EL^2*GaugeXi[Q])/SW}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[S[30], S[10], -U[1], U[4]] == \ {{((I/2)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/SW}}, "\), SequenceForm[ "Old: ", " C[S[30], S[10], -U[1], U[4]] == {{((I/2)*EL^2*GaugeXi[Q])/SW}}, \ ", ", \nNew: ", " C[S[30], S[10], -U[1], U[4]] == \ {{((I/2)*EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/SW}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[-S[30], S[20], -U[4], \ U[2]] == {{(EL^2*GaugeXi[Q])/(2*CW)}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[-S[30], S[20], -U[4], U[2]] == \ {{(EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(2*CW)}}, "\), SequenceForm[ "Old: ", " C[-S[30], S[20], -U[4], U[2]] == {{(EL^2*GaugeXi[Q])/(2*CW)}}, \ ", ", \nNew: ", " C[-S[30], S[20], -U[4], U[2]] == \ {{(EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(2*CW)}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[S[30], S[20], -U[3], \ U[2]] == {{-(EL^2*GaugeXi[Q])/(2*CW)}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[S[30], S[20], -U[3], U[2]] == \ {{-(EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(2*CW)}}, "\), SequenceForm[ "Old: ", " C[S[30], S[20], -U[3], U[2]] == {{-(EL^2*GaugeXi[Q])/(2*CW)}}, \ ", ", \nNew: ", " C[S[30], S[20], -U[3], U[2]] == \ {{-(EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(2*CW)}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[-S[30], S[20], -U[2], \ U[3]] == {{(EL^2*GaugeXi[Q])/(2*CW)}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[-S[30], S[20], -U[2], U[3]] == \ {{(EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(2*CW)}}, "\), SequenceForm[ "Old: ", " C[-S[30], S[20], -U[2], U[3]] == {{(EL^2*GaugeXi[Q])/(2*CW)}}, \ ", ", \nNew: ", " C[-S[30], S[20], -U[2], U[3]] == \ {{(EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(2*CW)}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[S[30], S[20], -U[2], \ U[4]] == {{-(EL^2*GaugeXi[Q])/(2*CW)}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[S[30], S[20], -U[2], U[4]] == \ {{-(EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(2*CW)}}, "\), SequenceForm[ "Old: ", " C[S[30], S[20], -U[2], U[4]] == {{-(EL^2*GaugeXi[Q])/(2*CW)}}, \ ", ", \nNew: ", " C[S[30], S[20], -U[2], U[4]] == \ {{-(EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(2*CW)}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[-S[30], S[20], -U[4], \ U[1]] == {{(EL^2*GaugeXi[Q])/(2*SW)}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[-S[30], S[20], -U[4], U[1]] == \ {{(EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(2*SW)}}, "\), SequenceForm[ "Old: ", " C[-S[30], S[20], -U[4], U[1]] == {{(EL^2*GaugeXi[Q])/(2*SW)}}, \ ", ", \nNew: ", " C[-S[30], S[20], -U[4], U[1]] == \ {{(EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(2*SW)}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[S[30], S[20], -U[3], \ U[1]] == {{-(EL^2*GaugeXi[Q])/(2*SW)}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[S[30], S[20], -U[3], U[1]] == \ {{-(EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(2*SW)}}, "\), SequenceForm[ "Old: ", " C[S[30], S[20], -U[3], U[1]] == {{-(EL^2*GaugeXi[Q])/(2*SW)}}, \ ", ", \nNew: ", " C[S[30], S[20], -U[3], U[1]] == \ {{-(EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(2*SW)}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[-S[30], S[20], -U[1], \ U[3]] == {{(EL^2*GaugeXi[Q])/(2*SW)}}, "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[-S[30], S[20], -U[1], U[3]] == \ {{(EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(2*SW)}}, "\), SequenceForm[ "Old: ", " C[-S[30], S[20], -U[1], U[3]] == {{(EL^2*GaugeXi[Q])/(2*SW)}}, \ ", ", \nNew: ", " C[-S[30], S[20], -U[1], U[3]] == \ {{(EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(2*SW)}}, "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[S[30], S[20], -U[1], \ U[4]] == {{-(EL^2*GaugeXi[Q])/(2*SW)}}}"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[S[30], S[20], -U[1], U[4]] == \ {{-(EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(2*SW)}}}"\), SequenceForm[ "Old: ", " C[S[30], S[20], -U[1], U[4]] == {{-(EL^2*GaugeXi[Q])/(2*SW)}}}", ", \nNew: ", " C[S[30], S[20], -U[1], U[4]] == \ {{-(EL^2*HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q])/(2*SW)}}}"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"GaugeXi[ V[1 | 2 | 3] ] = \ GaugeXi[Q];"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]"HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[ V[1 | 2 | 3] ] \ = HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q];"\), SequenceForm[ "Old: ", "GaugeXi[ V[1 | 2 | 3] ] = GaugeXi[Q];", ", \nNew: ", "HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[ V[1 | 2 | 3] ] = \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q];"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"GaugeXi[ V[10 | 30 | 30] ] \ = GaugeXi[bg];"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]"HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[ V[10 | 30 | \ 30] ] = HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[bg];"\), SequenceForm[ "Old: ", "GaugeXi[ V[10 | 30 | 30] ] = GaugeXi[bg];", ", \nNew: ", "HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[ V[10 | 30 | 30] ] = \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[bg];"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"GaugeXi[ S[1 | 10] ] = 1;"\ \[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]"HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[ S[1 | 10] ] = \ 1;"\), SequenceForm[ "Old: ", "GaugeXi[ S[1 | 10] ] = 1;", ", \nNew: ", "HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[ S[1 | 10] ] = 1;"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"GaugeXi[ S[2 | 3] ] = \ GaugeXi[Q]; "\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]"HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[ S[2 | 3] ] = \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]; "\), SequenceForm[ "Old: ", "GaugeXi[ S[2 | 3] ] = GaugeXi[Q]; ", ", \nNew: ", "HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[ S[2 | 3] ] = \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]; "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"GaugeXi[ S[20 | 30] ] = \ GaugeXi[bg];"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]"HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[ S[20 | 30] ] = \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[bg];"\), SequenceForm[ "Old: ", "GaugeXi[ S[20 | 30] ] = GaugeXi[bg];", ", \nNew: ", "HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[ S[20 | 30] ] = \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[bg];"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"GaugeXi[ U[1] ] = 1;"\ \[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]"HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[ U[1] ] = 1;"\), SequenceForm[ "Old: ", "GaugeXi[ U[1] ] = 1;", ", \nNew: ", "HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[ U[1] ] = 1;"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"GaugeXi[ U[2 | 3 | 4] ] = \ GaugeXi[Q]"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]"HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[ U[2 | 3 | 4] ] \ = HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]"\), SequenceForm[ "Old: ", "GaugeXi[ U[2 | 3 | 4] ] = GaugeXi[Q]", ", \nNew: ", "HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[ U[2 | 3 | 4] ] = \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Q]"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ \(TraditionalForm\`"/app/theorie/mathematica41/AddOns/Applications/\ HighEnergyPhysics//Models/SM.mod"\)], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\tGaugeXi[A, W, Z]: \ photon, W, Z gauge parameters"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]"\t\ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[A, W, Z]: photon, W, Z gauge \ parameters"\), SequenceForm[ "Old: ", "\tGaugeXi[A, W, Z]: photon, W, Z gauge parameters", ", \nNew: ", "\tHighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[A, W, Z]: photon, W, \ Z gauge parameters"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\tIndices -> \ {Index[Generation]},"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]"\t\ FAIndices -> {Index[Generation]},"\), SequenceForm[ "Old: ", "\tIndices -> {Index[Generation]},", ", \nNew: ", "\tFAIndices -> {Index[Generation]},"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\tIndices -> \ {Index[Generation]},"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]"\t\ FAIndices -> {Index[Generation]},"\), SequenceForm[ "Old: ", "\tIndices -> {Index[Generation]},", ", \nNew: ", "\tFAIndices -> {Index[Generation]},"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\tIndices -> \ {Index[Generation]},"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]"\t\ FAIndices -> {Index[Generation]},"\), SequenceForm[ "Old: ", "\tIndices -> {Index[Generation]},", ", \nNew: ", "\tFAIndices -> {Index[Generation]},"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\tIndices -> \ {Index[Generation]},"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]"\t\ FAIndices -> {Index[Generation]},"\), SequenceForm[ "Old: ", "\tIndices -> {Index[Generation]},", ", \nNew: ", "\tFAIndices -> {Index[Generation]},"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\tIndices -> {},"\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]"\tFAIndices -> {},"\), SequenceForm[ "Old: ", "\tIndices -> {},", ", \nNew: ", "\tFAIndices -> {},"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\tIndices -> {},"\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]"\tFAIndices -> {},"\), SequenceForm[ "Old: ", "\tIndices -> {},", ", \nNew: ", "\tFAIndices -> {},"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\tIndices -> {},"\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]"\tFAIndices -> {},"\), SequenceForm[ "Old: ", "\tIndices -> {},", ", \nNew: ", "\tFAIndices -> {},"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\tIndices -> {},"\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]"\tFAIndices -> {},"\), SequenceForm[ "Old: ", "\tIndices -> {},", ", \nNew: ", "\tFAIndices -> {},"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\tIndices -> {},"\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]"\tFAIndices -> {},"\), SequenceForm[ "Old: ", "\tIndices -> {},", ", \nNew: ", "\tFAIndices -> {},"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\tIndices -> {},"\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]"\tFAIndices -> {},"\), SequenceForm[ "Old: ", "\tIndices -> {},", ", \nNew: ", "\tFAIndices -> {},"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\tIndices -> {},"\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]"\tFAIndices -> {},"\), SequenceForm[ "Old: ", "\tIndices -> {},", ", \nNew: ", "\tFAIndices -> {},"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\tIndices -> {},"\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]"\tFAIndices -> {},"\), SequenceForm[ "Old: ", "\tIndices -> {},", ", \nNew: ", "\tFAIndices -> {},"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\tIndices -> {},"\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]"\tFAIndices -> {},"\), SequenceForm[ "Old: ", "\tIndices -> {},", ", \nNew: ", "\tFAIndices -> {},"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\tIndices -> {},"\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]"\tFAIndices -> {},"\), SequenceForm[ "Old: ", "\tIndices -> {},", ", \nNew: ", "\tFAIndices -> {},"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\tIndices -> {},"\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]"\tFAIndices -> {},"\), SequenceForm[ "Old: ", "\tIndices -> {},", ", \nNew: ", "\tFAIndices -> {},"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\tIndices -> {},"\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]"\tFAIndices -> {},"\), SequenceForm[ "Old: ", "\tIndices -> {},", ", \nNew: ", "\tFAIndices -> {},"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\tIndices -> {},"\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]"\tFAIndices -> {},"\), SequenceForm[ "Old: ", "\tIndices -> {},", ", \nNew: ", "\tFAIndices -> {},"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"GaugeXi[ V[1] ] = \ GaugeXi[A];"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]"HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[ V[1] ] = \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[A];"\), SequenceForm[ "Old: ", "GaugeXi[ V[1] ] = GaugeXi[A];", ", \nNew: ", "HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[ V[1] ] = \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[A];"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"GaugeXi[ V[2] ] = \ GaugeXi[Z];"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]"HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[ V[2] ] = \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Z];"\), SequenceForm[ "Old: ", "GaugeXi[ V[2] ] = GaugeXi[Z];", ", \nNew: ", "HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[ V[2] ] = \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Z];"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"GaugeXi[ V[3] ] = \ GaugeXi[W];"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]"HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[ V[3] ] = \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W];"\), SequenceForm[ "Old: ", "GaugeXi[ V[3] ] = GaugeXi[W];", ", \nNew: ", "HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[ V[3] ] = \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W];"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"GaugeXi[ S[1] ] = 1;"\ \[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]"HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[ S[1] ] = 1;"\), SequenceForm[ "Old: ", "GaugeXi[ S[1] ] = 1;", ", \nNew: ", "HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[ S[1] ] = 1;"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"GaugeXi[ S[2] ] = \ GaugeXi[Z];"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]"HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[ S[2] ] = \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Z];"\), SequenceForm[ "Old: ", "GaugeXi[ S[2] ] = GaugeXi[Z];", ", \nNew: ", "HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[ S[2] ] = \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Z];"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"GaugeXi[ S[3] ] = \ GaugeXi[W];"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]"HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[ S[3] ] = \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W];"\), SequenceForm[ "Old: ", "GaugeXi[ S[3] ] = GaugeXi[W];", ", \nNew: ", "HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[ S[3] ] = \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W];"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"GaugeXi[ U[1] ] = 1;"\ \[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]"HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[ U[1] ] = 1;"\), SequenceForm[ "Old: ", "GaugeXi[ U[1] ] = 1;", ", \nNew: ", "HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[ U[1] ] = 1;"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"GaugeXi[ U[2] ] = \ GaugeXi[Z];"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]"HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[ U[2] ] = \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Z];"\), SequenceForm[ "Old: ", "GaugeXi[ U[2] ] = GaugeXi[Z];", ", \nNew: ", "HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[ U[2] ] = \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Z];"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"GaugeXi[ U[3] ] = \ GaugeXi[W];"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]"HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[ U[3] ] = \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W];"\), SequenceForm[ "Old: ", "GaugeXi[ U[3] ] = GaugeXi[W];", ", \nNew: ", "HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[ U[3] ] = \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W];"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"GaugeXi[ U[4] ] = \ GaugeXi[W]"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]"HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[ U[4] ] = \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]"\), SequenceForm[ "Old: ", "GaugeXi[ U[4] ] = GaugeXi[W]", ", \nNew: ", "HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[ U[4] ] = \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ U[1], -U[1] ] == \ -I/Sqrt[GaugeXi[A]] *"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" C[ \ U[1], -U[1] ] == -I/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[A]] *"\), SequenceForm[ "Old: ", " C[ U[1], -U[1] ] == -I/Sqrt[GaugeXi[A]] *", ", \nNew: ", " C[ U[1], -U[1] ] == \ -I/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[A]] *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ U[2], -U[2] ] == \ -I/Sqrt[GaugeXi[Z]] *"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" C[ \ U[2], -U[2] ] == -I/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Z]] *"\), SequenceForm[ "Old: ", " C[ U[2], -U[2] ] == -I/Sqrt[GaugeXi[Z]] *", ", \nNew: ", " C[ U[2], -U[2] ] == \ -I/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Z]] *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" {0, GaugeXi[Z] (MZ^2 \ (-dZG01/2 + dUZZ1) + dMZsq1/2) } },"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" {0, HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Z] \ (MZ^2 (-dZG01/2 + dUZZ1) + dMZsq1/2) } },"\), SequenceForm[ "Old: ", " {0, GaugeXi[Z] (MZ^2 (-dZG01/2 + dUZZ1) + dMZsq1/2) } },", ", \nNew: ", " {0, HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Z] (MZ^2 \ (-dZG01/2 + dUZZ1) + dMZsq1/2) } },"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ U[2], -U[1] ] == \ -I/Sqrt[GaugeXi[A]] *"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" C[ \ U[2], -U[1] ] == -I/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[A]] *"\), SequenceForm[ "Old: ", " C[ U[2], -U[1] ] == -I/Sqrt[GaugeXi[A]] *", ", \nNew: ", " C[ U[2], -U[1] ] == \ -I/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[A]] *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ U[1], -U[2] ] == \ -I/Sqrt[GaugeXi[Z]] *"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" C[ \ U[1], -U[2] ] == -I/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Z]] *"\), SequenceForm[ "Old: ", " C[ U[1], -U[2] ] == -I/Sqrt[GaugeXi[Z]] *", ", \nNew: ", " C[ U[1], -U[2] ] == \ -I/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Z]] *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" {0, GaugeXi[Z] MZ^2 \ dUZA1} },"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" {0, \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Z] MZ^2 dUZA1} },"\), SequenceForm[ "Old: ", " {0, GaugeXi[Z] MZ^2 dUZA1} },", ", \nNew: ", " {0, HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Z] MZ^2 \ dUZA1} },"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ U[3], -U[3] ] == \ -I/Sqrt[GaugeXi[W]] *"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" C[ \ U[3], -U[3] ] == -I/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]] *"\), SequenceForm[ "Old: ", " C[ U[3], -U[3] ] == -I/Sqrt[GaugeXi[W]] *", ", \nNew: ", " C[ U[3], -U[3] ] == \ -I/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]] *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" {0, GaugeXi[W] (MW^2 \ (-dZGp1/2 + dUW1) + dMWsq1/2) } },"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" {0, HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W] \ (MW^2 (-dZGp1/2 + dUW1) + dMWsq1/2) } },"\), SequenceForm[ "Old: ", " {0, GaugeXi[W] (MW^2 (-dZGp1/2 + dUW1) + dMWsq1/2) } },", ", \nNew: ", " {0, HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W] (MW^2 \ (-dZGp1/2 + dUW1) + dMWsq1/2) } },"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ U[4], -U[4] ] == \ -I/Sqrt[GaugeXi[W]] *"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" C[ \ U[4], -U[4] ] == -I/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]] *"\), SequenceForm[ "Old: ", " C[ U[4], -U[4] ] == -I/Sqrt[GaugeXi[W]] *", ", \nNew: ", " C[ U[4], -U[4] ] == \ -I/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]] *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" {0, GaugeXi[W] (MW^2 \ (-dZGp1/2 + dUW1) + dMWsq1/2) } },"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" {0, HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W] \ (MW^2 (-dZGp1/2 + dUW1) + dMWsq1/2) } },"\), SequenceForm[ "Old: ", " {0, GaugeXi[W] (MW^2 (-dZGp1/2 + dUW1) + dMWsq1/2) } },", ", \nNew: ", " {0, HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W] (MW^2 \ (-dZGp1/2 + dUW1) + dMWsq1/2) } },"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ -U[3], U[3], V[1] ] \ == -I EL/Sqrt[GaugeXi[W]] *"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ C[ -U[3], U[3], V[1] ] == -I \ EL/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]] *"\), SequenceForm[ "Old: ", " C[ -U[3], U[3], V[1] ] == -I EL/Sqrt[GaugeXi[W]] *", ", \nNew: ", " C[ -U[3], U[3], V[1] ] == -I \ EL/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]] *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ -U[4], U[4], V[1] ] \ == I EL/Sqrt[GaugeXi[W]] *"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" C[ \ -U[4], U[4], V[1] ] == I \ EL/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]] *"\), SequenceForm[ "Old: ", " C[ -U[4], U[4], V[1] ] == I EL/Sqrt[GaugeXi[W]] *", ", \nNew: ", " C[ -U[4], U[4], V[1] ] == I \ EL/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]] *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ -U[3], U[3], V[2] ] \ == I EL CW/SW/Sqrt[GaugeXi[W]] *"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" C[ -U[3], U[3], V[2] ] == I EL \ CW/SW/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]] *"\), SequenceForm[ "Old: ", " C[ -U[3], U[3], V[2] ] == I EL CW/SW/Sqrt[GaugeXi[W]] *", ", \nNew: ", " C[ -U[3], U[3], V[2] ] == I EL \ CW/SW/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]] *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ -U[4], U[4], V[2] ] \ == -I EL CW/SW/Sqrt[GaugeXi[W]] *"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[ -U[4], U[4], V[2] ] == -I EL \ CW/SW/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]] *"\), SequenceForm[ "Old: ", " C[ -U[4], U[4], V[2] ] == -I EL CW/SW/Sqrt[GaugeXi[W]] *", ", \nNew: ", " C[ -U[4], U[4], V[2] ] == -I EL \ CW/SW/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]] *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ -U[3], U[2], V[3] ] \ == -I EL CW/SW/Sqrt[GaugeXi[W]] *"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[ -U[3], U[2], V[3] ] == -I EL \ CW/SW/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]] *"\), SequenceForm[ "Old: ", " C[ -U[3], U[2], V[3] ] == -I EL CW/SW/Sqrt[GaugeXi[W]] *", ", \nNew: ", " C[ -U[3], U[2], V[3] ] == -I EL \ CW/SW/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]] *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ -U[2], U[3], -V[3] ] \ == -I EL/Sqrt[GaugeXi[Z]] *"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ C[ -U[2], U[3], -V[3] ] == -I \ EL/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Z]] *"\), SequenceForm[ "Old: ", " C[ -U[2], U[3], -V[3] ] == -I EL/Sqrt[GaugeXi[Z]] *", ", \nNew: ", " C[ -U[2], U[3], -V[3] ] == -I \ EL/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Z]] *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ -U[4], U[2], -V[3] ] \ == I EL CW/SW/Sqrt[GaugeXi[W]] *"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" C[ -U[4], U[2], -V[3] ] == I EL \ CW/SW/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]] *"\), SequenceForm[ "Old: ", " C[ -U[4], U[2], -V[3] ] == I EL CW/SW/Sqrt[GaugeXi[W]] *", ", \nNew: ", " C[ -U[4], U[2], -V[3] ] == I EL \ CW/SW/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]] *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ -U[2], U[4], V[3] ] \ == I EL/Sqrt[GaugeXi[Z]] *"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" C[ \ -U[2], U[4], V[3] ] == I \ EL/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Z]] *"\), SequenceForm[ "Old: ", " C[ -U[2], U[4], V[3] ] == I EL/Sqrt[GaugeXi[Z]] *", ", \nNew: ", " C[ -U[2], U[4], V[3] ] == I \ EL/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Z]] *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ -U[3], U[1], V[3] ] \ == I EL/Sqrt[GaugeXi[W]] *"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" C[ \ -U[3], U[1], V[3] ] == I \ EL/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]] *"\), SequenceForm[ "Old: ", " C[ -U[3], U[1], V[3] ] == I EL/Sqrt[GaugeXi[W]] *", ", \nNew: ", " C[ -U[3], U[1], V[3] ] == I \ EL/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]] *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ -U[1], U[3], -V[3] ] \ == I EL/Sqrt[GaugeXi[A]] *"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" C[ \ -U[1], U[3], -V[3] ] == I \ EL/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[A]] *"\), SequenceForm[ "Old: ", " C[ -U[1], U[3], -V[3] ] == I EL/Sqrt[GaugeXi[A]] *", ", \nNew: ", " C[ -U[1], U[3], -V[3] ] == I \ EL/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[A]] *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ -U[4], U[1], -V[3] ] \ == -I EL/Sqrt[GaugeXi[W]] *"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ C[ -U[4], U[1], -V[3] ] == -I \ EL/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]] *"\), SequenceForm[ "Old: ", " C[ -U[4], U[1], -V[3] ] == -I EL/Sqrt[GaugeXi[W]] *", ", \nNew: ", " C[ -U[4], U[1], -V[3] ] == -I \ EL/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]] *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ -U[1], U[4], V[3] ] \ == -I EL/Sqrt[GaugeXi[A]] *"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ C[ -U[1], U[4], V[3] ] == -I \ EL/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[A]] *"\), SequenceForm[ "Old: ", " C[ -U[1], U[4], V[3] ] == -I EL/Sqrt[GaugeXi[A]] *", ", \nNew: ", " C[ -U[1], U[4], V[3] ] == -I \ EL/Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[A]] *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ S[1], -U[2], U[2] ] \ == -I EL MW GaugeXi[Z]/(2 CW^2 SW) *"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[ S[1], -U[2], U[2] ] == -I EL MW \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Z]/(2 CW^2 SW) *"\), SequenceForm[ "Old: ", " C[ S[1], -U[2], U[2] ] == -I EL MW GaugeXi[Z]/(2 CW^2 SW) *", ", \nNew: ", " C[ S[1], -U[2], U[2] ] == -I EL MW \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Z]/(2 CW^2 SW) *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ S[1], -U[3], U[3] ] \ == -I EL MW GaugeXi[W]/(2 SW) *"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" C[ S[1], -U[3], U[3] ] == -I EL MW \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]/(2 SW) *"\), SequenceForm[ "Old: ", " C[ S[1], -U[3], U[3] ] == -I EL MW GaugeXi[W]/(2 SW) *", ", \nNew: ", " C[ S[1], -U[3], U[3] ] == -I EL MW \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]/(2 SW) *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ S[1], -U[4], U[4] ] \ == -I EL MW GaugeXi[W]/(2 SW) *"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]" C[ S[1], -U[4], U[4] ] == -I EL MW \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]/(2 SW) *"\), SequenceForm[ "Old: ", " C[ S[1], -U[4], U[4] ] == -I EL MW GaugeXi[W]/(2 SW) *", ", \nNew: ", " C[ S[1], -U[4], U[4] ] == -I EL MW \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]/(2 SW) *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ S[2], -U[4], U[4] ] \ == EL MW GaugeXi[W]/(2 SW) *"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ C[ S[2], -U[4], U[4] ] == EL MW \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]/(2 SW) *"\), SequenceForm[ "Old: ", " C[ S[2], -U[4], U[4] ] == EL MW GaugeXi[W]/(2 SW) *", ", \nNew: ", " C[ S[2], -U[4], U[4] ] == EL MW \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]/(2 SW) *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ S[2], -U[3], U[3] ] \ == -EL MW GaugeXi[W]/(2 SW) *"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ C[ S[2], -U[3], U[3] ] == -EL MW \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]/(2 SW) *"\), SequenceForm[ "Old: ", " C[ S[2], -U[3], U[3] ] == -EL MW GaugeXi[W]/(2 SW) *", ", \nNew: ", " C[ S[2], -U[3], U[3] ] == -EL MW \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]/(2 SW) *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ -S[3], -U[2], U[3] ] \ == I EL MW GaugeXi[Z]/(2 CW SW) *"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[ -S[3], -U[2], U[3] ] == I EL MW \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Z]/(2 CW SW) *"\), SequenceForm[ "Old: ", " C[ -S[3], -U[2], U[3] ] == I EL MW GaugeXi[Z]/(2 CW SW) *", ", \nNew: ", " C[ -S[3], -U[2], U[3] ] == I EL MW \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Z]/(2 CW SW) *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ S[3], -U[2], U[4] ] \ == I EL MW GaugeXi[Z]/(2 CW SW) *"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[ S[3], -U[2], U[4] ] == I EL MW \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Z]/(2 CW SW) *"\), SequenceForm[ "Old: ", " C[ S[3], -U[2], U[4] ] == I EL MW GaugeXi[Z]/(2 CW SW) *", ", \nNew: ", " C[ S[3], -U[2], U[4] ] == I EL MW \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[Z]/(2 CW SW) *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ -S[3], -U[4], U[2] ] \ == I EL (SW^2 - CW^2) MW GaugeXi[W]/(2 CW SW) *"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[ -S[3], -U[4], U[2] ] == I EL (SW^2 - CW^2) MW \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]/(2 CW SW) *"\), SequenceForm[ "Old: ", " C[ -S[3], -U[4], U[2] ] == I EL (SW^2 - CW^2) MW GaugeXi[W]/(2 \ CW SW) *", ", \nNew: ", " C[ -S[3], -U[4], U[2] ] == I EL (SW^2 - CW^2) MW \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]/(2 CW SW) *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ S[3], -U[3], U[2] ] \ == I EL (SW^2 - CW^2) MW GaugeXi[W]/(2 CW SW) *"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[ S[3], -U[3], U[2] ] == I EL (SW^2 - CW^2) MW \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]/(2 CW SW) *"\), SequenceForm[ "Old: ", " C[ S[3], -U[3], U[2] ] == I EL (SW^2 - CW^2) MW GaugeXi[W]/(2 CW \ SW) *", ", \nNew: ", " C[ S[3], -U[3], U[2] ] == I EL (SW^2 - CW^2) MW \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W]/(2 CW SW) *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ -S[3], -U[4], U[1] ] \ == I EL MW GaugeXi[W] *"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" C[ \ -S[3], -U[4], U[1] ] == I EL MW HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W] \ *"\), SequenceForm[ "Old: ", " C[ -S[3], -U[4], U[1] ] == I EL MW GaugeXi[W] *", ", \nNew: ", " C[ -S[3], -U[4], U[1] ] == I EL MW \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W] *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ S[3], -U[3], U[1]] == \ I EL MW GaugeXi[W] *"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" C[ S[3], \ -U[3], U[1]] == I EL MW HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W] *"\), SequenceForm[ "Old: ", " C[ S[3], -U[3], U[1]] == I EL MW GaugeXi[W] *", ", \nNew: ", " C[ S[3], -U[3], U[1]] == I EL MW \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[W] *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ \(TraditionalForm\`"/app/theorie/mathematica41/AddOns/Applications/\ HighEnergyPhysics//Models/QED.mod"\)], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\tGaugeXi[A]:\tphoton \ gauge parameter"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]"\t\ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[A]:\tphoton gauge parameter"\), SequenceForm[ "Old: ", "\tGaugeXi[A]:\tphoton gauge parameter", ", \nNew: ", "\tHighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[A]:\tphoton gauge \ parameter"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\tIndices -> \ {Index[Generation]},"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]"\t\ FAIndices -> {Index[Generation]},"\), SequenceForm[ "Old: ", "\tIndices -> {Index[Generation]},", ", \nNew: ", "\tFAIndices -> {Index[Generation]},"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"GaugeXi[ V[1] ] = \ GaugeXi[A]"\[InvisibleSpace]", \nNew: \ "\[InvisibleSpace]"HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[ V[1] ] = \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[A]"\), SequenceForm[ "Old: ", "GaugeXi[ V[1] ] = GaugeXi[A]", ", \nNew: ", "HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[ V[1] ] = \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[A]"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ \(TraditionalForm\`"/app/theorie/mathematica41/AddOns/Applications/\ HighEnergyPhysics//Models/MSSMQCD.mod"\)], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\tGS, the strong coupling \ constant"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]"\tGStrong, the strong \ coupling constant"\), SequenceForm[ "Old: ", "\tGS, the strong coupling constant", ", \nNew: ", "\tGStrong, the strong coupling constant"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\tIndices -> \ {Index[Gluon]},"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]"\tFAIndices -> \ {Index[Gluon]},"\), SequenceForm[ "Old: ", "\tIndices -> {Index[Gluon]},", ", \nNew: ", "\tFAIndices -> {Index[Gluon]},"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\tIndices -> \ {Index[Gluon]},"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]"\tFAIndices -> \ {Index[Gluon]},"\), SequenceForm[ "Old: ", "\tIndices -> {Index[Gluon]},", ", \nNew: ", "\tFAIndices -> {Index[Gluon]},"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\tIndices -> \ {Index[Gluon]},"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]"\tFAIndices -> \ {Index[Gluon]},"\), SequenceForm[ "Old: ", "\tIndices -> {Index[Gluon]},", ", \nNew: ", "\tFAIndices -> {Index[Gluon]},"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ V[5, {g1}], V[5, \ {g2}], V[5, {g3}], V[5, {g4}] ] == -I GS^2 * "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[ V[5, {g1}], V[5, {g2}], V[5, {g3}], V[5, {g4}] ] == -I \ GStrong^2 * "\), SequenceForm[ "Old: ", " C[ V[5, {g1}], V[5, {g2}], V[5, {g3}], V[5, {g4}] ] == -I GS^2 * \ ", ", \nNew: ", " C[ V[5, {g1}], V[5, {g2}], V[5, {g3}], V[5, {g4}] ] == -I \ GStrong^2 * "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ V[5, {g1}], V[5, \ {g2}], V[5, {g3}] ] == GS *"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ C[ V[5, {g1}], V[5, {g2}], V[5, {g3}] ] == GStrong *"\), SequenceForm[ "Old: ", " C[ V[5, {g1}], V[5, {g2}], V[5, {g3}] ] == GS *", ", \nNew: ", " C[ V[5, {g1}], V[5, {g2}], V[5, {g3}] ] == GStrong *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ -U[5, {g1}], U[5, \ {g2}], V[5, {g3}] ] == GS *"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ C[ -U[5, {g1}], U[5, {g2}], V[5, {g3}] ] == GStrong *"\), SequenceForm[ "Old: ", " C[ -U[5, {g1}], U[5, {g2}], V[5, {g3}] ] == GS *", ", \nNew: ", " C[ -U[5, {g1}], U[5, {g2}], V[5, {g3}] ] == GStrong *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ -F[3, {j1, o1}], F[3, \ {j2, o2}], V[5, {g1}] ] == -I GS *"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[ -F[3, {j1, o1}], F[3, {j2, o2}], V[5, {g1}] ] == -I \ GStrong *"\), SequenceForm[ "Old: ", " C[ -F[3, {j1, o1}], F[3, {j2, o2}], V[5, {g1}] ] == -I GS *", ", \nNew: ", " C[ -F[3, {j1, o1}], F[3, {j2, o2}], V[5, {g1}] ] == -I GStrong \ *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ -F[4, {j1, o1}], F[4, \ {j2, o2}], V[5, {g1}] ] == -I GS *"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[ -F[4, {j1, o1}], F[4, {j2, o2}], V[5, {g1}] ] == -I \ GStrong *"\), SequenceForm[ "Old: ", " C[ -F[4, {j1, o1}], F[4, {j2, o2}], V[5, {g1}] ] == -I GS *", ", \nNew: ", " C[ -F[4, {j1, o1}], F[4, {j2, o2}], V[5, {g1}] ] == -I GStrong \ *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ F[15, {g1}], F[15, \ {g2}], V[5, {g3}] ] == -GS *"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ C[ F[15, {g1}], F[15, {g2}], V[5, {g3}] ] == -GStrong *"\), SequenceForm[ "Old: ", " C[ F[15, {g1}], F[15, {g2}], V[5, {g3}] ] == -GS *", ", \nNew: ", " C[ F[15, {g1}], F[15, {g2}], V[5, {g3}] ] == -GStrong *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ S[13, {s1, j1, o1}], \ -S[13, {s2, j2, o2}], V[5, {g1}] ] == -I GS *"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[ S[13, {s1, j1, o1}], -S[13, {s2, j2, o2}], V[5, {g1}] \ ] == -I GStrong *"\), SequenceForm[ "Old: ", " C[ S[13, {s1, j1, o1}], -S[13, {s2, j2, o2}], V[5, {g1}] ] == -I \ GS *", ", \nNew: ", " C[ S[13, {s1, j1, o1}], -S[13, {s2, j2, o2}], V[5, {g1}] ] == -I \ GStrong *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ S[14, {s1, j1, o1}], \ -S[14, {s2, j2, o2}], V[5, {g1}] ] == -I GS *"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[ S[14, {s1, j1, o1}], -S[14, {s2, j2, o2}], V[5, {g1}] \ ] == -I GStrong *"\), SequenceForm[ "Old: ", " C[ S[14, {s1, j1, o1}], -S[14, {s2, j2, o2}], V[5, {g1}] ] == -I \ GS *", ", \nNew: ", " C[ S[14, {s1, j1, o1}], -S[14, {s2, j2, o2}], V[5, {g1}] ] == -I \ GStrong *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ F[15, {g1}], -F[3, \ {j1, o1}], S[13, {s2, j2, o2}] ] == I GS *"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[ F[15, {g1}], -F[3, {j1, o1}], S[13, {s2, j2, o2}] ] == \ I GStrong *"\), SequenceForm[ "Old: ", " C[ F[15, {g1}], -F[3, {j1, o1}], S[13, {s2, j2, o2}] ] == I GS \ *", ", \nNew: ", " C[ F[15, {g1}], -F[3, {j1, o1}], S[13, {s2, j2, o2}] ] == I \ GStrong *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ F[15, {g1}], -F[4, \ {j1, o1}], S[14, {s2, j2, o2}] ] == I GS *"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[ F[15, {g1}], -F[4, {j1, o1}], S[14, {s2, j2, o2}] ] == \ I GStrong *"\), SequenceForm[ "Old: ", " C[ F[15, {g1}], -F[4, {j1, o1}], S[14, {s2, j2, o2}] ] == I GS \ *", ", \nNew: ", " C[ F[15, {g1}], -F[4, {j1, o1}], S[14, {s2, j2, o2}] ] == I \ GStrong *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ F[15, {g1}], F[3, \ {j1, o1}], -S[13, {s2, j2, o2}] ] == I GS *"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[ F[15, {g1}], F[3, {j1, o1}], -S[13, {s2, j2, o2}] ] == \ I GStrong *"\), SequenceForm[ "Old: ", " C[ F[15, {g1}], F[3, {j1, o1}], -S[13, {s2, j2, o2}] ] == I GS \ *", ", \nNew: ", " C[ F[15, {g1}], F[3, {j1, o1}], -S[13, {s2, j2, o2}] ] == I \ GStrong *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" C[ F[15, {g1}], F[4, \ {j1, o1}], -S[14, {s2, j2, o2}] ] == I GS *"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" C[ F[15, {g1}], F[4, {j1, o1}], -S[14, {s2, j2, o2}] ] == \ I GStrong *"\), SequenceForm[ "Old: ", " C[ F[15, {g1}], F[4, {j1, o1}], -S[14, {s2, j2, o2}] ] == I GS \ *", ", \nNew: ", " C[ F[15, {g1}], F[4, {j1, o1}], -S[14, {s2, j2, o2}] ] == I \ GStrong *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" I GS^2 IndexDelta[s1, \ s2] IndexDelta[j1, j2] *"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" I \ GStrong^2 IndexDelta[s1, s2] IndexDelta[j1, j2] *"\), SequenceForm[ "Old: ", " I GS^2 IndexDelta[s1, s2] IndexDelta[j1, j2] *", ", \nNew: ", " I GStrong^2 IndexDelta[s1, s2] IndexDelta[j1, j2] *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" I GS^2 IndexDelta[s1, \ s2] IndexDelta[j1, j2] *"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" I \ GStrong^2 IndexDelta[s1, s2] IndexDelta[j1, j2] *"\), SequenceForm[ "Old: ", " I GS^2 IndexDelta[s1, s2] IndexDelta[j1, j2] *", ", \nNew: ", " I GStrong^2 IndexDelta[s1, s2] IndexDelta[j1, j2] *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" 2 I EL GS \ IndexDelta[s1, s2] IndexDelta[j1, j2] SUNT[g1, o2, o1] *"\[InvisibleSpace]", \ \nNew: "\[InvisibleSpace]" 2 I EL GStrong IndexDelta[s1, s2] \ IndexDelta[j1, j2] SUNT[g1, o2, o1] *"\), SequenceForm[ "Old: ", " 2 I EL GS IndexDelta[s1, s2] IndexDelta[j1, j2] SUNT[g1, o2, \ o1] *", ", \nNew: ", " 2 I EL GStrong IndexDelta[s1, s2] IndexDelta[j1, j2] SUNT[g1, \ o2, o1] *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" 2 I EL GS \ IndexDelta[s1, s2] IndexDelta[j1, j2] SUNT[g1, o2, o1] *"\[InvisibleSpace]", \ \nNew: "\[InvisibleSpace]" 2 I EL GStrong IndexDelta[s1, s2] \ IndexDelta[j1, j2] SUNT[g1, o2, o1] *"\), SequenceForm[ "Old: ", " 2 I EL GS IndexDelta[s1, s2] IndexDelta[j1, j2] SUNT[g1, o2, \ o1] *", ", \nNew: ", " 2 I EL GStrong IndexDelta[s1, s2] IndexDelta[j1, j2] SUNT[g1, \ o2, o1] *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" 2 I EL/SW/CW GS \ IndexDelta[j1, j2] SUNT[g1, o2, o1] *"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" 2 I EL/SW/CW GStrong IndexDelta[j1, j2] SUNT[g1, o2, \ o1] *"\), SequenceForm[ "Old: ", " 2 I EL/SW/CW GS IndexDelta[j1, j2] SUNT[g1, o2, o1] *", ", \nNew: ", " 2 I EL/SW/CW GStrong IndexDelta[j1, j2] SUNT[g1, o2, o1] *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" 2 I EL/SW/CW GS \ IndexDelta[j1, j2] SUNT[g1, o2, o1] *"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" 2 I EL/SW/CW GStrong IndexDelta[j1, j2] SUNT[g1, o2, \ o1] *"\), SequenceForm[ "Old: ", " 2 I EL/SW/CW GS IndexDelta[j1, j2] SUNT[g1, o2, o1] *", ", \nNew: ", " 2 I EL/SW/CW GStrong IndexDelta[j1, j2] SUNT[g1, o2, o1] *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" I EL/SW GS Sqrt[2] \ Conjugate[CKM[j1, j2]] SUNT[g1, o2, o1] *"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" I EL/SW GStrong Sqrt[2] Conjugate[CKM[j1, j2]] SUNT[g1, \ o2, o1] *"\), SequenceForm[ "Old: ", " I EL/SW GS Sqrt[2] Conjugate[CKM[j1, j2]] SUNT[g1, o2, o1] *", ", \nNew: ", " I EL/SW GStrong Sqrt[2] Conjugate[CKM[j1, j2]] SUNT[g1, o2, \ o1] *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" I EL/SW GS Sqrt[2] \ CKM[j1, j2] SUNT[g1, o1, o2] *"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ I EL/SW GStrong Sqrt[2] CKM[j1, j2] SUNT[g1, o1, o2] *"\), SequenceForm[ "Old: ", " I EL/SW GS Sqrt[2] CKM[j1, j2] SUNT[g1, o1, o2] *", ", \nNew: ", " I EL/SW GStrong Sqrt[2] CKM[j1, j2] SUNT[g1, o1, o2] *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ \(TraditionalForm\`"/app/theorie/mathematica41/AddOns/Applications/\ HighEnergyPhysics//Models/MSSM.mod"\)], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\tIndices -> \ {Index[Generation]},"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]"\t\ FAIndices -> {Index[Generation]},"\), SequenceForm[ "Old: ", "\tIndices -> {Index[Generation]},", ", \nNew: ", "\tFAIndices -> {Index[Generation]},"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\tIndices -> \ {Index[Generation]},"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]"\t\ FAIndices -> {Index[Generation]},"\), SequenceForm[ "Old: ", "\tIndices -> {Index[Generation]},", ", \nNew: ", "\tFAIndices -> {Index[Generation]},"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\tIndices -> \ {Index[Generation], Index[Colour]},"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]"\tFAIndices -> {Index[Generation], Index[Colour]},"\), SequenceForm[ "Old: ", "\tIndices -> {Index[Generation], Index[Colour]},", ", \nNew: ", "\tFAIndices -> {Index[Generation], Index[Colour]},"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\tIndices -> \ {Index[Generation], Index[Colour]},"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]"\tFAIndices -> {Index[Generation], Index[Colour]},"\), SequenceForm[ "Old: ", "\tIndices -> {Index[Generation], Index[Colour]},", ", \nNew: ", "\tFAIndices -> {Index[Generation], Index[Colour]},"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\tIndices -> \ {Index[Neutralino]},"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]"\t\ FAIndices -> {Index[Neutralino]},"\), SequenceForm[ "Old: ", "\tIndices -> {Index[Neutralino]},", ", \nNew: ", "\tFAIndices -> {Index[Neutralino]},"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\tIndices -> \ {Index[Chargino]},"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]"\tFAIndices \ -> {Index[Chargino]},"\), SequenceForm[ "Old: ", "\tIndices -> {Index[Chargino]},", ", \nNew: ", "\tFAIndices -> {Index[Chargino]},"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\tIndices -> {},"\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]"\tFAIndices -> {},"\), SequenceForm[ "Old: ", "\tIndices -> {},", ", \nNew: ", "\tFAIndices -> {},"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\tIndices -> {},"\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]"\tFAIndices -> {},"\), SequenceForm[ "Old: ", "\tIndices -> {},", ", \nNew: ", "\tFAIndices -> {},"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\tIndices -> {},"\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]"\tFAIndices -> {},"\), SequenceForm[ "Old: ", "\tIndices -> {},", ", \nNew: ", "\tFAIndices -> {},"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\tIndices -> {},"\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]"\tFAIndices -> {},"\), SequenceForm[ "Old: ", "\tIndices -> {},", ", \nNew: ", "\tFAIndices -> {},"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\tIndices -> {},"\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]"\tFAIndices -> {},"\), SequenceForm[ "Old: ", "\tIndices -> {},", ", \nNew: ", "\tFAIndices -> {},"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\tIndices -> {},"\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]"\tFAIndices -> {},"\), SequenceForm[ "Old: ", "\tIndices -> {},", ", \nNew: ", "\tFAIndices -> {},"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\tIndices -> {},"\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]"\tFAIndices -> {},"\), SequenceForm[ "Old: ", "\tIndices -> {},", ", \nNew: ", "\tFAIndices -> {},"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\tIndices -> {},"\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]"\tFAIndices -> {},"\), SequenceForm[ "Old: ", "\tIndices -> {},", ", \nNew: ", "\tFAIndices -> {},"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\tIndices -> {},"\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]"\tFAIndices -> {},"\), SequenceForm[ "Old: ", "\tIndices -> {},", ", \nNew: ", "\tFAIndices -> {},"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\tIndices -> \ {Index[Generation]},"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]"\t\ FAIndices -> {Index[Generation]},"\), SequenceForm[ "Old: ", "\tIndices -> {Index[Generation]},", ", \nNew: ", "\tFAIndices -> {Index[Generation]},"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\tIndices -> \ {Index[Sfermion], Index[Generation]},"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]"\tFAIndices -> {Index[Sfermion], Index[Generation]},"\), SequenceForm[ "Old: ", "\tIndices -> {Index[Sfermion], Index[Generation]},", ", \nNew: ", "\tFAIndices -> {Index[Sfermion], Index[Generation]},"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\tIndices -> \ {Index[Sfermion], Index[Generation], Index[Colour]},"\[InvisibleSpace]", \n\ New: "\[InvisibleSpace]"\tFAIndices -> {Index[Sfermion], Index[Generation], \ Index[Colour]},"\), SequenceForm[ "Old: ", "\tIndices -> {Index[Sfermion], Index[Generation], Index[Colour]},", ", \nNew: ", "\tFAIndices -> {Index[Sfermion], Index[Generation], \ Index[Colour]},"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\tIndices -> \ {Index[Sfermion], Index[Generation], Index[Colour]},"\[InvisibleSpace]", \n\ New: "\[InvisibleSpace]"\tFAIndices -> {Index[Sfermion], Index[Generation], \ Index[Colour]},"\), SequenceForm[ "Old: ", "\tIndices -> {Index[Sfermion], Index[Generation], Index[Colour]},", ", \nNew: ", "\tFAIndices -> {Index[Sfermion], Index[Generation], \ Index[Colour]},"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\tIndices -> {},"\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]"\tFAIndices -> {},"\), SequenceForm[ "Old: ", "\tIndices -> {},", ", \nNew: ", "\tFAIndices -> {},"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\tIndices -> {},"\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]"\tFAIndices -> {},"\), SequenceForm[ "Old: ", "\tIndices -> {},", ", \nNew: ", "\tFAIndices -> {},"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\tIndices -> {},"\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]"\tFAIndices -> {},"\), SequenceForm[ "Old: ", "\tIndices -> {},", ", \nNew: ", "\tFAIndices -> {},"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"\tIndices -> {},"\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]"\tFAIndices -> {},"\), SequenceForm[ "Old: ", "\tIndices -> {},", ", \nNew: ", "\tFAIndices -> {},"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" {{IndexDelta[j1, \ j4]*IndexDelta[j2, j3]*((-I)*GS^2*SUNTSum[o2, o3, o4, \\"\[InvisibleSpace]", \ \nNew: "\[InvisibleSpace]" {{IndexDelta[j1, j4]*IndexDelta[j2, \ j3]*((-I)*GStrong^2*SUNTSum[o2, o3, o4, \\"\), SequenceForm[ "Old: ", " {{IndexDelta[j1, j4]*IndexDelta[j2, j3]*((-I)*GS^2*SUNTSum[o2, \ o3, o4, \\", ", \nNew: ", " {{IndexDelta[j1, j4]*IndexDelta[j2, \ j3]*((-I)*GStrong^2*SUNTSum[o2, o3, o4, \\"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ ((-I)*GS^2*SUNTSum[o2, o1, o4, o3]*(Conjugate[USf[4, j1][s1, 1]]*"\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ ((-I)*GStrong^2*SUNTSum[o2, o1, o4, o3]*(Conjugate[USf[4, j1][s1, 1]]*"\), SequenceForm[ "Old: ", " ((-I)*GS^2*SUNTSum[o2, o1, o4, o3]*(Conjugate[USf[4, j1][s1, \ 1]]*", ", \nNew: ", " ((-I)*GStrong^2*SUNTSum[o2, o1, o4, o3]*(Conjugate[USf[4, \ j1][s1, 1]]*"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" {{IndexDelta[j1, \ j2]*IndexDelta[j3, j4]*((-I)*GS^2*SUNTSum[o2, o1, o4, \\"\[InvisibleSpace]", \ \nNew: "\[InvisibleSpace]" {{IndexDelta[j1, j2]*IndexDelta[j3, \ j4]*((-I)*GStrong^2*SUNTSum[o2, o1, o4, \\"\), SequenceForm[ "Old: ", " {{IndexDelta[j1, j2]*IndexDelta[j3, j4]*((-I)*GS^2*SUNTSum[o2, \ o1, o4, \\", ", \nNew: ", " {{IndexDelta[j1, j2]*IndexDelta[j3, \ j4]*((-I)*GStrong^2*SUNTSum[o2, o1, o4, \\"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" {{IndexDelta[j1, \ j4]*IndexDelta[j2, j3]*((-I)*GS^2*SUNTSum[o2, o3, o4, \\"\[InvisibleSpace]", \ \nNew: "\[InvisibleSpace]" {{IndexDelta[j1, j4]*IndexDelta[j2, \ j3]*((-I)*GStrong^2*SUNTSum[o2, o3, o4, \\"\), SequenceForm[ "Old: ", " {{IndexDelta[j1, j4]*IndexDelta[j2, j3]*((-I)*GS^2*SUNTSum[o2, \ o3, o4, \\", ", \nNew: ", " {{IndexDelta[j1, j4]*IndexDelta[j2, \ j3]*((-I)*GStrong^2*SUNTSum[o2, o3, o4, \\"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ ((-I)*GS^2*SUNTSum[o2, o1, o4, o3]*(Conjugate[USf[3, j1][s1, 1]]*"\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ ((-I)*GStrong^2*SUNTSum[o2, o1, o4, o3]*(Conjugate[USf[3, j1][s1, 1]]*"\), SequenceForm[ "Old: ", " ((-I)*GS^2*SUNTSum[o2, o1, o4, o3]*(Conjugate[USf[3, j1][s1, \ 1]]*", ", \nNew: ", " ((-I)*GStrong^2*SUNTSum[o2, o1, o4, o3]*(Conjugate[USf[3, \ j1][s1, 1]]*"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ \(TraditionalForm\`"/app/theorie/mathematica41/AddOns/Applications/\ HighEnergyPhysics//Models/QED.gen"\)], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" NonCommutative["\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]" FANonCommutative["\), SequenceForm[ "Old: ", " NonCommutative[", ", \nNew: ", " FANonCommutative["], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" NonCommutative[ \ DiracSlash[-mom] + Mass[F[i]] ] *"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" FANonCommutative[ DiracSlash[-mom] + Mass[F[i]] ] *"\), SequenceForm[ "Old: ", " NonCommutative[ DiracSlash[-mom] + Mass[F[i]] ] *", ", \nNew: ", " FANonCommutative[ DiracSlash[-mom] + Mass[F[i]] ] *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" I \ PropagatorDenominator[mom, Mass[F[i]]], "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" I \ HighEnergyPhysics`FeynCalc`PropagatorDenominator`PropagatorDenominator[mom, \ Mass[F[i]]], "\), SequenceForm[ "Old: ", " I PropagatorDenominator[mom, Mass[F[i]]], ", ", \nNew: ", " I \ HighEnergyPhysics`FeynCalc`PropagatorDenominator`PropagatorDenominator[mom, \ Mass[F[i]]], "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" -I \ PropagatorDenominator[mom, Mass[V[i]]] *"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" -I \ HighEnergyPhysics`FeynCalc`PropagatorDenominator`PropagatorDenominator[mom, \ Mass[V[i]]] *"\), SequenceForm[ "Old: ", " -I PropagatorDenominator[mom, Mass[V[i]]] *", ", \nNew: ", " -I HighEnergyPhysics`FeynCalc`PropagatorDenominator`\ PropagatorDenominator[mom, Mass[V[i]]] *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" (MetricTensor[li1, \ li2] - (1 - GaugeXi[V[i]]) *"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ (MetricTensor[li1, li2] - (1 - \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[V[i]]) *"\), SequenceForm[ "Old: ", " (MetricTensor[li1, li2] - (1 - GaugeXi[V[i]]) *", ", \nNew: ", " (MetricTensor[li1, li2] - (1 - \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[V[i]]) *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ PropagatorDenominator[mom, Sqrt[GaugeXi[V[i]]] \ Mass[V[i]]])"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ HighEnergyPhysics`FeynCalc`PropagatorDenominator`PropagatorDenominator[mom, \ Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[V[i]]] Mass[V[i]]])"\), SequenceForm[ "Old: ", " PropagatorDenominator[mom, Sqrt[GaugeXi[V[i]]] \ Mass[V[i]]])", ", \nNew: ", " \ HighEnergyPhysics`FeynCalc`PropagatorDenominator`PropagatorDenominator[mom, \ Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[V[i]]] Mass[V[i]]])"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" { \ NonCommutative[DiracSlash[mom1], ChiralityProjector[-1]],"\[InvisibleSpace]", \ \nNew: "\[InvisibleSpace]" { FANonCommutative[DiracSlash[mom1], \ ChiralityProjector[-1]],"\), SequenceForm[ "Old: ", " { NonCommutative[DiracSlash[mom1], ChiralityProjector[-1]],", ", \nNew: ", " { FANonCommutative[DiracSlash[mom1], \ ChiralityProjector[-1]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ NonCommutative[DiracSlash[mom2], ChiralityProjector[+1]],"\[InvisibleSpace]", \ \nNew: "\[InvisibleSpace]" FANonCommutative[DiracSlash[mom2], \ ChiralityProjector[+1]],"\), SequenceForm[ "Old: ", " NonCommutative[DiracSlash[mom2], ChiralityProjector[+1]],", ", \nNew: ", " FANonCommutative[DiracSlash[mom2], \ ChiralityProjector[+1]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ NonCommutative[ChiralityProjector[-1]],"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" FANonCommutative[ChiralityProjector[-1]],"\), SequenceForm[ "Old: ", " NonCommutative[ChiralityProjector[-1]],", ", \nNew: ", " FANonCommutative[ChiralityProjector[-1]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ NonCommutative[ChiralityProjector[+1]] },"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" FANonCommutative[ChiralityProjector[+1]] },"\), SequenceForm[ "Old: ", " NonCommutative[ChiralityProjector[+1]] },", ", \nNew: ", " FANonCommutative[ChiralityProjector[+1]] },"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" { \ NonCommutative[DiracMatrix[li3], ChiralityProjector[-1]], \ "\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" { \ FANonCommutative[DiracMatrix[li3], ChiralityProjector[-1]], "\), SequenceForm[ "Old: ", " { NonCommutative[DiracMatrix[li3], ChiralityProjector[-1]], \ ", ", \nNew: ", " { FANonCommutative[DiracMatrix[li3], \ ChiralityProjector[-1]], "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ NonCommutative[DiracMatrix[li3], ChiralityProjector[+1]] \ }"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ FANonCommutative[DiracMatrix[li3], ChiralityProjector[+1]] }"\), SequenceForm[ "Old: ", " NonCommutative[DiracMatrix[li3], ChiralityProjector[+1]] \ }", ", \nNew: ", " FANonCommutative[DiracMatrix[li3], ChiralityProjector[+1]] \ }"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ NonCommutative[dm_DiracMatrix, ChiralityProjector[pm_]] \ :>"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ FANonCommutative[dm_DiracMatrix, ChiralityProjector[pm_]] :>"\), SequenceForm[ "Old: ", " NonCommutative[dm_DiracMatrix, ChiralityProjector[pm_]] :>", ", \nNew: ", " FANonCommutative[dm_DiracMatrix, ChiralityProjector[pm_]] :>"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" -NonCommutative[dm, \ ChiralityProjector[-pm]]"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ -FANonCommutative[dm, ChiralityProjector[-pm]]"\), SequenceForm[ "Old: ", " -NonCommutative[dm, ChiralityProjector[-pm]]", ", \nNew: ", " -FANonCommutative[dm, ChiralityProjector[-pm]]"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ NonCommutative[ds_DiracSlash, ChiralityProjector[pm_]] :>"\[InvisibleSpace]", \ \nNew: "\[InvisibleSpace]" FANonCommutative[ds_DiracSlash, \ ChiralityProjector[pm_]] :>"\), SequenceForm[ "Old: ", " NonCommutative[ds_DiracSlash, ChiralityProjector[pm_]] :>", ", \nNew: ", " FANonCommutative[ds_DiracSlash, ChiralityProjector[pm_]] :>"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" -NonCommutative[ds, \ ChiralityProjector[-pm]]"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ -FANonCommutative[ds, ChiralityProjector[-pm]]"\), SequenceForm[ "Old: ", " -NonCommutative[ds, ChiralityProjector[-pm]]", ", \nNew: ", " -FANonCommutative[ds, ChiralityProjector[-pm]]"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" NonCommutative[_[s1_. \ mom1_, mass1_]],"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ FANonCommutative[_[s1_. mom1_, mass1_]],"\), SequenceForm[ "Old: ", " NonCommutative[_[s1_. mom1_, mass1_]],", ", \nNew: ", " FANonCommutative[_[s1_. mom1_, mass1_]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" NonCommutative[_[s2_. \ mom2_, mass2_]]] ] :="\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ FANonCommutative[_[s2_. mom2_, mass2_]]] ] :="\), SequenceForm[ "Old: ", " NonCommutative[_[s2_. mom2_, mass2_]]] ] :=", ", \nNew: ", " FANonCommutative[_[s2_. mom2_, mass2_]]] ] :="], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"Format[ GaugeXi[a_] ] := \ SequenceForm[\"xi\", Subscript[a]]"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]"Format[ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[a_] ] := \ SequenceForm[\"xi\", Subscript[a]]"\), SequenceForm[ "Old: ", "Format[ GaugeXi[a_] ] := SequenceForm[\"xi\", Subscript[a]]", ", \nNew: ", "Format[ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[a_] ] := \ SequenceForm[\"xi\", Subscript[a]]"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ \(TraditionalForm\`"/app/theorie/mathematica41/AddOns/Applications/\ HighEnergyPhysics//Models/Lorentzbgf.gen"\)], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" NonCommutative["\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]" FANonCommutative["\), SequenceForm[ "Old: ", " NonCommutative[", ", \nNew: ", " FANonCommutative["], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" NonCommutative[ \ DiracSlash[-mom] + Mass[F[j1]] ] *"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" FANonCommutative[ DiracSlash[-mom] + Mass[F[j1]] ] *"\), SequenceForm[ "Old: ", " NonCommutative[ DiracSlash[-mom] + Mass[F[j1]] ] *", ", \nNew: ", " FANonCommutative[ DiracSlash[-mom] + Mass[F[j1]] ] *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" I \ PropagatorDenominator[mom, Mass[F[j1]]], "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" I \ HighEnergyPhysics`FeynCalc`PropagatorDenominator`PropagatorDenominator[mom, \ Mass[F[j1]]], "\), SequenceForm[ "Old: ", " I PropagatorDenominator[mom, Mass[F[j1]]], ", ", \nNew: ", " I \ HighEnergyPhysics`FeynCalc`PropagatorDenominator`PropagatorDenominator[mom, \ Mass[F[j1]]], "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" -I \ PropagatorDenominator[mom, Mass[V[j1]]] *"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" -I \ HighEnergyPhysics`FeynCalc`PropagatorDenominator`PropagatorDenominator[mom, \ Mass[V[j1]]] *"\), SequenceForm[ "Old: ", " -I PropagatorDenominator[mom, Mass[V[j1]]] *", ", \nNew: ", " -I HighEnergyPhysics`FeynCalc`PropagatorDenominator`\ PropagatorDenominator[mom, Mass[V[j1]]] *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" (MetricTensor[li1, \ li2] - (1 - GaugeXi[V[j1]]) *"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ (MetricTensor[li1, li2] - (1 - \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[V[j1]]) *"\), SequenceForm[ "Old: ", " (MetricTensor[li1, li2] - (1 - GaugeXi[V[j1]]) *", ", \nNew: ", " (MetricTensor[li1, li2] - (1 - \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[V[j1]]) *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ PropagatorDenominator[mom, Sqrt[GaugeXi[V[j1]]] Mass[V[j1]]]),"\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ HighEnergyPhysics`FeynCalc`PropagatorDenominator`PropagatorDenominator[mom, \ Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[V[j1]]] Mass[V[j1]]]),"\), SequenceForm[ "Old: ", " PropagatorDenominator[mom, Sqrt[GaugeXi[V[j1]]] \ Mass[V[j1]]]),", ", \nNew: ", " \ HighEnergyPhysics`FeynCalc`PropagatorDenominator`PropagatorDenominator[mom, \ Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[V[j1]]] Mass[V[j1]]]),"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" I Mass[SV[j1]] \ PropagatorDenominator[mom, Mass[SV[j1]]] *"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" I Mass[SV[j1]] \ HighEnergyPhysics`FeynCalc`PropagatorDenominator`PropagatorDenominator[mom, \ Mass[SV[j1]]] *"\), SequenceForm[ "Old: ", " I Mass[SV[j1]] PropagatorDenominator[mom, Mass[SV[j1]]] *", ", \nNew: ", " I Mass[SV[j1]] \ HighEnergyPhysics`FeynCalc`PropagatorDenominator`PropagatorDenominator[mom, \ Mass[SV[j1]]] *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" I \ PropagatorDenominator[mom, Sqrt[GaugeXi[S[j1]]] Mass[S[j1]]],"\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]" I \ HighEnergyPhysics`FeynCalc`PropagatorDenominator`PropagatorDenominator[mom, \ Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[S[j1]]] Mass[S[j1]]],"\), SequenceForm[ "Old: ", " I PropagatorDenominator[mom, Sqrt[GaugeXi[S[j1]]] \ Mass[S[j1]]],", ", \nNew: ", " I HighEnergyPhysics`FeynCalc`PropagatorDenominator`\ PropagatorDenominator[mom, \ Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[S[j1]]] Mass[S[j1]]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" I \ PropagatorDenominator[mom, Sqrt[GaugeXi[U[j1]]] \ Mass[U[j1]]]"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" I \ HighEnergyPhysics`FeynCalc`PropagatorDenominator`PropagatorDenominator[mom, \ Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[U[j1]]] Mass[U[j1]]]"\), SequenceForm[ "Old: ", " I PropagatorDenominator[mom, Sqrt[GaugeXi[U[j1]]] \ Mass[U[j1]]]", ", \nNew: ", " I HighEnergyPhysics`FeynCalc`PropagatorDenominator`\ PropagatorDenominator[mom, \ Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[U[j1]]] Mass[U[j1]]]"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" { \ NonCommutative[DiracSlash[mom1], ChiralityProjector[-1]],"\[InvisibleSpace]", \ \nNew: "\[InvisibleSpace]" { FANonCommutative[DiracSlash[mom1], \ ChiralityProjector[-1]],"\), SequenceForm[ "Old: ", " { NonCommutative[DiracSlash[mom1], ChiralityProjector[-1]],", ", \nNew: ", " { FANonCommutative[DiracSlash[mom1], \ ChiralityProjector[-1]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ NonCommutative[DiracSlash[mom2], ChiralityProjector[+1]],"\[InvisibleSpace]", \ \nNew: "\[InvisibleSpace]" FANonCommutative[DiracSlash[mom2], \ ChiralityProjector[+1]],"\), SequenceForm[ "Old: ", " NonCommutative[DiracSlash[mom2], ChiralityProjector[+1]],", ", \nNew: ", " FANonCommutative[DiracSlash[mom2], \ ChiralityProjector[+1]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ NonCommutative[ChiralityProjector[-1]],"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" FANonCommutative[ChiralityProjector[-1]],"\), SequenceForm[ "Old: ", " NonCommutative[ChiralityProjector[-1]],", ", \nNew: ", " FANonCommutative[ChiralityProjector[-1]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ NonCommutative[ChiralityProjector[+1]] },"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" FANonCommutative[ChiralityProjector[+1]] },"\), SequenceForm[ "Old: ", " NonCommutative[ChiralityProjector[+1]] },", ", \nNew: ", " FANonCommutative[ChiralityProjector[+1]] },"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" { \ NonCommutative[DiracMatrix[li3], ChiralityProjector[-1]], \ "\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" { \ FANonCommutative[DiracMatrix[li3], ChiralityProjector[-1]], "\), SequenceForm[ "Old: ", " { NonCommutative[DiracMatrix[li3], ChiralityProjector[-1]], \ ", ", \nNew: ", " { FANonCommutative[DiracMatrix[li3], \ ChiralityProjector[-1]], "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ NonCommutative[DiracMatrix[li3], ChiralityProjector[+1]] \ },"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ FANonCommutative[DiracMatrix[li3], ChiralityProjector[+1]] },"\), SequenceForm[ "Old: ", " NonCommutative[DiracMatrix[li3], ChiralityProjector[+1]] \ },", ", \nNew: ", " FANonCommutative[DiracMatrix[li3], ChiralityProjector[+1]] \ },"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" { \ NonCommutative[ChiralityProjector[-1]], "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" { FANonCommutative[ChiralityProjector[-1]], "\), SequenceForm[ "Old: ", " { NonCommutative[ChiralityProjector[-1]], ", ", \nNew: ", " { FANonCommutative[ChiralityProjector[-1]], "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ NonCommutative[ChiralityProjector[+1]] },"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" FANonCommutative[ChiralityProjector[+1]] },"\), SequenceForm[ "Old: ", " NonCommutative[ChiralityProjector[+1]] },", ", \nNew: ", " FANonCommutative[ChiralityProjector[+1]] },"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ NonCommutative[dm_DiracMatrix, ChiralityProjector[pm_]] \ :>"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ FANonCommutative[dm_DiracMatrix, ChiralityProjector[pm_]] :>"\), SequenceForm[ "Old: ", " NonCommutative[dm_DiracMatrix, ChiralityProjector[pm_]] :>", ", \nNew: ", " FANonCommutative[dm_DiracMatrix, ChiralityProjector[pm_]] :>"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" -NonCommutative[dm, \ ChiralityProjector[-pm]]"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ -FANonCommutative[dm, ChiralityProjector[-pm]]"\), SequenceForm[ "Old: ", " -NonCommutative[dm, ChiralityProjector[-pm]]", ", \nNew: ", " -FANonCommutative[dm, ChiralityProjector[-pm]]"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ NonCommutative[ds_DiracSlash, ChiralityProjector[pm_]] :>"\[InvisibleSpace]", \ \nNew: "\[InvisibleSpace]" FANonCommutative[ds_DiracSlash, \ ChiralityProjector[pm_]] :>"\), SequenceForm[ "Old: ", " NonCommutative[ds_DiracSlash, ChiralityProjector[pm_]] :>", ", \nNew: ", " FANonCommutative[ds_DiracSlash, ChiralityProjector[pm_]] :>"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" -NonCommutative[ds, \ ChiralityProjector[-pm]]"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ -FANonCommutative[ds, ChiralityProjector[-pm]]"\), SequenceForm[ "Old: ", " -NonCommutative[ds, ChiralityProjector[-pm]]", ", \nNew: ", " -FANonCommutative[ds, ChiralityProjector[-pm]]"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" NonCommutative[_[s1_. \ mom1_, mass1_]],"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ FANonCommutative[_[s1_. mom1_, mass1_]],"\), SequenceForm[ "Old: ", " NonCommutative[_[s1_. mom1_, mass1_]],", ", \nNew: ", " FANonCommutative[_[s1_. mom1_, mass1_]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" NonCommutative[_[s2_. \ mom2_, mass2_]]] ] :="\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ FANonCommutative[_[s2_. mom2_, mass2_]]] ] :="\), SequenceForm[ "Old: ", " NonCommutative[_[s2_. mom2_, mass2_]]] ] :=", ", \nNew: ", " FANonCommutative[_[s2_. mom2_, mass2_]]] ] :="], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"Format[ GaugeXi[a_] ] := \ SequenceForm[\"xi\", Subscript[a]]"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]"Format[ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[a_] ] := \ SequenceForm[\"xi\", Subscript[a]]"\), SequenceForm[ "Old: ", "Format[ GaugeXi[a_] ] := SequenceForm[\"xi\", Subscript[a]]", ", \nNew: ", "Format[ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[a_] ] := \ SequenceForm[\"xi\", Subscript[a]]"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ \(TraditionalForm\`"/app/theorie/mathematica41/AddOns/Applications/\ HighEnergyPhysics//Models/Lorentz.gen"\)], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" NonCommutative["\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]" FANonCommutative["\), SequenceForm[ "Old: ", " NonCommutative[", ", \nNew: ", " FANonCommutative["], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" NonCommutative[ \ DiracSlash[-mom] + Mass[F[j1]] ] *"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" FANonCommutative[ DiracSlash[-mom] + Mass[F[j1]] ] *"\), SequenceForm[ "Old: ", " NonCommutative[ DiracSlash[-mom] + Mass[F[j1]] ] *", ", \nNew: ", " FANonCommutative[ DiracSlash[-mom] + Mass[F[j1]] ] *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" I \ PropagatorDenominator[mom, Mass[F[j1]]], "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" I \ HighEnergyPhysics`FeynCalc`PropagatorDenominator`PropagatorDenominator[mom, \ Mass[F[j1]]], "\), SequenceForm[ "Old: ", " I PropagatorDenominator[mom, Mass[F[j1]]], ", ", \nNew: ", " I \ HighEnergyPhysics`FeynCalc`PropagatorDenominator`PropagatorDenominator[mom, \ Mass[F[j1]]], "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" -I \ PropagatorDenominator[mom, Mass[V[j1]]] *"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" -I \ HighEnergyPhysics`FeynCalc`PropagatorDenominator`PropagatorDenominator[mom, \ Mass[V[j1]]] *"\), SequenceForm[ "Old: ", " -I PropagatorDenominator[mom, Mass[V[j1]]] *", ", \nNew: ", " -I HighEnergyPhysics`FeynCalc`PropagatorDenominator`\ PropagatorDenominator[mom, Mass[V[j1]]] *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" (MetricTensor[li1, \ li2] - (1 - GaugeXi[V[j1]]) *"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ (MetricTensor[li1, li2] - (1 - \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[V[j1]]) *"\), SequenceForm[ "Old: ", " (MetricTensor[li1, li2] - (1 - GaugeXi[V[j1]]) *", ", \nNew: ", " (MetricTensor[li1, li2] - (1 - \ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[V[j1]]) *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ PropagatorDenominator[mom, Sqrt[GaugeXi[V[j1]]] Mass[V[j1]]]),"\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ HighEnergyPhysics`FeynCalc`PropagatorDenominator`PropagatorDenominator[mom, \ Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[V[j1]]] Mass[V[j1]]]),"\), SequenceForm[ "Old: ", " PropagatorDenominator[mom, Sqrt[GaugeXi[V[j1]]] \ Mass[V[j1]]]),", ", \nNew: ", " \ HighEnergyPhysics`FeynCalc`PropagatorDenominator`PropagatorDenominator[mom, \ Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[V[j1]]] Mass[V[j1]]]),"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" I Mass[SV[j1]] \ PropagatorDenominator[mom, Mass[SV[j1]]] *"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" I Mass[SV[j1]] \ HighEnergyPhysics`FeynCalc`PropagatorDenominator`PropagatorDenominator[mom, \ Mass[SV[j1]]] *"\), SequenceForm[ "Old: ", " I Mass[SV[j1]] PropagatorDenominator[mom, Mass[SV[j1]]] *", ", \nNew: ", " I Mass[SV[j1]] \ HighEnergyPhysics`FeynCalc`PropagatorDenominator`PropagatorDenominator[mom, \ Mass[SV[j1]]] *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" I \ PropagatorDenominator[mom, Sqrt[GaugeXi[S[j1]]] Mass[S[j1]]],"\ \[InvisibleSpace]", \nNew: "\[InvisibleSpace]" I \ HighEnergyPhysics`FeynCalc`PropagatorDenominator`PropagatorDenominator[mom, \ Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[S[j1]]] Mass[S[j1]]],"\), SequenceForm[ "Old: ", " I PropagatorDenominator[mom, Sqrt[GaugeXi[S[j1]]] \ Mass[S[j1]]],", ", \nNew: ", " I HighEnergyPhysics`FeynCalc`PropagatorDenominator`\ PropagatorDenominator[mom, \ Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[S[j1]]] Mass[S[j1]]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" I Sqrt[GaugeXi[U[j1]]] \ *"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" I \ Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[U[j1]]] *"\), SequenceForm[ "Old: ", " I Sqrt[GaugeXi[U[j1]]] *", ", \nNew: ", " I Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[U[j1]]] *"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ PropagatorDenominator[mom, Sqrt[GaugeXi[U[j1]]] \ Mass[U[j1]]]"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ HighEnergyPhysics`FeynCalc`PropagatorDenominator`PropagatorDenominator[mom, \ Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[U[j1]]] Mass[U[j1]]]"\), SequenceForm[ "Old: ", " PropagatorDenominator[mom, Sqrt[GaugeXi[U[j1]]] \ Mass[U[j1]]]", ", \nNew: ", " HighEnergyPhysics`FeynCalc`PropagatorDenominator`\ PropagatorDenominator[mom, \ Sqrt[HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[U[j1]]] Mass[U[j1]]]"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" { \ NonCommutative[DiracSlash[mom1], ChiralityProjector[-1]],"\[InvisibleSpace]", \ \nNew: "\[InvisibleSpace]" { FANonCommutative[DiracSlash[mom1], \ ChiralityProjector[-1]],"\), SequenceForm[ "Old: ", " { NonCommutative[DiracSlash[mom1], ChiralityProjector[-1]],", ", \nNew: ", " { FANonCommutative[DiracSlash[mom1], \ ChiralityProjector[-1]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ NonCommutative[DiracSlash[mom2], ChiralityProjector[+1]],"\[InvisibleSpace]", \ \nNew: "\[InvisibleSpace]" FANonCommutative[DiracSlash[mom2], \ ChiralityProjector[+1]],"\), SequenceForm[ "Old: ", " NonCommutative[DiracSlash[mom2], ChiralityProjector[+1]],", ", \nNew: ", " FANonCommutative[DiracSlash[mom2], \ ChiralityProjector[+1]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ NonCommutative[ChiralityProjector[-1]],"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" FANonCommutative[ChiralityProjector[-1]],"\), SequenceForm[ "Old: ", " NonCommutative[ChiralityProjector[-1]],", ", \nNew: ", " FANonCommutative[ChiralityProjector[-1]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ NonCommutative[ChiralityProjector[+1]] },"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" FANonCommutative[ChiralityProjector[+1]] },"\), SequenceForm[ "Old: ", " NonCommutative[ChiralityProjector[+1]] },", ", \nNew: ", " FANonCommutative[ChiralityProjector[+1]] },"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" { \ NonCommutative[DiracMatrix[li3], ChiralityProjector[-1]], \ "\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" { \ FANonCommutative[DiracMatrix[li3], ChiralityProjector[-1]], "\), SequenceForm[ "Old: ", " { NonCommutative[DiracMatrix[li3], ChiralityProjector[-1]], \ ", ", \nNew: ", " { FANonCommutative[DiracMatrix[li3], \ ChiralityProjector[-1]], "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ NonCommutative[DiracMatrix[li3], ChiralityProjector[+1]] \ },"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ FANonCommutative[DiracMatrix[li3], ChiralityProjector[+1]] },"\), SequenceForm[ "Old: ", " NonCommutative[DiracMatrix[li3], ChiralityProjector[+1]] \ },", ", \nNew: ", " FANonCommutative[DiracMatrix[li3], ChiralityProjector[+1]] \ },"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" { \ NonCommutative[ChiralityProjector[-1]], "\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" { FANonCommutative[ChiralityProjector[-1]], "\), SequenceForm[ "Old: ", " { NonCommutative[ChiralityProjector[-1]], ", ", \nNew: ", " { FANonCommutative[ChiralityProjector[-1]], "], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ NonCommutative[ChiralityProjector[+1]] },"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]" FANonCommutative[ChiralityProjector[+1]] },"\), SequenceForm[ "Old: ", " NonCommutative[ChiralityProjector[+1]] },", ", \nNew: ", " FANonCommutative[ChiralityProjector[+1]] },"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ NonCommutative[dm_DiracMatrix, ChiralityProjector[pm_]] \ :>"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ FANonCommutative[dm_DiracMatrix, ChiralityProjector[pm_]] :>"\), SequenceForm[ "Old: ", " NonCommutative[dm_DiracMatrix, ChiralityProjector[pm_]] :>", ", \nNew: ", " FANonCommutative[dm_DiracMatrix, ChiralityProjector[pm_]] :>"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" -NonCommutative[dm, \ ChiralityProjector[-pm]]"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ -FANonCommutative[dm, ChiralityProjector[-pm]]"\), SequenceForm[ "Old: ", " -NonCommutative[dm, ChiralityProjector[-pm]]", ", \nNew: ", " -FANonCommutative[dm, ChiralityProjector[-pm]]"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" \ NonCommutative[ds_DiracSlash, ChiralityProjector[pm_]] :>"\[InvisibleSpace]", \ \nNew: "\[InvisibleSpace]" FANonCommutative[ds_DiracSlash, \ ChiralityProjector[pm_]] :>"\), SequenceForm[ "Old: ", " NonCommutative[ds_DiracSlash, ChiralityProjector[pm_]] :>", ", \nNew: ", " FANonCommutative[ds_DiracSlash, ChiralityProjector[pm_]] :>"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" -NonCommutative[ds, \ ChiralityProjector[-pm]]"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ -FANonCommutative[ds, ChiralityProjector[-pm]]"\), SequenceForm[ "Old: ", " -NonCommutative[ds, ChiralityProjector[-pm]]", ", \nNew: ", " -FANonCommutative[ds, ChiralityProjector[-pm]]"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" NonCommutative[_[s1_. \ mom1_, mass1_]],"\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ FANonCommutative[_[s1_. mom1_, mass1_]],"\), SequenceForm[ "Old: ", " NonCommutative[_[s1_. mom1_, mass1_]],", ", \nNew: ", " FANonCommutative[_[s1_. mom1_, mass1_]],"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]" NonCommutative[_[s2_. \ mom2_, mass2_]]] ] :="\[InvisibleSpace]", \nNew: "\[InvisibleSpace]" \ FANonCommutative[_[s2_. mom2_, mass2_]]] ] :="\), SequenceForm[ "Old: ", " NonCommutative[_[s2_. mom2_, mass2_]]] ] :=", ", \nNew: ", " FANonCommutative[_[s2_. mom2_, mass2_]]] ] :="], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[\("Old: "\[InvisibleSpace]"Format[ GaugeXi[a_] ] := \ SequenceForm[\"xi\", Subscript[a]]"\[InvisibleSpace]", \nNew: "\ \[InvisibleSpace]"Format[ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[a_] ] := \ SequenceForm[\"xi\", Subscript[a]]"\), SequenceForm[ "Old: ", "Format[ GaugeXi[a_] ] := SequenceForm[\"xi\", Subscript[a]]", ", \nNew: ", "Format[ HighEnergyPhysics`FeynCalc`GaugeXi`GaugeXi[a_] ] := \ SequenceForm[\"xi\", Subscript[a]]"], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ \(TraditionalForm\`"Installing model files\n"\)], "Print"], Cell[BoxData[ \(TraditionalForm\`"\nFinished!\n"\)], "Print"], Cell["Loading FeynArts ", "Text", GeneratedCell->True, CellAutoOverwrite->True], Cell[BoxData[ \(TraditionalForm\`\*"\<\"\"\>"\)], "Print"], Cell[BoxData[ \(TraditionalForm\`"FeynArts 3"\)], "Print"], Cell[BoxData[ \(TraditionalForm\`"by Hagen Eck, Sepp Kueblbeck, and Thomas Hahn"\)], \ "Print"], Cell[BoxData[ \(TraditionalForm\`"last revised 19 Oct 01"\)], "Print"], Cell[BoxData[ \(TraditionalForm\`"patched for use with FeynCalc by Frederik \ Orellana"\)], "Print"] }, Closed]], Cell[CellGroupData[{ Cell["Cosmetics", "Subsection"], Cell[BoxData[ \(\(Format[EL, TraditionalForm] = "\";\)\)], "Input"], Cell[BoxData[ \(\(MU /: MakeBoxes[MU, TraditionalForm] := SubscriptBox["\", MakeBoxes[ StyleForm["\", FontSlant \[Rule] Plain]]];\)\)], "Input"], Cell[BoxData[ \(\(MC /: MakeBoxes[MC, TraditionalForm] := SubscriptBox["\", MakeBoxes[ StyleForm["\", FontSlant \[Rule] Plain]]];\)\)], "Input"], Cell[BoxData[ \(\(MH /: MakeBoxes[MH, TraditionalForm] := SubscriptBox["\", MakeBoxes[ StyleForm["\", FontSlant \[Rule] Plain]]];\)\)], "Input"], Cell[BoxData[ \(\(MW /: MakeBoxes[MW, TraditionalForm] := SubscriptBox["\", MakeBoxes[ StyleForm["\", FontSlant \[Rule] Plain]]];\)\)], "Input"], Cell[BoxData[ \(\(MZ /: MakeBoxes[MZ, TraditionalForm] := SubscriptBox["\", MakeBoxes[ StyleForm["\", FontSlant \[Rule] Plain]]];\)\)], "Input"], Cell[BoxData[ \(\(SW /: MakeBoxes[SW, TraditionalForm] := SubscriptBox["\", MakeBoxes[ StyleForm["\", FontSlant \[Rule] Plain]]];\)\)], "Input"] }, Closed]], Cell[BoxData[ \(\(tt = CreateTopologies[0, 2 \[Rule] 2];\)\)], "Input"], Cell[BoxData[ \(\(aa = InsertFields[ tt, {F[3, {1}], \(-F[3, {1}]\)} \[Rule] {F[ 3, {2}], \(-F[3, {2}]\)}, InsertionLevel \[Rule] Classes, Model \[Rule] "\", GenericModel \[Rule] "\"];\)\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(\(aa // Paint;\)\)], "Input"], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: 1.1 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations -1.38778e-17 0.0151515 2.41777e-17 0.0151515 [ [ 0 0 0 0 ] [ 1 1.1 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 1.1 L 0 1.1 L closepath clip newpath % Start of sub-graphic p -1.38778e-17 0.666667 0.333333 1 MathSubStart %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.0454545 0.0454545 0.0454545 0.0454545 [ [ 0 0 0 0 ] [ 1 1 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 1 L 0 1 L closepath clip newpath 0 g .005 w [ ] 0 setdash .04545 .72727 m .31818 .5 L s .20277 .59618 m .14923 .61713 L .17251 .64506 L F gsave .16421 .587 -70.9375 -13.8125 Mabsadd m 1 1 Mabs scale currentpoint translate 0 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier-Oblique %%IncludeFont: Courier-Oblique /Courier-Oblique findfont 9.938 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (u) show 1.000 setlinewidth grestore .04545 .27273 m .31818 .5 L s .16087 .3689 m .21441 .38986 L .19113 .41779 L F gsave .19943 .35973 -61 -13.8125 Mabsadd m 1 1 Mabs scale currentpoint translate 0 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier-Oblique %%IncludeFont: Courier-Oblique /Courier-Oblique findfont 9.938 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (u) show 1.000 setlinewidth grestore .95455 .72727 m .68182 .5 L s .83913 .6311 m .78559 .61014 L .80887 .58221 L F gsave .80057 .64027 -71 -4 Mabsadd m 1 1 Mabs scale currentpoint translate 0 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier-Oblique %%IncludeFont: Courier-Oblique /Courier-Oblique findfont 9.938 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (c) show 1.000 setlinewidth grestore .95455 .27273 m .68182 .5 L s .79723 .40382 m .85077 .38287 L .82749 .35494 L F gsave .83579 .413 -61 -4 Mabsadd m 1 1 Mabs scale currentpoint translate 0 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier-Oblique %%IncludeFont: Courier-Oblique /Courier-Oblique findfont 9.938 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (c) show 1.000 setlinewidth grestore [ .03 .03 ] 0 setdash .31818 .5 m .68182 .5 L s gsave .5 .4684 -66.2188 -13.8125 Mabsadd m 1 1 Mabs scale currentpoint translate 0 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier-Oblique %%IncludeFont: Courier-Oblique /Courier-Oblique findfont 9.938 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (S) show 1.000 setlinewidth grestore .04 w .31818 .5 Mdot .68182 .5 Mdot gsave .5 .02273 -79.3125 -4 Mabsadd m 1 1 Mabs scale currentpoint translate 0 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 7.938 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (G1) show 74.562 11.250 moveto (N1) show 86.125 11.250 moveto (T1) show 1.000 setlinewidth grestore MathSubEnd P % End of sub-graphic % Start of sub-graphic p 0.333333 0.666667 0.666667 1 MathSubStart %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.0454545 0.0454545 0.0454545 0.0454545 [ [ 0 0 0 0 ] [ 1 1 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 1 L 0 1 L closepath clip newpath 0 g .005 w [ ] 0 setdash .04545 .72727 m .31818 .5 L s .20277 .59618 m .14923 .61713 L .17251 .64506 L F gsave .16421 .587 -70.9375 -13.8125 Mabsadd m 1 1 Mabs scale currentpoint translate 0 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier-Oblique %%IncludeFont: Courier-Oblique /Courier-Oblique findfont 9.938 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (u) show 1.000 setlinewidth grestore .04545 .27273 m .31818 .5 L s .16087 .3689 m .21441 .38986 L .19113 .41779 L F gsave .19943 .35973 -61 -13.8125 Mabsadd m 1 1 Mabs scale currentpoint translate 0 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier-Oblique %%IncludeFont: Courier-Oblique /Courier-Oblique findfont 9.938 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (u) show 1.000 setlinewidth grestore .95455 .72727 m .68182 .5 L s .83913 .6311 m .78559 .61014 L .80887 .58221 L F gsave .80057 .64027 -71 -4 Mabsadd m 1 1 Mabs scale currentpoint translate 0 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier-Oblique %%IncludeFont: Courier-Oblique /Courier-Oblique findfont 9.938 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (c) show 1.000 setlinewidth grestore .95455 .27273 m .68182 .5 L s .79723 .40382 m .85077 .38287 L .82749 .35494 L F gsave .83579 .413 -61 -4 Mabsadd m 1 1 Mabs scale currentpoint translate 0 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier-Oblique %%IncludeFont: Courier-Oblique /Courier-Oblique findfont 9.938 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (c) show 1.000 setlinewidth grestore [ .03 .03 ] 0 setdash .31818 .5 m .68182 .5 L s gsave .5 .4684 -66.4062 -13.8125 Mabsadd m 1 1 Mabs scale currentpoint translate 0 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier-Oblique %%IncludeFont: Courier-Oblique /Courier-Oblique findfont 9.938 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (H) show 1.000 setlinewidth grestore .04 w .31818 .5 Mdot .68182 .5 Mdot gsave .5 .02273 -79.3125 -4 Mabsadd m 1 1 Mabs scale currentpoint translate 0 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 7.938 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (C1) show 74.562 11.250 moveto (N2) show 86.125 11.250 moveto (T1) show 1.000 setlinewidth grestore MathSubEnd P % End of sub-graphic % Start of sub-graphic p 0.666667 0.666667 1 1 MathSubStart %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.0454545 0.0454545 0.0454545 0.0454545 [ [ 0 0 0 0 ] [ 1 1 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 1 L 0 1 L closepath clip newpath 0 g .005 w [ ] 0 setdash .04545 .72727 m .31818 .5 L s .20277 .59618 m .14923 .61713 L .17251 .64506 L F gsave .16421 .587 -70.9375 -13.8125 Mabsadd m 1 1 Mabs scale currentpoint translate 0 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier-Oblique %%IncludeFont: Courier-Oblique /Courier-Oblique findfont 9.938 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (u) show 1.000 setlinewidth grestore .04545 .27273 m .31818 .5 L s .16087 .3689 m .21441 .38986 L .19113 .41779 L F gsave .19943 .35973 -61 -13.8125 Mabsadd m 1 1 Mabs scale currentpoint translate 0 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier-Oblique %%IncludeFont: Courier-Oblique /Courier-Oblique findfont 9.938 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (u) show 1.000 setlinewidth grestore .95455 .72727 m .68182 .5 L s .83913 .6311 m .78559 .61014 L .80887 .58221 L F gsave .80057 .64027 -71 -4 Mabsadd m 1 1 Mabs scale currentpoint translate 0 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier-Oblique %%IncludeFont: Courier-Oblique /Courier-Oblique findfont 9.938 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (c) show 1.000 setlinewidth grestore .95455 .27273 m .68182 .5 L s .79723 .40382 m .85077 .38287 L .82749 .35494 L F gsave .83579 .413 -61 -4 Mabsadd m 1 1 Mabs scale currentpoint translate 0 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier-Oblique %%IncludeFont: Courier-Oblique /Courier-Oblique findfont 9.938 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (c) show 1.000 setlinewidth grestore [ .03 .03 ] 0 setdash .31818 .5 m .68182 .5 L s gsave .5 .4684 -65.9688 -13.8125 Mabsadd m 1 1 Mabs scale currentpoint translate 0 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 9.938 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (1) show 1.000 setlinewidth grestore .04 w .31818 .5 Mdot .68182 .5 Mdot gsave .5 .02273 -79.3125 -4 Mabsadd m 1 1 Mabs scale currentpoint translate 0 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 7.938 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (C2) show 74.562 11.250 moveto (N3) show 86.125 11.250 moveto (T1) show 1.000 setlinewidth grestore MathSubEnd P % End of sub-graphic % Start of sub-graphic p -1.38778e-17 0.333333 0.333333 0.666667 MathSubStart %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.0454545 0.0454545 0.0454545 0.0454545 [ [ 0 0 0 0 ] [ 1 1 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 1 L 0 1 L closepath clip newpath 0 g .005 w [ ] 0 setdash .04545 .72727 m .31818 .5 L s .20277 .59618 m .14923 .61713 L .17251 .64506 L F gsave .16421 .587 -70.9375 -13.8125 Mabsadd m 1 1 Mabs scale currentpoint translate 0 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier-Oblique %%IncludeFont: Courier-Oblique /Courier-Oblique findfont 9.938 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (u) show 1.000 setlinewidth grestore .04545 .27273 m .31818 .5 L s .16087 .3689 m .21441 .38986 L .19113 .41779 L F gsave .19943 .35973 -61 -13.8125 Mabsadd m 1 1 Mabs scale currentpoint translate 0 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier-Oblique %%IncludeFont: Courier-Oblique /Courier-Oblique findfont 9.938 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (u) show 1.000 setlinewidth grestore .95455 .72727 m .68182 .5 L s .83913 .6311 m .78559 .61014 L .80887 .58221 L F gsave .80057 .64027 -71 -4 Mabsadd m 1 1 Mabs scale currentpoint translate 0 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier-Oblique %%IncludeFont: Courier-Oblique /Courier-Oblique findfont 9.938 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (c) show 1.000 setlinewidth grestore .95455 .27273 m .68182 .5 L s .79723 .40382 m .85077 .38287 L .82749 .35494 L F gsave .83579 .413 -61 -4 Mabsadd m 1 1 Mabs scale currentpoint translate 0 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier-Oblique %%IncludeFont: Courier-Oblique /Courier-Oblique findfont 9.938 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (c) show 1.000 setlinewidth grestore .68182 .5 m .67727 .50393 L .67273 .50738 L .66818 .50991 L .66363 .51122 L .65909 .51114 L .65454 .50968 L .65 .50703 L .64545 .50351 L .64091 .49955 L .63636 .49564 L .63182 .49228 L .62727 .48987 L .62273 .48871 L .61818 .48894 L .61364 .49054 L .60909 .49331 L .60455 .4969 L .6 .50088 L .59545 .50474 L .59091 .50802 L .58636 .51031 L .58182 .51131 L .57727 .51092 L .57273 .50918 L .56818 .5063 L .56364 .50264 L .55909 .49865 L .55455 .49482 L .55 .49164 L .54546 .48948 L .54091 .48863 L .53636 .48918 L .53182 .49106 L .52727 .49404 L .52273 .49777 L .51818 .50176 L .51364 .50553 L .50909 .50862 L .50455 .51064 L .5 .51135 L .49545 .51064 L .49091 .50862 L .48636 .50553 L .48182 .50176 L .47727 .49777 L .47273 .49404 L .46818 .49106 L .46364 .48918 L .45909 .48863 L Mistroke .45454 .48948 L .45 .49164 L .44545 .49482 L .44091 .49865 L .43636 .50264 L .43182 .5063 L .42727 .50918 L .42273 .51092 L .41818 .51131 L .41364 .51031 L .40909 .50802 L .40455 .50474 L .4 .50088 L .39545 .4969 L .39091 .49331 L .38636 .49054 L .38182 .48894 L .37727 .48871 L .37273 .48987 L .36818 .49228 L .36364 .49564 L .35909 .49955 L .35455 .50351 L .35 .50703 L .34546 .50968 L .34091 .51114 L .33637 .51122 L .33182 .50991 L .32727 .50738 L .32273 .50393 L .31818 .5 L Mfstroke gsave .5 .45704 -66.5625 -13.8125 Mabsadd m 1 1 Mabs scale currentpoint translate 0 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier-Oblique %%IncludeFont: Courier-Oblique /Courier-Oblique findfont 9.938 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (V) show 1.000 setlinewidth grestore .04 w .31818 .5 Mdot .68182 .5 Mdot gsave .5 .02273 -79.3125 -4 Mabsadd m 1 1 Mabs scale currentpoint translate 0 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 7.938 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (G2) show 74.562 11.250 moveto (N4) show 86.125 11.250 moveto (T1) show 1.000 setlinewidth grestore MathSubEnd P % End of sub-graphic % Start of sub-graphic p 0.333333 0.333333 0.666667 0.666667 MathSubStart %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.0454545 0.0454545 0.0454545 0.0454545 [ [ 0 0 0 0 ] [ 1 1 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 1 L 0 1 L closepath clip newpath 0 g .005 w [ ] 0 setdash .04545 .72727 m .31818 .5 L s .20277 .59618 m .14923 .61713 L .17251 .64506 L F gsave .16421 .587 -70.9375 -13.8125 Mabsadd m 1 1 Mabs scale currentpoint translate 0 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier-Oblique %%IncludeFont: Courier-Oblique /Courier-Oblique findfont 9.938 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (u) show 1.000 setlinewidth grestore .04545 .27273 m .31818 .5 L s .16087 .3689 m .21441 .38986 L .19113 .41779 L F gsave .19943 .35973 -61 -13.8125 Mabsadd m 1 1 Mabs scale currentpoint translate 0 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier-Oblique %%IncludeFont: Courier-Oblique /Courier-Oblique findfont 9.938 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (u) show 1.000 setlinewidth grestore .95455 .72727 m .68182 .5 L s .83913 .6311 m .78559 .61014 L .80887 .58221 L F gsave .80057 .64027 -71 -4 Mabsadd m 1 1 Mabs scale currentpoint translate 0 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier-Oblique %%IncludeFont: Courier-Oblique /Courier-Oblique findfont 9.938 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (c) show 1.000 setlinewidth grestore .95455 .27273 m .68182 .5 L s .79723 .40382 m .85077 .38287 L .82749 .35494 L F gsave .83579 .413 -61 -4 Mabsadd m 1 1 Mabs scale currentpoint translate 0 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier-Oblique %%IncludeFont: Courier-Oblique /Courier-Oblique findfont 9.938 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (c) show 1.000 setlinewidth grestore .68182 .5 m .67727 .50393 L .67273 .50738 L .66818 .50991 L .66363 .51122 L .65909 .51114 L .65454 .50968 L .65 .50703 L .64545 .50351 L .64091 .49955 L .63636 .49564 L .63182 .49228 L .62727 .48987 L .62273 .48871 L .61818 .48894 L .61364 .49054 L .60909 .49331 L .60455 .4969 L .6 .50088 L .59545 .50474 L .59091 .50802 L .58636 .51031 L .58182 .51131 L .57727 .51092 L .57273 .50918 L .56818 .5063 L .56364 .50264 L .55909 .49865 L .55455 .49482 L .55 .49164 L .54546 .48948 L .54091 .48863 L .53636 .48918 L .53182 .49106 L .52727 .49404 L .52273 .49777 L .51818 .50176 L .51364 .50553 L .50909 .50862 L .50455 .51064 L .5 .51135 L .49545 .51064 L .49091 .50862 L .48636 .50553 L .48182 .50176 L .47727 .49777 L .47273 .49404 L .46818 .49106 L .46364 .48918 L .45909 .48863 L Mistroke .45454 .48948 L .45 .49164 L .44545 .49482 L .44091 .49865 L .43636 .50264 L .43182 .5063 L .42727 .50918 L .42273 .51092 L .41818 .51131 L .41364 .51031 L .40909 .50802 L .40455 .50474 L .4 .50088 L .39545 .4969 L .39091 .49331 L .38636 .49054 L .38182 .48894 L .37727 .48871 L .37273 .48987 L .36818 .49228 L .36364 .49564 L .35909 .49955 L .35455 .50351 L .35 .50703 L .34546 .50968 L .34091 .51114 L .33637 .51122 L .33182 .50991 L .32727 .50738 L .32273 .50393 L .31818 .5 L Mfstroke gsave .5 .45704 -65.9688 -13.8125 Mabsadd m 1 1 Mabs scale currentpoint translate 0 17.8125 translate 1 -1 scale /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 63.000 11.250 moveto %%IncludeResource: font Math1Mono %%IncludeFont: Math1Mono /Math1Mono findfont 9.938 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (g) show 1.000 setlinewidth grestore .04 w .31818 .5 Mdot .68182 .5 Mdot gsave .5 .02273 -79.3125 -4 Mabsadd m 1 1 Mabs scale currentpoint translate 0 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 7.938 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (C1) show 74.562 11.250 moveto (N5) show 86.125 11.250 moveto (T1) show 1.000 setlinewidth grestore MathSubEnd P % End of sub-graphic % Start of sub-graphic p 0.666667 0.333333 1 0.666667 MathSubStart %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.0454545 0.0454545 0.0454545 0.0454545 [ [ 0 0 0 0 ] [ 1 1 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 1 L 0 1 L closepath clip newpath 0 g .005 w [ ] 0 setdash .04545 .72727 m .31818 .5 L s .20277 .59618 m .14923 .61713 L .17251 .64506 L F gsave .16421 .587 -70.9375 -13.8125 Mabsadd m 1 1 Mabs scale currentpoint translate 0 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier-Oblique %%IncludeFont: Courier-Oblique /Courier-Oblique findfont 9.938 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (u) show 1.000 setlinewidth grestore .04545 .27273 m .31818 .5 L s .16087 .3689 m .21441 .38986 L .19113 .41779 L F gsave .19943 .35973 -61 -13.8125 Mabsadd m 1 1 Mabs scale currentpoint translate 0 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier-Oblique %%IncludeFont: Courier-Oblique /Courier-Oblique findfont 9.938 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (u) show 1.000 setlinewidth grestore .95455 .72727 m .68182 .5 L s .83913 .6311 m .78559 .61014 L .80887 .58221 L F gsave .80057 .64027 -71 -4 Mabsadd m 1 1 Mabs scale currentpoint translate 0 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier-Oblique %%IncludeFont: Courier-Oblique /Courier-Oblique findfont 9.938 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (c) show 1.000 setlinewidth grestore .95455 .27273 m .68182 .5 L s .79723 .40382 m .85077 .38287 L .82749 .35494 L F gsave .83579 .413 -61 -4 Mabsadd m 1 1 Mabs scale currentpoint translate 0 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier-Oblique %%IncludeFont: Courier-Oblique /Courier-Oblique findfont 9.938 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (c) show 1.000 setlinewidth grestore .68182 .5 m .67727 .50393 L .67273 .50738 L .66818 .50991 L .66363 .51122 L .65909 .51114 L .65454 .50968 L .65 .50703 L .64545 .50351 L .64091 .49955 L .63636 .49564 L .63182 .49228 L .62727 .48987 L .62273 .48871 L .61818 .48894 L .61364 .49054 L .60909 .49331 L .60455 .4969 L .6 .50088 L .59545 .50474 L .59091 .50802 L .58636 .51031 L .58182 .51131 L .57727 .51092 L .57273 .50918 L .56818 .5063 L .56364 .50264 L .55909 .49865 L .55455 .49482 L .55 .49164 L .54546 .48948 L .54091 .48863 L .53636 .48918 L .53182 .49106 L .52727 .49404 L .52273 .49777 L .51818 .50176 L .51364 .50553 L .50909 .50862 L .50455 .51064 L .5 .51135 L .49545 .51064 L .49091 .50862 L .48636 .50553 L .48182 .50176 L .47727 .49777 L .47273 .49404 L .46818 .49106 L .46364 .48918 L .45909 .48863 L Mistroke .45454 .48948 L .45 .49164 L .44545 .49482 L .44091 .49865 L .43636 .50264 L .43182 .5063 L .42727 .50918 L .42273 .51092 L .41818 .51131 L .41364 .51031 L .40909 .50802 L .40455 .50474 L .4 .50088 L .39545 .4969 L .39091 .49331 L .38636 .49054 L .38182 .48894 L .37727 .48871 L .37273 .48987 L .36818 .49228 L .36364 .49564 L .35909 .49955 L .35455 .50351 L .35 .50703 L .34546 .50968 L .34091 .51114 L .33637 .51122 L .33182 .50991 L .32727 .50738 L .32273 .50393 L .31818 .5 L Mfstroke gsave .5 .45704 -66 -13.8125 Mabsadd m 1 1 Mabs scale currentpoint translate 0 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier-Oblique %%IncludeFont: Courier-Oblique /Courier-Oblique findfont 9.938 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (Z) show 1.000 setlinewidth grestore .04 w .31818 .5 Mdot .68182 .5 Mdot gsave .5 .02273 -79.3125 -4 Mabsadd m 1 1 Mabs scale currentpoint translate 0 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 7.938 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (C2) show 74.562 11.250 moveto (N6) show 86.125 11.250 moveto (T1) show 1.000 setlinewidth grestore MathSubEnd P % End of sub-graphic % Start of sub-graphic p -1.38778e-17 2.41777e-17 0.333333 0.333333 MathSubStart %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.0454545 0.0454545 0.0454545 0.0454545 [ [ 0 0 0 0 ] [ 1 1 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 1 L 0 1 L closepath clip newpath 0 g .005 w [ ] 0 setdash .04545 .72727 m .31818 .5 L s .20277 .59618 m .14923 .61713 L .17251 .64506 L F gsave .16421 .587 -70.9375 -13.8125 Mabsadd m 1 1 Mabs scale currentpoint translate 0 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier-Oblique %%IncludeFont: Courier-Oblique /Courier-Oblique findfont 9.938 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (u) show 1.000 setlinewidth grestore .04545 .27273 m .31818 .5 L s .16087 .3689 m .21441 .38986 L .19113 .41779 L F gsave .19943 .35973 -61 -13.8125 Mabsadd m 1 1 Mabs scale currentpoint translate 0 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier-Oblique %%IncludeFont: Courier-Oblique /Courier-Oblique findfont 9.938 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (u) show 1.000 setlinewidth grestore .95455 .72727 m .68182 .5 L s .83913 .6311 m .78559 .61014 L .80887 .58221 L F gsave .80057 .64027 -71 -4 Mabsadd m 1 1 Mabs scale currentpoint translate 0 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier-Oblique %%IncludeFont: Courier-Oblique /Courier-Oblique findfont 9.938 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (c) show 1.000 setlinewidth grestore .95455 .27273 m .68182 .5 L s .79723 .40382 m .85077 .38287 L .82749 .35494 L F gsave .83579 .413 -61 -4 Mabsadd m 1 1 Mabs scale currentpoint translate 0 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier-Oblique %%IncludeFont: Courier-Oblique /Courier-Oblique findfont 9.938 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (c) show 1.000 setlinewidth grestore .68182 .5 m .67662 .49576 L .67076 .4924 L .6644 .49005 L .65772 .48881 L .65094 .48875 L .64424 .48986 L .63783 .49209 L .63191 .49535 L .62664 .4995 L .62215 .50436 L .61856 .50972 L .61593 .51534 L .61428 .52099 L .61361 .52642 L .61384 .53139 L .61489 .5357 L .61662 .53915 L .61886 .54159 L .62143 .54293 L .62414 .5431 L .62677 .54209 L .62913 .53995 L .63102 .53678 L .63228 .5327 L .63276 .5279 L .63235 .52257 L .63099 .51696 L .62864 .51131 L .62532 .50585 L .62108 .50082 L .61602 .49645 L .61026 .49292 L .60398 .49038 L .59734 .48894 L .59056 .48867 L .58383 .48957 L .57736 .49161 L .57134 .49469 L .56594 .4987 L .5613 .50344 L .55754 .50873 L .55474 .51432 L .55292 .51998 L .55207 .52547 L .55215 .53054 L .55306 .53498 L .55468 .53859 L .55684 .54123 L .55937 .54277 L Mistroke .56207 .54315 L .56473 .54235 L .56715 .54041 L .56914 .53741 L .57052 .53348 L .57115 .52879 L .57091 .52355 L .56972 .51797 L .56754 .5123 L .56439 .50679 L .56031 .50167 L .55539 .49717 L .54975 .49348 L .54354 .49075 L .53696 .48911 L .53019 .48862 L .52343 .48932 L .5169 .49116 L .51079 .49407 L .50526 .49792 L .50048 .50255 L .49656 .50775 L .49358 .51331 L .49158 .51898 L .49057 .52451 L .49049 .52967 L .49126 .53424 L .49276 .53801 L .49484 .54083 L .49732 .54257 L .5 .54316 L .50268 .54257 L .50516 .54083 L .50724 .53801 L .50874 .53424 L .50951 .52967 L .50943 .52451 L .50842 .51898 L .50642 .51331 L .50344 .50775 L .49952 .50255 L .49474 .49792 L .48921 .49407 L .4831 .49116 L .47657 .48932 L .46981 .48862 L .46304 .48911 L .45646 .49075 L .45025 .49348 L .44461 .49717 L Mistroke .43969 .50167 L .43561 .50679 L .43246 .5123 L .43028 .51797 L .42909 .52355 L .42885 .52879 L .42948 .53348 L .43086 .53741 L .43285 .54041 L .43527 .54235 L .43793 .54315 L .44063 .54277 L .44316 .54123 L .44532 .53859 L .44694 .53498 L .44785 .53054 L .44793 .52547 L .44708 .51998 L .44526 .51432 L .44246 .50873 L .4387 .50344 L .43406 .4987 L .42866 .49469 L .42264 .49161 L .41617 .48957 L .40944 .48867 L .40266 .48894 L .39602 .49038 L .38974 .49292 L .38398 .49645 L .37892 .50082 L .37468 .50585 L .37136 .51131 L .36901 .51696 L .36765 .52257 L .36724 .5279 L .36772 .5327 L .36898 .53678 L .37087 .53995 L .37323 .54209 L .37586 .5431 L .37857 .54293 L .38114 .54159 L .38338 .53915 L .38511 .5357 L .38616 .53139 L .38639 .52642 L .38572 .52099 L .38407 .51534 L .38144 .50972 L Mistroke .37785 .50436 L .37336 .4995 L .36809 .49535 L .36217 .49209 L .35576 .48986 L .34906 .48875 L .34228 .48881 L .3356 .49005 L .32924 .4924 L .32338 .49576 L .31818 .5 L Mfstroke gsave .5 .45704 -66.25 -13.8125 Mabsadd m 1 1 Mabs scale currentpoint translate 0 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier-Oblique %%IncludeFont: Courier-Oblique /Courier-Oblique findfont 9.938 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (g) show 1.000 setlinewidth grestore .04 w .31818 .5 Mdot .68182 .5 Mdot gsave .5 .02273 -79.3125 -4 Mabsadd m 1 1 Mabs scale currentpoint translate 0 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 7.938 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (C3) show 74.562 11.250 moveto (N7) show 86.125 11.250 moveto (T1) show 1.000 setlinewidth grestore MathSubEnd P % End of sub-graphic 0 g gsave .36364 1.06 -66.5625 -8.90625 Mabsadd m 1 1 Mabs scale currentpoint translate 0 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier-Oblique %%IncludeFont: Courier-Oblique /Courier-Oblique findfont 11.938 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (u) show 1.000 setlinewidth grestore gsave .43182 1.06 -66.5625 -8.90625 Mabsadd m 1 1 Mabs scale currentpoint translate 0 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier-Oblique %%IncludeFont: Courier-Oblique /Courier-Oblique findfont 11.938 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (u) show 1.000 setlinewidth grestore gsave .5 1.06 -67.875 -8.90625 Mabsadd m 1 1 Mabs scale currentpoint translate 0 17.8125 translate 1 -1 scale /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 63.000 11.250 moveto %%IncludeResource: font Times-Roman %%IncludeFont: Times-Roman %%BeginResource: font Times-Roman-MISO %%BeginFont: Times-Roman-MISO /Times-Roman /Times-Roman-MISO MISOfy %%EndFont %%EndResource %%IncludeResource: font Times-Roman-MISO %%IncludeFont: Times-Roman-MISO /Times-Roman-MISO findfont 11.938 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto %%IncludeResource: font Math1 %%IncludeFont: Math1 /Math1 findfont 11.938 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 63.000 11.250 moveto (\\256) show 72.750 11.250 moveto %%IncludeResource: font Times-Roman-MISO %%IncludeFont: Times-Roman-MISO /Times-Roman-MISO findfont 11.938 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore gsave .56818 1.06 -66.625 -8.90625 Mabsadd m 1 1 Mabs scale currentpoint translate 0 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier-Oblique %%IncludeFont: Courier-Oblique /Courier-Oblique findfont 11.938 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (c) show 1.000 setlinewidth grestore gsave .63636 1.06 -66.625 -8.90625 Mabsadd m 1 1 Mabs scale currentpoint translate 0 17.8125 translate 1 -1 scale 63.000 11.250 moveto %%IncludeResource: font Courier-Oblique %%IncludeFont: Courier-Oblique /Courier-Oblique findfont 11.938 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (c) show 1.000 setlinewidth grestore % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{261.812, 287.938}, ImageMargins->{{42, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgool2000J ool3000Iool3002lool000ooo`<001Ooo`04003ooooo000Hool2002nool0013oo`8001Ooo`05003o ooooool0000Fool00`00ooooo`2nool001;oo`8001Koo`D001Coo`03003ooooo0;ooo`005?oo00<0 0?ooool0:ooo00<00?ooool0`?oo000Eool00`00ooooo`0Yool00`00ooooo`31ool001Koo`03003o oooo02Ooo`03003ooooo00Woo`<00;Koo`005ooo00<00?ooool09?oo0P002ooo00<00?ooool0]ooo 000Hool2000Sool00`00ooooo`0;ool00`00ooooo`2gool001[oo`H00003ool00000008000;oo`@0 0003ool00000008000;oo`@00003ool0000000@000ooo`@00;Goo`006ooo0P000ooo0P000ooo0`00 0_oo0`000_oo0`000ooo0P000ooo0`004_oo00<00?ooool0/ooo0007ool5000>ool00`00ooooo`03 ool20003ool20003ool30003ool20003ool20005ool00`00ooooo`36ool000Ooo`05003oooooool0 000?oo00<00?ooool0^_oo000?oo0P000ooo0`000_oo0P000_oo00@00?oo000000Goo`<0 00;oo`<001coo`007?oo00<00?oo00000_oo00<00?ooool00ooo00@00?ooool000;oo`03003ooooo 00Coo`03003ooooo00;oo`03003ooooo03Ooo`03003oo`0000?oo`03003ooooo00;oo`04003ooooo 0003ool00`00ooooo`03ool00`00ooooo`02ool00`00ooooo`0gool00`00ool00002ool00`00oooo o`03ool02000ooooo`00ool00?oo0005ool00`00ooooo`02ool00`00ooooo`0Kool001coo`<000?o o`03003ooooo00;oo`03003oo`0000D000Goo`03003ooooo00;oo`03003ooooo03Ooo`03003ooooo 00?oo`03003ooooo00;oo`04003oo`000003ool00`00ooooo`03ool00`00ooooo`02ool00`00oooo o`0gool00`00ooooo`03ool00`00ooooo`02ool01@00ool00000ool00`001Ooo00<00?ooool00_oo 00<00?ooool06ooo000Lool00`00ooooo`04ool01000oooooooo0P0000Goo`00003oo`0000Coo`05 003oo`00ool00002ool00`00ooooo`0gool00`00ool00003ool00`00ooooo`02ool200000ooo003o o`020004ool01@00ool00?oo00000_oo00<00?ooool0=ooo00<00?oo00001?oo00@00?ooooooo`80 0004ool00?oo0005ool01@00ool00?oo00000_oo00<00?ooool06ooo000Mool20002ool00`00ool0 0002ool20002ool01000ool000001?oo1@0000?oo`000000>Ooo0P000ooo0P000ooo0P000_oo00<0 0?oo00001Ooo1@0000?oo`000000>Ooo0P000ooo00<00?oo00000_oo0P000_oo00<00?oo00001Ooo 1@0000?oo`0000007Ooo000Rool00`00ooooo`08ool00`00ooooo`09ool00`00ooooo`0mool00`00 ooooo`07ool3000:ool00`00ooooo`0mool00`00ooooo`08ool2000:ool00`00ooooo`0Kool00?oo o`Koo`00oooo1_oo003oool6ool00?ooo`Koo`00oooo1_oo003oool6ool00?ooo`Koo`00oooo1_oo 003oool6ool00?ooo`Koo`00oooo1_oo003oool6ool000?oo`03003ooooo04coo`03003ooooo00Go o`03003ooooo04coo`03003ooooo00Goo`03003ooooo04coo`03003ooooo00;oo`001?oo00<00?oo ool0B_oo00<00?ooool01ooo00<00?ooool0B_oo00<00?ooool01ooo00<00?ooool0B_oo00<00?oo ool00ooo0005ool00`00ooooo`0ool00`00ool000020004ool30004ool30004ool30004 ool300000ooo003oo`0Pool5000>ool00`00ool000020004ool30004ool30004ool30004ool30000 0ooo003oo`0Pool5000>ool00`00ool000020004ool30004ool30004ool30004ool300000ooo003o o`0Iool000Ooo`05003oooooool0000_oo00<00?ooool05ooo0`00>_oo00<00?ooool05ooo0`00>_oo00<00?ooool02ooo000;ool00`00 ooooo`0lool00`00ooooo`0Eool00`00ooooo`0lool00`00ooooo`0Eool00`00ooooo`0lool00`00 ooooo`0:ool000[oo`03003ooooo03koo`03003ooooo01?oo`03003ooooo03koo`03003ooooo01?o o`03003ooooo03koo`03003ooooo00Woo`002Ooo00<00?ooool0@?oo00<00?ooool04Ooo00<00?oo ool0@?oo00<00?ooool04Ooo00<00?ooool0@?oo00<00?ooool02?oo0008ool00`00ooooo`0dool3 000;ool00`00ooooo`0?ool00`00ooooo`0dool3000;ool00`00ooooo`0?ool00`00ooooo`0dool3 000;ool00`00ooooo`07ool000Koo`8003Koo`03003ooooo00goo`8000goo`8003Koo`03003ooooo 00goo`8000goo`8003Koo`03003ooooo00goo`8000Ooo`001Ooo00<00?ooool0=_oo00<00?ooool0 3ooo00<00?ooool02Ooo00<00?ooool0=_oo00<00?ooool03ooo00<00?ooool02Ooo00<00?ooool0 =_oo00<00?ooool03ooo00<00?ooool01?oo0004ool00`00ooooo`0hool4000>ool00`00ooooo`07 ool00`00ooooo`0hool4000>ool00`00ooooo`07ool00`00ooooo`0hool4000>ool00`00ooooo`03 ool000?oo`03003ooooo03coo`03003ooooo00goo`03003ooooo00Goo`03003ooooo03coo`03003o oooo00goo`03003ooooo00Goo`03003ooooo03coo`03003ooooo00goo`03003ooooo00;oo`00oooo 1_oo003oool6ool00?ooo`Koo`00oooo1_oo003oool6ool00?ooo`Koo`00oooo1_oo003oool6ool0 0?ooo`Koo`00oooo1_oo003oool6ool00?ooo`Koo`00oooo1_oo003oool6ool00?ooo`Koo`00oooo 1_oo003oool6ool00?ooo`Koo`00oooo1_oo003oool6ool00?ooo`Koo`00oooo1_oo003oool6ool0 0?ooo`Koo`00oooo1_oo003oool6ool00?ooo`Koo`00oooo1_oo000Mool20002ool30002ool20002 ool00`00ool000020004ool30002ool3000hool20003ool30002ool20002ool00`00ool000020004 ool30002ool3000hool20003ool30002ool20002ool01000ooooo`001Ooo0`000_oo0`007?oo000L ool00`00ool00003ool00`00ooooo`02ool01000ooooo`000_oo00<00?ooool01?oo00<00?ooool0 0_oo00<00?ooool0=ooo00<00?oo00000ooo00<00?ooool00_oo00H00?ooool00?oo0007ool00`00 ooooo`02ool00`00ooooo`0gool00`00ool00002ool00`00ooooo`03ool02000ooooo`00ool00?oo 0005ool00`00ooooo`02ool00`00ooooo`0Kool001coo`<000?oo`03003ooooo00;oo`04003oo`00 0002ool00`00ooooo`04ool00`00ooooo`02ool00`00ooooo`0gool00`00ooooo`03ool00`00oooo o`02ool01000ool000000_oo00<00?ooool01?oo00<00?ooool00_oo00<00?ooool0=ooo00<00?oo ool00ooo00<00?ooool00_oo00@00?oo000000?oo`03003ooooo00?oo`03003ooooo00;oo`03003o oooo01_oo`007?oo00<00?ooool00ooo00<00?ooool00_oo0P0000Goo`00ooooo`0000Coo`05003o o`00ool00002ool00`00ooooo`0gool00`00ool00003ool00`00ooooo`02ool200000ooo003oo`02 ool02@00oooooooo003oo`00ool00002ool00`00ooooo`0gool00`00ool00004ool01000oooooooo 0P0000Coo`00ooooo`8000?oo`05003oo`00ool00002ool00`00ooooo`0Kool001goo`8000;oo`80 00?oo`8000;oo`04003oo`000004ool500000ooo0000000iool20003ool20003ool20002ool01@00 ool00?oo00000ooo1@0000?oo`000000>Ooo0P000ooo00<00?oo00000_oo0P000_oo00D00?oo003o o`0000?oo`D00003ool0000001goo`008_oo00<00?ooool02?oo00<00?ooool02Ooo00<00?ooool0 ?Ooo00<00?ooool02?oo00<00?ooool02Ooo00<00?ooool0?Ooo00<00?ooool02?oo00<00?ooool0 2Ooo00<00?ooool06ooo003oool6ool00?ooo`Koo`00oooo1_oo003oool6ool00?ooo`Koo`00oooo 1_oo003oool6ool00?ooo`Koo`00oooo1_oo003oool6ool00?ooo`Koo`00oooo1_oo0003ool00`00 ooooo`1Ooo00<00?oo00006Ooo0P00>Ooo00<00?oo00006Ooo0P00>Ooo00<0 0?oo00003Ooo000>ool00`00ooooo`0fool2000Lool00`00ooooo`0fool2000Lool00`00ooooo`0f ool2000>ool000koo`@003Coo`<001coo`@003Coo`<001coo`@003Coo`<000koo`003ooo0`005ooo 10006?oo0P007ooo0`005_oo1P005ooo0P007ooo0`005ooo10006?oo0P004?oo000@ool2000Gool0 1@00oooooooo00005_oo00<00?ooool08?oo0P005ooo00@00?ooool001Ooo`03003ooooo023oo`80 01Woo`03003ooooo01Koo`03003ooooo013oo`004_oo0P006Ooo00<00?ooool04ooo00<00?ooool0 8ooo0P005Ooo00@00?ooool001Koo`03003ooooo02?oo`8001Ooo`03003ooooo01Goo`03003ooooo 017oo`005?oo00<00?ooool04ooo0`005Ooo00<00?ooool09_oo00<00?ooool04ooo10005?oo00<0 0?ooool09_oo00<00?ooool05?oo00<00?ooool05?oo00<00?ooool04_oo000Eool00`00ooooo`0B ool01000ooooo`004ooo00<00?ooool0:?oo00<00?ooool04_oo00@00?ooool001?oo`03003ooooo 02Soo`03003ooooo01?oo`03003ooooo01?oo`03003ooooo01?oo`005_oo00<00?ooool04_oo1000 4Ooo00<00?ooool02Ooo0`007_oo00<00?ooool04?oo0`0000?oo`0000004Ooo00<00?ooool02Ooo 0`007_oo00<00?ooool04?oo0`005?oo00<00?ooool02Ooo0`002?oo000Gool00`00ooooo`0Tool2 000;ool00`00ooooo`0Pool00`00ooooo`0Tool2000;ool00`00ooooo`0Pool00`00ooooo`0Aool0 0`00ooooo`0@ool2000;ool00`00ooooo`09ool001Soo`8002?oo`03003ooooo00_oo`03003ooooo 027oo`8002?oo`03003ooooo00_oo`03003ooooo027oo`8002?oo`03003ooooo00_oo`03003ooooo 00Woo`006_oo0`007_oo0P003ooo10008Ooo0`007_oo0P003ooo10008Ooo0`007Ooo0`003ooo1000 1ooo000Kool400000ooo000000020002ool30002ool30002ool400000ooo0000000200001?oo0000 00004_oo00<00?ooool08?oo100000?oo`0000000P0000?oo`0000000P000_oo0`000_oo100000?o o`0000000P0000Coo`00000001;oo`03003ooooo023oo`@00003ool0000000800003ool000000080 00;oo`<000;oo`<000;oo`@00003ool0000001?oo`03003ooooo00Goo`001ooo1@003_oo00<00?oo ool07ooo00<00?ooool07ooo1@003_oo00<00?ooool07ooo00<00?ooool07ooo1@003_oo00<00?oo ool07ooo00<00?ooool06?oo0007ool01@00oooooooo00003?oo0P008ooo00<00?ooool07_oo00D0 0?ooooooo`0000coo`8002?oo`03003ooooo01koo`05003oooooool0000?oo1000 3_oo00<00?ooool01ooo00<00?ooool0>?oo10003_oo00<00?ooool01ooo00<00?ooool0>?oo1000 3_oo00<00?ooool00ooo0003ool00`00ooooo`0lool00`00ooooo`0=ool00`00ooooo`05ool00`00 ooooo`0lool00`00ooooo`0=ool00`00ooooo`05ool00`00ooooo`0lool00`00ooooo`0=ool00`00 ooooo`02ool00?ooo`Koo`00oooo1_oo003oool6ool00?ooo`Koo`00oooo1_oo003oool6ool00?oo o`Koo`00oooo1_oo003oool6ool00?ooo`Koo`00oooo1_oo003oool6ool00?ooo`Koo`00oooo1_oo 003oool6ool00?ooo`Koo`00oooo1_oo003oool6ool00?ooo`Koo`00oooo1_oo003oool6ool00?oo o`Koo`00oooo1_oo003oool6ool00?ooo`Koo`00oooo1_oo003oool6ool00?ooo`Koo`00oooo1_oo 003oool6ool00?ooo`Koo`00oooo1_oo003oool6ool00?ooo`Koo`00oooo1_oo003oool6ool00?oo o`Koo`00GOoo1@003Ooo1@007_oo10003_oo1000GOoo001Mool01@00oooooooo00003Ooo00D00?oo ooooo`0000ooo`03003ooooo00_oo`03003ooooo00ooo`03003ooooo05ooo`00GOoo00D00?oooooo o`0000goo`05003oooooool0000@ool00`00ooooo`0:ool00`00ooooo`0?ool00`00ooooo`1Oool0 05goo`05003oooooool0000=ool01@00oooooooo00002_oo20003?oo00D00?ooooooo`0000goo`05 003oooooool0001Lool005coo`8000;oo`8000coo`8000;oo`80013oo`03003ooooo00coo`@000ko o`@005coo`00Pooo00<00?ooool04?oo00<00?ooool03ooo00<00?ooool0F_oo003oool6ool00?oo o`Koo`00oooo1_oo003oool6ool00?ooo`Koo`00oooo1_oo0000\ \>"], ImageRangeCache->{{{0, 260.812}, {286.938, 0}} -> {-0.000330004, \ -0.00589865, 0.253058, 0.253058}, {{0, 86.9375}, {113, 26.0625}} -> \ {-1.00011, -45.0164, 0.253058, 0.253058}, {{86.9375, 173.875}, {113, \ 26.0625}} -> {-23.0004, -45.0164, 0.253058, 0.253058}, {{173.875, 260.812}, \ {113, 26.0625}} -> {-45.0006, -45.0164, 0.253058, 0.253058}, {{0, 86.9375}, \ {199.938, 113}} -> {-1.00011, -23.0162, 0.253058, 0.253058}, {{86.9375, \ 173.875}, {199.938, 113}} -> {-23.0004, -23.0162, 0.253058, 0.253058}, \ {{173.875, 260.812}, {199.938, 113}} -> {-45.0006, -23.0162, 0.253058, \ 0.253058}, {{0, 86.9375}, {286.875, 199.938}} -> {-1.00011, -1.01593, \ 0.253058, 0.253058}}] }, Open ]], Cell[BoxData[ \(\(ampFA = CreateFeynAmp[aa];\)\)], "Input"], Cell[BoxData[ \(\($FADelta = IndexDelta;\)\)], "Input"], Cell[BoxData[ \(\(ampFC = ampFA // FAToFC[#, FADeltas \[Rule] True] &;\)\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(ampFC[\([1]\)]\)], "Input"], Cell[BoxData[ FormBox[ RowBox[{"-", RowBox[{ FractionBox["1", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "3"]}], "-", SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "4"]}], ")"}], "2"], "-", SubsuperscriptBox["m", TagBox[ StyleBox["\<\"H\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)], "2"]}]], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[CurlyPhi]", "\[NoBreak]", "(", "\[NoBreak]", FormBox[ RowBox[{"-", SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "2"]}], "TraditionalForm"], "\[NoBreak]", ",", "\[NoBreak]", FormBox[ SubscriptBox["m", TagBox[ StyleBox["\<\"u\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)]], "TraditionalForm"], "\[NoBreak]", ")"}], ".", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"\[ImaginaryI]", " ", FormBox["\<\"e\"\>", "TraditionalForm"], " ", SubscriptBox["m", TagBox[ StyleBox["\<\"u\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)]], " ", \(\[Gamma]\^6\)}], RowBox[{"2", " ", SubscriptBox["m", TagBox[ StyleBox["\<\"W\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)]], " ", SubscriptBox["S", TagBox[ StyleBox["\<\"W\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)]]}]]}], "-", FractionBox[ RowBox[{"\[ImaginaryI]", " ", FormBox["\<\"e\"\>", "TraditionalForm"], " ", SubscriptBox["m", TagBox[ StyleBox["\<\"u\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)]], " ", \(\[Gamma]\^7\)}], RowBox[{"2", " ", SubscriptBox["m", TagBox[ StyleBox["\<\"W\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)]], " ", SubscriptBox["S", TagBox[ StyleBox["\<\"W\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)]]}]]}], ")"}], ".", RowBox[{"\[CurlyPhi]", "\[NoBreak]", "(", "\[NoBreak]", FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "1"], "TraditionalForm"], "\[NoBreak]", ",", "\[NoBreak]", FormBox[ SubscriptBox["m", TagBox[ StyleBox["\<\"u\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)]], "TraditionalForm"], "\[NoBreak]", ")"}]}], " ", RowBox[{ RowBox[{"\[CurlyPhi]", "\[NoBreak]", "(", "\[NoBreak]", FormBox[ RowBox[{"-", SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "3"]}], "TraditionalForm"], "\[NoBreak]", ",", "\[NoBreak]", FormBox[ SubscriptBox["m", TagBox[ StyleBox["\<\"c\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)]], "TraditionalForm"], "\[NoBreak]", ")"}], ".", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"\[ImaginaryI]", " ", FormBox["\<\"e\"\>", "TraditionalForm"], " ", SubscriptBox["m", TagBox[ StyleBox["\<\"c\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)]], " ", \(\[Gamma]\^6\)}], RowBox[{"2", " ", SubscriptBox["m", TagBox[ StyleBox["\<\"W\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)]], " ", SubscriptBox["S", TagBox[ StyleBox["\<\"W\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)]]}]]}], "-", FractionBox[ RowBox[{"\[ImaginaryI]", " ", FormBox["\<\"e\"\>", "TraditionalForm"], " ", SubscriptBox["m", TagBox[ StyleBox["\<\"c\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)]], " ", \(\[Gamma]\^7\)}], RowBox[{"2", " ", SubscriptBox["m", TagBox[ StyleBox["\<\"W\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)]], " ", SubscriptBox["S", TagBox[ StyleBox["\<\"W\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)]]}]]}], ")"}], ".", RowBox[{"\[CurlyPhi]", "\[NoBreak]", "(", "\[NoBreak]", FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "4"], "TraditionalForm"], "\[NoBreak]", ",", "\[NoBreak]", FormBox[ SubscriptBox["m", TagBox[ StyleBox["\<\"c\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)]], "TraditionalForm"], "\[NoBreak]", ")"}]}], " ", RowBox[{"IndexDelta", "(", RowBox[{ FormBox[ InterpretationBox[\("Col"\[InvisibleSpace]1\), SequenceForm[ "Col", 1], Editable->False], "TraditionalForm"], ",", FormBox[ InterpretationBox[\("Col"\[InvisibleSpace]2\), SequenceForm[ "Col", 2], Editable->False], "TraditionalForm"]}], ")"}], " ", RowBox[{"IndexDelta", "(", RowBox[{ FormBox[ InterpretationBox[\("Col"\[InvisibleSpace]3\), SequenceForm[ "Col", 3], Editable->False], "TraditionalForm"], ",", FormBox[ InterpretationBox[\("Col"\[InvisibleSpace]4\), SequenceForm[ "Col", 4], Editable->False], "TraditionalForm"]}], ")"}], " ", RowBox[{"SumOver", "(", RowBox[{ FormBox[ InterpretationBox[\("Col"\[InvisibleSpace]1\), SequenceForm[ "Col", 1], Editable->False], "TraditionalForm"], ",", "3", ",", "External"}], ")"}], " ", RowBox[{"SumOver", "(", RowBox[{ FormBox[ InterpretationBox[\("Col"\[InvisibleSpace]2\), SequenceForm[ "Col", 2], Editable->False], "TraditionalForm"], ",", "3", ",", "External"}], ")"}], " ", RowBox[{"SumOver", "(", RowBox[{ FormBox[ InterpretationBox[\("Col"\[InvisibleSpace]3\), SequenceForm[ "Col", 3], Editable->False], "TraditionalForm"], ",", "3", ",", "External"}], ")"}], " ", RowBox[{"SumOver", "(", RowBox[{ FormBox[ InterpretationBox[\("Col"\[InvisibleSpace]4\), SequenceForm[ "Col", 4], Editable->False], "TraditionalForm"], ",", "3", ",", "External"}], ")"}]}], ")"}]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\(\(ampFC[\([1]\)] // Contract\) // DoSumOver\) // Simplify\)], "Input"], Cell[BoxData[ FormBox[ RowBox[{"-", FractionBox[ RowBox[{"9", " ", RowBox[{ RowBox[{"\[CurlyPhi]", "\[NoBreak]", "(", "\[NoBreak]", FormBox[ RowBox[{"-", SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "2"]}], "TraditionalForm"], "\[NoBreak]", ",", "\[NoBreak]", FormBox[ SubscriptBox["m", TagBox[ StyleBox["\<\"u\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)]], "TraditionalForm"], "\[NoBreak]", ")"}], ".", RowBox[{"(", RowBox[{"-", FractionBox[ RowBox[{"\[ImaginaryI]", " ", FormBox["\<\"e\"\>", "TraditionalForm"], " ", SubscriptBox["m", TagBox[ StyleBox["\<\"u\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)]], " ", \((\[Gamma]\^6 + \[Gamma]\^7)\)}], RowBox[{"2", " ", SubscriptBox["m", TagBox[ StyleBox["\<\"W\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)]], " ", SubscriptBox["S", TagBox[ StyleBox["\<\"W\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)]]}]]}], ")"}], ".", RowBox[{"\[CurlyPhi]", "\[NoBreak]", "(", "\[NoBreak]", FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "1"], "TraditionalForm"], "\[NoBreak]", ",", "\[NoBreak]", FormBox[ SubscriptBox["m", TagBox[ StyleBox["\<\"u\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)]], "TraditionalForm"], "\[NoBreak]", ")"}]}], " ", RowBox[{ RowBox[{"\[CurlyPhi]", "\[NoBreak]", "(", "\[NoBreak]", FormBox[ RowBox[{"-", SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "3"]}], "TraditionalForm"], "\[NoBreak]", ",", "\[NoBreak]", FormBox[ SubscriptBox["m", TagBox[ StyleBox["\<\"c\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)]], "TraditionalForm"], "\[NoBreak]", ")"}], ".", RowBox[{"(", RowBox[{"-", FractionBox[ RowBox[{"\[ImaginaryI]", " ", FormBox["\<\"e\"\>", "TraditionalForm"], " ", SubscriptBox["m", TagBox[ StyleBox["\<\"c\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)]], " ", \((\[Gamma]\^6 + \[Gamma]\^7)\)}], RowBox[{"2", " ", SubscriptBox["m", TagBox[ StyleBox["\<\"W\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)]], " ", SubscriptBox["S", TagBox[ StyleBox["\<\"W\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)]]}]]}], ")"}], ".", RowBox[{"\[CurlyPhi]", "\[NoBreak]", "(", "\[NoBreak]", FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "4"], "TraditionalForm"], "\[NoBreak]", ",", "\[NoBreak]", FormBox[ SubscriptBox["m", TagBox[ StyleBox["\<\"c\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)]], "TraditionalForm"], "\[NoBreak]", ")"}]}]}], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "3"]}], "-", SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "4"]}], ")"}], "2"], "-", SubsuperscriptBox["m", TagBox[ StyleBox["\<\"H\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)], "2"]}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(amp = \(\((\(\(\(\(FermionSpinSum[#\ \((ComplexConjugate[#] /. {Colour \ \[Rule] Colour1, Gluon \[Rule] Gluon1})\) /. SpaceTimeDimensions \[Rule] Sequence[] // Expand] /. DiracTrace \[Rule] Tr // DiracSimplify\) // Contract\) // DoSumOver\) // SUNReduce\) // Simplify)\) &\) /@ ampFC\)], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"81", " ", SuperscriptBox[ FormBox["\<\"e\"\>", "TraditionalForm"], "4"], " ", SubsuperscriptBox["m", TagBox[ StyleBox["\<\"c\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)], "2"], " ", SubsuperscriptBox["m", TagBox[ StyleBox["\<\"u\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)], "2"], " ", RowBox[{"(", RowBox[{ SubsuperscriptBox["m", TagBox[ StyleBox["\<\"u\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)], "2"], "-", RowBox[{ FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "1"], "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "2"], "TraditionalForm"]}]}], ")"}], " ", RowBox[{"(", RowBox[{ SubsuperscriptBox["m", TagBox[ StyleBox["\<\"c\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)], "2"], "-", RowBox[{ FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "3"], "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "4"], "TraditionalForm"]}]}], ")"}], " ", SuperscriptBox[ FormBox[ FractionBox["1", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "3"]}], "-", SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "4"]}], ")"}], "2"], "-", SubsuperscriptBox["m", TagBox[ StyleBox["\<\"H\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)], "2"]}]], "TraditionalForm"], "2"]}], RowBox[{ SubsuperscriptBox["m", TagBox[ StyleBox["\<\"W\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)], "4"], " ", SubsuperscriptBox["S", TagBox[ StyleBox["\<\"W\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)], "4"]}]], ",", FractionBox[ RowBox[{"81", " ", SuperscriptBox[ FormBox["\<\"e\"\>", "TraditionalForm"], "4"], " ", SubsuperscriptBox["m", TagBox[ StyleBox["\<\"c\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)], "2"], " ", SubsuperscriptBox["m", TagBox[ StyleBox["\<\"u\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)], "2"], " ", RowBox[{"(", RowBox[{ SubsuperscriptBox["m", TagBox[ StyleBox["\<\"u\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)], "2"], "+", RowBox[{ FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "1"], "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "2"], "TraditionalForm"]}]}], ")"}], " ", RowBox[{"(", RowBox[{ SubsuperscriptBox["m", TagBox[ StyleBox["\<\"c\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)], "2"], "+", RowBox[{ FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "3"], "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "4"], "TraditionalForm"]}]}], ")"}], " ", SuperscriptBox[ FormBox[ FractionBox["1", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "3"]}], "-", SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "4"]}], ")"}], "2"], "-", SubsuperscriptBox["m", TagBox[ StyleBox["\<\"Z\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)], "2"]}]], "TraditionalForm"], "2"]}], RowBox[{ SubsuperscriptBox["m", TagBox[ StyleBox["\<\"W\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)], "4"], " ", SubsuperscriptBox["S", TagBox[ StyleBox["\<\"W\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)], "4"]}]], ",", RowBox[{"512", " ", SuperscriptBox[ FormBox["\<\"e\"\>", "TraditionalForm"], "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SubsuperscriptBox["m", TagBox[ StyleBox["\<\"u\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)], "2"], " ", SubsuperscriptBox["m", TagBox[ StyleBox["\<\"c\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)], "2"]}], "+", RowBox[{ RowBox[{ FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "1"], "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "2"], "TraditionalForm"]}], " ", SubsuperscriptBox["m", TagBox[ StyleBox["\<\"c\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)], "2"]}], "+", RowBox[{ RowBox[{ FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "1"], "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "4"], "TraditionalForm"]}], " ", RowBox[{ FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "2"], "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "3"], "TraditionalForm"]}]}], "+", RowBox[{ RowBox[{ FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "1"], "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "3"], "TraditionalForm"]}], " ", RowBox[{ FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "2"], "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "4"], "TraditionalForm"]}]}], "+", RowBox[{ SubsuperscriptBox["m", TagBox[ StyleBox["\<\"u\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)], "2"], " ", RowBox[{ FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "3"], "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "4"], "TraditionalForm"]}]}]}], ")"}], " ", SuperscriptBox[ FormBox[ FractionBox["1", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "3"]}], "-", SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "4"]}], ")"}], "2"]], "TraditionalForm"], "2"]}], ",", RowBox[{ FractionBox["1", RowBox[{"4", " ", \(CW\^4\), " ", SubsuperscriptBox["S", TagBox[ StyleBox["\<\"W\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)], "4"]}]], RowBox[{"(", RowBox[{ SuperscriptBox[ FormBox["\<\"e\"\>", "TraditionalForm"], "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"4096", " ", SubsuperscriptBox["m", TagBox[ StyleBox["\<\"c\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)], "2"], " ", SubsuperscriptBox["m", TagBox[ StyleBox["\<\"u\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)], "2"], " ", SubsuperscriptBox["S", TagBox[ StyleBox["\<\"W\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)], "8"]}], "+", RowBox[{"2048", " ", SubsuperscriptBox["m", TagBox[ StyleBox["\<\"c\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)], "2"], " ", RowBox[{ FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "1"], "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "2"], "TraditionalForm"]}], " ", SubsuperscriptBox["S", TagBox[ StyleBox["\<\"W\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)], "8"]}], "+", RowBox[{"2048", " ", RowBox[{ FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "1"], "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "4"], "TraditionalForm"]}], " ", RowBox[{ FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "2"], "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "3"], "TraditionalForm"]}], " ", SubsuperscriptBox["S", TagBox[ StyleBox["\<\"W\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)], "8"]}], "+", RowBox[{"2048", " ", RowBox[{ FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "1"], "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "3"], "TraditionalForm"]}], " ", RowBox[{ FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "2"], "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "4"], "TraditionalForm"]}], " ", SubsuperscriptBox["S", TagBox[ StyleBox["\<\"W\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)], "8"]}], "+", RowBox[{"2048", " ", SubsuperscriptBox["m", TagBox[ StyleBox["\<\"u\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)], "2"], " ", RowBox[{ FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "3"], "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "4"], "TraditionalForm"]}], " ", SubsuperscriptBox["S", TagBox[ StyleBox["\<\"W\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)], "8"]}], "-", RowBox[{"6144", " ", SubsuperscriptBox["m", TagBox[ StyleBox["\<\"c\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)], "2"], " ", SubsuperscriptBox["m", TagBox[ StyleBox["\<\"u\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)], "2"], " ", SubsuperscriptBox["S", TagBox[ StyleBox["\<\"W\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)], "6"]}], "-", RowBox[{"768", " ", "\[ImaginaryI]", " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "3"], "TraditionalForm"], "\[NoBreak]", FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "4"], "TraditionalForm"], "\[NoBreak]", FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "1"], "TraditionalForm"], "\[NoBreak]", FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "2"], "TraditionalForm"]}]], " ", SubsuperscriptBox["S", TagBox[ StyleBox["\<\"W\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)], "6"]}], "-", RowBox[{"768", " ", "\[ImaginaryI]", " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "4"], "TraditionalForm"], "\[NoBreak]", FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "3"], "TraditionalForm"], "\[NoBreak]", FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "1"], "TraditionalForm"], "\[NoBreak]", FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "2"], "TraditionalForm"]}]], " ", SubsuperscriptBox["S", TagBox[ StyleBox["\<\"W\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)], "6"]}], "-", RowBox[{"3072", " ", SubsuperscriptBox["m", TagBox[ StyleBox["\<\"c\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)], "2"], " ", RowBox[{ FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "1"], "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "2"], "TraditionalForm"]}], " ", SubsuperscriptBox["S", TagBox[ StyleBox["\<\"W\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)], "6"]}], "-", RowBox[{"3072", " ", RowBox[{ FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "1"], "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "4"], "TraditionalForm"]}], " ", RowBox[{ FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "2"], "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "3"], "TraditionalForm"]}], " ", SubsuperscriptBox["S", TagBox[ StyleBox["\<\"W\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)], "6"]}], "-", RowBox[{"3072", " ", RowBox[{ FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "1"], "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "3"], "TraditionalForm"]}], " ", RowBox[{ FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "2"], "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "4"], "TraditionalForm"]}], " ", SubsuperscriptBox["S", TagBox[ StyleBox["\<\"W\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)], "6"]}], "-", RowBox[{"3072", " ", SubsuperscriptBox["m", TagBox[ StyleBox["\<\"u\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)], "2"], " ", RowBox[{ FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "3"], "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "4"], "TraditionalForm"]}], " ", SubsuperscriptBox["S", TagBox[ StyleBox["\<\"W\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)], "6"]}], "+", RowBox[{"2304", " ", SubsuperscriptBox["m", TagBox[ StyleBox["\<\"c\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)], "2"], " ", SubsuperscriptBox["m", TagBox[ StyleBox["\<\"u\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)], "2"], " ", SubsuperscriptBox["S", TagBox[ StyleBox["\<\"W\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)], "4"]}], "+", RowBox[{"864", " ", "\[ImaginaryI]", " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "3"], "TraditionalForm"], "\[NoBreak]", FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "4"], "TraditionalForm"], "\[NoBreak]", FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "1"], "TraditionalForm"], "\[NoBreak]", FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "2"], "TraditionalForm"]}]], " ", SubsuperscriptBox["S", TagBox[ StyleBox["\<\"W\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)], "4"]}], "+", RowBox[{"864", " ", "\[ImaginaryI]", " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "4"], "TraditionalForm"], "\[NoBreak]", FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "3"], "TraditionalForm"], "\[NoBreak]", FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "1"], "TraditionalForm"], "\[NoBreak]", FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "2"], "TraditionalForm"]}]], " ", SubsuperscriptBox["S", TagBox[ StyleBox["\<\"W\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)], "4"]}], "+", RowBox[{"1728", " ", SubsuperscriptBox["m", TagBox[ StyleBox["\<\"c\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)], "2"], " ", RowBox[{ FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "1"], "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "2"], "TraditionalForm"]}], " ", SubsuperscriptBox["S", TagBox[ StyleBox["\<\"W\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)], "4"]}], "+", RowBox[{"3456", " ", RowBox[{ FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "1"], "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "4"], "TraditionalForm"]}], " ", RowBox[{ FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "2"], "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "3"], "TraditionalForm"]}], " ", SubsuperscriptBox["S", TagBox[ StyleBox["\<\"W\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)], "4"]}], "+", RowBox[{"1152", " ", RowBox[{ FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "1"], "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "3"], "TraditionalForm"]}], " ", RowBox[{ FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "2"], "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "4"], "TraditionalForm"]}], " ", SubsuperscriptBox["S", TagBox[ StyleBox["\<\"W\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)], "4"]}], "+", RowBox[{"1728", " ", SubsuperscriptBox["m", TagBox[ StyleBox["\<\"u\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)], "2"], " ", RowBox[{ FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "3"], "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "4"], "TraditionalForm"]}], " ", SubsuperscriptBox["S", TagBox[ StyleBox["\<\"W\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)], "4"]}], "-", RowBox[{"432", " ", "\[ImaginaryI]", " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "3"], "TraditionalForm"], "\[NoBreak]", FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "4"], "TraditionalForm"], "\[NoBreak]", FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "1"], "TraditionalForm"], "\[NoBreak]", FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "2"], "TraditionalForm"]}]], " ", SubsuperscriptBox["S", TagBox[ StyleBox["\<\"W\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)], "2"]}], "-", RowBox[{"432", " ", "\[ImaginaryI]", " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "4"], "TraditionalForm"], "\[NoBreak]", FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "3"], "TraditionalForm"], "\[NoBreak]", FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "1"], "TraditionalForm"], "\[NoBreak]", FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "2"], "TraditionalForm"]}]], " ", SubsuperscriptBox["S", TagBox[ StyleBox["\<\"W\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)], "2"]}], "-", RowBox[{"432", " ", SubsuperscriptBox["m", TagBox[ StyleBox["\<\"c\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)], "2"], " ", RowBox[{ FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "1"], "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "2"], "TraditionalForm"]}], " ", SubsuperscriptBox["S", TagBox[ StyleBox["\<\"W\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)], "2"]}], "-", RowBox[{"1728", " ", RowBox[{ FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "1"], "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "4"], "TraditionalForm"]}], " ", RowBox[{ FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "2"], "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "3"], "TraditionalForm"]}], " ", SubsuperscriptBox["S", TagBox[ StyleBox["\<\"W\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)], "2"]}], "-", RowBox[{"432", " ", SubsuperscriptBox["m", TagBox[ StyleBox["\<\"u\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)], "2"], " ", RowBox[{ FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "3"], "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "4"], "TraditionalForm"]}], " ", SubsuperscriptBox["S", TagBox[ StyleBox["\<\"W\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)], "2"]}], "+", RowBox[{"3", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"256", " ", SubsuperscriptBox["S", TagBox[ StyleBox["\<\"W\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)], "6"]}], "-", RowBox[{"288", " ", SubsuperscriptBox["S", TagBox[ StyleBox["\<\"W\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)], "4"]}], "+", RowBox[{"144", " ", SubsuperscriptBox["S", TagBox[ StyleBox["\<\"W\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)], "2"]}], "-", "27"}], ")"}], " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "1"], "TraditionalForm"], "\[NoBreak]", FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "2"], "TraditionalForm"], "\[NoBreak]", FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "3"], "TraditionalForm"], "\[NoBreak]", FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "4"], "TraditionalForm"]}]]}], "+", RowBox[{"3", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"256", " ", SubsuperscriptBox["S", TagBox[ StyleBox["\<\"W\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)], "6"]}], "-", RowBox[{"288", " ", SubsuperscriptBox["S", TagBox[ StyleBox["\<\"W\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)], "4"]}], "+", RowBox[{"144", " ", SubsuperscriptBox["S", TagBox[ StyleBox["\<\"W\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)], "2"]}], "-", "27"}], ")"}], " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "2"], "TraditionalForm"], "\[NoBreak]", FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "1"], "TraditionalForm"], "\[NoBreak]", FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "3"], "TraditionalForm"], "\[NoBreak]", FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "4"], "TraditionalForm"]}]]}], "+", RowBox[{"81", " ", "\[ImaginaryI]", " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "3"], "TraditionalForm"], "\[NoBreak]", FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "4"], "TraditionalForm"], "\[NoBreak]", FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "1"], "TraditionalForm"], "\[NoBreak]", FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "2"], "TraditionalForm"]}]]}], "+", RowBox[{"81", " ", "\[ImaginaryI]", " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "4"], "TraditionalForm"], "\[NoBreak]", FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "3"], "TraditionalForm"], "\[NoBreak]", FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "1"], "TraditionalForm"], "\[NoBreak]", FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "2"], "TraditionalForm"]}]]}], "+", RowBox[{"324", " ", RowBox[{ FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "1"], "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "4"], "TraditionalForm"]}], " ", RowBox[{ FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "2"], "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox[ SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "3"], "TraditionalForm"]}]}]}], ")"}], " ", SuperscriptBox[ FormBox[ FractionBox["1", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "3"]}], "-", SubscriptBox[ StyleBox["\<\"p\"\>", FontSlant->"Italic"], "4"]}], ")"}], "2"], "-", SubsuperscriptBox["m", TagBox[ StyleBox["\<\"Z\"\>", FontSlant->"Plain"], (StyleForm[ #, FontSlant -> Plain]&)], "2"]}]], "TraditionalForm"], "2"]}], ")"}]}], ",", "0"}], "}"}], TraditionalForm]], "Output"] }, Open ]] }, FrontEndVersion->"4.1 for X", ScreenRectangle->{{0, 1600}, {0, 1200}}, CellGrouping->Manual, WindowSize->{631, 619}, WindowMargins->{{176, Automatic}, {Automatic, 0}} ] (******************************************************************* 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->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[1705, 50, 114, 2, 56, "Input"], Cell[CellGroupData[{ Cell[1844, 56, 78, 1, 40, "Input"], Cell[1925, 59, 620, 20, 32, "Text"], Cell[2548, 81, 78, 2, 32, "Text"], Cell[2629, 85, 66, 1, 24, "Print"], Cell[2698, 88, 156, 2, 42, "Print"], Cell[2857, 92, 139, 2, 24, "Print"], Cell[2999, 96, 579, 11, 60, "Print"], Cell[3581, 109, 532, 10, 42, "Print"], Cell[4116, 121, 591, 11, 60, "Print"], Cell[4710, 134, 489, 9, 42, "Print"], Cell[5202, 145, 645, 14, 60, "Print"], Cell[5850, 161, 535, 12, 42, "Print"], Cell[6388, 175, 408, 9, 42, "Print"], Cell[6799, 186, 137, 2, 24, "Print"], Cell[6939, 190, 641, 11, 60, "Print"], Cell[7583, 203, 689, 13, 60, "Print"], Cell[8275, 218, 140, 2, 24, "Print"], Cell[8418, 222, 635, 12, 60, "Print"], Cell[9056, 236, 139, 2, 24, "Print"], Cell[9198, 240, 346, 7, 42, "Print"], Cell[9547, 249, 723, 14, 60, "Print"], Cell[10273, 265, 520, 11, 42, "Print"], Cell[10796, 278, 553, 11, 42, "Print"], Cell[11352, 291, 890, 16, 96, "Print"], Cell[12245, 309, 130, 2, 24, "Print"], Cell[12378, 313, 986, 16, 150, "Print"], Cell[13367, 331, 406, 8, 42, "Print"], Cell[13776, 341, 476, 9, 42, "Print"], Cell[14255, 352, 762, 14, 114, "Print"], Cell[15020, 368, 130, 2, 24, "Print"], Cell[15153, 372, 633, 12, 60, "Print"], Cell[15789, 386, 376, 8, 42, "Print"], Cell[16168, 396, 590, 12, 42, "Print"], Cell[16761, 410, 315, 6, 42, "Print"], Cell[17079, 418, 493, 10, 42, "Print"], Cell[17575, 430, 545, 12, 42, "Print"], Cell[18123, 444, 537, 11, 42, "Print"], Cell[18663, 457, 629, 12, 60, "Print"], Cell[19295, 471, 400, 8, 42, "Print"], Cell[19698, 481, 621, 12, 60, "Print"], Cell[20322, 495, 315, 6, 42, "Print"], Cell[20640, 503, 569, 12, 42, "Print"], Cell[21212, 517, 342, 7, 42, "Print"], Cell[21557, 526, 479, 9, 42, "Print"], Cell[22039, 537, 573, 12, 42, "Print"], Cell[22615, 551, 315, 6, 42, "Print"], Cell[22933, 559, 561, 12, 42, "Print"], Cell[23497, 573, 482, 10, 42, "Print"], Cell[23982, 585, 651, 12, 60, "Print"], Cell[24636, 599, 464, 10, 42, "Print"], Cell[25103, 611, 747, 14, 60, "Print"], Cell[25853, 627, 394, 8, 42, "Print"], Cell[26250, 637, 541, 11, 42, "Print"], Cell[26794, 650, 354, 7, 42, "Print"], Cell[27151, 659, 573, 12, 42, "Print"], Cell[27727, 673, 569, 12, 42, "Print"], Cell[28299, 687, 561, 12, 42, "Print"], Cell[28863, 701, 127, 2, 24, "Print"], Cell[28993, 705, 386, 8, 42, "Print"], Cell[29382, 715, 139, 2, 24, "Print"], Cell[29524, 719, 456, 9, 42, "Print"], Cell[29983, 730, 490, 9, 42, "Print"], Cell[30476, 741, 610, 12, 60, "Print"], Cell[31089, 755, 384, 8, 42, "Print"], Cell[31476, 765, 508, 10, 42, "Print"], Cell[31987, 777, 610, 12, 60, "Print"], Cell[32600, 791, 527, 11, 42, "Print"], Cell[33130, 804, 623, 12, 60, "Print"], Cell[33756, 818, 282, 5, 42, "Print"], Cell[34041, 825, 662, 14, 60, "Print"], Cell[34706, 841, 392, 8, 42, "Print"], Cell[35101, 851, 709, 14, 78, "Print"], Cell[35813, 867, 621, 12, 60, "Print"], Cell[36437, 881, 436, 8, 42, "Print"], Cell[36876, 891, 655, 14, 60, "Print"], Cell[37534, 907, 651, 14, 60, "Print"], Cell[38188, 923, 475, 9, 42, "Print"], Cell[38666, 934, 572, 13, 60, "Print"], Cell[39241, 949, 632, 14, 60, "Print"], Cell[39876, 965, 514, 12, 42, "Print"], Cell[40393, 979, 639, 13, 60, "Print"], Cell[41035, 994, 565, 13, 60, "Print"], Cell[41603, 1009, 565, 11, 60, "Print"], Cell[42171, 1022, 555, 13, 60, "Print"], Cell[42729, 1037, 456, 10, 42, "Print"], Cell[43188, 1049, 428, 8, 42, "Print"], Cell[43619, 1059, 534, 12, 60, "Print"], Cell[44156, 1073, 561, 12, 42, "Print"], Cell[44720, 1087, 475, 9, 42, "Print"], Cell[45198, 1098, 404, 8, 42, "Print"], Cell[45605, 1108, 545, 12, 42, "Print"], Cell[46153, 1122, 553, 12, 42, "Print"], Cell[46709, 1136, 609, 12, 60, "Print"], Cell[47321, 1150, 561, 11, 60, "Print"], Cell[47885, 1163, 479, 9, 42, "Print"], Cell[48367, 1174, 469, 9, 42, "Print"], Cell[48839, 1185, 444, 8, 42, "Print"], Cell[49286, 1195, 420, 8, 42, "Print"], Cell[49709, 1205, 139, 2, 24, "Print"], Cell[49851, 1209, 478, 9, 42, "Print"], Cell[50332, 1220, 458, 9, 42, "Print"], Cell[50793, 1231, 448, 8, 42, "Print"], Cell[51244, 1241, 141, 2, 24, "Print"], Cell[51388, 1245, 542, 12, 42, "Print"], Cell[51933, 1259, 444, 8, 42, "Print"], Cell[52380, 1269, 545, 12, 42, "Print"], Cell[52928, 1283, 420, 8, 42, "Print"], Cell[53351, 1293, 420, 8, 42, "Print"], Cell[53774, 1303, 428, 8, 42, "Print"], Cell[54205, 1313, 319, 6, 42, "Print"], Cell[54527, 1321, 448, 8, 42, "Print"], Cell[54978, 1331, 528, 11, 42, "Print"], Cell[55509, 1344, 556, 10, 60, "Print"], Cell[56068, 1356, 137, 2, 24, "Print"], Cell[56208, 1360, 532, 11, 42, "Print"], Cell[56743, 1373, 532, 11, 42, "Print"], Cell[57278, 1386, 627, 11, 60, "Print"], Cell[57908, 1399, 549, 12, 42, "Print"], Cell[58460, 1413, 545, 12, 42, "Print"], Cell[59008, 1427, 342, 7, 42, "Print"], Cell[59353, 1436, 528, 11, 42, "Print"], Cell[59884, 1449, 408, 8, 42, "Print"], Cell[60295, 1459, 358, 7, 42, "Print"], Cell[60656, 1468, 610, 14, 42, "Print"], Cell[61269, 1484, 139, 2, 24, "Print"], Cell[61411, 1488, 641, 12, 60, "Print"], Cell[62055, 1502, 547, 11, 42, "Print"], Cell[62605, 1515, 553, 12, 42, "Print"], Cell[63161, 1529, 592, 13, 42, "Print"], Cell[63756, 1544, 553, 12, 42, "Print"], Cell[64312, 1558, 592, 13, 42, "Print"], Cell[64907, 1573, 557, 12, 42, "Print"], Cell[65467, 1587, 561, 12, 42, "Print"], Cell[66031, 1601, 569, 12, 42, "Print"], Cell[66603, 1615, 557, 12, 42, "Print"], Cell[67163, 1629, 592, 13, 42, "Print"], Cell[67758, 1644, 600, 13, 42, "Print"], Cell[68361, 1659, 557, 12, 42, "Print"], Cell[68921, 1673, 592, 13, 42, "Print"], Cell[69516, 1688, 557, 12, 42, "Print"], Cell[70076, 1702, 565, 12, 42, "Print"], Cell[70644, 1716, 553, 12, 42, "Print"], Cell[71200, 1730, 557, 12, 42, "Print"], Cell[71760, 1744, 557, 12, 42, "Print"], Cell[72320, 1758, 565, 12, 42, "Print"], Cell[72888, 1772, 549, 12, 42, "Print"], Cell[73440, 1786, 557, 12, 42, "Print"], Cell[74000, 1800, 557, 12, 42, "Print"], Cell[74560, 1814, 561, 12, 42, "Print"], Cell[75124, 1828, 569, 12, 42, "Print"], Cell[75696, 1842, 569, 12, 42, "Print"], Cell[76268, 1856, 588, 13, 42, "Print"], Cell[76859, 1871, 565, 12, 42, "Print"], Cell[77427, 1885, 565, 12, 42, "Print"], Cell[77995, 1899, 557, 12, 42, "Print"], Cell[78555, 1913, 565, 12, 42, "Print"], Cell[79123, 1927, 557, 12, 42, "Print"], Cell[79683, 1941, 565, 12, 42, "Print"], Cell[80251, 1955, 561, 12, 42, "Print"], Cell[80815, 1969, 561, 12, 42, "Print"], Cell[81379, 1983, 557, 12, 42, "Print"], Cell[81939, 1997, 573, 12, 42, "Print"], Cell[82515, 2011, 596, 13, 42, "Print"], Cell[83114, 2026, 549, 12, 42, "Print"], Cell[83666, 2040, 549, 12, 42, "Print"], Cell[84218, 2054, 557, 12, 42, "Print"], Cell[84778, 2068, 553, 12, 42, "Print"], Cell[85334, 2082, 557, 12, 42, "Print"], Cell[85894, 2096, 557, 12, 42, "Print"], Cell[86454, 2110, 561, 12, 42, "Print"], Cell[87018, 2124, 549, 12, 42, "Print"], Cell[87570, 2138, 549, 12, 42, "Print"], Cell[88122, 2152, 561, 12, 42, "Print"], Cell[88686, 2166, 549, 12, 42, "Print"], Cell[89238, 2180, 549, 12, 42, "Print"], Cell[89790, 2194, 557, 12, 42, "Print"], Cell[90350, 2208, 557, 12, 42, "Print"], Cell[90910, 2222, 565, 12, 42, "Print"], Cell[91478, 2236, 561, 12, 42, "Print"], Cell[92042, 2250, 561, 12, 42, "Print"], Cell[92606, 2264, 557, 12, 42, "Print"], Cell[93166, 2278, 573, 12, 42, "Print"], Cell[93742, 2292, 557, 12, 42, "Print"], Cell[94302, 2306, 549, 12, 42, "Print"], Cell[94854, 2320, 557, 12, 42, "Print"], Cell[95414, 2334, 549, 12, 42, "Print"], Cell[95966, 2348, 553, 12, 42, "Print"], Cell[96522, 2362, 557, 12, 42, "Print"], Cell[97082, 2376, 557, 12, 42, "Print"], Cell[97642, 2390, 557, 12, 42, "Print"], Cell[98202, 2404, 557, 12, 42, "Print"], Cell[98762, 2418, 557, 12, 42, "Print"], Cell[99322, 2432, 565, 12, 42, "Print"], Cell[99890, 2446, 557, 12, 42, "Print"], Cell[100450, 2460, 557, 12, 42, "Print"], Cell[101010, 2474, 557, 12, 42, "Print"], Cell[101570, 2488, 557, 12, 42, "Print"], Cell[102130, 2502, 557, 12, 42, "Print"], Cell[102690, 2516, 565, 12, 42, "Print"], Cell[103258, 2530, 557, 12, 42, "Print"], Cell[103818, 2544, 553, 12, 42, "Print"], Cell[104374, 2558, 553, 12, 42, "Print"], Cell[104930, 2572, 553, 12, 42, "Print"], Cell[105486, 2586, 561, 12, 42, "Print"], Cell[106050, 2600, 557, 12, 42, "Print"], Cell[106610, 2614, 557, 12, 42, "Print"], Cell[107170, 2628, 553, 12, 42, "Print"], Cell[107726, 2642, 553, 12, 42, "Print"], Cell[108282, 2656, 557, 12, 42, "Print"], Cell[108842, 2670, 557, 12, 42, "Print"], Cell[109402, 2684, 557, 12, 42, "Print"], Cell[109962, 2698, 557, 12, 42, "Print"], Cell[110522, 2712, 565, 12, 42, "Print"], Cell[111090, 2726, 557, 12, 42, "Print"], Cell[111650, 2740, 557, 12, 42, "Print"], Cell[112210, 2754, 557, 12, 42, "Print"], Cell[112770, 2768, 565, 12, 42, "Print"], Cell[113338, 2782, 549, 12, 42, "Print"], Cell[113890, 2796, 549, 12, 42, "Print"], Cell[114442, 2810, 549, 12, 42, "Print"], Cell[114994, 2824, 557, 12, 42, "Print"], Cell[115554, 2838, 549, 12, 42, "Print"], Cell[116106, 2852, 549, 12, 42, "Print"], Cell[116658, 2866, 557, 12, 42, "Print"], Cell[117218, 2880, 549, 12, 42, "Print"], Cell[117770, 2894, 549, 12, 42, "Print"], Cell[118322, 2908, 549, 12, 42, "Print"], Cell[118874, 2922, 557, 12, 42, "Print"], Cell[119434, 2936, 553, 12, 42, "Print"], Cell[119990, 2950, 557, 12, 42, "Print"], Cell[120550, 2964, 557, 12, 42, "Print"], Cell[121110, 2978, 553, 12, 42, "Print"], Cell[121666, 2992, 557, 12, 42, "Print"], Cell[122226, 3006, 557, 12, 42, "Print"], Cell[122786, 3020, 557, 12, 42, "Print"], Cell[123346, 3034, 565, 12, 42, "Print"], Cell[123914, 3048, 458, 9, 42, "Print"], Cell[124375, 3059, 557, 12, 42, "Print"], Cell[124935, 3073, 557, 12, 42, "Print"], Cell[125495, 3087, 557, 12, 42, "Print"], Cell[126055, 3101, 565, 12, 42, "Print"], Cell[126623, 3115, 557, 12, 42, "Print"], Cell[127183, 3129, 557, 12, 42, "Print"], Cell[127743, 3143, 557, 12, 42, "Print"], Cell[128303, 3157, 448, 8, 42, "Print"], Cell[128754, 3167, 549, 12, 42, "Print"], Cell[129306, 3181, 549, 12, 42, "Print"], Cell[129858, 3195, 549, 12, 42, "Print"], Cell[130410, 3209, 557, 12, 42, "Print"], Cell[130970, 3223, 549, 12, 42, "Print"], Cell[131522, 3237, 549, 12, 42, "Print"], Cell[132074, 3251, 553, 12, 42, "Print"], Cell[132630, 3265, 524, 10, 60, "Print"], Cell[133157, 3277, 480, 10, 42, "Print"], Cell[133640, 3289, 552, 10, 60, "Print"], Cell[134195, 3301, 524, 10, 60, "Print"], Cell[134722, 3313, 502, 9, 42, "Print"], Cell[135227, 3324, 571, 11, 42, "Print"], Cell[135801, 3337, 466, 9, 42, "Print"], Cell[136270, 3348, 416, 8, 42, "Print"], Cell[136689, 3358, 590, 12, 42, "Print"], Cell[137282, 3372, 511, 10, 42, "Print"], Cell[137796, 3384, 140, 2, 24, "Print"], Cell[137939, 3388, 136, 2, 24, "Print"], Cell[138078, 3392, 406, 8, 42, "Print"], Cell[138487, 3402, 376, 8, 42, "Print"], Cell[138866, 3412, 376, 8, 42, "Print"], Cell[139245, 3422, 551, 12, 42, "Print"], Cell[139799, 3436, 551, 12, 42, "Print"], Cell[140353, 3450, 555, 12, 42, "Print"], Cell[140911, 3464, 540, 12, 42, "Print"], Cell[141454, 3478, 540, 12, 42, "Print"], Cell[141997, 3492, 134, 2, 24, "Print"], Cell[142134, 3496, 541, 11, 42, "Print"], Cell[142678, 3509, 396, 8, 42, "Print"], Cell[143077, 3519, 396, 8, 42, "Print"], Cell[143476, 3529, 456, 8, 42, "Print"], Cell[143935, 3539, 456, 8, 42, "Print"], Cell[144394, 3549, 315, 6, 42, "Print"], Cell[144712, 3557, 315, 6, 42, "Print"], Cell[145030, 3565, 315, 6, 42, "Print"], Cell[145348, 3573, 315, 6, 42, "Print"], Cell[145666, 3581, 315, 6, 42, "Print"], Cell[145984, 3589, 315, 6, 42, "Print"], Cell[146302, 3597, 315, 6, 42, "Print"], Cell[146620, 3605, 315, 6, 42, "Print"], Cell[146938, 3613, 315, 6, 42, "Print"], Cell[147256, 3621, 315, 6, 42, "Print"], Cell[147574, 3629, 315, 6, 42, "Print"], Cell[147892, 3637, 315, 6, 42, "Print"], Cell[148210, 3645, 315, 6, 42, "Print"], Cell[148528, 3653, 520, 10, 60, "Print"], Cell[149051, 3665, 520, 10, 60, "Print"], Cell[149574, 3677, 520, 10, 60, "Print"], Cell[150097, 3689, 419, 9, 42, "Print"], Cell[150519, 3700, 520, 10, 60, "Print"], Cell[151042, 3712, 520, 10, 60, "Print"], Cell[151565, 3724, 419, 9, 42, "Print"], Cell[151987, 3735, 520, 10, 60, "Print"], Cell[152510, 3747, 520, 10, 60, "Print"], Cell[153033, 3759, 516, 10, 60, "Print"], Cell[153552, 3771, 504, 9, 42, "Print"], Cell[154059, 3782, 504, 9, 42, "Print"], Cell[154566, 3793, 604, 12, 60, "Print"], Cell[155173, 3807, 504, 9, 42, "Print"], Cell[155680, 3818, 504, 9, 42, "Print"], Cell[156187, 3829, 472, 9, 42, "Print"], Cell[156662, 3840, 504, 9, 42, "Print"], Cell[157169, 3851, 600, 12, 60, "Print"], Cell[157772, 3865, 504, 9, 42, "Print"], Cell[158279, 3876, 600, 12, 60, "Print"], Cell[158882, 3890, 553, 11, 42, "Print"], Cell[159438, 3903, 549, 11, 42, "Print"], Cell[159990, 3916, 573, 11, 60, "Print"], Cell[160566, 3929, 577, 11, 60, "Print"], Cell[161146, 3942, 577, 11, 60, "Print"], Cell[161726, 3955, 557, 11, 42, "Print"], Cell[162286, 3968, 577, 11, 60, "Print"], Cell[162866, 3981, 549, 11, 42, "Print"], Cell[163418, 3994, 549, 11, 42, "Print"], Cell[163970, 4007, 553, 11, 42, "Print"], Cell[164526, 4020, 557, 11, 42, "Print"], Cell[165086, 4033, 553, 11, 42, "Print"], Cell[165642, 4046, 600, 12, 60, "Print"], Cell[166245, 4060, 569, 11, 60, "Print"], Cell[166817, 4073, 569, 11, 60, "Print"], Cell[167389, 4086, 557, 11, 42, "Print"], Cell[167949, 4099, 561, 11, 60, "Print"], Cell[168513, 4112, 592, 12, 60, "Print"], Cell[169108, 4126, 577, 11, 60, "Print"], Cell[169688, 4139, 639, 12, 60, "Print"], Cell[170330, 4153, 635, 12, 60, "Print"], Cell[170968, 4167, 541, 11, 42, "Print"], Cell[171512, 4180, 531, 10, 42, "Print"], Cell[172046, 4192, 136, 2, 24, "Print"], Cell[172185, 4196, 480, 9, 42, "Print"], Cell[172668, 4207, 589, 12, 42, "Print"], Cell[173260, 4221, 475, 9, 42, "Print"], Cell[173738, 4232, 475, 9, 42, "Print"], Cell[174216, 4243, 553, 12, 42, "Print"], Cell[174772, 4257, 532, 11, 42, "Print"], Cell[175307, 4270, 543, 11, 42, "Print"], Cell[175853, 4283, 545, 12, 42, "Print"], Cell[176401, 4297, 545, 12, 42, "Print"], Cell[176949, 4311, 633, 12, 60, "Print"], Cell[177585, 4325, 542, 12, 42, "Print"], Cell[178130, 4339, 547, 11, 42, "Print"], Cell[178680, 4352, 546, 12, 42, "Print"], Cell[179229, 4366, 542, 12, 42, "Print"], Cell[179774, 4380, 629, 12, 60, "Print"], Cell[180406, 4394, 546, 12, 42, "Print"], Cell[180955, 4408, 546, 12, 42, "Print"], Cell[181504, 4422, 555, 11, 42, "Print"], Cell[182062, 4435, 550, 12, 42, "Print"], Cell[182615, 4449, 545, 12, 42, "Print"], Cell[183163, 4463, 543, 11, 42, "Print"], Cell[183709, 4476, 542, 12, 42, "Print"], Cell[184254, 4490, 542, 12, 42, "Print"], Cell[184799, 4504, 641, 12, 60, "Print"], Cell[185443, 4518, 546, 12, 42, "Print"], Cell[185992, 4532, 645, 12, 60, "Print"], Cell[186640, 4546, 545, 12, 42, "Print"], Cell[187188, 4560, 542, 12, 42, "Print"], Cell[187733, 4574, 577, 12, 42, "Print"], Cell[188313, 4588, 573, 12, 42, "Print"], Cell[188889, 4602, 612, 12, 60, "Print"], Cell[189504, 4616, 600, 12, 60, "Print"], Cell[190107, 4630, 627, 14, 60, "Print"], Cell[190737, 4646, 639, 14, 60, "Print"], Cell[191379, 4662, 639, 14, 60, "Print"], Cell[192021, 4678, 643, 14, 60, "Print"], Cell[192667, 4694, 631, 14, 60, "Print"], Cell[193301, 4710, 627, 14, 60, "Print"], Cell[193931, 4726, 600, 12, 60, "Print"], Cell[194534, 4740, 604, 12, 60, "Print"], Cell[195141, 4754, 616, 12, 60, "Print"], Cell[195760, 4768, 612, 12, 60, "Print"], Cell[196375, 4782, 623, 14, 60, "Print"], Cell[197001, 4798, 600, 12, 60, "Print"], Cell[197604, 4812, 600, 12, 60, "Print"], Cell[198207, 4826, 577, 11, 60, "Print"], Cell[198787, 4839, 592, 12, 60, "Print"], Cell[199382, 4853, 611, 12, 60, "Print"], Cell[199996, 4867, 616, 12, 60, "Print"], Cell[200615, 4881, 627, 12, 60, "Print"], Cell[201245, 4895, 573, 11, 60, "Print"], Cell[201821, 4908, 553, 11, 42, "Print"], Cell[202377, 4921, 549, 11, 42, "Print"], Cell[202929, 4934, 612, 12, 60, "Print"], Cell[203544, 4948, 575, 12, 42, "Print"], Cell[204122, 4962, 689, 14, 60, "Print"], Cell[204814, 4978, 612, 12, 60, "Print"], Cell[205429, 4992, 575, 12, 42, "Print"], Cell[206007, 5006, 545, 11, 42, "Print"], Cell[206555, 5019, 621, 13, 60, "Print"], Cell[207179, 5034, 545, 11, 42, "Print"], Cell[207727, 5047, 621, 13, 60, "Print"], Cell[208351, 5062, 545, 11, 42, "Print"], Cell[208899, 5075, 617, 13, 60, "Print"], Cell[209519, 5090, 596, 12, 60, "Print"], Cell[210118, 5104, 596, 12, 60, "Print"], Cell[210717, 5118, 655, 12, 60, "Print"], Cell[211375, 5132, 573, 11, 60, "Print"], Cell[211951, 5145, 573, 11, 60, "Print"], Cell[212527, 5158, 612, 12, 60, "Print"], Cell[213142, 5172, 616, 12, 60, "Print"], Cell[213761, 5186, 600, 12, 60, "Print"], Cell[214364, 5200, 596, 12, 60, "Print"], Cell[214963, 5214, 557, 11, 42, "Print"], Cell[215523, 5227, 553, 11, 42, "Print"], Cell[216079, 5240, 600, 12, 60, "Print"], Cell[216682, 5254, 596, 12, 60, "Print"], Cell[217281, 5268, 557, 11, 42, "Print"], Cell[217841, 5281, 553, 11, 42, "Print"], Cell[218397, 5294, 596, 12, 60, "Print"], Cell[218996, 5308, 596, 12, 60, "Print"], Cell[219595, 5322, 624, 13, 60, "Print"], Cell[220222, 5337, 741, 14, 60, "Print"], Cell[220966, 5353, 741, 14, 60, "Print"], Cell[221710, 5369, 557, 11, 42, "Print"], Cell[222270, 5382, 561, 11, 60, "Print"], Cell[222834, 5395, 557, 11, 42, "Print"], Cell[223394, 5408, 561, 11, 60, "Print"], Cell[223958, 5421, 529, 11, 42, "Print"], Cell[224490, 5434, 663, 14, 60, "Print"], Cell[225156, 5450, 611, 12, 60, "Print"], Cell[225770, 5464, 667, 14, 60, "Print"], Cell[226440, 5480, 612, 12, 60, "Print"], Cell[227055, 5494, 663, 14, 60, "Print"], Cell[227721, 5510, 612, 12, 60, "Print"], Cell[228336, 5524, 671, 14, 60, "Print"], Cell[229010, 5540, 616, 12, 60, "Print"], Cell[229629, 5554, 647, 14, 60, "Print"], Cell[230279, 5570, 561, 11, 60, "Print"], Cell[230843, 5583, 641, 13, 60, "Print"], Cell[231487, 5598, 623, 12, 60, "Print"], Cell[232113, 5612, 573, 11, 60, "Print"], Cell[232689, 5625, 663, 14, 60, "Print"], Cell[233355, 5641, 667, 14, 60, "Print"], Cell[234025, 5657, 671, 14, 60, "Print"], Cell[234699, 5673, 577, 11, 60, "Print"], Cell[235279, 5686, 596, 12, 60, "Print"], Cell[235878, 5700, 596, 12, 60, "Print"], Cell[236477, 5714, 596, 12, 60, "Print"], Cell[237076, 5728, 596, 12, 60, "Print"], Cell[237675, 5742, 596, 12, 60, "Print"], Cell[238274, 5756, 596, 12, 60, "Print"], Cell[238873, 5770, 596, 12, 60, "Print"], Cell[239472, 5784, 615, 12, 60, "Print"], Cell[240090, 5798, 619, 12, 60, "Print"], Cell[240712, 5812, 619, 12, 60, "Print"], Cell[241334, 5826, 615, 12, 60, "Print"], Cell[241952, 5840, 618, 13, 60, "Print"], Cell[242573, 5855, 618, 13, 60, "Print"], Cell[243194, 5870, 618, 13, 60, "Print"], Cell[243815, 5885, 618, 13, 60, "Print"], Cell[244436, 5900, 618, 13, 60, "Print"], Cell[245057, 5915, 618, 13, 60, "Print"], Cell[245678, 5930, 627, 12, 60, "Print"], Cell[246308, 5944, 627, 12, 60, "Print"], Cell[246938, 5958, 623, 12, 60, "Print"], Cell[247564, 5972, 623, 12, 60, "Print"], Cell[248190, 5986, 623, 12, 60, "Print"], Cell[248816, 6000, 623, 12, 60, "Print"], Cell[249442, 6014, 655, 14, 60, "Print"], Cell[250100, 6030, 655, 14, 60, "Print"], Cell[250758, 6046, 619, 12, 60, "Print"], Cell[251380, 6060, 623, 12, 60, "Print"], Cell[252006, 6074, 623, 12, 60, "Print"], Cell[252632, 6088, 619, 12, 60, "Print"], Cell[253254, 6102, 600, 12, 60, "Print"], Cell[253857, 6116, 600, 12, 60, "Print"], Cell[254460, 6130, 565, 11, 60, "Print"], Cell[255028, 6143, 565, 11, 60, "Print"], Cell[255596, 6156, 565, 11, 60, "Print"], Cell[256164, 6169, 565, 11, 60, "Print"], Cell[256732, 6182, 600, 12, 60, "Print"], Cell[257335, 6196, 600, 12, 60, "Print"], Cell[257938, 6210, 652, 13, 60, "Print"], Cell[258593, 6225, 648, 13, 60, "Print"], Cell[259244, 6240, 652, 13, 60, "Print"], Cell[259899, 6255, 648, 13, 60, "Print"], Cell[260550, 6270, 577, 11, 60, "Print"], Cell[261130, 6283, 577, 11, 60, "Print"], Cell[261710, 6296, 577, 11, 60, "Print"], Cell[262290, 6309, 573, 11, 60, "Print"], Cell[262866, 6322, 615, 12, 60, "Print"], Cell[263484, 6336, 611, 12, 60, "Print"], Cell[264098, 6350, 615, 12, 60, "Print"], Cell[264716, 6364, 611, 12, 60, "Print"], Cell[265330, 6378, 627, 12, 60, "Print"], Cell[265960, 6392, 627, 12, 60, "Print"], Cell[266590, 6406, 627, 12, 60, "Print"], Cell[267220, 6420, 627, 12, 60, "Print"], Cell[267850, 6434, 561, 11, 60, "Print"], Cell[268414, 6447, 557, 11, 60, "Print"], Cell[268974, 6460, 561, 11, 60, "Print"], Cell[269538, 6473, 557, 11, 60, "Print"], Cell[270098, 6486, 616, 12, 60, "Print"], Cell[270717, 6500, 616, 12, 60, "Print"], Cell[271336, 6514, 616, 12, 60, "Print"], Cell[271955, 6528, 616, 12, 60, "Print"], Cell[272574, 6542, 631, 12, 60, "Print"], Cell[273208, 6556, 631, 12, 60, "Print"], Cell[273842, 6570, 627, 12, 60, "Print"], Cell[274472, 6584, 627, 12, 60, "Print"], Cell[275102, 6598, 627, 12, 60, "Print"], Cell[275732, 6612, 627, 12, 60, "Print"], Cell[276362, 6626, 659, 14, 60, "Print"], Cell[277024, 6642, 659, 14, 60, "Print"], Cell[277686, 6658, 600, 12, 60, "Print"], Cell[278289, 6672, 549, 11, 42, "Print"], Cell[278841, 6685, 549, 11, 42, "Print"], Cell[279393, 6698, 612, 12, 60, "Print"], Cell[280008, 6712, 619, 12, 60, "Print"], Cell[280630, 6726, 615, 12, 60, "Print"], Cell[281248, 6740, 619, 12, 60, "Print"], Cell[281870, 6754, 615, 12, 60, "Print"], Cell[282488, 6768, 619, 12, 60, "Print"], Cell[283110, 6782, 615, 12, 60, "Print"], Cell[283728, 6796, 619, 12, 60, "Print"], Cell[284350, 6810, 615, 12, 60, "Print"], Cell[284968, 6824, 611, 12, 60, "Print"], Cell[285582, 6838, 611, 12, 60, "Print"], Cell[286196, 6852, 611, 12, 60, "Print"], Cell[286810, 6866, 611, 12, 60, "Print"], Cell[287424, 6880, 611, 12, 60, "Print"], Cell[288038, 6894, 611, 12, 60, "Print"], Cell[288652, 6908, 611, 12, 60, "Print"], Cell[289266, 6922, 616, 12, 60, "Print"], Cell[289885, 6936, 552, 10, 60, "Print"], Cell[290440, 6948, 568, 10, 60, "Print"], Cell[291011, 6960, 432, 9, 42, "Print"], Cell[291446, 6971, 548, 10, 60, "Print"], Cell[291997, 6983, 548, 10, 60, "Print"], Cell[292548, 6995, 419, 9, 42, "Print"], Cell[292970, 7006, 548, 10, 60, "Print"], Cell[293521, 7018, 133, 2, 24, "Print"], Cell[293657, 7022, 541, 11, 42, "Print"], Cell[294201, 7035, 396, 8, 42, "Print"], Cell[294600, 7045, 396, 8, 42, "Print"], Cell[294999, 7055, 396, 8, 42, "Print"], Cell[295398, 7065, 396, 8, 42, "Print"], Cell[295797, 7075, 315, 6, 42, "Print"], Cell[296115, 7083, 315, 6, 42, "Print"], Cell[296433, 7091, 315, 6, 42, "Print"], Cell[296751, 7099, 315, 6, 42, "Print"], Cell[297069, 7107, 315, 6, 42, "Print"], Cell[297387, 7115, 315, 6, 42, "Print"], Cell[297705, 7123, 315, 6, 42, "Print"], Cell[298023, 7131, 315, 6, 42, "Print"], Cell[298341, 7139, 315, 6, 42, "Print"], Cell[298659, 7147, 315, 6, 42, "Print"], Cell[298977, 7155, 315, 6, 42, "Print"], Cell[299295, 7163, 315, 6, 42, "Print"], Cell[299613, 7171, 315, 6, 42, "Print"], Cell[299931, 7179, 520, 10, 60, "Print"], Cell[300454, 7191, 520, 10, 60, "Print"], Cell[300977, 7203, 520, 10, 60, "Print"], Cell[301500, 7215, 419, 9, 42, "Print"], Cell[301922, 7226, 520, 10, 60, "Print"], Cell[302445, 7238, 520, 10, 60, "Print"], Cell[302968, 7250, 419, 9, 42, "Print"], Cell[303390, 7261, 520, 10, 60, "Print"], Cell[303913, 7273, 520, 10, 60, "Print"], Cell[304436, 7285, 516, 10, 60, "Print"], Cell[304955, 7297, 504, 9, 42, "Print"], Cell[305462, 7308, 504, 9, 42, "Print"], Cell[305969, 7319, 604, 12, 60, "Print"], Cell[306576, 7333, 504, 9, 42, "Print"], Cell[307083, 7344, 504, 9, 42, "Print"], Cell[307590, 7355, 472, 9, 42, "Print"], Cell[308065, 7366, 504, 9, 42, "Print"], Cell[308572, 7377, 600, 12, 60, "Print"], Cell[309175, 7391, 504, 9, 42, "Print"], Cell[309682, 7402, 600, 12, 60, "Print"], Cell[310285, 7416, 553, 11, 42, "Print"], Cell[310841, 7429, 549, 11, 42, "Print"], Cell[311393, 7442, 573, 11, 60, "Print"], Cell[311969, 7455, 577, 11, 60, "Print"], Cell[312549, 7468, 577, 11, 60, "Print"], Cell[313129, 7481, 557, 11, 42, "Print"], Cell[313689, 7494, 577, 11, 60, "Print"], Cell[314269, 7507, 549, 11, 42, "Print"], Cell[314821, 7520, 549, 11, 42, "Print"], Cell[315373, 7533, 553, 11, 42, "Print"], Cell[315929, 7546, 557, 11, 42, "Print"], Cell[316489, 7559, 553, 11, 42, "Print"], Cell[317045, 7572, 600, 12, 60, "Print"], Cell[317648, 7586, 569, 11, 60, "Print"], Cell[318220, 7599, 569, 11, 60, "Print"], Cell[318792, 7612, 557, 11, 42, "Print"], Cell[319352, 7625, 561, 11, 60, "Print"], Cell[319916, 7638, 592, 12, 60, "Print"], Cell[320511, 7652, 577, 11, 60, "Print"], Cell[321091, 7665, 639, 12, 60, "Print"], Cell[321733, 7679, 635, 12, 60, "Print"], Cell[322371, 7693, 541, 11, 42, "Print"], Cell[322915, 7706, 531, 10, 42, "Print"], Cell[323449, 7718, 134, 2, 24, "Print"], Cell[323586, 7722, 480, 9, 42, "Print"], Cell[324069, 7733, 396, 8, 42, "Print"], Cell[324468, 7743, 516, 10, 60, "Print"], Cell[324987, 7755, 138, 2, 24, "Print"], Cell[325128, 7759, 406, 8, 42, "Print"], Cell[325537, 7769, 376, 8, 42, "Print"], Cell[325916, 7779, 376, 8, 42, "Print"], Cell[326295, 7789, 376, 8, 42, "Print"], Cell[326674, 7799, 555, 12, 42, "Print"], Cell[327232, 7813, 477, 9, 42, "Print"], Cell[327712, 7824, 481, 9, 42, "Print"], Cell[328196, 7835, 540, 12, 42, "Print"], Cell[328739, 7849, 540, 12, 42, "Print"], Cell[329282, 7863, 489, 9, 42, "Print"], Cell[329774, 7874, 571, 12, 42, "Print"], Cell[330348, 7888, 571, 12, 42, "Print"], Cell[330922, 7902, 551, 12, 42, "Print"], Cell[331476, 7916, 551, 12, 42, "Print"], Cell[332030, 7930, 551, 12, 42, "Print"], Cell[332584, 7944, 551, 12, 42, "Print"], Cell[333138, 7958, 481, 9, 42, "Print"], Cell[333622, 7969, 481, 9, 42, "Print"], Cell[334106, 7980, 567, 12, 42, "Print"], Cell[334676, 7994, 567, 12, 42, "Print"], Cell[335246, 8008, 511, 10, 42, "Print"], Cell[335760, 8020, 511, 10, 42, "Print"], Cell[336274, 8032, 552, 12, 42, "Print"], Cell[336829, 8046, 493, 9, 42, "Print"], Cell[337325, 8057, 135, 2, 24, "Print"], Cell[337463, 8061, 396, 8, 42, "Print"], Cell[337862, 8071, 396, 8, 42, "Print"], Cell[338261, 8081, 456, 8, 42, "Print"], Cell[338720, 8091, 456, 8, 42, "Print"], Cell[339179, 8101, 396, 8, 42, "Print"], Cell[339578, 8111, 388, 8, 42, "Print"], Cell[339969, 8121, 315, 6, 42, "Print"], Cell[340287, 8129, 315, 6, 42, "Print"], Cell[340605, 8137, 315, 6, 42, "Print"], Cell[340923, 8145, 315, 6, 42, "Print"], Cell[341241, 8153, 315, 6, 42, "Print"], Cell[341559, 8161, 315, 6, 42, "Print"], Cell[341877, 8169, 315, 6, 42, "Print"], Cell[342195, 8177, 315, 6, 42, "Print"], Cell[342513, 8185, 315, 6, 42, "Print"], Cell[342831, 8193, 396, 8, 42, "Print"], Cell[343230, 8203, 475, 9, 42, "Print"], Cell[343708, 8214, 550, 12, 42, "Print"], Cell[344261, 8228, 550, 12, 42, "Print"], Cell[344814, 8242, 315, 6, 42, "Print"], Cell[345132, 8250, 315, 6, 42, "Print"], Cell[345450, 8258, 315, 6, 42, "Print"], Cell[345768, 8266, 315, 6, 42, "Print"], Cell[346086, 8274, 595, 12, 42, "Print"], Cell[346684, 8288, 571, 12, 42, "Print"], Cell[347258, 8302, 595, 12, 42, "Print"], Cell[347856, 8316, 595, 12, 42, "Print"], Cell[348454, 8330, 571, 12, 42, "Print"], Cell[349028, 8344, 134, 2, 24, "Print"], Cell[349165, 8348, 336, 7, 42, "Print"], Cell[349504, 8357, 487, 9, 42, "Print"], Cell[349994, 8368, 569, 13, 60, "Print"], Cell[350566, 8383, 563, 12, 60, "Print"], Cell[351132, 8397, 557, 11, 42, "Print"], Cell[351692, 8410, 721, 14, 60, "Print"], Cell[352416, 8426, 550, 12, 42, "Print"], Cell[352969, 8440, 550, 12, 42, "Print"], Cell[353522, 8454, 452, 8, 42, "Print"], Cell[353977, 8464, 469, 9, 42, "Print"], Cell[354449, 8475, 545, 12, 42, "Print"], Cell[354997, 8489, 545, 12, 42, "Print"], Cell[355545, 8503, 528, 11, 42, "Print"], Cell[356076, 8516, 456, 8, 42, "Print"], Cell[356535, 8526, 524, 11, 42, "Print"], Cell[357062, 8539, 456, 8, 42, "Print"], Cell[357521, 8549, 432, 8, 42, "Print"], Cell[357956, 8559, 452, 8, 42, "Print"], Cell[358411, 8569, 592, 12, 60, "Print"], Cell[359006, 8583, 141, 2, 24, "Print"], Cell[359150, 8587, 336, 7, 42, "Print"], Cell[359489, 8596, 500, 10, 42, "Print"], Cell[359992, 8608, 573, 13, 60, "Print"], Cell[360568, 8623, 567, 12, 60, "Print"], Cell[361138, 8637, 561, 11, 42, "Print"], Cell[361702, 8650, 733, 14, 60, "Print"], Cell[362438, 8666, 632, 14, 78, "Print"], Cell[363073, 8682, 717, 14, 60, "Print"], Cell[363793, 8698, 713, 14, 60, "Print"], Cell[364509, 8714, 550, 12, 42, "Print"], Cell[365062, 8728, 550, 12, 42, "Print"], Cell[365615, 8742, 452, 8, 42, "Print"], Cell[366070, 8752, 469, 9, 42, "Print"], Cell[366542, 8763, 545, 12, 42, "Print"], Cell[367090, 8777, 549, 12, 42, "Print"], Cell[367642, 8791, 469, 9, 42, "Print"], Cell[368114, 8802, 469, 9, 42, "Print"], Cell[368586, 8813, 528, 11, 42, "Print"], Cell[369117, 8826, 456, 8, 42, "Print"], Cell[369576, 8836, 524, 11, 42, "Print"], Cell[370103, 8849, 456, 8, 42, "Print"], Cell[370562, 8859, 432, 8, 42, "Print"], Cell[370997, 8869, 452, 8, 42, "Print"], Cell[371452, 8879, 592, 12, 60, "Print"], Cell[372047, 8893, 138, 2, 24, "Print"], Cell[372188, 8897, 336, 7, 42, "Print"], Cell[372527, 8906, 500, 10, 42, "Print"], Cell[373030, 8918, 573, 13, 60, "Print"], Cell[373606, 8933, 567, 12, 60, "Print"], Cell[374176, 8947, 561, 11, 42, "Print"], Cell[374740, 8960, 733, 14, 60, "Print"], Cell[375476, 8976, 632, 14, 78, "Print"], Cell[376111, 8992, 717, 14, 60, "Print"], Cell[376831, 9008, 442, 8, 42, "Print"], Cell[377276, 9018, 717, 14, 60, "Print"], Cell[377996, 9034, 550, 12, 42, "Print"], Cell[378549, 9048, 550, 12, 42, "Print"], Cell[379102, 9062, 452, 8, 42, "Print"], Cell[379557, 9072, 469, 9, 42, "Print"], Cell[380029, 9083, 545, 12, 42, "Print"], Cell[380577, 9097, 549, 12, 42, "Print"], Cell[381129, 9111, 469, 9, 42, "Print"], Cell[381601, 9122, 469, 9, 42, "Print"], Cell[382073, 9133, 528, 11, 42, "Print"], Cell[382604, 9146, 456, 8, 42, "Print"], Cell[383063, 9156, 524, 11, 42, "Print"], Cell[383590, 9169, 456, 8, 42, "Print"], Cell[384049, 9179, 432, 8, 42, "Print"], Cell[384484, 9189, 452, 8, 42, "Print"], Cell[384939, 9199, 592, 12, 60, "Print"], Cell[385534, 9213, 76, 1, 42, "Print"], Cell[385613, 9216, 65, 1, 60, "Print"], Cell[385681, 9219, 83, 2, 32, "Text"], Cell[385767, 9223, 62, 1, 24, "Print"], Cell[385832, 9226, 62, 1, 24, "Print"], Cell[385897, 9229, 99, 2, 24, "Print"], Cell[385999, 9233, 74, 1, 24, "Print"], Cell[386076, 9236, 104, 2, 24, "Print"] }, Closed]], Cell[CellGroupData[{ Cell[386217, 9243, 31, 0, 29, "Subsection"], Cell[386251, 9245, 75, 1, 44, "Input"], Cell[386329, 9248, 188, 4, 64, "Input"], Cell[386520, 9254, 188, 4, 64, "Input"], Cell[386711, 9260, 188, 4, 64, "Input"], Cell[386902, 9266, 188, 4, 64, "Input"], Cell[387093, 9272, 188, 4, 64, "Input"], Cell[387284, 9278, 188, 4, 64, "Input"] }, Closed]], Cell[387487, 9285, 75, 1, 37, "Input"], Cell[387565, 9288, 278, 6, 56, "Input"], Cell[CellGroupData[{ Cell[387868, 9298, 49, 1, 40, "Input"], Cell[387920, 9301, 48499, 1848, 296, 30282, 1618, "GraphicsData", \ "PostScript", "Graphics"] }, Open ]], Cell[436434, 11152, 63, 1, 40, "Input"], Cell[436500, 11155, 59, 1, 40, "Input"], Cell[436562, 11158, 89, 1, 40, "Input"], Cell[CellGroupData[{ Cell[436676, 11163, 47, 1, 40, "Input"], Cell[436726, 11166, 10351, 228, 200, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[447114, 11399, 92, 1, 40, "Input"], Cell[447209, 11402, 5429, 125, 108, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[452675, 11532, 416, 6, 120, "Input"], Cell[453094, 11540, 52067, 1124, 588, "Output"] }, Open ]] } ] *) (******************************************************************* End of Mathematica Notebook file. *******************************************************************)