Code: Select all

`ScalarFields[[2]] = {trip, 1, {{T0/Sqrt[2], conj[Tm]}, {Tm, -T0/Sqrt[2]}}, 0, 3, 1};`

ScalarFields[[3]] = {sing, 1, ss, 0, 1, 1};

RealScalars = {T0, sing};

and the following term to the Lagrangian:

Code: Select all

`LagNoHC = ... - LT3 trip.trip.trip.sing;`

I get the following Mathematica errors after running Start[...]:

Code: Select all

`...`

Evolve States: GaugeES

Adding terms to the Lagrangian:

... adding: Yu H.u.q-Yd conj[H].d.q-Ye conj[H].e.l (All Done)

... adding: -(1/2) MT trip.trip-mu2 conj[H].H-KHT conj[H].trip.H-LT3 trip.trip.trip.sing+1/2 LT Delta[lef1,lef4b] Delta[lef1b,lef2] Delta[lef2b,lef3] Delta[lef3b,lef4] trip.trip.trip.trip+1/2 LHT conj[H].H.trip.trip+1/2 LH conj[H].H.conj[H].H (All Done)

! Part::partw: Part 1 of {} does not exist.

! Take::take: Cannot take positions 1 through 3 in {}[[1]].

! Part::partw: Part 1 of {} does not exist.

! Take::take: Cannot take positions 1 through 3 in {}[[1]].

Rotate Lagrangian: 14/14

Derive ghost terms:

... generate gauge fixing terms: 3/3 (All Done)

... calculate Ghost interactions

Calc Mixings of Matter Fields

Save information (All Done)

...