Name: Will Date: 03/28/19-08:52:42 AM Z
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”]