In[]:=
<<FeynCalc`
FeynCalc 10.1.0 (dev version). For help, use the onlinedocumentation, visit the forum and have a look at the supplied
examples.
The PDF-version of the manual can be downloaded here.
If you use FeynCalc in your research, please evaluate FeynCalcHowToCite[] to learn how to cite this software.
Please keep in mind that the proper academic attribution of our work is crucial to ensure the future development of this package!
In[]:=
pd=Momentum[Subscript[p,Δ]];​​pl=Momentum[Subscript[p,Λ]];​​pe=Momentum[Subscript[p,e]];​​pnu=Momentum[Subscript[p,ν]];​​​​MD=Symbol["MD"];​​me=Symbol["me"];​​ML=Symbol["ML"];​​f1=Symbol["f1"];​​g1=Symbol["g1"];​​GF=Symbol["GF"];​​mu=LorentzIndex[μ];​​nu=LorentzIndex[ν];​​​​ab=MT[mu,nu]-(1/3)GA[mu].GA[nu]+(1/(3MD))(GA[nu]*FV[pd,mu]-GA[mu]*FV[pd,nu])-(2/(3MD^2))FV[pd,mu].FV[pd,nu]​​
Out[]=
-
1
3
μ
γ
.
ν
γ
+
μν
g
-
2
μ
p
Δ
.
ν
p
Δ
3
2
MD
+
ν
γ
μ
p
Δ
-
μ
γ
ν
p
Δ
3MD
In[]:=
ab=MT[mu,nu]-(1/3)GA[mu].GA[nu]+(1/(3MD))(GA[nu]*FV[pd,mu]-GA[mu]*FV[pd,nu])-(2/(3MD^2))FV[pd,mu].FV[pd,nu]​​hadronictensor=(1/4)*DiracTrace[(GS[pd]+MD).ab.GA[mu].(f1+g1GA[5]).(GS[pl]+ML).GA[nu].(f1+g1GA[5]),DiracTraceEvaluate->True]​​