TransWikia.com

Apply Formula automatically in Feyncalc

Mathematica Asked by NeAr on November 4, 2020

I want to apply the function Tdec in Feyncalc automatically. Here is an example what the input is:

(GAD[x].FVD[k, x] + [Omega]*
      GAD[x].FVD[v, x]).(GAD[y].FVD[k, y] + [Omega]*
      GAD[y].FVD[v, y]) // ExpandScalarProduct // DiracSimplify

Output:

[Omega]*DiracGamma[Momentum[k, D], D] . 
   DiracGamma[Momentum[v, D], D] + 
 [Omega]*DiracGamma[Momentum[v, D], D] . 
   DiracGamma[Momentum[k, D], D] + 
 Pair[Momentum[k, D], Momentum[k, D]] + 
 [Omega]^2*Pair[Momentum[v, D], Momentum[v, D]]

So now i want to apply the function on Tdec which takes the form of:

[Omega]*GAD[x].Tdec[{k, x}, {v}, List -> False].GAD[y].FVD[v, 
    y] + [Omega]*
  GAD[y].FVD[v, y].Tdec[{k, x}, {v}, List -> False].GAD[x] + SPD[k,k] + 
 SPD[v,v]*[Omega]^2

Is there any way of applying Tdec automatically to the first equation to obtain the last equation which was done by hand?

Add your own answers!

Ask a Question

Get help from others!

© 2024 TransWikia.com. All rights reserved. Sites we Love: PCI Database, UKBizDB, Menu Kuliner, Sharing RPP