Name: Rolf Mertig (email_not_shown)
Date: 11/13/13-03:11:05 PM Z

No.
There are just a few realtions which you can find in
HighEnergyPhysics/fcloops/PaVe.m :

(* ****************************************************************** *)
(* Notation : p10 = p1^2; p12 = (p1-p2)^2; etc. *)
(* ****************************************************************** *)
(* C2 --> C1, C22 --> C11, C002 --> C001, C222 --> C111, *)
(* if p10=p20 and m2=m3 *)
PaVe[2,{p10_,p12_,p10_},{m1_,m2_,m2_}] :=PaVe[1,{p10,p12,p10},{m1,m2,m2}];
PaVe[2,2,{p10_,p12_,p10_},{m1_,m2_,m2_}]:=PaVe[1,1,{p10,p12,p10},{m1,m2,m2}];
PaVe[0,0,2,{p10_,p12_,p10_},{m1_,m2_,m2_}]:=
PaVe[0,0,1,{p10,p12,p10},{m1,m2,m2}];
PaVe[1,2,2,{p10_,p12_,p10_},{m1_,m2_,m2_}]:=
PaVe[1,1,2,{p10,p12,p10},{m1,m2,m2}];
PaVe[2,2,2,{p10_,p12_,p10_},{m1_,m2_,m2_}]:=
PaVe[1,1,1,{p10,p12,p10},{m1,m2,m2}];
(* a special case *)
PaVe[ 2,{p10_, pp_,pp_},{m_,m_,m2_} ]:=
- 2 PaVe[1,{p10,pp,pp},{m,m,m2}] - PaVe[0,{p10,pp,pp},{m,m,m2}];

This archive was generated by hypermail 2b29 : 02/22/19-03:20:01 PM Z CET