| |
| | [No title] |
 | | Anti5[exp, n] anticommutes all gamma5 n times to the right. |
 | | Anti5[exp, -n] anticommutes all gamma5 n times to the left."; (* ------------------------------------------------------------------------ *) Begin["`Private`"]; MakeContext[DiracGamma, DOT, FeynCalcInternal, MemSet]; Anti5[a_/;FreeQ[a, DiracGamma[5]],_] := a; Anti5[x_, Infinity] := FixedPoint[Anti5, x, $RecursionLimit]; Anti5[xx_,n_Integer?Positive] := Nest[Anti5, xx, n]; Anti5[xx_] := (FeynCalcInternal[xx] /. |
 | | Settings of AntiCommutator (e.g.AntiCommutator[a,b]=c) are recognized by DotSimplify."; (* ------------------------------------------------------------------------ *) Begin["`Private`"]; MakeContext[DataType, NonCommutative]; AntiCommutator /: Set[AntiCommutator[a_, b_], c_] := Block[{nd, acom}, nd = (RuleDelayed @@ {HoldPattern @@ {acom[a, b]}, c}) /. |
| www.mertig.com /FeynCalc0327.m (4595 words) |
|