Name: V. Shtabovenko Date: 03/29/19-12:16:17 PM Z
Hi Will,
thanks for the example. I hope that this should be now fixed.
Cheers,
Vladyslav
Am 28.03.19 um 15:52 schrieb Will:
> Hi Vladyslav,
>
> Thanks for your reply.
>
> I send you what I get
>
> FAFeynAmpList[Process -> {{F[3, {1, Index[Colour,
1]}], FourMomentum[Incoming, 1],
> FCGV[“MU”], {(2*Charge)/3,
(2*ColorCharge)/Sqrt[3]}},
> {-F[3, {1, Index[Colour, 2]}],
FourMomentum[Incoming, 2], FCGV[“MU”],
> {(-2*Charge)/3, (-2*ColorCharge)/Sqrt[3]}}} ->
> {{V[5, {Index[Gluon, 3]}],
FourMomentum[Outgoing, 1], 0,
{Sqrt[3]*ColorCharge}},
> {S[1], FourMomentum[Outgoing, 2],
FCGV[“MH”], {}}}, Model -> {“SMQCD”},
> GenericModel -> {“Lorentz”}, AmplitudeLevel -> {Particles},
> ExcludeParticles -> {S, -F[4], F[4], -F[3, {2,
_}], F[3, {2, _}], -F[3, {3, _}],
> F[3, {3, _}], -F[4, {1, _}], F[4, {1,
_}], -F[4, {2, _}], F[4, {2, _}],
> -F[4, {3, _}], F[4, {3, _}], S[1],
S[2], -S[3], S[3], -V[3], V[3],
V[5], V[5, {_}]},
> ExcludeFieldPoints -> {FieldPoint[0][S[1],
V[2], V[2]],
> FieldPoint[0][S[1], -V[3],
V[3]], FieldPoint[0][-S[3],
V[1], V[3]],
> FieldPoint[0][-S[3], V[2],
V[3]], FieldPoint[0][S[3], V[1],
-V[3]],
> FieldPoint[0][S[3], V[2],
-V[3]], FieldPoint[1][S[1],
V[1], V[2]],
> FieldPoint[1][S[1], V[2],
V[2]], FieldPoint[1][S[1],
-V[3], V[3]],
> FieldPoint[1][-S[3], V[1],
V[3]], FieldPoint[1][-S[3],
V[2], V[3]],
> FieldPoint[1][S[3], V[1],
-V[3]], FieldPoint[1][S[3],
V[2], -V[3]]},
> LastSelections -> {}][FAFeynAmp[GraphID[Topology ==
1, Generic == 1, Particles == 1,
> Number == 1], Integral[FourMomentum[Internal,
1]],
>
((I/16)*FAFeynAmpDenominator[FAPropagatorDenominator[FourMomentum[Internal,
1],
> FCGV[“MU”]],
FAPropagatorDenominator[FourMomentum[Incoming, 2] +
> FourMomentum[Internal, 1] - FourMomentum[Outgoing,
1], FCGV[“MZ”]]]*
> FAMetricTensor[Index[Lorentz, 2], Index[Lorentz,
3]]*
> FAPropagatorDenominator[FourMomentum[Incoming, 2] -
FourMomentum[Outgoing, 1],
> FCGV[“MU”],
2]*FermionChain[FANonCommutative[FADiracSpinor[
> -FourMomentum[Incoming, 2], FCGV[“MU”]]],
>
(-I)*FAGS*FANonCommutative[FADiracMatrix[Index[Lorentz,
1]],
> FAChiralityProjector[-1]]*FASUNT[Index[Gluon,
3], Index[Colour, 2],
> Index[Colour, 1]] -
I*FAGS*FANonCommutative[FADiracMatrix[Index[Lorentz,
1]],
> FAChiralityProjector[1]]*FASUNT[Index[Gluon,
3], Index[Colour, 2],
> Index[Colour, 1]], FANonCommutative[
> FADiracSlash[-FourMomentum[Incoming, 2] +
FourMomentum[Outgoing, 1]] +
> FCGV[“MU”]],
(((-2*I)/3)*FANonCommutative[FADiracMatrix[Index[Lorentz,
3]],
>
FAChiralityProjector[1]]*FCGV[“EL”]*FCGV[“SW”])/FCGV[“CW”]
+
> (I*FANonCommutative[FADiracMatrix[Index[Lorentz,
3]], FAChiralityProjector[-1]]*
> FCGV[“EL”]*(1/2 -
(2*FCGV[“SW”]^2)/3))/(FCGV[“CW”]*FCGV[“SW”]),
> FANonCommutative[FADiracSlash[FourMomentum[Internal,
1]] + FCGV[“MU”]],
>
(((-2*I)/3)*FANonCommutative[FADiracMatrix[Index[Lorentz,
2]],
>
FAChiralityProjector[1]]*FCGV[“EL”]*FCGV[“SW”])/FCGV[“CW”]
+
> (I*FANonCommutative[FADiracMatrix[Index[Lorentz,
2]], FAChiralityProjector[-1]]*
> FCGV[“EL”]*(1/2 -
(2*FCGV[“SW”]^2)/3))/(FCGV[“CW”]*FCGV[“SW”]),
> FANonCommutative[FADiracSlash[-FourMomentum[Incoming,
2] + FourMomentum[Outgoing,
> 1]] + FCGV[“MU”]],
((-I/2)*FANonCommutative[FAChiralityProjector[-1]]*
>
FCGV[“EL”]*FCGV[“MU”])/(FCGV[“MW”]*FCGV[“SW”])
-
>
((I/2)*FANonCommutative[FAChiralityProjector[1]]*FCGV[“EL”]*FCGV[“MU”])/
> (FCGV[“MW”]*FCGV[“SW”]),
FANonCommutative[FADiracSpinor[
> FourMomentum[Incoming, 1],
FCGV[“MU”]]]]*SumOver[Index[Colour, 1],
3, External]*
> SumOver[Index[Colour, 2], 3,
External]*SumOver[Index[Gluon, 3], 8,
External]*
> Conjugate[FAPolarizationVector][V[5,
{Index[Gluon, 3]}], FourMomentum[Outgoing, 1],
> Index[Lorentz, 1]])/Pi^4]]
>