FeynCalc2FORM[exp]
displays exp
in FORM
syntax.
FeynCalc2FORM[file, x]
writes x
in FORM syntax to a file.
FeynCalc2FORM[file, x == y]
writes x=y to a file in FORM syntax.
The capabilities of this function are very limited, so you should not expect it to easily handle large and complicated expressions.
See also
Overview, FeynCalc2FORM.
Examples
FORM2FeynCalc
MT[\[Mu], \[Nu]] FV[p, \[Rho]] y^2/d
FeynCalc2FORM[%];
dy2pρgˉμν
(y^2d_(mu,nu)p(ro))/d
LC[\[Alpha], \[Beta], \[Delta], \[Rho]]
FeynCalc2FORM[%];
ϵˉαβδρ
(-i_)*e_(al,be,de,ro)
DiracTrace[GA[\[Mu], \[Nu], \[Rho], \[Sigma]]]
FeynCalc2FORM[%];
tr(γˉμ.γˉν.γˉρ.γˉσ)
g_(0,mu)g_(0,nu)g_(0,ro)*g_(0,si)
DiracTrace[GA[\[Mu], \[Nu]]] DiracTrace[GA[\[Mu], \[Rho]]]
FeynCalc2FORM[%];
tr(γˉμ.γˉν)tr(γˉμ.γˉρ)
g_(0,mu)g_(0,nu)g_(1,mu)*g_(1,ro)
t = DiracSimplify[DiracTrace[GA[\[Mu], \[Nu], \[Rho], \[Sigma]] . GS[p, q]]]
4pνqμgˉρσ−4pμqνgˉρσ−4pρqμgˉνσ+4pρqνgˉμσ+4pμqρgˉνσ−4pνqρgˉμσ+4pσqμgˉνρ−4pσqνgˉμρ+4pσqρgˉμν−4pμqσgˉνρ+4pνqσgˉμρ−4pρqσgˉμν+4gˉμνgˉρσ(p⋅q)+4gˉμσgˉνρ(p⋅q)−4gˉμρgˉνσ(p⋅q)
FeynCalc2FORM["fc2ftest.f", L == t];
TableForm[ReadList[If[$OperatingSystem === "MacOS", ":", ""] <> "fc2ftest.f", String]]
Indices \\[Mu],\\[Nu],\\[Rho],\\[Sigma];Vectors OPEDelta,p,q;write statistics;Local L = ( 4*d_(mu,si)*d_(nu,ro)*q.p-4*d_(mu,ro)*d_(nu,si)*q.p+4*d_(mu,nu)*d_(ro,si)*q.p+4*d_(ro,si)*p(nu)*q(mu)-4*d_(nu,si)*p(ro)*q(mu)+4*d_(nu,ro)*p(si)*q(mu)-4*d_(ro,si)*p(mu)*q(nu)+4*d_(mu,si)*p(ro)*q(nu)-4*d_(mu,ro)*p(si)*q(nu)+4*d_(nu,si)*p(mu)*q(ro)-4*d_(mu,si)*p(nu)*q(ro)+4*d_(mu,nu)*p(si)*q(ro)-4*d_(nu,ro)*p(mu)*q(si)+4*d_(mu,ro)*p(nu)*q(si)-4*d_(mu,nu)*p(ro)*q(si) ); print;.end
If[FileNames["fc2ftest.f"] =!= {}, DeleteFile["fc2ftest.f"]];