Use this notebook to repeatedly evaluate the notebook "PiPiScattering.nb"
with different values of the isospin indices {d1, d2, d3, d4}.

<< HighEnergyPhysics`FeynCalc`

FeynCalc 4.1.1    For help, type ?FeynCalc,  use the built-in help system  or visit www.feyncalc.org

tabx = Flatten[Table[If[Length[Union[{d1, d2, d3, d4}]] < 3 && Length[Union[Complement1[{d1, d2, d3, d4}, Union[{d1, d2, d3, d4}]]]] != 1 || Length[Union[{d1, d2, d3, d4}]] == 1, f[d1, d2, d3, d4], {}], {d1, 1, 2}, {d2, 1, 2}, {d3, 1, 2}, {d4, 1, 2}]] /. f -> List

( 1 1 1 1 ) 1 1 2 2 1 2 1 2 1 2 2 1 2 1 1 2 2 1 2 1 2 2 1 1 2 2 2 2

iii = 0

0

nb = NotebookOpen["C:\\fjob\\HEPCalc\\PhiExamples\\ChPT\\Pions+\nVirtualPhotons\\PiPiScattering.nb"] ; SelectionMove[nb, All, Notebook] ; SelectionMove[nb, Before, Cell] ; NotebookWrite[nb, Cell[BoxData[RowBox[{"++", "iii"}]], "Input"]] ; NotebookWrite[nb, Cell[BoxData[RowBox[{RowBox[{"{", RowBox[{"d1", ",", "d2", ",", "d3", ",", "d4"}], "}"}], "=", RowBox[{"{", RowBox[{"tabx[[iii,1]]", ",", "tabx[[iii,2]]", ",", "tabx[[iii,3]]", ",", "tabx[[iii,4]]"}], "}"}]}]], " Input"]] ;

Do[ SelectionMove[nb, All, Notebook] ; SelectionEvaluate[nb], {rep, 1, Length[tabx]}]

Converted by Mathematica  (July 10, 2003)