FCAbbreviate[exp, {q1, q2, ...}, {p1, p2, ...}]
introduces abbreivations for scalar products of external momenta,
SMP-symbols and other variables that are present in the
expression. Functions (LeafCount > 1) are not supported.
The main purpose is to simplify the export of FeynCalc expressions to
other software tools that might not provide the richness of
Mathematica’s syntax. The result is returned as a list of replacement
rules for scalar products, SMPs and all other variables
present.
(a + I b)^2
FCAbbreviate[%, {}, {}](a+i b)^2
\{\{\},\{\},\{a\to \;\text{var1},b\to \;\text{var2}\}\}
SPD[p, k] FAD[{q, SMP["m_e"]}, {q + p, m}]
FCAbbreviate[%, {q}, {p, k}, Head -> spd]\frac{k\cdot p}{\left(q^2-m_e^2\right).\left((p+q)^2-m^2\right)}
\left\{\{\text{spd}(k,k)\to \;\text{sp1},\text{spd}(k,p)\to \;\text{sp2},\text{spd}(p,p)\to \;\text{sp3}\},\left\{m_e\to \;\text{sm1}\right\},\{m\to \;\text{var1}\}\right\}
FCClearScalarProducts[];
SPD[p1, p1] = 0;
SPD[p2, p2] = 0;
SPD[p3, p3] = 0;
SPD[p1, p2] = s/2; SPD[p1, p3] = -(s + t)/2; SPD[p2, p3] = t/2;
SPD[p2, p3] FAD[q, q - p1 - p2, q - p1 - p2 - p3]
FCAbbreviate[%, {q}, {p1, p2, p3}, Head -> spd]\frac{t}{2 q^2.(-\text{p1}-\text{p2}+q)^2.(-\text{p1}-\text{p2}-\text{p3}+q)^2}
\left\{\left\{\text{spd}(\text{p1},\text{p1})\to 0,\text{spd}(\text{p1},\text{p2})\to \frac{\text{var1}}{2},\text{spd}(\text{p1},\text{p3})\to \frac{1}{2} (-\text{var1}-\text{var2}),\text{spd}(\text{p2},\text{p2})\to 0,\text{spd}(\text{p2},\text{p3})\to \frac{\text{var2}}{2},\text{spd}(\text{p3},\text{p3})\to 0\right\},\{\},\{s\to \;\text{var1},t\to \;\text{var2}\}\right\}
FCClearScalarProducts[]